77e2de7ea7
where necessary to the main trunk (0.9.8-dev). This does not include rearrangements and work I've been doing, that'll come in the next bunch of commits to this branch. This set of changes can't be expected to work on any VMS system, there are changes in here that are very specific to Compaq's building system. This set of changes will be surrounded by the tags BEFORE_COMPAQ_PATCH and AFTER_COMPAQ_PATCH.
1212 lines
26 KiB
Plaintext
1212 lines
26 KiB
Plaintext
$!
|
|
$! MAKEAPPS.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 files compiles and creates all the various different
|
|
$! "application" programs for the different types of encryption for OpenSSL.
|
|
$! The EXE's are placed in the directory [.xxx.EXE.APPS] where "xxx" denotes
|
|
$! either AXP or VAX depending on your machine architecture.
|
|
$!
|
|
$! It was written so it would try to determine what "C" compiler to
|
|
$! use or you can specify which "C" compiler to use.
|
|
$!
|
|
$! Specify RSAREF as P1 to compile with the RSAREF library instead of
|
|
$! the regular one. If you specify NORSAREF it will compile with the
|
|
$! regular RSAREF routines. (Note: If you are in the United States
|
|
$! you MUST compile with RSAREF unless you have a license from RSA).
|
|
$!
|
|
$! Note: The RSAREF libraries are NOT INCLUDED and you have to
|
|
$! download it from "ftp://ftp.rsa.com/rsaref". You have to
|
|
$! get the ".tar-Z" file as the ".zip" file dosen't have the
|
|
$! directory structure stored. You have to extract the file
|
|
$! into the [.RSAREF] directory under the root directory as that
|
|
$! is where the scripts will look for the files.
|
|
$!
|
|
$! 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
|
|
$! SOCKETSHR for SOCKETSHR+NETLIB
|
|
$! TCPIP for TCPIP (post UCX)
|
|
$!
|
|
$! P5, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
|
|
$!
|
|
$! P6, if defined, sets a choice of programs to compile.
|
|
$!
|
|
$!
|
|
$!
|
|
$! Define USER_CCFLAGS
|
|
$!
|
|
$ @[-]vms_build_info.com
|
|
$ WRITE SYS$OUTPUT " Using USER_CCFLAGS = ", USER_CCFLAGS
|
|
$!
|
|
$! Define A TCP/IP Library That We Will Need To Link To.
|
|
$! (That Is, If We Need To Link To One.)
|
|
$!
|
|
$ TCPIP_LIB = ""
|
|
$!
|
|
$! Check What 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
|
|
$!
|
|
$! Define what programs should be compiled
|
|
$!
|
|
$ PROGRAMS := OPENSSL
|
|
$!$ PROGRAMS := VERIFY,ASN1PARS,REQ,DGST,DH,ENC,PASSWD,GENDH,ERRSTR,CA,CRL,-
|
|
$! RSA,DSA,DSAPARAM,-
|
|
$! X509,GENRSA,GENDSA,S_SERVER,S_CLIENT,SPEED,-
|
|
$! S_TIME,VERSION,PKCS7,CRL2P7,SESS_ID,CIPHERS,NSEQ,
|
|
$!
|
|
$! 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 CRYPTO Library.
|
|
$!
|
|
$ CRYPTO_LIB := SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO'build_bits'.OLB
|
|
$!
|
|
$! Define The RSAREF Library.
|
|
$!
|
|
$ RSAREF_LIB := SYS$DISK:[-.'ARCH'.EXE.RSAREF]LIBRSAGLUE'build_bits'.OLB
|
|
$!
|
|
$! Define The SSL Library.
|
|
$!
|
|
$ SSL_LIB := SYS$DISK:[-.'ARCH'.EXE.SSL]LIBSSL'build_bits'.OLB
|
|
$!
|
|
$! Define The OBJ Directory.
|
|
$!
|
|
$ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.APPS]
|
|
$!
|
|
$! Check To See If The OBJ Directory Exists.
|
|
$!
|
|
$ IF (F$PARSE(OBJ_DIR).EQS."")
|
|
$ THEN
|
|
$!
|
|
$! It Dosen't Exist, So Create It.
|
|
$!
|
|
$ CREATE/DIRECTORY 'OBJ_DIR'
|
|
$!
|
|
$! End The OBJ Directory Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Define The LIS Directory.
|
|
$!
|
|
$ LIS_DIR := SYS$DISK:[-.'ARCH'.LIS.APPS]
|
|
$!
|
|
$! Check To See If The OBJ Directory Exists.
|
|
$!
|
|
$ IF (F$PARSE(LIS_DIR).EQS."")
|
|
$ THEN
|
|
$!
|
|
$! It Dosen't Exist, So Create It.
|
|
$!
|
|
$ CREATE/DIRECTORY 'LIS_DIR'
|
|
$!
|
|
$! End The LIS Directory Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Define The EXE Directory.
|
|
$!
|
|
$ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.APPS]
|
|
$!
|
|
$! Check To See If The EXE Directory Exists.
|
|
$!
|
|
$ IF (F$PARSE(EXE_DIR).EQS."")
|
|
$ THEN
|
|
$!
|
|
$! It Dosen't Exist, So Create It.
|
|
$!
|
|
$ CREATE/DIRECTORY 'EXE_DIR'
|
|
$!
|
|
$! End The EXE Directory Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! 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
|
|
$!
|
|
$! Define The Application Files.
|
|
$!
|
|
$ LIB_FILES = "VERIFY;ASN1PARS;REQ;DGST;DH;DHPARAM;ENC;PASSWD;GENDH;ERRSTR;"+-
|
|
"CA;PKCS7;CRL2P7;CRL;"+-
|
|
"RSA;RSAUTL;DSA;DSAPARAM;"+-
|
|
"X509;GENRSA;GENDSA;TERM_SOCK;S_SERVER;S_CLIENT;SPEED;"+-
|
|
"S_TIME;APPS;S_CB;S_SOCKET;APP_RAND;VERSION;SESS_ID;"+-
|
|
"CIPHERS;NSEQ;PKCS12;PKCS8;SPKAC;SMIME;RAND;ENGINE;OCSP"
|
|
$ APP_FILES := OPENSSL,'OBJ_DIR'VERIFY.OBJ,ASN1PARS.OBJ,REQ.OBJ,DGST.OBJ,DH.OBJ,DHPARAM.OBJ,ENC.OBJ,PASSWD.OBJ,GENDH.OBJ,ERRSTR.OBJ,-
|
|
CA.OBJ,PKCS7.OBJ,CRL2P7.OBJ,CRL.OBJ,-
|
|
RSA.OBJ,RSAUTL.OBJ,DSA.OBJ,DSAPARAM.OBJ,-
|
|
X509.OBJ,GENRSA.OBJ,GENDSA.OBJ,TERM_SOCK.OBJ,S_SERVER.OBJ,S_CLIENT.OBJ,SPEED.OBJ,-
|
|
S_TIME.OBJ,APPS.OBJ,S_CB.OBJ,S_SOCKET.OBJ,APP_RAND.OBJ,VERSION.OBJ,SESS_ID.OBJ,-
|
|
CIPHERS.OBJ,NSEQ.OBJ,PKCS12.OBJ,PKCS8.OBJ,SPKAC.OBJ,SMIME.OBJ,RAND.OBJ,ENGINE.OBJ,OCSP.OBJ
|
|
$ TCPIP_PROGRAMS = ",,"
|
|
$ IF COMPILER .EQS. "VAXC" THEN -
|
|
TCPIP_PROGRAMS = ",OPENSSL,"
|
|
$!$ APP_FILES := VERIFY;ASN1PARS;REQ;DGST;DH;ENC;GENDH;ERRSTR;CA;-
|
|
$! PKCS7;CRL2P7;CRL;-
|
|
$! RSA;DSA;DSAPARAM;-
|
|
$! X509;GENRSA;GENDSA;-
|
|
$! S_SERVER,'OBJ_DIR'S_SOCKET.OBJ,'OBJ_DIR'S_CB.OBJ;-
|
|
$! S_CLIENT,'OBJ_DIR'S_SOCKET.OBJ,'OBJ_DIR'S_CB.OBJ;-
|
|
$! SPEED;-
|
|
$! S_TIME,'OBJ_DIR'S_CB.OBJ;VERSION;SESS_ID;CIPHERS;NSEQ
|
|
$!$ TCPIP_PROGRAMS = ",,"
|
|
$!$ IF COMPILER .EQS. "VAXC" THEN -
|
|
$! TCPIP_PROGRAMS = ",S_SERVER,S_CLIENT,SESS_ID,CIPHERS,S_TIME,"
|
|
$!
|
|
$! Setup exceptional compilations
|
|
$!
|
|
$ COMPILEWITH_CC2 = ",S_SOCKET,S_SERVER,S_CLIENT,"
|
|
$!
|
|
$ PHASE := LIB
|
|
$!
|
|
$ RESTART:
|
|
$!
|
|
$! 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_NAME0 = F$EDIT(F$ELEMENT(FILE_COUNTER,";",'PHASE'_FILES),"TRIM")
|
|
$ FILE_NAME = F$EDIT(F$ELEMENT(0,",",FILE_NAME0),"TRIM")
|
|
$ EXTRA_OBJ = FILE_NAME0 - FILE_NAME
|
|
$!
|
|
$! Check To See If We Are At The End Of The File List.
|
|
$!
|
|
$ IF (FILE_NAME0.EQS.";")
|
|
$ THEN
|
|
$ IF (PHASE.EQS."LIB")
|
|
$ THEN
|
|
$ PHASE := APP
|
|
$ GOTO RESTART
|
|
$ ELSE
|
|
$ GOTO FILE_DONE
|
|
$ ENDIF
|
|
$ ENDIF
|
|
$!
|
|
$! Increment The Counter.
|
|
$!
|
|
$ FILE_COUNTER = FILE_COUNTER + 1
|
|
$!
|
|
$! Check to see if this program should actually be compiled
|
|
$!
|
|
$ IF PHASE .EQS. "APP" .AND. -
|
|
","+PROGRAMS+"," - (","+F$EDIT(FILE_NAME,"UPCASE")+",") .EQS. ","+PROGRAMS+","
|
|
$ THEN
|
|
$ GOTO NEXT_FILE
|
|
$ ENDIF
|
|
$!
|
|
$! Create The Source File Name.
|
|
$!
|
|
$ SOURCE_FILE = "SYS$DISK:[]" + FILE_NAME + ".C"
|
|
$!
|
|
$! Create The Object File Name.
|
|
$!
|
|
$ OBJECT_FILE = OBJ_DIR + FILE_NAME + ".OBJ"
|
|
$!
|
|
$! Create The Listing File Name.
|
|
$!
|
|
$ LIST_FILE = LIS_DIR + FILE_NAME + ".LIS"
|
|
$!
|
|
$! Create The Executable File Name.
|
|
$!
|
|
$ EXE_FILE = EXE_DIR + FILE_NAME + ".EXE"
|
|
$ ON WARNING THEN GOTO NEXT_FILE
|
|
$!
|
|
$! Check To See If The File We Want To Compile Actually Exists.
|
|
$!
|
|
$ IF (F$SEARCH(SOURCE_FILE).EQS."")
|
|
$ THEN
|
|
$!
|
|
$! Tell The User That The File Dosen't Exist.
|
|
$!
|
|
$ WRITE SYS$OUTPUT ""
|
|
$ WRITE SYS$OUTPUT F$MESSAGE("%X10018290") + ". The File ",SOURCE_FILE," Dosen't Exist."
|
|
$ WRITE SYS$OUTPUT ""
|
|
$!
|
|
$! Exit The Build.
|
|
$!
|
|
$ GOTO EXIT
|
|
$!
|
|
$! End The File Exist Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Tell The User What We Are Building.
|
|
$!
|
|
$ IF (PHASE.EQS."LIB")
|
|
$ THEN
|
|
$ WRITE SYS$OUTPUT "Compiling The ",FILE_NAME,".C File."
|
|
$ ELSE
|
|
$ WRITE SYS$OUTPUT "Building The ",FILE_NAME," Application Program."
|
|
$ ENDIF
|
|
$!
|
|
$! Compile The File.
|
|
$!
|
|
$ ON ERROR THEN GOTO NEXT_FILE
|
|
$ IF COMPILEWITH_CC2 - FILE_NAME .NES. COMPILEWITH_CC2
|
|
$ THEN
|
|
$ CC2/OBJECT='OBJECT_FILE'/LIST='LIST_FILE'/MACHINE_CODE 'SOURCE_FILE'
|
|
$ ELSE
|
|
$ CC/OBJECT='OBJECT_FILE'/LIST='LIST_FILE'/MACHINE_CODE 'SOURCE_FILE'
|
|
$ ENDIF
|
|
$!
|
|
$ ON WARNING THEN GOTO NEXT_FILE
|
|
$!
|
|
$ IF (PHASE.EQS."LIB")
|
|
$ THEN
|
|
$ GOTO NEXT_FILE
|
|
$ ENDIF
|
|
$!
|
|
$! Check if this program works well without a TCPIP library
|
|
$!
|
|
$ IF TCPIP_LIB .EQS. "" .AND. TCPIP_PROGRAMS - FILE_NAME .NES. TCPIP_PROGRAMS
|
|
$ THEN
|
|
$ WRITE SYS$OUTPUT FILE_NAME," needs a TCP/IP library. Can't link. Skipping..."
|
|
$ GOTO NEXT_FILE
|
|
$ ENDIF
|
|
$!
|
|
$! Link The Program, Check To See If We Need To Link With RSAREF Or Not.
|
|
$!
|
|
$ IF (RSAREF.EQS."TRUE")
|
|
$ THEN
|
|
$!
|
|
$! Check To See If We Are To Link With A Specific TCP/IP Library.
|
|
$!
|
|
$ IF (TCPIP_LIB.NES."")
|
|
$ THEN
|
|
$!
|
|
$! Link With The RSAREF Library And A Specific TCP/IP Library.
|
|
$!
|
|
$ LINK /'DEBUGGER'/'TRACEBACK' /EXE='EXE_FILE' /MAP='MAP_FILE' /FULL/CROSS -
|
|
'OBJECT_FILE''EXTRA_OBJ', -
|
|
'SSL_LIB'/LIBRARY,-
|
|
'CRYPTO_LIB'/LIBRARY, -
|
|
'RSAREF_LIB'/LIBRARY, -
|
|
'TCPIP_LIB', -
|
|
'OPT_FILE'/OPTION, -
|
|
SYS$DISK:[-]SSL_IDENT.OPT/OPTION
|
|
$!
|
|
$! Else...
|
|
$!
|
|
$ ELSE
|
|
$!
|
|
$! Link With The RSAREF Library And NO TCP/IP Library.
|
|
$!
|
|
$ LINK /'DEBUGGER'/'TRACEBACK' /EXE='EXE_FILE' /MAP='MAP_FILE' /FULL/CROSS -
|
|
'OBJECT_FILE''EXTRA_OBJ', -
|
|
'SSL_LIB'/LIBRARY, -
|
|
'CRYPTO_LIB'/LIBRARY, -
|
|
'RSAREF_LIB'/LIBRARY, -
|
|
'OPT_FILE'/OPTION, -
|
|
SYS$DISK:[-]SSL_IDENT.OPT/OPTION
|
|
$!
|
|
$! End The TCP/IP Library Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Else...
|
|
$!
|
|
$ ELSE
|
|
$!
|
|
$! Don't Link With The RSAREF Routines.
|
|
$!
|
|
$!
|
|
$! Check To See If We Are To Link With A Specific TCP/IP Library.
|
|
$!
|
|
$ IF (TCPIP_LIB.NES."")
|
|
$ THEN
|
|
$!
|
|
$! Don't Link With The RSAREF Routines And TCP/IP Library.
|
|
$!
|
|
$ LINK/'DEBUGGER'/'TRACEBACK' /EXE='EXE_FILE' /MAP='MAP_FILE' /FULL/CROSS -
|
|
'OBJECT_FILE''EXTRA_OBJ', -
|
|
'SSL_LIB'/LIBRARY, -
|
|
'CRYPTO_LIB'/LIBRARY, -
|
|
'TCPIP_LIB', -
|
|
'OPT_FILE'/OPTION, -
|
|
SYS$DISK:[-]SSL_IDENT.OPT/OPTION
|
|
|
|
$!
|
|
$! Else...
|
|
$!
|
|
$ ELSE
|
|
$!
|
|
$! Don't Link With The RSAREF Routines And Link With A TCP/IP Library.
|
|
$!
|
|
$ LINK/'DEBUGGER'/'TRACEBACK' /EXE='EXE_FILE' /MAP='MAP_FILE' /FULL/CROSS -
|
|
'OBJECT_FILE''EXTRA_OBJ', -
|
|
'SSL_LIB'/LIBRARY, -
|
|
'CRYPTO_LIB'/LIBRARY, -
|
|
'OPT_FILE'/OPTION, -
|
|
SYS$DISK:[-]SSL_IDENT.OPT/OPTION
|
|
$!
|
|
$!
|
|
$! End The TCP/IP Library Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! End The RSAREF Link Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Go Back And Do It Again.
|
|
$!
|
|
$ GOTO NEXT_FILE
|
|
$!
|
|
$! All Done With This File.
|
|
$!
|
|
$ FILE_DONE:
|
|
$ EXIT:
|
|
$!
|
|
$! All Done, Time To Clean Up And Exit.
|
|
$!
|
|
$ GOSUB CLEANUP
|
|
$ EXIT
|
|
$!
|
|
$! 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
|
|
$!
|
|
$! Check To See If We Have The Appropiate Libraries.
|
|
$!
|
|
$ LIB_CHECK:
|
|
$!
|
|
$! 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 Crypto Library Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! See If We Need The RSAREF Library.
|
|
$!
|
|
$ IF (RSAREF.EQS."TRUE")
|
|
$ THEN
|
|
$!
|
|
$! Look For The Library LIBRSAGLUE.OLB.
|
|
$!
|
|
$ IF (F$SEARCH(RSAREF_LIB).EQS."")
|
|
$ THEN
|
|
$!
|
|
$! Tell The User We Can't Find The LIBRSAGLUE.OLB Library.
|
|
$!
|
|
$ WRITE SYS$OUTPUT ""
|
|
$ WRITE SYS$OUTPUT "Can't Find The Library ",RSAREF_LIB,"."
|
|
$ WRITE SYS$OUTPUT "We Can't Link Without It."
|
|
$ WRITE SYS$OUTPUT ""
|
|
$!
|
|
$! Since We Can't Link Without It, Exit.
|
|
$!
|
|
$ EXIT
|
|
$ ENDIF
|
|
$!
|
|
$! End The RSAREF Library Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Look For The 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 "Some Of The Test Programs Need To Link To It."
|
|
$ WRITE SYS$OUTPUT ""
|
|
$!
|
|
$! Since We Can't Link Without It, Exit.
|
|
$!
|
|
$ EXIT
|
|
$!
|
|
$! End The SSL Library Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Time To Return.
|
|
$!
|
|
$ RETURN
|
|
$!
|
|
$! Check The User's Options.
|
|
$!
|
|
$ CHECK_OPTIONS:
|
|
$!
|
|
$! Check To See If P1 Is Blank.
|
|
$!
|
|
$ P1 = "NORSAREF"
|
|
$ IF (P1.EQS."NORSAREF")
|
|
$ THEN
|
|
$!
|
|
$! P1 Is NORSAREF, So Compile With The Regular RSA Libraries.
|
|
$!
|
|
$ RSAREF = "FALSE"
|
|
$!
|
|
$! Else...
|
|
$!
|
|
$ ELSE
|
|
$!
|
|
$! Check To See If We Are To Use The RSAREF Library.
|
|
$!
|
|
$ IF (P1.EQS."RSAREF")
|
|
$ THEN
|
|
$!
|
|
$! Check To Make Sure We Have The RSAREF Source Code Directory.
|
|
$!
|
|
$ IF (F$SEARCH("SYS$DISK:[-.RSAREF]SOURCE.DIR").EQS."")
|
|
$ THEN
|
|
$!
|
|
$! We Don't Have The RSAREF Souce Code Directory, So Tell The
|
|
$! User This.
|
|
$!
|
|
$ WRITE SYS$OUTPUT ""
|
|
$ WRITE SYS$OUTPUT "It appears that you don't have the RSAREF Souce Code."
|
|
$ WRITE SYS$OUTPUT "You need to go to 'ftp://ftp.rsa.com/rsaref'. You have to"
|
|
$ WRITE SYS$OUTPUT "get the '.tar-Z' file as the '.zip' file dosen't have the"
|
|
$ WRITE SYS$OUTPUT "directory structure stored. You have to extract the file"
|
|
$ WRITE SYS$OUTPUT "into the [.RSAREF] directory under the root directory"
|
|
$ WRITE SYS$OUTPUT "as that is where the scripts will look for the files."
|
|
$ WRITE SYS$OUTPUT ""
|
|
$!
|
|
$! Time To Exit.
|
|
$!
|
|
$ EXIT
|
|
$!
|
|
$! Else...
|
|
$!
|
|
$ ELSE
|
|
$!
|
|
$! Compile Using The RSAREF Library.
|
|
$!
|
|
$ RSAREF = "TRUE"
|
|
$!
|
|
$! End The RSAREF Soure Directory Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Else...
|
|
$!
|
|
$ ELSE
|
|
$!
|
|
$! They Entered An Invalid Option..
|
|
$!
|
|
$ WRITE SYS$OUTPUT ""
|
|
$ WRITE SYS$OUTPUT "The Option ",P1," Is Invalid. The Valid Options Are:"
|
|
$ WRITE SYS$OUTPUT ""
|
|
$ WRITE SYS$OUTPUT " RSAREF : Compile With The RSAREF Library."
|
|
$ WRITE SYS$OUTPUT " NORSAREF : Compile With The Regular RSA Library."
|
|
$ WRITE SYS$OUTPUT ""
|
|
$!
|
|
$! Time To EXIT.
|
|
$!
|
|
$ EXIT
|
|
$!
|
|
$! End The Valid Arguement Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! End 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
|
|
$!
|
|
$! 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"
|
|
$!
|
|
$! Else...
|
|
$!
|
|
$ 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 = "MONOLITH"
|
|
$ 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"
|
|
$ 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" + -
|
|
"/PREFIX=ALL" + -
|
|
"/INCLUDE=(SYS$DISK:[-])" + CCEXTRAFLAGS
|
|
$!
|
|
$! Define The Linker Options File Name.
|
|
$!
|
|
$ OPT_FILE = "SYS$DISK:[]''arch'_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'" + -
|
|
"/INCLUDE=(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:[]''arch'_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'" + -
|
|
"/INCLUDE=(SYS$DISK:[-])" + CCEXTRAFLAGS
|
|
$!
|
|
$! Define The Linker Options File Name.
|
|
$!
|
|
$ OPT_FILE = "SYS$DISK:[]''arch'_GNUC_OPTIONS.OPT"
|
|
$!
|
|
$! End The GNU C Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Set up default defines
|
|
$!
|
|
$ CCDEFS = """FLAT_INC=1""," + CCDEFS
|
|
$!
|
|
$! Check To See If We Are To Compile With RSAREF Routines.
|
|
$!
|
|
$ IF (RSAREF.EQS."TRUE")
|
|
$ THEN
|
|
$!
|
|
$! Compile With RSAREF.
|
|
$!
|
|
$ CCDEFS = CCDEFS + ",""RSAref=1"""
|
|
$!
|
|
$! Tell The User This.
|
|
$!
|
|
$ WRITE SYS$OUTPUT "Compiling With RSAREF Routines."
|
|
$!
|
|
$! Else, We Don't Care. Compile Without The RSAREF Library.
|
|
$!
|
|
$ ELSE
|
|
$!
|
|
$! Tell The User We Are Compile Without The RSAREF Routines.
|
|
$!
|
|
$ WRITE SYS$OUTPUT "Compiling Without The RSAREF Routines.
|
|
$!
|
|
$! End The RSAREF Check.
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! 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 (post UCX) was chosen
|
|
$!
|
|
$ IF P4.EQS."TCPIP"
|
|
$ THEN
|
|
$!
|
|
$! Set the library to use TCPIP.
|
|
$!
|
|
$ 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 TCPIP.
|
|
$!
|
|
$ TCPIP_LIB = ""
|
|
$!
|
|
$! Done with TCPIP
|
|
$!
|
|
$ ENDIF
|
|
$!
|
|
$! Add TCP/IP type to CC definitions.
|
|
$!
|
|
$ CCDEFS = CCDEFS + ",TCPIP_TYPE_''P4'"
|
|
$!
|
|
$! 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
|
|
$!
|
|
$! Finish up the definition of CC.
|
|
$!
|
|
$ IF COMPILER .EQS. "DECC"
|
|
$ THEN
|
|
$ IF CCDISABLEWARNINGS .NES. ""
|
|
$ THEN
|
|
$ CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
|
|
$ ENDIF
|
|
$ ELSE
|
|
$ CCDISABLEWARNINGS = ""
|
|
$ ENDIF
|
|
$ CC2 = CC + "/DEFINE=(" + CCDEFS + ",_POSIX_C_SOURCE)" + CCDISABLEWARNINGS
|
|
$ CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
|
|
$!
|
|
$! Show user the result
|
|
$!
|
|
$ WRITE SYS$OUTPUT "Main Compiling Command: ",CC
|
|
$!
|
|
$! 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 if the user wanted to compile just a subset of all the programs.
|
|
$!
|
|
$ IF P6 .NES. ""
|
|
$ THEN
|
|
$ PROGRAMS = P6
|
|
$ 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 - "APPS]"
|
|
$ __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
|