src/parsec/disk-image/parsec/parsec-benchmark/pkgs/libs/ssl/src/ssl/ssl-lib.com - public/gem5-resources - Git at Google

 $!
 $!  SSL-LIB.COM
 $!  Written By:  Robert Byer
 $!               Vice-President
 $!               A-Com Computing, Inc.
 $!               byer@mail.all-net.net
 $!
 $!  Changes by Richard Levitte <richard@levitte.org>
 $!
 $!  This command file compiles and creates the "[.xxx.EXE.SSL]LIBSSL.OLB"
 $!  library for OpenSSL.  The "xxx" denotes the machine architecture of AXP
 $!  or VAX.
 $!
 $!  It is written to detect what type of machine you are compiling on
 $!  (i.e. AXP or VAX) and which "C" compiler you have (i.e. VAXC, DECC
 $!  or GNU C) or you can specify which compiler to use.
 $!
 $!  Specify the following as P1 to build just that part or ALL to just
 $!  build everything.
 $!
 $!    		LIBRARY    To just compile the [.xxx.EXE.SSL]LIBSSL.OLB Library.
 $!    		SSL_TASK   To just compile the [.xxx.EXE.SSL]SSL_TASK.EXE
 $!
 $!  Specify DEBUG or NODEBUG as P2 to compile with or without debugger
 $!  information.
 $!
 $!  Specify which compiler at P3 to try to compile under.
 $!
 $!	   VAXC	 For VAX C.
 $!	   DECC	 For DEC C.
 $!	   GNUC	 For GNU C.
 $!
 $!  If you don't speficy a compiler, it will try to determine which
 $!  "C" compiler to use.
 $!
 $!  P4, if defined, sets a TCP/IP library to use, through one of the following
 $!  keywords:
 $!
 $!	UCX		for UCX
 $!	TCPIP		for TCPIP (post UCX)
 $!	SOCKETSHR	for SOCKETSHR+NETLIB
 $!
 $!  P5, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
 $!
 $!
 $! Define A TCP/IP Library That We Will Need To Link To.
 $! (That Is, If We Need To Link To One.)
 $!
 $ TCPIP_LIB = ""
 $!
 $! Check Which Architecture We Are Using.
 $!
 $ IF (F$GETSYI("CPU").GE.128)
 $ THEN
 $!
 $!  The Architecture Is AXP.
 $!
 $   ARCH := AXP
 $!
 $! Else...
 $!
 $ ELSE
 $!
 $!  The Architecture Is VAX.
 $!
 $   ARCH := VAX
 $!
 $! End The Architecture Check.
 $!
 $ ENDIF
 $!
 $! Check To Make Sure We Have Valid Command Line Parameters.
 $!
 $ GOSUB CHECK_OPTIONS
 $!
 $! Initialise logical names and such
 $!
 $ GOSUB INITIALISE
 $!
 $! Tell The User What Kind of Machine We Run On.
 $!
 $ WRITE SYS$OUTPUT "Compiling On A ",ARCH," Machine."
 $!
 $! Define The OBJ Directory.
 $!
 $ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.SSL]
 $!
 $! Check To See If The Architecture Specific OBJ Directory Exists.
 $!
 $ IF (F$PARSE(OBJ_DIR).EQS."")
 $ THEN
 $!
 $!  It Dosen't Exist, So Create It.
 $!
 $   CREATE/DIR 'OBJ_DIR'
 $!
 $! End The Architecture Specific OBJ Directory Check.
 $!
 $ ENDIF
 $!
 $! Define The EXE Directory.
 $!
 $ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.SSL]
 $!
 $! Check To See If The Architecture Specific Directory Exists.
 $!
 $ IF (F$PARSE(EXE_DIR).EQS."")
 $ THEN
 $!
 $!  It Dosen't Exist, So Create It.
 $!
 $   CREATE/DIR 'EXE_DIR'
 $!
 $! End The Architecture Specific Directory Check.
 $!
 $ ENDIF
 $!
 $! Define The Library Name.
 $!
 $ SSL_LIB := 'EXE_DIR'LIBSSL.OLB
 $!
 $! Define The CRYPTO-LIB We Are To Use.
 $!
 $ CRYPTO_LIB := SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO.OLB
 $!
 $! Check To See What We Are To Do.
 $!
 $ IF (BUILDALL.EQS."TRUE")
 $ THEN
 $!
 $!  Since Nothing Special Was Specified, Do Everything.
 $!
 $   GOSUB LIBRARY
 $   GOSUB SSL_TASK
 $!
 $! Else...
 $!
 $ ELSE
 $!
 $!  Build Just What The User Wants Us To Build.
 $!
 $   GOSUB 'BUILDALL'
 $!
 $! End The BUILDALL Check.
 $!
 $ ENDIF
 $!
 $! Time To EXIT.
 $!
 $ EXIT:
 $ GOSUB CLEANUP
 $ EXIT
 $!
 $! Compile The Library.
 $!
 $ LIBRARY:
 $!
 $! Check To See If We Already Have A "[.xxx.EXE.SSL]LIBSSL.OLB" Library...
 $!
 $ IF (F$SEARCH(SSL_LIB).EQS."")
 $ THEN
 $!
 $! Guess Not, Create The Library.
 $!
 $   LIBRARY/CREATE/OBJECT 'SSL_LIB'
 $!
 $! End The Library Exist Check.
 $!
 $ ENDIF
 $!
 $! Define The Different SSL "library" Files.
 $!
 $ LIB_SSL = "s2_meth,s2_srvr,s2_clnt,s2_lib,s2_enc,s2_pkt,"+ -
 	    "s3_meth,s3_srvr,s3_clnt,s3_lib,s3_enc,s3_pkt,s3_both,"+ -
 	    "s23_meth,s23_srvr,s23_clnt,s23_lib,s23_pkt,"+ -
 	    "t1_meth,t1_srvr,t1_clnt,t1_lib,t1_enc,"+ -
 	    "d1_meth,d1_srvr,d1_clnt,d1_lib,d1_pkt,"+ -
 	    "d1_both,d1_enc,"+ -
 	    "ssl_lib,ssl_err2,ssl_cert,ssl_sess,"+ -
 	    "ssl_ciph,ssl_stat,ssl_rsa,"+ -
 	    "ssl_asn1,ssl_txt,ssl_algs,"+ -
 	    "bio_ssl,ssl_err,kssl"
 $!
 $! Tell The User That We Are Compiling The Library.
 $!
 $ WRITE SYS$OUTPUT "Building The ",SSL_LIB," Library."
 $!
 $! Define A File Counter And Set It To "0"
 $!
 $ FILE_COUNTER = 0
 $!
 $! Top Of The File Loop.
 $!
 $ NEXT_FILE:
 $!
 $! O.K, Extract The File Name From The File List.
 $!
 $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",LIB_SSL)
 $!
 $! Check To See If We Are At The End Of The File List.
 $!
 $ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
 $!
 $! Increment The Counter.
 $!
 $ FILE_COUNTER = FILE_COUNTER + 1
 $!
 $! Create The Source File Name.
 $!
 $ SOURCE_FILE = "SYS$DISK:[]" + FILE_NAME + ".C"
 $!
 $! Create The Object File Name.
 $!
 $ OBJECT_FILE = OBJ_DIR + FILE_NAME + ".OBJ"
 $ ON WARNING THEN GOTO NEXT_FILE
 $!
 $! Check To See If The File We Want To Compile Is Actually There.
 $!
 $ IF (F$SEARCH(SOURCE_FILE).EQS."")
 $ THEN
 $!
 $!  Tell The User That The File Dosen't Exist.
 $!
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Dosen't Exist."
 $   WRITE SYS$OUTPUT ""
 $!
 $!  Exit The Build.
 $!
 $   EXIT
 $!
 $! End The File Exists Check.
 $!
 $ ENDIF
 $!
 $!  Tell The User What File We Are Compiling.
 $!
 $ WRITE SYS$OUTPUT "	",FILE_NAME,".c"
 $!
 $! Compile The File.
 $!
 $ ON ERROR THEN GOTO NEXT_FILE
 $ CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
 $!
 $! Add It To The Library.
 $!
 $ LIBRARY/REPLACE/OBJECT 'SSL_LIB' 'OBJECT_FILE'
 $!
 $! Time To Clean Up The Object File.
 $!
 $ DELETE 'OBJECT_FILE';*
 $!
 $! Go Back And Get The Next File Name.
 $!
 $ GOTO NEXT_FILE
 $!
 $! All Done With This Library.
 $!
 $ FILE_DONE:
 $!
 $! Tell The User That We Are All Done.
 $!
 $ WRITE SYS$OUTPUT "Library ",SSL_LIB," Compiled."
 $!
 $! Time To RETURN.
 $!
 $ RETURN
 $ SSL_TASK:
 $!
 $! Check To See If We Have The Proper Libraries.
 $!
 $ GOSUB LIB_CHECK
 $!
 $! Check To See If We Have A Linker Option File.
 $!
 $ GOSUB CHECK_OPT_FILE
 $!
 $! Check To See If The File We Want To Compile Is Actually There.
 $!
 $ IF (F$SEARCH("SYS$DISK:[]SSL_TASK.C").EQS."")
 $ THEN
 $!
 $!  Tell The User That The File Dosen't Exist.
 $!
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "The File SSL_TASK.C Dosen't Exist."
 $   WRITE SYS$OUTPUT ""
 $!
 $!  Exit The Build.
 $!
 $   EXIT
 $!
 $! End The SSL_TASK.C File Check.
 $!
 $ ENDIF
 $!
 $! Tell The User We Are Creating The SSL_TASK.
 $!
 $ WRITE SYS$OUTPUT "Creating SSL_TASK OSU HTTP SSL Engine."
 $!
 $! Compile The File.
 $!
 $ ON ERROR THEN GOTO SSL_TASK_END
 $ CC5/OBJECT='OBJ_DIR'SSL_TASK.OBJ SYS$DISK:[]SSL_TASK.C
 $!
 $! Link The Program.
 $! Check To See If We Are To Link With A Specific TCP/IP Library.
 $!
 $ IF (TCPIP_LIB.NES."")
 $ THEN
 $!
 $!  Link With TCP/IP Library.
 $!
 $   LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
         'OBJ_DIR'SSL_TASK.OBJ, -
 	'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY, -
         'TCPIP_LIB','OPT_FILE'/OPTION
 $!
 $! Else...
 $!
 $ ELSE
 $!
 $!  Don't Link With TCP/IP Library.
 $!
 $   LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
         'OBJ_DIR'SSL_TASK.OBJ,-
 	'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY, -
         'OPT_FILE'/OPTION
 $!
 $! End The TCP/IP Library Check.
 $!
 $ ENDIF
 $!
 $! Time To Return.
 $!
 $SSL_TASK_END:
 $ RETURN
 $!
 $! Check For The Link Option FIle.
 $!
 $ CHECK_OPT_FILE:
 $!
 $! Check To See If We Need To Make A VAX C Option File.
 $!
 $ IF (COMPILER.EQS."VAXC")
 $ THEN
 $!
 $!  Check To See If We Already Have A VAX C Linker Option File.
 $!
 $   IF (F$SEARCH(OPT_FILE).EQS."")
 $   THEN
 $!
 $!    We Need A VAX C Linker Option File.
 $!
 $     CREATE 'OPT_FILE'
 $DECK
 !
 ! Default System Options File To Link Agianst
 ! The Sharable VAX C Runtime Library.
 !
 SYS$SHARE:VAXCRTL.EXE/SHARE
 $EOD
 $!
 $!  End The Option File Check.
 $!
 $   ENDIF
 $!
 $! End The VAXC Check.
 $!
 $ ENDIF
 $!
 $! Check To See If We Need A GNU C Option File.
 $!
 $ IF (COMPILER.EQS."GNUC")
 $ THEN
 $!
 $!  Check To See If We Already Have A GNU C Linker Option File.
 $!
 $   IF (F$SEARCH(OPT_FILE).EQS."")
 $   THEN
 $!
 $!    We Need A GNU C Linker Option File.
 $!
 $     CREATE 'OPT_FILE'
 $DECK
 !
 ! Default System Options File To Link Agianst
 ! The Sharable C Runtime Library.
 !
 GNU_CC:[000000]GCCLIB/LIBRARY
 SYS$SHARE:VAXCRTL/SHARE
 $EOD
 $!
 $!  End The Option File Check.
 $!
 $   ENDIF
 $!
 $! End The GNU C Check.
 $!
 $ ENDIF
 $!
 $! Check To See If We Need A DEC C Option File.
 $!
 $ IF (COMPILER.EQS."DECC")
 $ THEN
 $!
 $!  Check To See If We Already Have A DEC C Linker Option File.
 $!
 $   IF (F$SEARCH(OPT_FILE).EQS."")
 $   THEN
 $!
 $!    Figure Out If We Need An AXP Or A VAX Linker Option File.
 $!
 $     IF (ARCH.EQS."VAX")
 $     THEN
 $!
 $!      We Need A DEC C Linker Option File For VAX.
 $!
 $       CREATE 'OPT_FILE'
 $DECK
 !
 ! Default System Options File To Link Agianst
 ! The Sharable DEC C Runtime Library.
 !
 SYS$SHARE:DECC$SHR.EXE/SHARE
 $EOD
 $!
 $!    Else...
 $!
 $     ELSE
 $!
 $!      Create The AXP Linker Option File.
 $!
 $       CREATE 'OPT_FILE'
 $DECK
 !
 ! Default System Options File For AXP To Link Agianst
 ! The Sharable C Runtime Library.
 !
 SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
 SYS$SHARE:CMA$OPEN_RTL/SHARE
 $EOD
 $!
 $!    End The VAX/AXP DEC C Option File Check.
 $!
 $     ENDIF
 $!
 $!  End The Option File Search.
 $!
 $   ENDIF
 $!
 $! End The DEC C Check.
 $!
 $ ENDIF
 $!
 $!  Tell The User What Linker Option File We Are Using.
 $!
 $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."
 $!
 $! Time To RETURN.
 $!
 $ RETURN
 $ LIB_CHECK:
 $!
 $! Look For The VAX Library LIBSSL.OLB.
 $!
 $ IF (F$SEARCH(SSL_LIB).EQS."")
 $ THEN
 $!
 $!  Tell The User We Can't Find The LIBSSL.OLB Library.
 $!
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "Can't Find The Library ",SSL_LIB,"."
 $   WRITE SYS$OUTPUT "We Can't Link Without It."
 $   WRITE SYS$OUTPUT ""
 $!
 $!  Since We Can't Link Without It, Exit.
 $!
 $   EXIT
 $!
 $! End The LIBSSL.OLB Library Check.
 $!
 $ ENDIF
 $!
 $! Look For The Library LIBCRYPTO.OLB.
 $!
 $ IF (F$SEARCH(CRYPTO_LIB).EQS."")
 $ THEN
 $!
 $!  Tell The User We Can't Find The LIBCRYPTO.OLB Library.
 $!
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "Can't Find The Library ",CRYPTO_LIB,"."
 $   WRITE SYS$OUTPUT "We Can't Link Without It."
 $   WRITE SYS$OUTPUT ""
 $!
 $!  Since We Can't Link Without It, Exit.
 $!
 $   EXIT
 $!
 $! End The LIBCRYPTO.OLB Library Check.
 $!
 $ ENDIF
 $!
 $! Time To Return.
 $!
 $ RETURN
 $!
 $! Check The User's Options.
 $!
 $ CHECK_OPTIONS:
 $!
 $! Check To See If P1 Is Blank.
 $!
 $ IF (P1.EQS."ALL")
 $ THEN
 $!
 $!   P1 Is Blank, So Build Everything.
 $!
 $    BUILDALL = "TRUE"
 $!
 $! Else...
 $!
 $ ELSE
 $!
 $!  Else, Check To See If P1 Has A Valid Arguement.
 $!
 $   IF (P1.EQS."LIBRARY").OR.(P1.EQS."SSL_TASK")
 $   THEN
 $!
 $!    A Valid Arguement.
 $!
 $     BUILDALL = P1
 $!
 $!  Else...
 $!
 $   ELSE
 $!
 $!    Tell The User We Don't Know What They Want.
 $!
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT "The Option ",P1," Is Invalid.  The Valid Options Are:"
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything."
 $     WRITE SYS$OUTPUT "    LIBRARY  :  To Compile Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
 $     WRITE SYS$OUTPUT "    SSL_TASK :  To Compile Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT "        AXP  :  Alpha Architecture."
 $     WRITE SYS$OUTPUT "        VAX  :  VAX Architecture."
 $     WRITE SYS$OUTPUT ""
 $!
 $!    Time To EXIT.
 $!
 $     EXIT
 $!
 $!  End The Valid Arguement Check.
 $!
 $   ENDIF
 $!
 $! End The P1 Check.
 $!
 $ ENDIF
 $!
 $! Check To See If P2 Is Blank.
 $!
 $ IF (P2.EQS."NODEBUG")
 $ THEN
 $!
 $!   P2 Is NODEBUG, So Compile Without Debugger Information.
 $!
 $    DEBUGGER  = "NODEBUG"
 $    TRACEBACK = "NOTRACEBACK"
 $    GCC_OPTIMIZE = "OPTIMIZE"
 $    CC_OPTIMIZE = "OPTIMIZE"
 $    WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
 $    WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
 $!
 $! Else...
 $!
 $ ELSE
 $!
 $!  Check To See If We Are To Compile With Debugger Information.
 $!
 $   IF (P2.EQS."DEBUG")
 $   THEN
 $!
 $!    Compile With Debugger Information.
 $!
 $     DEBUGGER  = "DEBUG"
 $     TRACEBACK = "TRACEBACK"
 $     GCC_OPTIMIZE = "NOOPTIMIZE"
 $     CC_OPTIMIZE = "NOOPTIMIZE"
 $     WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
 $     WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
 $   ELSE
 $!
 $!    Tell The User Entered An Invalid Option..
 $!
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT "The Option ",P2," Is Invalid.  The Valid Options Are:"
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT "    DEBUG    :  Compile With The Debugger Information."
 $     WRITE SYS$OUTPUT "    NODEBUG  :  Compile Without The Debugger Information."
 $     WRITE SYS$OUTPUT ""
 $!
 $!    Time To EXIT.
 $!
 $     EXIT
 $!
 $!  End The Valid Arguement Check.
 $!
 $   ENDIF
 $!
 $! End The P2 Check.
 $!
 $ ENDIF
 $!
 $! Special Threads For OpenVMS v7.1 Or Later
 $!
 $! Written By:  Richard Levitte
 $!              richard@levitte.org
 $!
 $!
 $! Check To See If We Have A Option For P5.
 $!
 $ IF (P5.EQS."")
 $ THEN
 $!
 $!  Get The Version Of VMS We Are Using.
 $!
 $   ISSEVEN :=
 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
 $!
 $!  Check To See If The VMS Version Is v7.1 Or Later.
 $!
 $   IF (TMP.GE.71)
 $   THEN
 $!
 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
 $!
 $     ISSEVEN := ,PTHREAD_USE_D4
 $!
 $!  End The VMS Version Check.
 $!
 $   ENDIF
 $!
 $! End The P5 Check.
 $!
 $ ENDIF
 $!
 $! Check To See If P3 Is Blank.
 $!
 $ IF (P3.EQS."")
 $ THEN
 $!
 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
 $!  Find Out Which One To Use.
 $!
 $!  Check To See If We Have GNU C.
 $!
 $   IF (F$TRNLNM("GNU_CC").NES."")
 $   THEN
 $!
 $!    Looks Like GNUC, Set To Use GNUC.
 $!
 $     P3 = "GNUC"
 $!
 $!  End The GNU C Compiler Check.
 $!
 $   ELSE
 $!
 $!  Check To See If We Have VAXC Or DECC.
 $!
 $     IF (ARCH.EQS."AXP").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
 $     THEN
 $!
 $!      Looks Like DECC, Set To Use DECC.
 $!
 $       P3 = "DECC"
 $!
 $!      Else...
 $!
 $     ELSE
 $!
 $!      Looks Like VAXC, Set To Use VAXC.
 $!
 $       P3 = "VAXC"
 $!
 $!    End The VAXC Compiler Check.
 $!
 $     ENDIF
 $!
 $!  End The DECC & VAXC Compiler Check.
 $!
 $   ENDIF
 $!
 $!  End The Compiler Check.
 $!
 $ ENDIF
 $!
 $! Check To See If We Have A Option For P4.
 $!
 $ IF (P4.EQS."")
 $ THEN
 $!
 $!  Find out what socket library we have available
 $!
 $   IF F$PARSE("SOCKETSHR:") .NES. ""
 $   THEN
 $!
 $!    We have SOCKETSHR, and it is my opinion that it's the best to use.
 $!
 $     P4 = "SOCKETSHR"
 $!
 $!    Tell the user
 $!
 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
 $!
 $!    Else, let's look for something else
 $!
 $   ELSE
 $!
 $!    Like UCX (the reason to do this before Multinet is that the UCX
 $!    emulation is easier to use...)
 $!
 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. "" -
 	 .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" -
 	 .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. ""
 $     THEN
 $!
 $!	Last resort: a UCX or UCX-compatible library
 $!
 $	P4 = "UCX"
 $!
 $!      Tell the user
 $!
 $       WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
 $!
 $!	That was all...
 $!
 $     ENDIF
 $   ENDIF
 $ ENDIF
 $!
 $! Set Up Initial CC Definitions, Possibly With User Ones
 $!
 $ CCDEFS = "TCPIP_TYPE_''P4'"
 $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS
 $ CCEXTRAFLAGS = ""
 $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
 $ CCDISABLEWARNINGS = "LONGLONGTYPE,LONGLONGSUFX,FOUNDCR"
 $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
 	CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS
 $!
 $!  Check To See If The User Entered A Valid Paramter.
 $!
 $ IF (P3.EQS."VAXC").OR.(P3.EQS."DECC").OR.(P3.EQS."GNUC")
 $ THEN
 $!
 $!  Check To See If The User Wanted DECC.
 $!
 $   IF (P3.EQS."DECC")
 $   THEN
 $!
 $!    Looks Like DECC, Set To Use DECC.
 $!
 $     COMPILER = "DECC"
 $!
 $!    Tell The User We Are Using DECC.
 $!
 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
 $!
 $!    Use DECC...
 $!
 $     CC = "CC"
 $     IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
 	 THEN CC = "CC/DECC"
 $     CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89" + -
            "/NOLIST/PREFIX=ALL" + -
 	   "/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
 $!
 $!    Define The Linker Options File Name.
 $!
 $     OPT_FILE = "SYS$DISK:[]VAX_DECC_OPTIONS.OPT"
 $!
 $!  End DECC Check.
 $!
 $   ENDIF
 $!
 $!  Check To See If We Are To Use VAXC.
 $!
 $   IF (P3.EQS."VAXC")
 $   THEN
 $!
 $!    Looks Like VAXC, Set To Use VAXC.
 $!
 $     COMPILER = "VAXC"
 $!
 $!    Tell The User We Are Using VAX C.
 $!
 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
 $!
 $!    Compile Using VAXC.
 $!
 $     CC = "CC"
 $     IF ARCH.EQS."AXP"
 $     THEN
 $	WRITE SYS$OUTPUT "There is no VAX C on Alpha!"
 $	EXIT
 $     ENDIF
 $     IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
 $     CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
 	   "/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
 $     CCDEFS = CCDEFS + ",""VAXC"""
 $!
 $!    Define <sys> As SYS$COMMON:[SYSLIB]
 $!
 $     DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
 $!
 $!    Define The Linker Options File Name.
 $!
 $     OPT_FILE = "SYS$DISK:[]VAX_VAXC_OPTIONS.OPT"
 $!
 $!  End VAXC Check
 $!
 $   ENDIF
 $!
 $!  Check To See If We Are To Use GNU C.
 $!
 $   IF (P3.EQS."GNUC")
 $   THEN
 $!
 $!    Looks Like GNUC, Set To Use GNUC.
 $!
 $     COMPILER = "GNUC"
 $!
 $!    Tell The User We Are Using GNUC.
 $!
 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
 $!
 $!    Use GNU C...
 $!
 $     IF F$TYPE(GCC) .EQS. "" THEN GCC := GCC
 $     CC = GCC+"/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
 	   "/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
 $!
 $!    Define The Linker Options File Name.
 $!
 $     OPT_FILE = "SYS$DISK:[]VAX_GNUC_OPTIONS.OPT"
 $!
 $!  End The GNU C Check.
 $!
 $   ENDIF
 $!
 $!  Set up default defines
 $!
 $   CCDEFS = """FLAT_INC=1""," + CCDEFS
 $!
 $!  Finish up the definition of CC.
 $!
 $   IF COMPILER .EQS. "DECC"
 $   THEN
 $     IF CCDISABLEWARNINGS .EQS. ""
 $     THEN
 $       CC4DISABLEWARNINGS = "DOLLARID"
 $     ELSE
 $       CC4DISABLEWARNINGS = CCDISABLEWARNINGS + ",DOLLARID"
 $       CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
 $     ENDIF
 $     CC4DISABLEWARNINGS = "/WARNING=(DISABLE=(" + CC4DISABLEWARNINGS + "))"
 $   ELSE
 $     CCDISABLEWARNINGS = ""
 $     CC4DISABLEWARNINGS = ""
 $   ENDIF
 $   CC2 = CC + "/DEFINE=(" + CCDEFS + ",_POSIX_C_SOURCE)" + CCDISABLEWARNINGS
 $   CC3 = CC + "/DEFINE=(" + CCDEFS + ISSEVEN + ")" + CCDISABLEWARNINGS
 $   CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
 $   IF COMPILER .EQS. "DECC"
 $   THEN
 $     CC4 = CC - CCDISABLEWARNINGS + CC4DISABLEWARNINGS
 $     CC5 = CC3 - CCDISABLEWARNINGS + CC4DISABLEWARNINGS
 $   ELSE
 $     CC4 = CC
 $     CC5 = CC3
 $   ENDIF
 $!
 $!  Show user the result
 $!
 $   WRITE/SYMBOL SYS$OUTPUT "Main Compiling Command: ",CC
 $!
 $!  Else The User Entered An Invalid Arguement.
 $!
 $ ELSE
 $!
 $!  Tell The User We Don't Know What They Want.
 $!
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "The Option ",P3," Is Invalid.  The Valid Options Are:"
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
 $   WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
 $   WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
 $   WRITE SYS$OUTPUT ""
 $!
 $!  Time To EXIT.
 $!
 $   EXIT
 $ ENDIF
 $!
 $! Time to check the contents, and to make sure we get the correct library.
 $!
 $ IF P4.EQS."SOCKETSHR" .OR. P4.EQS."MULTINET" .OR. P4.EQS."UCX" -
      .OR. P4.EQS."TCPIP" .OR. P4.EQS."NONE"
 $ THEN
 $!
 $!  Check to see if SOCKETSHR was chosen
 $!
 $   IF P4.EQS."SOCKETSHR"
 $   THEN
 $!
 $!    Set the library to use SOCKETSHR
 $!
 $     TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
 $!
 $!    Done with SOCKETSHR
 $!
 $   ENDIF
 $!
 $!  Check to see if MULTINET was chosen
 $!
 $   IF P4.EQS."MULTINET"
 $   THEN
 $!
 $!    Set the library to use UCX emulation.
 $!
 $     P4 = "UCX"
 $!
 $!    Done with MULTINET
 $!
 $   ENDIF
 $!
 $!  Check to see if UCX was chosen
 $!
 $   IF P4.EQS."UCX"
 $   THEN
 $!
 $!    Set the library to use UCX.
 $!
 $     TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. ""
 $     THEN
 $       TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT/OPT"
 $     ELSE
 $       IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN -
 	  TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT/OPT"
 $     ENDIF
 $!
 $!    Done with UCX
 $!
 $   ENDIF
 $!
 $!  Check to see if TCPIP was chosen
 $!
 $   IF P4.EQS."TCPIP"
 $   THEN
 $!
 $!    Set the library to use TCPIP (post UCX).
 $!
 $     TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
 $!
 $!    Done with TCPIP
 $!
 $   ENDIF
 $!
 $!  Check to see if NONE was chosen
 $!
 $   IF P4.EQS."NONE"
 $   THEN
 $!
 $!    Do not use a TCPIP library.
 $!
 $     TCPIP_LIB = ""
 $!
 $!    Done with NONE
 $!
 $   ENDIF
 $!
 $!  Print info
 $!
 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
 $!
 $!  Else The User Entered An Invalid Arguement.
 $!
 $ ELSE
 $!
 $!  Tell The User We Don't Know What They Want.
 $!
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "The Option ",P4," Is Invalid.  The Valid Options Are:"
 $   WRITE SYS$OUTPUT ""
 $   WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
 $   WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
 $   WRITE SYS$OUTPUT "    TCPIP      :  To link with TCPIP (post UCX) TCP/IP library."
 $   WRITE SYS$OUTPUT ""
 $!
 $!  Time To EXIT.
 $!
 $   EXIT
 $!
 $!  Done with TCP/IP libraries
 $!
 $ ENDIF
 $!
 $!  Time To RETURN...
 $!
 $ RETURN
 $!
 $ INITIALISE:
 $!
 $! Save old value of the logical name OPENSSL
 $!
 $ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE")
 $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
 $ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "SSL]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!
 $! Set up the logical name OPENSSL to point at the include directory
 $!
 $ DEFINE OPENSSL/NOLOG '__INCLUDE'
 $!
 $! Done
 $!
 $ RETURN
 $!
 $ CLEANUP:
 $!
 $! Restore the logical name OPENSSL if it had a value
 $!
 $ IF __SAVE_OPENSSL .EQS. ""
 $ THEN
 $   DEASSIGN OPENSSL
 $ ELSE
 $   DEFINE/NOLOG OPENSSL '__SAVE_OPENSSL'
 $ ENDIF
 $!
 $! Done
 $!
 $ RETURN
	$!
	$! SSL-LIB.COM
	$! Written By: Robert Byer
	$! Vice-President
	$! A-Com Computing, Inc.
	$! byer@mail.all-net.net
	$!
	$! Changes by Richard Levitte <richard@levitte.org>
	$!
	$! This command file compiles and creates the "[.xxx.EXE.SSL]LIBSSL.OLB"
	$! library for OpenSSL. The "xxx" denotes the machine architecture of AXP
	$! or VAX.
	$!
	$! It is written to detect what type of machine you are compiling on
	$! (i.e. AXP or VAX) and which "C" compiler you have (i.e. VAXC, DECC
	$! or GNU C) or you can specify which compiler to use.
	$!
	$! Specify the following as P1 to build just that part or ALL to just
	$! build everything.
	$!
	$! LIBRARY To just compile the [.xxx.EXE.SSL]LIBSSL.OLB Library.
	$! SSL_TASK To just compile the [.xxx.EXE.SSL]SSL_TASK.EXE
	$!
	$! Specify DEBUG or NODEBUG as P2 to compile with or without debugger
	$! information.
	$!
	$! Specify which compiler at P3 to try to compile under.
	$!
	$! VAXC For VAX C.
	$! DECC For DEC C.
	$! GNUC For GNU C.
	$!
	$! If you don't speficy a compiler, it will try to determine which
	$! "C" compiler to use.
	$!
	$! P4, if defined, sets a TCP/IP library to use, through one of the following
	$! keywords:
	$!
	$! UCX for UCX
	$! TCPIP for TCPIP (post UCX)
	$! SOCKETSHR for SOCKETSHR+NETLIB
	$!
	$! P5, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
	$!
	$!
	$! Define A TCP/IP Library That We Will Need To Link To.
	$! (That Is, If We Need To Link To One.)
	$!
	$ TCPIP_LIB = ""
	$!
	$! Check Which Architecture We Are Using.
	$!
	$ IF (F$GETSYI("CPU").GE.128)
	$ THEN
	$!
	$! The Architecture Is AXP.
	$!
	$ ARCH := AXP
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! The Architecture Is VAX.
	$!
	$ ARCH := VAX
	$!
	$! End The Architecture Check.
	$!
	$ ENDIF
	$!
	$! Check To Make Sure We Have Valid Command Line Parameters.
	$!
	$ GOSUB CHECK_OPTIONS
	$!
	$! Initialise logical names and such
	$!
	$ GOSUB INITIALISE
	$!
	$! Tell The User What Kind of Machine We Run On.
	$!
	$ WRITE SYS$OUTPUT "Compiling On A ",ARCH," Machine."
	$!
	$! Define The OBJ Directory.
	$!
	$ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.SSL]
	$!
	$! Check To See If The Architecture Specific OBJ Directory Exists.
	$!
	$ IF (F$PARSE(OBJ_DIR).EQS."")
	$ THEN
	$!
	$! It Dosen't Exist, So Create It.
	$!
	$ CREATE/DIR 'OBJ_DIR'
	$!
	$! End The Architecture Specific OBJ Directory Check.
	$!
	$ ENDIF
	$!
	$! Define The EXE Directory.
	$!
	$ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.SSL]
	$!
	$! Check To See If The Architecture Specific Directory Exists.
	$!
	$ IF (F$PARSE(EXE_DIR).EQS."")
	$ THEN
	$!
	$! It Dosen't Exist, So Create It.
	$!
	$ CREATE/DIR 'EXE_DIR'
	$!
	$! End The Architecture Specific Directory Check.
	$!
	$ ENDIF
	$!
	$! Define The Library Name.
	$!
	$ SSL_LIB := 'EXE_DIR'LIBSSL.OLB
	$!
	$! Define The CRYPTO-LIB We Are To Use.
	$!
	$ CRYPTO_LIB := SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO.OLB
	$!
	$! Check To See What We Are To Do.
	$!
	$ IF (BUILDALL.EQS."TRUE")
	$ THEN
	$!
	$! Since Nothing Special Was Specified, Do Everything.
	$!
	$ GOSUB LIBRARY
	$ GOSUB SSL_TASK
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! Build Just What The User Wants Us To Build.
	$!
	$ GOSUB 'BUILDALL'
	$!
	$! End The BUILDALL Check.
	$!
	$ ENDIF
	$!
	$! Time To EXIT.
	$!
	$ EXIT:
	$ GOSUB CLEANUP
	$ EXIT
	$!
	$! Compile The Library.
	$!
	$ LIBRARY:
	$!
	$! Check To See If We Already Have A "[.xxx.EXE.SSL]LIBSSL.OLB" Library...
	$!
	$ IF (F$SEARCH(SSL_LIB).EQS."")
	$ THEN
	$!
	$! Guess Not, Create The Library.
	$!
	$ LIBRARY/CREATE/OBJECT 'SSL_LIB'
	$!
	$! End The Library Exist Check.
	$!
	$ ENDIF
	$!
	$! Define The Different SSL "library" Files.
	$!
	$ LIB_SSL = "s2_meth,s2_srvr,s2_clnt,s2_lib,s2_enc,s2_pkt,"+ -
	"s3_meth,s3_srvr,s3_clnt,s3_lib,s3_enc,s3_pkt,s3_both,"+ -
	"s23_meth,s23_srvr,s23_clnt,s23_lib,s23_pkt,"+ -
	"t1_meth,t1_srvr,t1_clnt,t1_lib,t1_enc,"+ -
	"d1_meth,d1_srvr,d1_clnt,d1_lib,d1_pkt,"+ -
	"d1_both,d1_enc,"+ -
	"ssl_lib,ssl_err2,ssl_cert,ssl_sess,"+ -
	"ssl_ciph,ssl_stat,ssl_rsa,"+ -
	"ssl_asn1,ssl_txt,ssl_algs,"+ -
	"bio_ssl,ssl_err,kssl"
	$!
	$! Tell The User That We Are Compiling The Library.
	$!
	$ WRITE SYS$OUTPUT "Building The ",SSL_LIB," Library."
	$!
	$! Define A File Counter And Set It To "0"
	$!
	$ FILE_COUNTER = 0
	$!
	$! Top Of The File Loop.
	$!
	$ NEXT_FILE:
	$!
	$! O.K, Extract The File Name From The File List.
	$!
	$ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",LIB_SSL)
	$!
	$! Check To See If We Are At The End Of The File List.
	$!
	$ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
	$!
	$! Increment The Counter.
	$!
	$ FILE_COUNTER = FILE_COUNTER + 1
	$!
	$! Create The Source File Name.
	$!
	$ SOURCE_FILE = "SYS$DISK:[]" + FILE_NAME + ".C"
	$!
	$! Create The Object File Name.
	$!
	$ OBJECT_FILE = OBJ_DIR + FILE_NAME + ".OBJ"
	$ ON WARNING THEN GOTO NEXT_FILE
	$!
	$! Check To See If The File We Want To Compile Is Actually There.
	$!
	$ IF (F$SEARCH(SOURCE_FILE).EQS."")
	$ THEN
	$!
	$! Tell The User That The File Dosen't Exist.
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Dosen't Exist."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Exit The Build.
	$!
	$ EXIT
	$!
	$! End The File Exists Check.
	$!
	$ ENDIF
	$!
	$! Tell The User What File We Are Compiling.
	$!
	$ WRITE SYS$OUTPUT " ",FILE_NAME,".c"
	$!
	$! Compile The File.
	$!
	$ ON ERROR THEN GOTO NEXT_FILE
	$ CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
	$!
	$! Add It To The Library.
	$!
	$ LIBRARY/REPLACE/OBJECT 'SSL_LIB' 'OBJECT_FILE'
	$!
	$! Time To Clean Up The Object File.
	$!
	$ DELETE 'OBJECT_FILE';*
	$!
	$! Go Back And Get The Next File Name.
	$!
	$ GOTO NEXT_FILE
	$!
	$! All Done With This Library.
	$!
	$ FILE_DONE:
	$!
	$! Tell The User That We Are All Done.
	$!
	$ WRITE SYS$OUTPUT "Library ",SSL_LIB," Compiled."
	$!
	$! Time To RETURN.
	$!
	$ RETURN
	$ SSL_TASK:
	$!
	$! Check To See If We Have The Proper Libraries.
	$!
	$ GOSUB LIB_CHECK
	$!
	$! Check To See If We Have A Linker Option File.
	$!
	$ GOSUB CHECK_OPT_FILE
	$!
	$! Check To See If The File We Want To Compile Is Actually There.
	$!
	$ IF (F$SEARCH("SYS$DISK:[]SSL_TASK.C").EQS."")
	$ THEN
	$!
	$! Tell The User That The File Dosen't Exist.
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "The File SSL_TASK.C Dosen't Exist."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Exit The Build.
	$!
	$ EXIT
	$!
	$! End The SSL_TASK.C File Check.
	$!
	$ ENDIF
	$!
	$! Tell The User We Are Creating The SSL_TASK.
	$!
	$ WRITE SYS$OUTPUT "Creating SSL_TASK OSU HTTP SSL Engine."
	$!
	$! Compile The File.
	$!
	$ ON ERROR THEN GOTO SSL_TASK_END
	$ CC5/OBJECT='OBJ_DIR'SSL_TASK.OBJ SYS$DISK:[]SSL_TASK.C
	$!
	$! Link The Program.
	$! Check To See If We Are To Link With A Specific TCP/IP Library.
	$!
	$ IF (TCPIP_LIB.NES."")
	$ THEN
	$!
	$! Link With TCP/IP Library.
	$!
	$ LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
	'OBJ_DIR'SSL_TASK.OBJ, -
	'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY, -
	'TCPIP_LIB','OPT_FILE'/OPTION
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! Don't Link With TCP/IP Library.
	$!
	$ LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
	'OBJ_DIR'SSL_TASK.OBJ,-
	'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY, -
	'OPT_FILE'/OPTION
	$!
	$! End The TCP/IP Library Check.
	$!
	$ ENDIF
	$!
	$! Time To Return.
	$!
	$SSL_TASK_END:
	$ RETURN
	$!
	$! Check For The Link Option FIle.
	$!
	$ CHECK_OPT_FILE:
	$!
	$! Check To See If We Need To Make A VAX C Option File.
	$!
	$ IF (COMPILER.EQS."VAXC")
	$ THEN
	$!
	$! Check To See If We Already Have A VAX C Linker Option File.
	$!
	$ IF (F$SEARCH(OPT_FILE).EQS."")
	$ THEN
	$!
	$! We Need A VAX C Linker Option File.
	$!
	$ CREATE 'OPT_FILE'
	$DECK
	!
	! Default System Options File To Link Agianst
	! The Sharable VAX C Runtime Library.
	!
	SYS$SHARE:VAXCRTL.EXE/SHARE
	$EOD
	$!
	$! End The Option File Check.
	$!
	$ ENDIF
	$!
	$! End The VAXC Check.
	$!
	$ ENDIF
	$!
	$! Check To See If We Need A GNU C Option File.
	$!
	$ IF (COMPILER.EQS."GNUC")
	$ THEN
	$!
	$! Check To See If We Already Have A GNU C Linker Option File.
	$!
	$ IF (F$SEARCH(OPT_FILE).EQS."")
	$ THEN
	$!
	$! We Need A GNU C Linker Option File.
	$!
	$ CREATE 'OPT_FILE'
	$DECK
	!
	! Default System Options File To Link Agianst
	! The Sharable C Runtime Library.
	!
	GNU_CC:[000000]GCCLIB/LIBRARY
	SYS$SHARE:VAXCRTL/SHARE
	$EOD
	$!
	$! End The Option File Check.
	$!
	$ ENDIF
	$!
	$! End The GNU C Check.
	$!
	$ ENDIF
	$!
	$! Check To See If We Need A DEC C Option File.
	$!
	$ IF (COMPILER.EQS."DECC")
	$ THEN
	$!
	$! Check To See If We Already Have A DEC C Linker Option File.
	$!
	$ IF (F$SEARCH(OPT_FILE).EQS."")
	$ THEN
	$!
	$! Figure Out If We Need An AXP Or A VAX Linker Option File.
	$!
	$ IF (ARCH.EQS."VAX")
	$ THEN
	$!
	$! We Need A DEC C Linker Option File For VAX.
	$!
	$ CREATE 'OPT_FILE'
	$DECK
	!
	! Default System Options File To Link Agianst
	! The Sharable DEC C Runtime Library.
	!
	SYS$SHARE:DECC$SHR.EXE/SHARE
	$EOD
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! Create The AXP Linker Option File.
	$!
	$ CREATE 'OPT_FILE'
	$DECK
	!
	! Default System Options File For AXP To Link Agianst
	! The Sharable C Runtime Library.
	!
	SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
	SYS$SHARE:CMA$OPEN_RTL/SHARE
	$EOD
	$!
	$! End The VAX/AXP DEC C Option File Check.
	$!
	$ ENDIF
	$!
	$! End The Option File Search.
	$!
	$ ENDIF
	$!
	$! End The DEC C Check.
	$!
	$ ENDIF
	$!
	$! Tell The User What Linker Option File We Are Using.
	$!
	$ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."
	$!
	$! Time To RETURN.
	$!
	$ RETURN
	$ LIB_CHECK:
	$!
	$! Look For The VAX Library LIBSSL.OLB.
	$!
	$ IF (F$SEARCH(SSL_LIB).EQS."")
	$ THEN
	$!
	$! Tell The User We Can't Find The LIBSSL.OLB Library.
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "Can't Find The Library ",SSL_LIB,"."
	$ WRITE SYS$OUTPUT "We Can't Link Without It."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Since We Can't Link Without It, Exit.
	$!
	$ EXIT
	$!
	$! End The LIBSSL.OLB Library Check.
	$!
	$ ENDIF
	$!
	$! Look For The Library LIBCRYPTO.OLB.
	$!
	$ IF (F$SEARCH(CRYPTO_LIB).EQS."")
	$ THEN
	$!
	$! Tell The User We Can't Find The LIBCRYPTO.OLB Library.
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "Can't Find The Library ",CRYPTO_LIB,"."
	$ WRITE SYS$OUTPUT "We Can't Link Without It."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Since We Can't Link Without It, Exit.
	$!
	$ EXIT
	$!
	$! End The LIBCRYPTO.OLB Library Check.
	$!
	$ ENDIF
	$!
	$! Time To Return.
	$!
	$ RETURN
	$!
	$! Check The User's Options.
	$!
	$ CHECK_OPTIONS:
	$!
	$! Check To See If P1 Is Blank.
	$!
	$ IF (P1.EQS."ALL")
	$ THEN
	$!
	$! P1 Is Blank, So Build Everything.
	$!
	$ BUILDALL = "TRUE"
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! Else, Check To See If P1 Has A Valid Arguement.
	$!
	$ IF (P1.EQS."LIBRARY").OR.(P1.EQS."SSL_TASK")
	$ THEN
	$!
	$! A Valid Arguement.
	$!
	$ BUILDALL = P1
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! Tell The User We Don't Know What They Want.
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "The Option ",P1," Is Invalid. The Valid Options Are:"
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT " ALL : Just Build Everything."
	$ WRITE SYS$OUTPUT " LIBRARY : To Compile Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
	$ WRITE SYS$OUTPUT " SSL_TASK : To Compile Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT " AXP : Alpha Architecture."
	$ WRITE SYS$OUTPUT " VAX : VAX Architecture."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Time To EXIT.
	$!
	$ EXIT
	$!
	$! End The Valid Arguement Check.
	$!
	$ ENDIF
	$!
	$! End The P1 Check.
	$!
	$ ENDIF
	$!
	$! Check To See If P2 Is Blank.
	$!
	$ IF (P2.EQS."NODEBUG")
	$ THEN
	$!
	$! P2 Is NODEBUG, So Compile Without Debugger Information.
	$!
	$ DEBUGGER = "NODEBUG"
	$ TRACEBACK = "NOTRACEBACK"
	$ GCC_OPTIMIZE = "OPTIMIZE"
	$ CC_OPTIMIZE = "OPTIMIZE"
	$ WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
	$ WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! Check To See If We Are To Compile With Debugger Information.
	$!
	$ IF (P2.EQS."DEBUG")
	$ THEN
	$!
	$! Compile With Debugger Information.
	$!
	$ DEBUGGER = "DEBUG"
	$ TRACEBACK = "TRACEBACK"
	$ GCC_OPTIMIZE = "NOOPTIMIZE"
	$ CC_OPTIMIZE = "NOOPTIMIZE"
	$ WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
	$ WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
	$ ELSE
	$!
	$! Tell The User Entered An Invalid Option..
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "The Option ",P2," Is Invalid. The Valid Options Are:"
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information."
	$ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Time To EXIT.
	$!
	$ EXIT
	$!
	$! End The Valid Arguement Check.
	$!
	$ ENDIF
	$!
	$! End The P2 Check.
	$!
	$ ENDIF
	$!
	$! Special Threads For OpenVMS v7.1 Or Later
	$!
	$! Written By: Richard Levitte
	$! richard@levitte.org
	$!
	$!
	$! Check To See If We Have A Option For P5.
	$!
	$ IF (P5.EQS."")
	$ THEN
	$!
	$! Get The Version Of VMS We Are Using.
	$!
	$ ISSEVEN :=
	$ TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
	$ TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
	$!
	$! Check To See If The VMS Version Is v7.1 Or Later.
	$!
	$ IF (TMP.GE.71)
	$ THEN
	$!
	$! We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
	$!
	$ ISSEVEN := ,PTHREAD_USE_D4
	$!
	$! End The VMS Version Check.
	$!
	$ ENDIF
	$!
	$! End The P5 Check.
	$!
	$ ENDIF
	$!
	$! Check To See If P3 Is Blank.
	$!
	$ IF (P3.EQS."")
	$ THEN
	$!
	$! O.K., The User Didn't Specify A Compiler, Let's Try To
	$! Find Out Which One To Use.
	$!
	$! Check To See If We Have GNU C.
	$!
	$ IF (F$TRNLNM("GNU_CC").NES."")
	$ THEN
	$!
	$! Looks Like GNUC, Set To Use GNUC.
	$!
	$ P3 = "GNUC"
	$!
	$! End The GNU C Compiler Check.
	$!
	$ ELSE
	$!
	$! Check To See If We Have VAXC Or DECC.
	$!
	$ IF (ARCH.EQS."AXP").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
	$ THEN
	$!
	$! Looks Like DECC, Set To Use DECC.
	$!
	$ P3 = "DECC"
	$!
	$! Else...
	$!
	$ ELSE
	$!
	$! Looks Like VAXC, Set To Use VAXC.
	$!
	$ P3 = "VAXC"
	$!
	$! End The VAXC Compiler Check.
	$!
	$ ENDIF
	$!
	$! End The DECC & VAXC Compiler Check.
	$!
	$ ENDIF
	$!
	$! End The Compiler Check.
	$!
	$ ENDIF
	$!
	$! Check To See If We Have A Option For P4.
	$!
	$ IF (P4.EQS."")
	$ THEN
	$!
	$! Find out what socket library we have available
	$!
	$ IF F$PARSE("SOCKETSHR:") .NES. ""
	$ THEN
	$!
	$! We have SOCKETSHR, and it is my opinion that it's the best to use.
	$!
	$ P4 = "SOCKETSHR"
	$!
	$! Tell the user
	$!
	$ WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
	$!
	$! Else, let's look for something else
	$!
	$ ELSE
	$!
	$! Like UCX (the reason to do this before Multinet is that the UCX
	$! emulation is easier to use...)
	$!
	$ IF F$TRNLNM("UCX$IPC_SHR") .NES. "" -
	.OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" -
	.OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. ""
	$ THEN
	$!
	$! Last resort: a UCX or UCX-compatible library
	$!
	$ P4 = "UCX"
	$!
	$! Tell the user
	$!
	$ WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
	$!
	$! That was all...
	$!
	$ ENDIF
	$ ENDIF
	$ ENDIF
	$!
	$! Set Up Initial CC Definitions, Possibly With User Ones
	$!
	$ CCDEFS = "TCPIP_TYPE_''P4'"
	$ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS
	$ CCEXTRAFLAGS = ""
	$ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
	$ CCDISABLEWARNINGS = "LONGLONGTYPE,LONGLONGSUFX,FOUNDCR"
	$ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
	CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS
	$!
	$! Check To See If The User Entered A Valid Paramter.
	$!
	$ IF (P3.EQS."VAXC").OR.(P3.EQS."DECC").OR.(P3.EQS."GNUC")
	$ THEN
	$!
	$! Check To See If The User Wanted DECC.
	$!
	$ IF (P3.EQS."DECC")
	$ THEN
	$!
	$! Looks Like DECC, Set To Use DECC.
	$!
	$ COMPILER = "DECC"
	$!
	$! Tell The User We Are Using DECC.
	$!
	$ WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
	$!
	$! Use DECC...
	$!
	$ CC = "CC"
	$ IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
	THEN CC = "CC/DECC"
	$ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89" + -
	"/NOLIST/PREFIX=ALL" + -
	"/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
	$!
	$! Define The Linker Options File Name.
	$!
	$ OPT_FILE = "SYS$DISK:[]VAX_DECC_OPTIONS.OPT"
	$!
	$! End DECC Check.
	$!
	$ ENDIF
	$!
	$! Check To See If We Are To Use VAXC.
	$!
	$ IF (P3.EQS."VAXC")
	$ THEN
	$!
	$! Looks Like VAXC, Set To Use VAXC.
	$!
	$ COMPILER = "VAXC"
	$!
	$! Tell The User We Are Using VAX C.
	$!
	$ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
	$!
	$! Compile Using VAXC.
	$!
	$ CC = "CC"
	$ IF ARCH.EQS."AXP"
	$ THEN
	$ WRITE SYS$OUTPUT "There is no VAX C on Alpha!"
	$ EXIT
	$ ENDIF
	$ IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
	$ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
	"/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
	$ CCDEFS = CCDEFS + ",""VAXC"""
	$!
	$! Define <sys> As SYS$COMMON:[SYSLIB]
	$!
	$ DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
	$!
	$! Define The Linker Options File Name.
	$!
	$ OPT_FILE = "SYS$DISK:[]VAX_VAXC_OPTIONS.OPT"
	$!
	$! End VAXC Check
	$!
	$ ENDIF
	$!
	$! Check To See If We Are To Use GNU C.
	$!
	$ IF (P3.EQS."GNUC")
	$ THEN
	$!
	$! Looks Like GNUC, Set To Use GNUC.
	$!
	$ COMPILER = "GNUC"
	$!
	$! Tell The User We Are Using GNUC.
	$!
	$ WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
	$!
	$! Use GNU C...
	$!
	$ IF F$TYPE(GCC) .EQS. "" THEN GCC := GCC
	$ CC = GCC+"/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
	"/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
	$!
	$! Define The Linker Options File Name.
	$!
	$ OPT_FILE = "SYS$DISK:[]VAX_GNUC_OPTIONS.OPT"
	$!
	$! End The GNU C Check.
	$!
	$ ENDIF
	$!
	$! Set up default defines
	$!
	$ CCDEFS = """FLAT_INC=1""," + CCDEFS
	$!
	$! Finish up the definition of CC.
	$!
	$ IF COMPILER .EQS. "DECC"
	$ THEN
	$ IF CCDISABLEWARNINGS .EQS. ""
	$ THEN
	$ CC4DISABLEWARNINGS = "DOLLARID"
	$ ELSE
	$ CC4DISABLEWARNINGS = CCDISABLEWARNINGS + ",DOLLARID"
	$ CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
	$ ENDIF
	$ CC4DISABLEWARNINGS = "/WARNING=(DISABLE=(" + CC4DISABLEWARNINGS + "))"
	$ ELSE
	$ CCDISABLEWARNINGS = ""
	$ CC4DISABLEWARNINGS = ""
	$ ENDIF
	$ CC2 = CC + "/DEFINE=(" + CCDEFS + ",_POSIX_C_SOURCE)" + CCDISABLEWARNINGS
	$ CC3 = CC + "/DEFINE=(" + CCDEFS + ISSEVEN + ")" + CCDISABLEWARNINGS
	$ CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
	$ IF COMPILER .EQS. "DECC"
	$ THEN
	$ CC4 = CC - CCDISABLEWARNINGS + CC4DISABLEWARNINGS
	$ CC5 = CC3 - CCDISABLEWARNINGS + CC4DISABLEWARNINGS
	$ ELSE
	$ CC4 = CC
	$ CC5 = CC3
	$ ENDIF
	$!
	$! Show user the result
	$!
	$ WRITE/SYMBOL SYS$OUTPUT "Main Compiling Command: ",CC
	$!
	$! Else The User Entered An Invalid Arguement.
	$!
	$ ELSE
	$!
	$! Tell The User We Don't Know What They Want.
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "The Option ",P3," Is Invalid. The Valid Options Are:"
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT " VAXC : To Compile With VAX C."
	$ WRITE SYS$OUTPUT " DECC : To Compile With DEC C."
	$ WRITE SYS$OUTPUT " GNUC : To Compile With GNU C."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Time To EXIT.
	$!
	$ EXIT
	$ ENDIF
	$!
	$! Time to check the contents, and to make sure we get the correct library.
	$!
	$ IF P4.EQS."SOCKETSHR" .OR. P4.EQS."MULTINET" .OR. P4.EQS."UCX" -
	.OR. P4.EQS."TCPIP" .OR. P4.EQS."NONE"
	$ THEN
	$!
	$! Check to see if SOCKETSHR was chosen
	$!
	$ IF P4.EQS."SOCKETSHR"
	$ THEN
	$!
	$! Set the library to use SOCKETSHR
	$!
	$ TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
	$!
	$! Done with SOCKETSHR
	$!
	$ ENDIF
	$!
	$! Check to see if MULTINET was chosen
	$!
	$ IF P4.EQS."MULTINET"
	$ THEN
	$!
	$! Set the library to use UCX emulation.
	$!
	$ P4 = "UCX"
	$!
	$! Done with MULTINET
	$!
	$ ENDIF
	$!
	$! Check to see if UCX was chosen
	$!
	$ IF P4.EQS."UCX"
	$ THEN
	$!
	$! Set the library to use UCX.
	$!
	$ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
	$ IF F$TRNLNM("UCX$IPC_SHR") .NES. ""
	$ THEN
	$ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT/OPT"
	$ ELSE
	$ IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN -
	TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT/OPT"
	$ ENDIF
	$!
	$! Done with UCX
	$!
	$ ENDIF
	$!
	$! Check to see if TCPIP was chosen
	$!
	$ IF P4.EQS."TCPIP"
	$ THEN
	$!
	$! Set the library to use TCPIP (post UCX).
	$!
	$ TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
	$!
	$! Done with TCPIP
	$!
	$ ENDIF
	$!
	$! Check to see if NONE was chosen
	$!
	$ IF P4.EQS."NONE"
	$ THEN
	$!
	$! Do not use a TCPIP library.
	$!
	$ TCPIP_LIB = ""
	$!
	$! Done with NONE
	$!
	$ ENDIF
	$!
	$! Print info
	$!
	$ WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
	$!
	$! Else The User Entered An Invalid Arguement.
	$!
	$ ELSE
	$!
	$! Tell The User We Don't Know What They Want.
	$!
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT "The Option ",P4," Is Invalid. The Valid Options Are:"
	$ WRITE SYS$OUTPUT ""
	$ WRITE SYS$OUTPUT " SOCKETSHR : To link with SOCKETSHR TCP/IP library."
	$ WRITE SYS$OUTPUT " UCX : To link with UCX TCP/IP library."
	$ WRITE SYS$OUTPUT " TCPIP : To link with TCPIP (post UCX) TCP/IP library."
	$ WRITE SYS$OUTPUT ""
	$!
	$! Time To EXIT.
	$!
	$ EXIT
	$!
	$! Done with TCP/IP libraries
	$!
	$ ENDIF
	$!
	$! Time To RETURN...
	$!
	$ RETURN
	$!
	$ INITIALISE:
	$!
	$! Save old value of the logical name OPENSSL
	$!
	$ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE")
	$!
	$! Save directory information
	$!
	$ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
	$ __HERE = F$EDIT(__HERE,"UPCASE")
	$ __TOP = __HERE - "SSL]"
	$ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
	$!
	$! Set up the logical name OPENSSL to point at the include directory
	$!
	$ DEFINE OPENSSL/NOLOG '__INCLUDE'
	$!
	$! Done
	$!
	$ RETURN
	$!
	$ CLEANUP:
	$!
	$! Restore the logical name OPENSSL if it had a value
	$!
	$ IF __SAVE_OPENSSL .EQS. ""
	$ THEN
	$ DEASSIGN OPENSSL
	$ ELSE
	$ DEFINE/NOLOG OPENSSL '__SAVE_OPENSSL'
	$ ENDIF
	$!
	$! Done
	$!
	$ RETURN