| blob | 0d31742579caca9bc2b056eeb53ef41ab7def6b8 |
1 $!
2 $! MAKEENGINES.COM
3 $! Written By: Richard Levitte
4 $! richard@levitte.org
5 $!
6 $! This command file compiles and creates the various engines in form
7 $! of shared images. They are placed in [.xxx.EXE.ENGINES], where "xxx"
8 $! is ALPHA, IA64 or VAX, depending on your hardware.
9 $!
10 $! P1 if this is ENGINES or ALL, the engines will build, otherwise not.
11 $!
12 $! P2 DEBUG or NODEBUG to compile with or without debugger information.
13 $!
14 $! P3 VAXC for VAX C
15 $! DECC for DEC C
16 $! GNUC for GNU C (untested)
17 $!
18 $! P4 if defined, sets the TCP/IP libraries to use. UCX or TCPIP is
19 $! used by default since most other implementations come with a
20 $! compatibility library. The value must be one of the following:
21 $!
22 $! UCX for UCX
23 $! SOCKETSHR for SOCKETSHR+NETLIB
24 $! TCPIP for TCPIP (post UCX)
25 $!
26 $! P5 if defined, tells the compiler not to use special threads.
27 $!
28 $! P6 if defined, denotes which engines to build. If not defined,
29 $! all available engines are built.
30 $!
31 $! For 64 bit architectures (Alpha and IA64), specify the pointer size as P7.
32 $! For 32 bit architectures (VAX), P7 is ignored.
33 $! Currently supported values are:
34 $!
35 $! 32 To ge a library compiled with /POINTER_SIZE=32
36 $! 64 To ge a library compiled with /POINTER_SIZE=64
37 $!
38 $!-----------------------------------------------------------------------------
39 $!
40 $! Set the default TCP/IP library to link against if needed
41 $!
42 $ TCPIP_LIB = ""
43 $!
44 $! Check What Architecture We Are Using.
45 $!
46 $ IF (F$GETSYI("CPU").LT.128)
47 $ THEN
48 $!
49 $! The Architecture Is VAX.
50 $!
51 $ ARCH = "VAX"
52 $!
53 $! Else...
54 $!
55 $ ELSE
56 $!
57 $! The Architecture Is Alpha, IA64 or whatever comes in the future.
58 $!
59 $ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
60 $ IF (ARCH .EQS. "") THEN ARCH = "UNK"
61 $!
62 $! End The Architecture Check.
63 $!
64 $ ENDIF
65 $!
66 $! Set the names of the engines we want to build
67 $! NOTE: Some might think this list ugly. However, it's made this way to
68 $! reflect the LIBNAMES variable in Makefile as closely as possible,
69 $! thereby making it fairly easy to verify that the lists are the same.
70 $! NOTE: gmp isn't built, as it's mostly a test engine and brings in another
71 $! library that isn't necessarely ported to VMS.
72 $!
73 $ ENGINES = "," + P6
74 $ IF ENGINES .EQS. "," THEN -
75 ENGINES = ",4758cca,aep,atalla,cswift,chil,nuron,sureware,ubsec,padlock,"
76 $!
77 $! GOST requires a 64-bit integer type, unavailable on VAX.
78 $!
79 $ IF (ARCH .NES. "VAX") THEN -
80 ENGINES = ENGINES+ ",ccgost"
81 $!
82 $! Set the goal directories, and create them if necessary
83 $!
84 $ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.ENGINES]
85 $ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.ENGINES]
86 $ IF F$PARSE(OBJ_DIR) .EQS. "" THEN CREATE/DIRECTORY 'OBJ_DIR'
87 $ IF F$PARSE(EXE_DIR) .EQS. "" THEN CREATE/DIRECTORY 'EXE_DIR'
88 $!
89 $! Set the goal files, and create them if necessary
90 $!
91 $ CRYPTO_LIB :=SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO'LIB32'.OLB
92 $ IF F$SEARCH(CRYPTO_LIB) .EQS. "" THEN LIBRARY/CREATE/OBJECT 'CRYPTO_LIB'
93 $!
94 $! OK, time to check options and initialise
95 $!
96 $ OPT_PHASE = P1
97 $ ACCEPT_PHASE = "ALL,ENGINES"
98 $ OPT_DEBUG = P2
99 $ OPT_COMPILER = P3
100 $ OPT_TCPIP_LIB = P4
101 $ OPT_SPECIAL_THREADS = P5
102 $ OPT_POINTER_SIZE = P7
103 $
104 $ GOSUB CHECK_OPTIONS
105 $ GOSUB INITIALISE
106 $ GOSUB CHECK_OPT_FILE
107 $!
108 $! Define what goes into each engine. VAX includes a transfer vector.
109 $!
110 $ ENGINE_ = ""
111 $ TV_OBJ = ""
112 $ IF ARCH .EQS. "VAX"
113 $ THEN
114 $ ENGINE_ = "engine_vector.mar"
115 $ TV_OBJ_NAME = OBJ_DIR + F$PARSE(ENGINE_,,,"NAME","SYNTAX_ONLY") + ".OBJ"
116 $ TV_OBJ = ",''TV_OBJ_NAME'"
117 $ ENDIF
118 $ ENGINE_4758CCA = "e_4758cca"
119 $ ENGINE_aep = "e_aep"
120 $ ENGINE_atalla = "e_atalla"
121 $ ENGINE_cswift = "e_cswift"
122 $ ENGINE_chil = "e_chil"
123 $ ENGINE_nuron = "e_nuron"
124 $ ENGINE_sureware = "e_sureware"
125 $ ENGINE_ubsec = "e_ubsec"
126 $ ENGINE_padlock = "e_padlock"
127 $
128 $ ENGINE_ccgost_SUBDIR = "ccgost"
129 $ ENGINE_ccgost = "e_gost_err,gost2001_keyx,gost2001,gost89,gost94_keyx,"+ -
130 "gost_ameth,gost_asn1,gost_crypt,gost_ctl,gost_eng,"+ -
131 "gosthash,gost_keywrap,gost_md,gost_params,gost_pmeth,"+ -
132 "gost_sign"
133 $!
134 $! Define which programs need to be linked with a TCP/IP library
135 $!
136 $ TCPIP_ENGINES = ",,"
137 $ IF COMPILER .EQS. "VAXC" THEN -
138 TCPIP_ENGINES = ",,"
139 $!
140 $! Set up two loops, one that keeps track of the engines,
141 $! and one that keeps track of all the files going into
142 $! the current engine.
143 $!
144 $! Here's the start of the engine loop.
145 $!
146 $ ENGINE_COUNTER = 0
147 $ ENGINE_NEXT:
148 $!
149 $! Extract the current engine name, and if we've reached the end, stop
150 $!
151 $ ENGINE_NAME = F$ELEMENT(ENGINE_COUNTER,",",ENGINES)
152 $ IF (ENGINE_NAME.EQS.",") THEN GOTO ENGINE_DONE
153 $!
154 $ ENGINE_COUNTER = ENGINE_COUNTER + 1
155 $!
156 $! Set up the engine library names.
157 $!
158 $ LIB_ENGINE = "ENGINE_" + ENGINE_NAME
159 $!
160 $! Check if the library module name actually is defined
161 $!
162 $ IF F$TYPE('LIB_ENGINE') .EQS. ""
163 $ THEN
164 $ WRITE SYS$ERROR ""
165 $ WRITE SYS$ERROR "The module ",ENGINE_NAME," does not exist. Continuing..."
166 $ WRITE SYS$ERROR ""
167 $ GOTO ENGINE_NEXT
168 $ ENDIF
169 $!
170 $! Talk to the user
171 $!
172 $ IF ENGINE_NAME .NES. ""
173 $ THEN
174 $ WRITE SYS$OUTPUT "Compiling The ",ENGINE_NAME," Library Files. (",BUILDALL,")"
175 $ ELSE
176 $ WRITE SYS$OUTPUT "Compiling Support Files. (",BUILDALL,")"
177 $ ENDIF
178 $!
179 $! Create a .OPT file for the object files (for a real engine name).
180 $!
181 $ IF ENGINE_NAME .NES. ""
182 $ THEN
183 $ OPEN/WRITE OBJECTS 'EXE_DIR''ENGINE_NAME'.OPT
184 $ ENDIF
185 $!
186 $! Here's the start of per-engine module loop.
187 $!
188 $ FILE_COUNTER = 0
189 $ FILE_NEXT:
190 $!
191 $! Extract the file name from the file list, and if we've reached the end, stop
192 $!
193 $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",'LIB_ENGINE')
194 $ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
195 $!
196 $ FILE_COUNTER = FILE_COUNTER + 1
197 $!
198 $ IF FILE_NAME .EQS. "" THEN GOTO FILE_NEXT
199 $!
200 $! Set up the source and object reference
201 $!
202 $ IF F$TYPE('LIB_ENGINE'_SUBDIR) .EQS. ""
203 $ THEN
204 $ SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[].C",,,"SYNTAX_ONLY")
205 $ ELSE
206 $ SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[."+'LIB_ENGINE'_SUBDIR+"].C",,,"SYNTAX_ONLY")
207 $ ENDIF
208 $ OBJECT_FILE = OBJ_DIR + F$PARSE(FILE_NAME,,,"NAME","SYNTAX_ONLY") + ".OBJ"
209 $!
210 $! If we get some problem, we just go on trying to build the next module.
211 $ ON WARNING THEN GOTO FILE_NEXT
212 $!
213 $! Check if the module we want to compile is actually there.
214 $!
215 $ IF F$SEARCH(SOURCE_FILE) .EQS. ""
216 $ THEN
217 $ WRITE SYS$OUTPUT ""
218 $ WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Doesn't Exist."
219 $ WRITE SYS$OUTPUT ""
220 $ GOTO EXIT
221 $ ENDIF
222 $!
223 $! Talk to the user.
224 $!
225 $ WRITE SYS$OUTPUT " ",FILE_NAME,""
226 $!
227 $! Do the dirty work.
228 $!
229 $ ON ERROR THEN GOTO FILE_NEXT
230 $ IF F$EDIT(F$PARSE(SOURCE_FILE,,,"TYPE","SYNTAX_ONLY"),"UPCASE") .EQS. ".MAR"
231 $ THEN
232 $ MACRO/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
233 $ ELSE
234 $ CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
235 $ ENDIF
236 $!
237 $! Write the entry to the .OPT file (for a real engine name).
238 $!
239 $ IF ENGINE_NAME .NES. ""
240 $ THEN
241 $ WRITE OBJECTS OBJECT_FILE
242 $ ENDIF
243 $!
244 $! Next file
245 $!
246 $ GOTO FILE_NEXT
247 $!
248 $ FILE_DONE:
249 $!
250 $! Do not link the support files.
251 $!
252 $ IF ENGINE_NAME .EQS. "" THEN GOTO ENGINE_NEXT
253 $!
254 $! Close the linker options file (for a real engine name).
255 $!
256 $ CLOSE OBJECTS
257 $!
258 $! Now, there are two ways to handle this. We can either build
259 $! shareable images or stick the engine object file into libcrypto.
260 $! For now, the latter is NOT supported.
261 $!
262 $!!!!! LIBRARY/REPLACE 'CRYPTO_LIB' 'OBJECT_FILE'
263 $!
264 $! For shareable libraries, we need to do things a little differently
265 $! depending on if we link with a TCP/IP library or not.
266 $!
267 $ ENGINE_OPT := SYS$DISK:[]'ARCH'.OPT
268 $ IF TCPIP_LIB .NES. ""
269 $ THEN
270 $ LINK/'DEBUGGER'/'TRACEBACK' /SHARE='EXE_DIR''ENGINE_NAME'.EXE -
271 'EXE_DIR''ENGINE_NAME'.OPT/OPTION'TV_OBJ', -
272 'CRYPTO_LIB'/LIBRARY, -
273 'ENGINE_OPT'/OPTION,'TCPIP_LIB','OPT_FILE'/OPTION
274 $ ELSE
275 $ LINK/'DEBUGGER'/'TRACEBACK' /SHARE='EXE_DIR''ENGINE_NAME'.EXE -
276 'EXE_DIR''ENGINE_NAME'.OPT/OPTION'TV_OBJ', -
277 'CRYPTO_LIB'/LIBRARY, -
278 'ENGINE_OPT'/OPTION,'OPT_FILE'/OPTION
279 $ ENDIF
280 $!
281 $! Next engine
282 $!
283 $ GOTO ENGINE_NEXT
284 $!
285 $ ENGINE_DONE:
286 $!
287 $! Talk to the user
288 $!
289 $ WRITE SYS$OUTPUT "All Done..."
290 $ EXIT:
291 $ GOSUB CLEANUP
292 $ EXIT
293 $!
294 $! Check For The Link Option FIle.
295 $!
296 $ CHECK_OPT_FILE:
297 $!
298 $! Check To See If We Need To Make A VAX C Option File.
299 $!
300 $ IF (COMPILER.EQS."VAXC")
301 $ THEN
302 $!
303 $! Check To See If We Already Have A VAX C Linker Option File.
304 $!
305 $ IF (F$SEARCH(OPT_FILE).EQS."")
306 $ THEN
307 $!
308 $! We Need A VAX C Linker Option File.
309 $!
310 $ CREATE 'OPT_FILE'
311 $DECK
312 !
313 ! Default System Options File To Link Agianst
314 ! The Sharable VAX C Runtime Library.
315 !
316 SYS$SHARE:VAXCRTL.EXE/SHARE
317 $EOD
318 $!
319 $! End The Option File Check.
320 $!
321 $ ENDIF
322 $!
323 $! End The VAXC Check.
324 $!
325 $ ENDIF
326 $!
327 $! Check To See If We Need A GNU C Option File.
328 $!
329 $ IF (COMPILER.EQS."GNUC")
330 $ THEN
331 $!
332 $! Check To See If We Already Have A GNU C Linker Option File.
333 $!
334 $ IF (F$SEARCH(OPT_FILE).EQS."")
335 $ THEN
336 $!
337 $! We Need A GNU C Linker Option File.
338 $!
339 $ CREATE 'OPT_FILE'
340 $DECK
341 !
342 ! Default System Options File To Link Agianst
343 ! The Sharable C Runtime Library.
344 !
345 GNU_CC:[000000]GCCLIB/LIBRARY
346 SYS$SHARE:VAXCRTL/SHARE
347 $EOD
348 $!
349 $! End The Option File Check.
350 $!
351 $ ENDIF
352 $!
353 $! End The GNU C Check.
354 $!
355 $ ENDIF
356 $!
357 $! Check To See If We Need A DEC C Option File.
358 $!
359 $ IF (COMPILER.EQS."DECC")
360 $ THEN
361 $!
362 $! Check To See If We Already Have A DEC C Linker Option File.
363 $!
364 $ IF (F$SEARCH(OPT_FILE).EQS."")
365 $ THEN
366 $!
367 $! Figure Out If We Need A non-VAX Or A VAX Linker Option File.
368 $!
369 $ IF ARCH .EQS. "VAX"
370 $ THEN
371 $!
372 $! We Need A DEC C Linker Option File For VAX.
373 $!
374 $ CREATE 'OPT_FILE'
375 $DECK
376 !
377 ! Default System Options File To Link Agianst
378 ! The Sharable DEC C Runtime Library.
379 !
380 SYS$SHARE:DECC$SHR.EXE/SHARE
381 $EOD
382 $!
383 $! Else...
384 $!
385 $ ELSE
386 $!
387 $! Create The non-VAX Linker Option File.
388 $!
389 $ CREATE 'OPT_FILE'
390 $DECK
391 !
392 ! Default System Options File For non-VAX To Link Agianst
393 ! The Sharable C Runtime Library.
394 !
395 SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
396 SYS$SHARE:CMA$OPEN_RTL/SHARE
397 $EOD
398 $!
399 $! End The DEC C Option File Check.
400 $!
401 $ ENDIF
402 $!
403 $! End The Option File Search.
404 $!
405 $ ENDIF
406 $!
407 $! End The DEC C Check.
408 $!
409 $ ENDIF
410 $!
411 $! Tell The User What Linker Option File We Are Using.
412 $!
413 $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."
414 $!
415 $! Time To RETURN.
416 $!
417 $ RETURN
418 $!
419 $! Check The User's Options.
420 $!
421 $ CHECK_OPTIONS:
422 $!
423 $! Check To See If OPT_PHASE Is Blank.
424 $!
425 $ IF (OPT_PHASE.EQS."ALL")
426 $ THEN
427 $!
428 $! OPT_PHASE Is Blank, So Build Everything.
429 $!
430 $ BUILDALL = "ALL"
431 $!
432 $! Else...
433 $!
434 $ ELSE
435 $!
436 $! Else, Check To See If OPT_PHASE Has A Valid Argument.
437 $!
438 $ IF ("," + ACCEPT_PHASE + ",") - ("," + OPT_PHASE + ",") -
439 .NES. ("," + ACCEPT_PHASE + ",")
440 $ THEN
441 $!
442 $! A Valid Argument.
443 $!
444 $ BUILDALL = OPT_PHASE
445 $!
446 $! Else...
447 $!
448 $ ELSE
449 $!
450 $! Tell The User We Don't Know What They Want.
451 $!
452 $ WRITE SYS$OUTPUT ""
453 $ WRITE SYS$OUTPUT "The option ",OPT_PHASE," is invalid. The valid options are:"
454 $ WRITE SYS$OUTPUT ""
455 $ IF ("," + ACCEPT_PHASE + ",") - ",ALL," -
456 .NES. ("," + ACCEPT_PHASE + ",") THEN -
457 WRITE SYS$OUTPUT " ALL : just build everything."
458 $ IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," -
459 .NES. ("," + ACCEPT_PHASE + ",") THEN -
460 WRITE SYS$OUTPUT " ENGINES : to compile just the [.xxx.EXE.ENGINES]*.EXE hareable images."
461 $ WRITE SYS$OUTPUT ""
462 $ WRITE SYS$OUTPUT " where 'xxx' stands for:"
463 $ WRITE SYS$OUTPUT ""
464 $ WRITE SYS$OUTPUT " ALPHA : Alpha architecture."
465 $ WRITE SYS$OUTPUT " IA64 : IA64 architecture."
466 $ WRITE SYS$OUTPUT " VAX : VAX architecture."
467 $ WRITE SYS$OUTPUT ""
468 $!
469 $! Time To EXIT.
470 $!
471 $ EXIT
472 $!
473 $! End The Valid Argument Check.
474 $!
475 $ ENDIF
476 $!
477 $! End The OPT_PHASE Check.
478 $!
479 $ ENDIF
480 $!
481 $! Check To See If OPT_DEBUG Is Blank.
482 $!
483 $ IF (OPT_DEBUG.EQS."NODEBUG")
484 $ THEN
485 $!
486 $! OPT_DEBUG Is NODEBUG, So Compile Without The Debugger Information.
487 $!
488 $ DEBUGGER = "NODEBUG"
489 $ TRACEBACK = "NOTRACEBACK"
490 $ GCC_OPTIMIZE = "OPTIMIZE"
491 $ CC_OPTIMIZE = "OPTIMIZE"
492 $ MACRO_OPTIMIZE = "OPTIMIZE"
493 $ WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
494 $ WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
495 $ ELSE
496 $!
497 $! Check To See If We Are To Compile With Debugger Information.
498 $!
499 $ IF (OPT_DEBUG.EQS."DEBUG")
500 $ THEN
501 $!
502 $! Compile With Debugger Information.
503 $!
504 $ DEBUGGER = "DEBUG"
505 $ TRACEBACK = "TRACEBACK"
506 $ GCC_OPTIMIZE = "NOOPTIMIZE"
507 $ CC_OPTIMIZE = "NOOPTIMIZE"
508 $ MACRO_OPTIMIZE = "NOOPTIMIZE"
509 $ WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
510 $ WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
511 $ ELSE
512 $!
513 $! They Entered An Invalid Option..
514 $!
515 $ WRITE SYS$OUTPUT ""
516 $ WRITE SYS$OUTPUT "The Option ",OPT_DEBUG," Is Invalid. The Valid Options Are:"
517 $ WRITE SYS$OUTPUT ""
518 $ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information."
519 $ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information."
520 $ WRITE SYS$OUTPUT ""
521 $!
522 $! Time To EXIT.
523 $!
524 $ EXIT
525 $!
526 $! End The Valid Argument Check.
527 $!
528 $ ENDIF
529 $!
530 $! End The OPT_DEBUG Check.
531 $!
532 $ ENDIF
533 $!
534 $! Special Threads For OpenVMS v7.1 Or Later
535 $!
536 $! Written By: Richard Levitte
537 $! richard@levitte.org
538 $!
539 $!
540 $! Check To See If We Have A Option For OPT_SPECIAL_THREADS.
541 $!
542 $ IF (OPT_SPECIAL_THREADS.EQS."")
543 $ THEN
544 $!
545 $! Get The Version Of VMS We Are Using.
546 $!
547 $ ISSEVEN :=
548 $ TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
549 $ TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
550 $!
551 $! Check To See If The VMS Version Is v7.1 Or Later.
552 $!
553 $ IF (TMP.GE.71)
554 $ THEN
555 $!
556 $! We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
557 $!
558 $ ISSEVEN := ,PTHREAD_USE_D4
559 $!
560 $! End The VMS Version Check.
561 $!
562 $ ENDIF
563 $!
564 $! End The OPT_SPECIAL_THREADS Check.
565 $!
566 $ ENDIF
567 $!
568 $! Check To See If OPT_POINTER_SIZE Is Blank.
569 $!
570 $ IF (OPT_POINTER_SIZE.EQS."")
571 $ THEN
572 $ POINTER_SIZE = ""
573 $ ELSE
574 $!
575 $! Check is OPT_POINTER_SIZE Is Valid
576 $!
577 $ IF (OPT_POINTER_SIZE.EQS."32")
578 $ THEN
579 $ POINTER_SIZE = "/POINTER_SIZE=32"
580 $ IF ARCH .EQS. "VAX"
581 $ THEN
582 $ LIB32 = ""
583 $ ELSE
584 $ LIB32 = "32"
585 $ ENDIF
586 $ ELSE
587 $ IF (OPT_POINTER_SIZE.EQS."64")
588 $ THEN
589 $ LIB32 = ""
590 $ IF ARCH .EQS. "VAX"
591 $ THEN
592 $ POINTER_SIZE = "/POINTER_SIZE=32"
593 $ ELSE
594 $ POINTER_SIZE = "/POINTER_SIZE=64"
595 $ ENDIF
596 $ ELSE
597 $!
598 $! Tell The User Entered An Invalid Option..
599 $!
600 $ WRITE SYS$OUTPUT ""
601 $ WRITE SYS$OUTPUT "The Option ",OPT_POINTER_SIZE," Is Invalid. The Valid Options Are:"
602 $ WRITE SYS$OUTPUT ""
603 $ WRITE SYS$OUTPUT " 32 : Compile with 32 bit pointer size"
604 $ WRITE SYS$OUTPUT " 64 : Compile with 64 bit pointer size"
605 $ WRITE SYS$OUTPUT ""
606 $!
607 $! Time To EXIT.
608 $!
609 $ GOTO TIDY
610 $!
611 $! End The Valid Arguement Check.
612 $!
613 $ ENDIF
614 $ ENDIF
615 $!
616 $! End The OPT_POINTER_SIZE Check.
617 $!
618 $ ENDIF
619 $!
620 $! Check To See If OPT_COMPILER Is Blank.
621 $!
622 $ IF (OPT_COMPILER.EQS."")
623 $ THEN
624 $!
625 $! O.K., The User Didn't Specify A Compiler, Let's Try To
626 $! Find Out Which One To Use.
627 $!
628 $! Check To See If We Have GNU C.
629 $!
630 $ IF (F$TRNLNM("GNU_CC").NES."")
631 $ THEN
632 $!
633 $! Looks Like GNUC, Set To Use GNUC.
634 $!
635 $ OPT_COMPILER = "GNUC"
636 $!
637 $! Else...
638 $!
639 $ ELSE
640 $!
641 $! Check To See If We Have VAXC Or DECC.
642 $!
643 $ IF (ARCH.NES."VAX").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
644 $ THEN
645 $!
646 $! Looks Like DECC, Set To Use DECC.
647 $!
648 $ OPT_COMPILER = "DECC"
649 $!
650 $! Else...
651 $!
652 $ ELSE
653 $!
654 $! Looks Like VAXC, Set To Use VAXC.
655 $!
656 $ OPT_COMPILER = "VAXC"
657 $!
658 $! End The VAXC Compiler Check.
659 $!
660 $ ENDIF
661 $!
662 $! End The DECC & VAXC Compiler Check.
663 $!
664 $ ENDIF
665 $!
666 $! End The Compiler Check.
667 $!
668 $ ENDIF
669 $!
670 $! Check To See If We Have A Option For OPT_TCPIP_LIB.
671 $!
672 $ IF (OPT_TCPIP_LIB.EQS."")
673 $ THEN
674 $!
675 $! Find out what socket library we have available
676 $!
677 $ IF F$PARSE("SOCKETSHR:") .NES. ""
678 $ THEN
679 $!
680 $! We have SOCKETSHR, and it is my opinion that it's the best to use.
681 $!
682 $ OPT_TCPIP_LIB = "SOCKETSHR"
683 $!
684 $! Tell the user
685 $!
686 $ WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
687 $!
688 $! Else, let's look for something else
689 $!
690 $ ELSE
691 $!
692 $! Like UCX (the reason to do this before Multinet is that the UCX
693 $! emulation is easier to use...)
694 $!
695 $ IF F$TRNLNM("UCX$IPC_SHR") .NES. "" -
696 .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" -
697 .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. ""
698 $ THEN
699 $!
700 $! Last resort: a UCX or UCX-compatible library
701 $!
702 $ OPT_TCPIP_LIB = "UCX"
703 $!
704 $! Tell the user
705 $!
706 $ WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
707 $!
708 $! That was all...
709 $!
710 $ ENDIF
711 $ ENDIF
712 $ ENDIF
713 $!
714 $! Set Up Initial CC Definitions, Possibly With User Ones
715 $!
716 $ CCDEFS = "TCPIP_TYPE_''OPT_TCPIP_LIB',DSO_VMS"
717 $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS
718 $ CCEXTRAFLAGS = ""
719 $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
720 $ CCDISABLEWARNINGS = "LONGLONGTYPE,LONGLONGSUFX"
721 $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
722 CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS
723 $!
724 $! Check To See If The User Entered A Valid Paramter.
725 $!
726 $ IF (OPT_COMPILER.EQS."VAXC").OR.(OPT_COMPILER.EQS."DECC").OR.(OPT_COMPILER.EQS."GNUC")
727 $ THEN
728 $!
729 $! Check To See If The User Wanted DECC.
730 $!
731 $ IF (OPT_COMPILER.EQS."DECC")
732 $ THEN
733 $!
734 $! Looks Like DECC, Set To Use DECC.
735 $!
736 $ COMPILER = "DECC"
737 $!
738 $! Tell The User We Are Using DECC.
739 $!
740 $ WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
741 $!
742 $! Use DECC...
743 $!
744 $ CC = "CC"
745 $ IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
746 THEN CC = "CC/DECC"
747 $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89''POINTER_SIZE'" + -
748 "/NOLIST/PREFIX=ALL" + -
749 "/INCLUDE=(SYS$DISK:[],SYS$DISK:[.VENDOR_DEFNS])" + -
750 CCEXTRAFLAGS
751 $!
752 $! Define The Linker Options File Name.
753 $!
754 $ OPT_FILE = "''EXE_DIR'VAX_DECC_OPTIONS.OPT"
755 $!
756 $! End DECC Check.
757 $!
758 $ ENDIF
759 $!
760 $! Check To See If We Are To Use VAXC.
761 $!
762 $ IF (OPT_COMPILER.EQS."VAXC")
763 $ THEN
764 $!
765 $! Looks Like VAXC, Set To Use VAXC.
766 $!
767 $ COMPILER = "VAXC"
768 $!
769 $! Tell The User We Are Using VAX C.
770 $!
771 $ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
772 $!
773 $! Compile Using VAXC.
774 $!
775 $ CC = "CC"
776 $ IF ARCH.NES."VAX"
777 $ THEN
778 $ WRITE SYS$OUTPUT "There is no VAX C on Alpha!"
779 $ EXIT
780 $ ENDIF
781 $ IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
782 $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
783 "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.VENDOR_DEFNS])" + -
784 CCEXTRAFLAGS
785 $ CCDEFS = """VAXC""," + CCDEFS
786 $!
787 $! Define <sys> As SYS$COMMON:[SYSLIB]
788 $!
789 $ DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
790 $!
791 $! Define The Linker Options File Name.
792 $!
793 $ OPT_FILE = "''EXE_DIR'VAX_VAXC_OPTIONS.OPT"
794 $!
795 $! End VAXC Check
796 $!
797 $ ENDIF
798 $!
799 $! Check To See If We Are To Use GNU C.
800 $!
801 $ IF (OPT_COMPILER.EQS."GNUC")
802 $ THEN
803 $!
804 $! Looks Like GNUC, Set To Use GNUC.
805 $!
806 $ COMPILER = "GNUC"
807 $!
808 $! Tell The User We Are Using GNUC.
809 $!
810 $ WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
811 $!
812 $! Use GNU C...
813 $!
814 $ CC = "GCC/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
815 "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.VENDOR_DEFNS])" + -
816 CCEXTRAFLAGS
817 $!
818 $! Define The Linker Options File Name.
819 $!
820 $ OPT_FILE = "''EXE_DIR'VAX_GNUC_OPTIONS.OPT"
821 $!
822 $! End The GNU C Check.
823 $!
824 $ ENDIF
825 $!
826 $! Set up default defines
827 $!
828 $ CCDEFS = """FLAT_INC=1""," + CCDEFS
829 $!
830 $! Finish up the definition of CC.
831 $!
832 $ IF COMPILER .EQS. "DECC"
833 $ THEN
834 $ IF CCDISABLEWARNINGS .NES. ""
835 $ THEN
836 $ CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
837 $ ENDIF
838 $ ELSE
839 $ CCDISABLEWARNINGS = ""
840 $ ENDIF
841 $ CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
842 $!
843 $! Show user the result
844 $!
845 $ WRITE/SYMBOL SYS$OUTPUT "Main C Compiling Command: ",CC
846 $!
847 $! Else The User Entered An Invalid Argument.
848 $!
849 $ ELSE
850 $!
851 $! Tell The User We Don't Know What They Want.
852 $!
853 $ WRITE SYS$OUTPUT ""
854 $ WRITE SYS$OUTPUT "The Option ",OPT_COMPILER," Is Invalid. The Valid Options Are:"
855 $ WRITE SYS$OUTPUT ""
856 $ WRITE SYS$OUTPUT " VAXC : To Compile With VAX C."
857 $ WRITE SYS$OUTPUT " DECC : To Compile With DEC C."
858 $ WRITE SYS$OUTPUT " GNUC : To Compile With GNU C."
859 $ WRITE SYS$OUTPUT ""
860 $!
861 $! Time To EXIT.
862 $!
863 $ EXIT
864 $!
865 $! End The Valid Argument Check.
866 $!
867 $ ENDIF
868 $!
869 $! Build a MACRO command for the architecture at hand
870 $!
871 $ IF ARCH .EQS. "VAX" THEN MACRO = "MACRO/''DEBUGGER'"
872 $ IF ARCH .NES. "VAX" THEN MACRO = "MACRO/MIGRATION/''DEBUGGER'/''MACRO_OPTIMIZE'"
873 $!
874 $! Show user the result
875 $!
876 $ WRITE/SYMBOL SYS$OUTPUT "Main MACRO Compiling Command: ",MACRO
877 $!
878 $! Time to check the contents, and to make sure we get the correct library.
879 $!
880 $ IF OPT_TCPIP_LIB.EQS."SOCKETSHR" .OR. OPT_TCPIP_LIB.EQS."MULTINET" -
881 .OR. OPT_TCPIP_LIB.EQS."UCX" .OR. OPT_TCPIP_LIB.EQS."TCPIP" -
882 .OR. OPT_TCPIP_LIB.EQS."NONE"
883 $ THEN
884 $!
885 $! Check to see if SOCKETSHR was chosen
886 $!
887 $ IF OPT_TCPIP_LIB.EQS."SOCKETSHR"
888 $ THEN
889 $!
890 $! Set the library to use SOCKETSHR
891 $!
892 $ TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
893 $!
894 $! Done with SOCKETSHR
895 $!
896 $ ENDIF
897 $!
898 $! Check to see if MULTINET was chosen
899 $!
900 $ IF OPT_TCPIP_LIB.EQS."MULTINET"
901 $ THEN
902 $!
903 $! Set the library to use UCX emulation.
904 $!
905 $ OPT_TCPIP_LIB = "UCX"
906 $!
907 $! Done with MULTINET
908 $!
909 $ ENDIF
910 $!
911 $! Check to see if UCX was chosen
912 $!
913 $ IF OPT_TCPIP_LIB.EQS."UCX"
914 $ THEN
915 $!
916 $! Set the library to use UCX.
917 $!
918 $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
919 $ IF F$TRNLNM("UCX$IPC_SHR") .NES. ""
920 $ THEN
921 $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT/OPT"
922 $ ELSE
923 $ IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN -
924 TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT/OPT"
925 $ ENDIF
926 $!
927 $! Done with UCX
928 $!
929 $ ENDIF
930 $!
931 $! Check to see if TCPIP was chosen
932 $!
933 $ IF OPT_TCPIP_LIB.EQS."TCPIP"
934 $ THEN
935 $!
936 $! Set the library to use TCPIP (post UCX).
937 $!
938 $ TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
939 $!
940 $! Done with TCPIP
941 $!
942 $ ENDIF
943 $!
944 $! Check to see if NONE was chosen
945 $!
946 $ IF OPT_TCPIP_LIB.EQS."NONE"
947 $ THEN
948 $!
949 $! Do not use a TCPIP library.
950 $!
951 $ TCPIP_LIB = ""
952 $!
953 $! Done with TCPIP
954 $!
955 $ ENDIF
956 $!
957 $! Print info
958 $!
959 $ WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
960 $!
961 $! Else The User Entered An Invalid Argument.
962 $!
963 $ ELSE
964 $!
965 $! Tell The User We Don't Know What They Want.
966 $!
967 $ WRITE SYS$OUTPUT ""
968 $ WRITE SYS$OUTPUT "The Option ",OPT_TCPIP_LIB," Is Invalid. The Valid Options Are:"
969 $ WRITE SYS$OUTPUT ""
970 $ WRITE SYS$OUTPUT " SOCKETSHR : To link with SOCKETSHR TCP/IP library."
971 $ WRITE SYS$OUTPUT " UCX : To link with UCX TCP/IP library."
972 $ WRITE SYS$OUTPUT " TCPIP : To link with TCPIP (post UCX) TCP/IP library."
973 $ WRITE SYS$OUTPUT ""
974 $!
975 $! Time To EXIT.
976 $!
977 $ EXIT
978 $!
979 $! Done with TCP/IP libraries
980 $!
981 $ ENDIF
982 $!
983 $! Time To RETURN...
984 $!
985 $ RETURN
986 $!
987 $ INITIALISE:
988 $!
989 $! Save old value of the logical name OPENSSL
990 $!
991 $ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE")
992 $!
993 $! Save directory information
994 $!
995 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
996 $ __HERE = F$EDIT(__HERE,"UPCASE")
997 $ __TOP = __HERE - "ENGINES]"
998 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
999 $!
1000 $! Set up the logical name OPENSSL to point at the include directory
1001 $!
1002 $ DEFINE OPENSSL/NOLOG '__INCLUDE'
1003 $!
1004 $! Done
1005 $!
1006 $ RETURN
1007 $!
1008 $ CLEANUP:
1009 $!
1010 $! Restore the logical name OPENSSL if it had a value
1011 $!
1012 $ IF __SAVE_OPENSSL .EQS. ""
1013 $ THEN
1014 $ DEASSIGN OPENSSL
1015 $ ELSE
1016 $ DEFINE/NOLOG OPENSSL '__SAVE_OPENSSL'
1017 $ ENDIF
1018 $!
1019 $! Done
1020 $!
1021 $ RETURN