3 $! Written By: Richard Levitte
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.
10 $! P1 if this is ENGINES or ALL, the engines will build, otherwise not.
12 $! P2 DEBUG or NODEBUG to compile with or without debugger information.
16 $! GNUC for GNU C (untested)
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:
23 $! SOCKETSHR for SOCKETSHR+NETLIB
24 $! TCPIP for TCPIP (post UCX)
26 $! P5 if defined, tells the compiler not to use special threads.
28 $! P6 if defined, denotes which engines to build. If not defined,
29 $! all available engines are built.
31 $!-----------------------------------------------------------------------------
33 $! Set the default TCP/IP library to link against if needed
37 $! Check What Architecture We Are Using.
39 $ IF (F$GETSYI("CPU").LT.128)
42 $! The Architecture Is VAX.
50 $! The Architecture Is Alpha, IA64 or whatever comes in the future.
52 $ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
53 $ IF (ARCH .EQS. "") THEN ARCH = "UNK"
55 $! End The Architecture Check.
59 $! Set the names of the engines we want to build
60 $! NOTE: Some might think this list ugly. However, it's made this way to
61 $! reflect the LIBNAMES variable in Makefile as closely as possible,
62 $! thereby making it fairly easy to verify that the lists are the same.
63 $! NOTE: gmp isn't built, as it's mostly a test engine and brings in another
64 $! library that isn't necessarely ported to VMS.
67 $ IF ENGINES .EQS. "," THEN -
68 ENGINES = ",4758cca,aep,atalla,cswift,chil,nuron,sureware,ubsec,padlock,"
70 $! GOST requires a 64-bit integer type, unavailable on VAX.
72 $ IF (ARCH .NES. "VAX") THEN -
73 ENGINES = ENGINES+ ",ccgost"
75 $! Set the goal directories, and create them if necessary
77 $ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.ENGINES]
78 $ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.ENGINES]
79 $ IF F$PARSE(OBJ_DIR) .EQS. "" THEN CREATE/DIRECTORY 'OBJ_DIR'
80 $ IF F$PARSE(EXE_DIR) .EQS. "" THEN CREATE/DIRECTORY 'EXE_DIR'
82 $! Set the goal files, and create them if necessary
84 $ CRYPTO_LIB :=SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO.OLB
85 $ IF F$SEARCH(CRYPTO_LIB) .EQS. "" THEN LIBRARY/CREATE/OBJECT 'CRYPTO_LIB'
87 $! OK, time to check options and initialise
90 $ ACCEPT_PHASE = "ALL,ENGINES"
94 $ OPT_SPECIAL_THREADS = P5
98 $ GOSUB CHECK_OPT_FILE
100 $! Define what goes into each engine. VAX includes a transfer vector.
104 $ IF ARCH .EQS. "VAX"
106 $ ENGINE_ = "engine_vector.mar"
107 $ TV_OBJ_NAME = OBJ_DIR + F$PARSE(ENGINE_,,,"NAME","SYNTAX_ONLY") + ".OBJ"
108 $ TV_OBJ = ",''TV_OBJ_NAME'"
110 $ ENGINE_4758CCA = "e_4758cca"
111 $ ENGINE_aep = "e_aep"
112 $ ENGINE_atalla = "e_atalla"
113 $ ENGINE_cswift = "e_cswift"
114 $ ENGINE_chil = "e_chil"
115 $ ENGINE_nuron = "e_nuron"
116 $ ENGINE_sureware = "e_sureware"
117 $ ENGINE_ubsec = "e_ubsec"
118 $ ENGINE_padlock = "e_padlock"
120 $ ENGINE_ccgost_SUBDIR = "ccgost"
121 $ ENGINE_ccgost = "e_gost_err,gost2001_keyx,gost2001,gost89,gost94_keyx,"+ -
122 "gost_ameth,gost_asn1,gost_crypt,gost_ctl,gost_eng,"+ -
123 "gosthash,gost_keywrap,gost_md,gost_params,gost_pmeth,"+ -
126 $! Define which programs need to be linked with a TCP/IP library
128 $ TCPIP_ENGINES = ",,"
129 $ IF COMPILER .EQS. "VAXC" THEN -
132 $! Set up two loops, one that keeps track of the engines,
133 $! and one that keeps track of all the files going into
134 $! the current engine.
136 $! Here's the start of the engine loop.
141 $! Extract the current engine name, and if we've reached the end, stop
143 $ ENGINE_NAME = F$ELEMENT(ENGINE_COUNTER,",",ENGINES)
144 $ IF (ENGINE_NAME.EQS.",") THEN GOTO ENGINE_DONE
146 $ ENGINE_COUNTER = ENGINE_COUNTER + 1
148 $! Set up the engine library names.
150 $ LIB_ENGINE = "ENGINE_" + ENGINE_NAME
152 $! Check if the library module name actually is defined
154 $ IF F$TYPE('LIB_ENGINE') .EQS. ""
157 $ WRITE SYS$ERROR "The module ",ENGINE_NAME," does not exist. Continuing..."
164 $ IF ENGINE_NAME .NES. ""
166 $ WRITE SYS$OUTPUT "Compiling The ",ENGINE_NAME," Library Files. (",BUILDALL,")"
168 $ WRITE SYS$OUTPUT "Compiling Support Files. (",BUILDALL,")"
171 $! Create a .OPT file for the object files (for a real engine name).
173 $ IF ENGINE_NAME .NES. ""
175 $ OPEN/WRITE OBJECTS 'EXE_DIR''ENGINE_NAME'.OPT
178 $! Here's the start of per-engine module loop.
183 $! Extract the file name from the file list, and if we've reached the end, stop
185 $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",'LIB_ENGINE')
186 $ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
188 $ FILE_COUNTER = FILE_COUNTER + 1
190 $ IF FILE_NAME .EQS. "" THEN GOTO FILE_NEXT
192 $! Set up the source and object reference
194 $ IF F$TYPE('LIB_ENGINE'_SUBDIR) .EQS. ""
196 $ SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[].C",,,"SYNTAX_ONLY")
198 $ SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[."+'LIB_ENGINE'_SUBDIR+"].C",,,"SYNTAX_ONLY")
200 $ OBJECT_FILE = OBJ_DIR + F$PARSE(FILE_NAME,,,"NAME","SYNTAX_ONLY") + ".OBJ"
202 $! If we get some problem, we just go on trying to build the next module.
203 $ ON WARNING THEN GOTO FILE_NEXT
205 $! Check if the module we want to compile is actually there.
207 $ IF F$SEARCH(SOURCE_FILE) .EQS. ""
209 $ WRITE SYS$OUTPUT ""
210 $ WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Doesn't Exist."
211 $ WRITE SYS$OUTPUT ""
217 $ WRITE SYS$OUTPUT " ",FILE_NAME,""
219 $! Do the dirty work.
221 $ ON ERROR THEN GOTO FILE_NEXT
222 $ IF F$EDIT(F$PARSE(SOURCE_FILE,,,"TYPE","SYNTAX_ONLY"),"UPCASE") .EQS. ".MAR"
224 $ MACRO/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
226 $ CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
229 $! Write the entry to the .OPT file (for a real engine name).
231 $ IF ENGINE_NAME .NES. ""
233 $ WRITE OBJECTS OBJECT_FILE
242 $! Do not link the support files.
244 $ IF ENGINE_NAME .EQS. "" THEN GOTO ENGINE_NEXT
246 $! Close the linker options file (for a real engine name).
250 $! Now, there are two ways to handle this. We can either build
251 $! shareable images or stick the engine object file into libcrypto.
252 $! For now, the latter is NOT supported.
254 $!!!!! LIBRARY/REPLACE 'CRYPTO_LIB' 'OBJECT_FILE'
256 $! For shareable libraries, we need to do things a little differently
257 $! depending on if we link with a TCP/IP library or not.
259 $ ENGINE_OPT := SYS$DISK:[]'ARCH'.OPT
260 $ IF TCPIP_LIB .NES. ""
262 $ LINK/'DEBUGGER'/'TRACEBACK' /SHARE='EXE_DIR''ENGINE_NAME'.EXE -
263 'EXE_DIR''ENGINE_NAME'.OPT/OPTION'TV_OBJ', -
264 'CRYPTO_LIB'/LIBRARY, -
265 'ENGINE_OPT'/OPTION,'TCPIP_LIB','OPT_FILE'/OPTION
267 $ LINK/'DEBUGGER'/'TRACEBACK' /SHARE='EXE_DIR''ENGINE_NAME'.EXE -
268 'EXE_DIR''ENGINE_NAME'.OPT/OPTION'TV_OBJ', -
269 'CRYPTO_LIB'/LIBRARY, -
270 'ENGINE_OPT'/OPTION,'OPT_FILE'/OPTION
281 $ WRITE SYS$OUTPUT "All Done..."
286 $! Check For The Link Option FIle.
290 $! Check To See If We Need To Make A VAX C Option File.
292 $ IF (COMPILER.EQS."VAXC")
295 $! Check To See If We Already Have A VAX C Linker Option File.
297 $ IF (F$SEARCH(OPT_FILE).EQS."")
300 $! We Need A VAX C Linker Option File.
305 ! Default System Options File To Link Agianst
306 ! The Sharable VAX C Runtime Library.
308 SYS$SHARE:VAXCRTL.EXE/SHARE
311 $! End The Option File Check.
315 $! End The VAXC Check.
319 $! Check To See If We Need A GNU C Option File.
321 $ IF (COMPILER.EQS."GNUC")
324 $! Check To See If We Already Have A GNU C Linker Option File.
326 $ IF (F$SEARCH(OPT_FILE).EQS."")
329 $! We Need A GNU C Linker Option File.
334 ! Default System Options File To Link Agianst
335 ! The Sharable C Runtime Library.
337 GNU_CC:[000000]GCCLIB/LIBRARY
338 SYS$SHARE:VAXCRTL/SHARE
341 $! End The Option File Check.
345 $! End The GNU C Check.
349 $! Check To See If We Need A DEC C Option File.
351 $ IF (COMPILER.EQS."DECC")
354 $! Check To See If We Already Have A DEC C Linker Option File.
356 $ IF (F$SEARCH(OPT_FILE).EQS."")
359 $! Figure Out If We Need A non-VAX Or A VAX Linker Option File.
361 $ IF ARCH .EQS. "VAX"
364 $! We Need A DEC C Linker Option File For VAX.
369 ! Default System Options File To Link Agianst
370 ! The Sharable DEC C Runtime Library.
372 SYS$SHARE:DECC$SHR.EXE/SHARE
379 $! Create The non-VAX Linker Option File.
384 ! Default System Options File For non-VAX To Link Agianst
385 ! The Sharable C Runtime Library.
387 SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
388 SYS$SHARE:CMA$OPEN_RTL/SHARE
391 $! End The DEC C Option File Check.
395 $! End The Option File Search.
399 $! End The DEC C Check.
403 $! Tell The User What Linker Option File We Are Using.
405 $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."
411 $! Check The User's Options.
415 $! Check To See If OPT_PHASE Is Blank.
417 $ IF (OPT_PHASE.EQS."ALL")
420 $! OPT_PHASE Is Blank, So Build Everything.
428 $! Else, Check To See If OPT_PHASE Has A Valid Argument.
430 $ IF ("," + ACCEPT_PHASE + ",") - ("," + OPT_PHASE + ",") -
431 .NES. ("," + ACCEPT_PHASE + ",")
436 $ BUILDALL = OPT_PHASE
442 $! Tell The User We Don't Know What They Want.
444 $ WRITE SYS$OUTPUT ""
445 $ WRITE SYS$OUTPUT "The option ",OPT_PHASE," is invalid. The valid options are:"
446 $ WRITE SYS$OUTPUT ""
447 $ IF ("," + ACCEPT_PHASE + ",") - ",ALL," -
448 .NES. ("," + ACCEPT_PHASE + ",") THEN -
449 WRITE SYS$OUTPUT " ALL : just build everything."
450 $ IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," -
451 .NES. ("," + ACCEPT_PHASE + ",") THEN -
452 WRITE SYS$OUTPUT " ENGINES : to compile just the [.xxx.EXE.ENGINES]*.EXE hareable images."
453 $ WRITE SYS$OUTPUT ""
454 $ WRITE SYS$OUTPUT " where 'xxx' stands for:"
455 $ WRITE SYS$OUTPUT ""
456 $ WRITE SYS$OUTPUT " ALPHA : Alpha architecture."
457 $ WRITE SYS$OUTPUT " IA64 : IA64 architecture."
458 $ WRITE SYS$OUTPUT " VAX : VAX architecture."
459 $ WRITE SYS$OUTPUT ""
465 $! End The Valid Argument Check.
469 $! End The OPT_PHASE Check.
473 $! Check To See If OPT_DEBUG Is Blank.
475 $ IF (OPT_DEBUG.EQS."NODEBUG")
478 $! OPT_DEBUG Is NODEBUG, So Compile Without The Debugger Information.
480 $ DEBUGGER = "NODEBUG"
481 $ TRACEBACK = "NOTRACEBACK"
482 $ GCC_OPTIMIZE = "OPTIMIZE"
483 $ CC_OPTIMIZE = "OPTIMIZE"
484 $ MACRO_OPTIMIZE = "OPTIMIZE"
485 $ WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
486 $ WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
489 $! Check To See If We Are To Compile With Debugger Information.
491 $ IF (OPT_DEBUG.EQS."DEBUG")
494 $! Compile With Debugger Information.
497 $ TRACEBACK = "TRACEBACK"
498 $ GCC_OPTIMIZE = "NOOPTIMIZE"
499 $ CC_OPTIMIZE = "NOOPTIMIZE"
500 $ MACRO_OPTIMIZE = "NOOPTIMIZE"
501 $ WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
502 $ WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
505 $! They Entered An Invalid Option..
507 $ WRITE SYS$OUTPUT ""
508 $ WRITE SYS$OUTPUT "The Option ",OPT_DEBUG," Is Invalid. The Valid Options Are:"
509 $ WRITE SYS$OUTPUT ""
510 $ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information."
511 $ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information."
512 $ WRITE SYS$OUTPUT ""
518 $! End The Valid Argument Check.
522 $! End The OPT_DEBUG Check.
526 $! Special Threads For OpenVMS v7.1 Or Later
528 $! Written By: Richard Levitte
529 $! richard@levitte.org
532 $! Check To See If We Have A Option For OPT_SPECIAL_THREADS.
534 $ IF (OPT_SPECIAL_THREADS.EQS."")
537 $! Get The Version Of VMS We Are Using.
540 $ TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
541 $ TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
543 $! Check To See If The VMS Version Is v7.1 Or Later.
548 $! We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
550 $ ISSEVEN := ,PTHREAD_USE_D4
552 $! End The VMS Version Check.
556 $! End The OPT_SPECIAL_THREADS Check.
560 $! Check To See If OPT_COMPILER Is Blank.
562 $ IF (OPT_COMPILER.EQS."")
565 $! O.K., The User Didn't Specify A Compiler, Let's Try To
566 $! Find Out Which One To Use.
568 $! Check To See If We Have GNU C.
570 $ IF (F$TRNLNM("GNU_CC").NES."")
573 $! Looks Like GNUC, Set To Use GNUC.
575 $ OPT_COMPILER = "GNUC"
581 $! Check To See If We Have VAXC Or DECC.
583 $ IF (ARCH.NES."VAX").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
586 $! Looks Like DECC, Set To Use DECC.
588 $ OPT_COMPILER = "DECC"
594 $! Looks Like VAXC, Set To Use VAXC.
596 $ OPT_COMPILER = "VAXC"
598 $! End The VAXC Compiler Check.
602 $! End The DECC & VAXC Compiler Check.
606 $! End The Compiler Check.
610 $! Check To See If We Have A Option For OPT_TCPIP_LIB.
612 $ IF (OPT_TCPIP_LIB.EQS."")
615 $! Find out what socket library we have available
617 $ IF F$PARSE("SOCKETSHR:") .NES. ""
620 $! We have SOCKETSHR, and it is my opinion that it's the best to use.
622 $ OPT_TCPIP_LIB = "SOCKETSHR"
626 $ WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
628 $! Else, let's look for something else
632 $! Like UCX (the reason to do this before Multinet is that the UCX
633 $! emulation is easier to use...)
635 $ IF F$TRNLNM("UCX$IPC_SHR") .NES. "" -
636 .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" -
637 .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. ""
640 $! Last resort: a UCX or UCX-compatible library
642 $ OPT_TCPIP_LIB = "UCX"
646 $ WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
654 $! Set Up Initial CC Definitions, Possibly With User Ones
656 $ CCDEFS = "TCPIP_TYPE_''OPT_TCPIP_LIB',DSO_VMS"
657 $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS
659 $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
660 $ CCDISABLEWARNINGS = "LONGLONGTYPE,LONGLONGSUFX"
661 $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
662 CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS
664 $! Check To See If The User Entered A Valid Paramter.
666 $ IF (OPT_COMPILER.EQS."VAXC").OR.(OPT_COMPILER.EQS."DECC").OR.(OPT_COMPILER.EQS."GNUC")
669 $! Check To See If The User Wanted DECC.
671 $ IF (OPT_COMPILER.EQS."DECC")
674 $! Looks Like DECC, Set To Use DECC.
678 $! Tell The User We Are Using DECC.
680 $ WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
685 $ IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
687 $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89" + -
688 "/NOLIST/PREFIX=ALL" + -
689 "/INCLUDE=(SYS$DISK:[],SYS$DISK:[.VENDOR_DEFNS])" + -
692 $! Define The Linker Options File Name.
694 $ OPT_FILE = "''EXE_DIR'VAX_DECC_OPTIONS.OPT"
700 $! Check To See If We Are To Use VAXC.
702 $ IF (OPT_COMPILER.EQS."VAXC")
705 $! Looks Like VAXC, Set To Use VAXC.
709 $! Tell The User We Are Using VAX C.
711 $ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
713 $! Compile Using VAXC.
718 $ WRITE SYS$OUTPUT "There is no VAX C on Alpha!"
721 $ IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
722 $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
723 "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.ENGINE.VENDOR_DEFNS])" + -
725 $ CCDEFS = """VAXC""," + CCDEFS
727 $! Define <sys> As SYS$COMMON:[SYSLIB]
729 $ DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
731 $! Define The Linker Options File Name.
733 $ OPT_FILE = "''EXE_DIR'VAX_VAXC_OPTIONS.OPT"
739 $! Check To See If We Are To Use GNU C.
741 $ IF (OPT_COMPILER.EQS."GNUC")
744 $! Looks Like GNUC, Set To Use GNUC.
748 $! Tell The User We Are Using GNUC.
750 $ WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
754 $ CC = "GCC/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
755 "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.ENGINE.VENDOR_DEFNS])" + -
758 $! Define The Linker Options File Name.
760 $ OPT_FILE = "''EXE_DIR'VAX_GNUC_OPTIONS.OPT"
762 $! End The GNU C Check.
766 $! Set up default defines
768 $ CCDEFS = """FLAT_INC=1""," + CCDEFS
770 $! Finish up the definition of CC.
772 $ IF COMPILER .EQS. "DECC"
774 $ IF CCDISABLEWARNINGS .NES. ""
776 $ CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
779 $ CCDISABLEWARNINGS = ""
781 $ CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
783 $! Show user the result
785 $ WRITE/SYMBOL SYS$OUTPUT "Main C Compiling Command: ",CC
787 $! Else The User Entered An Invalid Argument.
791 $! Tell The User We Don't Know What They Want.
793 $ WRITE SYS$OUTPUT ""
794 $ WRITE SYS$OUTPUT "The Option ",OPT_COMPILER," Is Invalid. The Valid Options Are:"
795 $ WRITE SYS$OUTPUT ""
796 $ WRITE SYS$OUTPUT " VAXC : To Compile With VAX C."
797 $ WRITE SYS$OUTPUT " DECC : To Compile With DEC C."
798 $ WRITE SYS$OUTPUT " GNUC : To Compile With GNU C."
799 $ WRITE SYS$OUTPUT ""
805 $! End The Valid Argument Check.
809 $! Build a MACRO command for the architecture at hand
811 $ IF ARCH .EQS. "VAX" THEN MACRO = "MACRO/''DEBUGGER'"
812 $ IF ARCH .NES. "VAX" THEN MACRO = "MACRO/MIGRATION/''DEBUGGER'/''MACRO_OPTIMIZE'"
814 $! Show user the result
816 $ WRITE/SYMBOL SYS$OUTPUT "Main MACRO Compiling Command: ",MACRO
818 $! Time to check the contents, and to make sure we get the correct library.
820 $ IF OPT_TCPIP_LIB.EQS."SOCKETSHR" .OR. OPT_TCPIP_LIB.EQS."MULTINET" -
821 .OR. OPT_TCPIP_LIB.EQS."UCX" .OR. OPT_TCPIP_LIB.EQS."TCPIP" -
822 .OR. OPT_TCPIP_LIB.EQS."NONE"
825 $! Check to see if SOCKETSHR was chosen
827 $ IF OPT_TCPIP_LIB.EQS."SOCKETSHR"
830 $! Set the library to use SOCKETSHR
832 $ TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
834 $! Done with SOCKETSHR
838 $! Check to see if MULTINET was chosen
840 $ IF OPT_TCPIP_LIB.EQS."MULTINET"
843 $! Set the library to use UCX emulation.
845 $ OPT_TCPIP_LIB = "UCX"
847 $! Done with MULTINET
851 $! Check to see if UCX was chosen
853 $ IF OPT_TCPIP_LIB.EQS."UCX"
856 $! Set the library to use UCX.
858 $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
859 $ IF F$TRNLNM("UCX$IPC_SHR") .NES. ""
861 $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT/OPT"
863 $ IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN -
864 TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT/OPT"
871 $! Check to see if TCPIP was chosen
873 $ IF OPT_TCPIP_LIB.EQS."TCPIP"
876 $! Set the library to use TCPIP (post UCX).
878 $ TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
884 $! Check to see if NONE was chosen
886 $ IF OPT_TCPIP_LIB.EQS."NONE"
889 $! Do not use a TCPIP library.
899 $ WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
901 $! Else The User Entered An Invalid Argument.
905 $! Tell The User We Don't Know What They Want.
907 $ WRITE SYS$OUTPUT ""
908 $ WRITE SYS$OUTPUT "The Option ",OPT_TCPIP_LIB," Is Invalid. The Valid Options Are:"
909 $ WRITE SYS$OUTPUT ""
910 $ WRITE SYS$OUTPUT " SOCKETSHR : To link with SOCKETSHR TCP/IP library."
911 $ WRITE SYS$OUTPUT " UCX : To link with UCX TCP/IP library."
912 $ WRITE SYS$OUTPUT " TCPIP : To link with TCPIP (post UCX) TCP/IP library."
913 $ WRITE SYS$OUTPUT ""
919 $! Done with TCP/IP libraries
929 $! Save old value of the logical name OPENSSL
931 $ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE")
933 $! Save directory information
935 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
936 $ __HERE = F$EDIT(__HERE,"UPCASE")
937 $ __TOP = __HERE - "ENGINES]"
938 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
940 $! Set up the logical name OPENSSL to point at the include directory
942 $ DEFINE OPENSSL/NOLOG '__INCLUDE'
950 $! Restore the logical name OPENSSL if it had a value
952 $ IF __SAVE_OPENSSL .EQS. ""
956 $ DEFINE/NOLOG OPENSSL '__SAVE_OPENSSL'