| $! | |
| $! MAKEVMS.COM | |
| $! Original Author: UNKNOWN | |
| $! Rewritten By: Robert Byer | |
| $! Vice-President | |
| $! A-Com Computing, Inc. | |
| $! byer@mail.all-net.net | |
| $! | |
| $! Changes by Richard Levitte <richard@levitte.org> | |
| $! | |
| $! This procedure creates the SSL libraries of "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" | |
| $! "[.xxx.EXE.SSL]LIBSSL.OLB" | |
| $! The "xxx" denotes the machine architecture of AXP or VAX. | |
| $! | |
| $! This procedures accepts two command line options listed below. | |
| $! | |
| $! Specify one of the following build options for P1. | |
| $! | |
| $! ALL Just build "everything". | |
| $! CONFIG Just build the "[.CRYPTO]OPENSSLCONF.H" file. | |
| $! BUILDINF Just build the "[.CRYPTO]BUILDINF.H" file. | |
| $! SOFTLINKS Just fix the Unix soft links. | |
| $! BUILDALL Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done. | |
| $! CRYPTO Just build the "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library. | |
| $! CRYPTO/x Just build the x part of the | |
| $! "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library. | |
| $! SSL Just build the "[.xxx.EXE.SSL]LIBSSL.OLB" library. | |
| $! SSL_TASK Just build the "[.xxx.EXE.SSL]SSL_TASK.EXE" program. | |
| $! TEST Just build the "[.xxx.EXE.TEST]" test programs for OpenSSL. | |
| $! APPS Just build the "[.xxx.EXE.APPS]" application programs for OpenSSL. | |
| $! | |
| $! | |
| $! P2 is ignored (it was used to denote if RSAref should be used or not, | |
| $! and is simply kept so surrounding scripts don't get confused) | |
| $! | |
| $! Speficy DEBUG or NODEBUG as P3 to compile with or without debugging | |
| $! information. | |
| $! | |
| $! Specify which compiler at P4 to try to compile under. | |
| $! | |
| $! VAXC For VAX C. | |
| $! DECC For DEC C. | |
| $! GNUC For GNU C. | |
| $! LINK To only link the programs from existing object files. | |
| $! (not yet implemented) | |
| $! | |
| $! If you don't speficy a compiler, it will try to determine which | |
| $! "C" compiler to use. | |
| $! | |
| $! P5, if defined, sets a TCP/IP library to use, through one of the following | |
| $! keywords: | |
| $! | |
| $! UCX for UCX or UCX emulation | |
| $! TCPIP for TCP/IP Services or TCP/IP Services emulation | |
| $! (this is prefered over UCX) | |
| $! SOCKETSHR for SOCKETSHR+NETLIB | |
| $! NONE to avoid specifying which TCP/IP implementation to | |
| $! use at build time (this works with DEC C). This is | |
| $! the default. | |
| $! | |
| $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up) | |
| $! | |
| $! | |
| $! Check if we're in a batch job, and make sure we get to | |
| $! the directory this script is in | |
| $! | |
| $ IF F$MODE() .EQS. "BATCH" | |
| $ THEN | |
| $ COMNAME=F$ENVIRONMENT("PROCEDURE") | |
| $ COMPATH=F$PARSE("A.;",COMNAME) - "A.;" | |
| $ SET DEF 'COMPATH' | |
| $ ENDIF | |
| $! | |
| $! 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 | |
| $! | |
| $! Check To See What We Are To Do. | |
| $! | |
| $ IF (BUILDCOMMAND.EQS."ALL") | |
| $ THEN | |
| $! | |
| $! Start with building the OpenSSL configuration file. | |
| $! | |
| $ GOSUB CONFIG | |
| $! | |
| $! Create The "BUILDINF.H" Include File. | |
| $! | |
| $ GOSUB BUILDINF | |
| $! | |
| $! Fix The Unix Softlinks. | |
| $! | |
| $ GOSUB SOFTLINKS | |
| $! | |
| $ ENDIF | |
| $! | |
| $ IF (BUILDCOMMAND.EQS."ALL".OR.BUILDCOMMAND.EQS."BUILDALL") | |
| $ THEN | |
| $! | |
| $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library. | |
| $! | |
| $ GOSUB CRYPTO | |
| $! | |
| $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library. | |
| $! | |
| $ GOSUB SSL | |
| $! | |
| $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine. | |
| $! | |
| $ GOSUB SSL_TASK | |
| $! | |
| $! Build The [.xxx.EXE.TEST] OpenSSL Test Utilities. | |
| $! | |
| $ GOSUB TEST | |
| $! | |
| $! Build The [.xxx.EXE.APPS] OpenSSL Application Utilities. | |
| $! | |
| $ GOSUB APPS | |
| $! | |
| $! Else... | |
| $! | |
| $ ELSE | |
| $! | |
| $! Build Just What The User Wants Us To Build. | |
| $! | |
| $ GOSUB 'BUILDCOMMAND' | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Time To EXIT. | |
| $! | |
| $ EXIT | |
| $! | |
| $! Rebuild The "[.CRYPTO]OPENSSLCONF.H" file. | |
| $! | |
| $ CONFIG: | |
| $! | |
| $! Tell The User We Are Creating The [.CRYPTO]OPENSSLCONF.H File. | |
| $! | |
| $ WRITE SYS$OUTPUT "Creating [.CRYPTO]OPENSSLCONF.H Include File." | |
| $! | |
| $! Create The [.CRYPTO]OPENSSLCONF.H File. | |
| $! | |
| $ OPEN/WRITE H_FILE SYS$DISK:[.CRYPTO]OPENSSLCONF.H | |
| $! | |
| $! Write The [.CRYPTO]OPENSSLCONF.H File. | |
| $! | |
| $ WRITE H_FILE "/* This file was automatically built using makevms.com */" | |
| $ WRITE H_FILE "/* and [.CRYPTO]OPENSSLCONF.H_IN */" | |
| $ | |
| $! | |
| $! Write a few macros that indicate how this system was built. | |
| $! | |
| $ WRITE H_FILE "" | |
| $ WRITE H_FILE "#ifndef OPENSSL_SYS_VMS" | |
| $ WRITE H_FILE "# define OPENSSL_SYS_VMS" | |
| $ WRITE H_FILE "#endif" | |
| $ CONFIG_LOGICALS := NO_ASM,NO_RSA,NO_DSA,NO_DH,NO_MD2,NO_MD5,NO_RIPEMD,- | |
| NO_SHA,NO_SHA0,NO_SHA1,NO_DES/NO_MDC2;NO_MDC2,NO_RC2,NO_RC4,NO_RC5,- | |
| NO_IDEA,NO_BF,NO_CAST,NO_HMAC,NO_SSL2,FIPS | |
| $ CONFIG_LOG_I = 0 | |
| $ CONFIG_LOG_LOOP: | |
| $ CONFIG_LOG_E1 = F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS) | |
| $ CONFIG_LOG_I = CONFIG_LOG_I + 1 | |
| $ IF CONFIG_LOG_E1 .EQS. "" THEN GOTO CONFIG_LOG_LOOP | |
| $ IF CONFIG_LOG_E1 .EQS. "," THEN GOTO CONFIG_LOG_LOOP_END | |
| $ CONFIG_LOG_E2 = F$EDIT(CONFIG_LOG_E1,"TRIM") | |
| $ CONFIG_LOG_E1 = F$ELEMENT(0,";",CONFIG_LOG_E2) | |
| $ CONFIG_LOG_E2 = F$ELEMENT(1,";",CONFIG_LOG_E2) | |
| $ CONFIG_LOG_E0 = F$ELEMENT(0,"/",CONFIG_LOG_E1) | |
| $ CONFIG_LOG_E1 = F$ELEMENT(1,"/",CONFIG_LOG_E1) | |
| $ IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E0) | |
| $ THEN | |
| $ WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E0 | |
| $ WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E0 | |
| $ WRITE H_FILE "#endif" | |
| $ IF CONFIG_LOG_E1 .NES. "/" | |
| $ THEN | |
| $ WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E1 | |
| $ WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E1 | |
| $ WRITE H_FILE "#endif" | |
| $ ENDIF | |
| $ ELSE | |
| $ IF CONFIG_LOG_E2 .NES. ";" | |
| $ THEN | |
| $ IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E2) | |
| $ THEN | |
| $ WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E2 | |
| $ WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E2 | |
| $ WRITE H_FILE "#endif" | |
| $ ENDIF | |
| $ ENDIF | |
| $ ENDIF | |
| $ GOTO CONFIG_LOG_LOOP | |
| $ CONFIG_LOG_LOOP_END: | |
| $ WRITE H_FILE "#ifndef OPENSSL_THREADS" | |
| $ WRITE H_FILE "# define OPENSSL_THREADS" | |
| $ WRITE H_FILE "#endif" | |
| $ WRITE H_FILE "#ifndef OPENSSL_NO_KRB5" | |
| $ WRITE H_FILE "# define OPENSSL_NO_KRB5" | |
| $ WRITE H_FILE "#endif" | |
| $ WRITE H_FILE "" | |
| $! | |
| $! Different tar version may have named the file differently | |
| $ IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H_IN") .NES. "" | |
| $ THEN | |
| $ TYPE [.CRYPTO]OPENSSLCONF.H_IN /OUTPUT=H_FILE: | |
| $ ELSE | |
| $ IF F$SEARCH("[.CRYPTO]OPENSSLCONF_H.IN") .NES. "" | |
| $ THEN | |
| $ TYPE [.CRYPTO]OPENSSLCONF_H.IN /OUTPUT=H_FILE: | |
| $ ELSE | |
| $ ! For ODS-5 | |
| $ IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H.IN") .NES. "" | |
| $ THEN | |
| $ TYPE [.CRYPTO]OPENSSLCONF.H.IN /OUTPUT=H_FILE: | |
| $ ELSE | |
| $ WRITE SYS$ERROR "Couldn't find a [.CRYPTO]OPENSSLCONF.H_IN. Exiting!" | |
| $ EXIT 0 | |
| $ ENDIF | |
| $ ENDIF | |
| $ ENDIF | |
| $ IF ARCH .EQS. "AXP" | |
| $ THEN | |
| $! | |
| $! Write the Alpha specific data | |
| $! | |
| $ WRITE H_FILE "#if defined(HEADER_RC4_H)" | |
| $ WRITE H_FILE "#undef RC4_INT" | |
| $ WRITE H_FILE "#define RC4_INT unsigned int" | |
| $ WRITE H_FILE "#undef RC4_CHUNK" | |
| $ WRITE H_FILE "#define RC4_CHUNK unsigned long long" | |
| $ WRITE H_FILE "#endif" | |
| $! | |
| $ WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)" | |
| $ WRITE H_FILE "#undef DES_LONG" | |
| $ WRITE H_FILE "#define DES_LONG unsigned int" | |
| $ WRITE H_FILE "#undef DES_PTR" | |
| $ WRITE H_FILE "#define DES_PTR" | |
| $ WRITE H_FILE "#undef DES_RISC1" | |
| $ WRITE H_FILE "#undef DES_RISC2" | |
| $ WRITE H_FILE "#define DES_RISC1" | |
| $ WRITE H_FILE "#undef DES_UNROLL" | |
| $ WRITE H_FILE "#define DES_UNROLL" | |
| $ WRITE H_FILE "#endif" | |
| $! | |
| $ WRITE H_FILE "#if defined(HEADER_BN_H)" | |
| $ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG" | |
| $ WRITE H_FILE "#undef SIXTY_FOUR_BIT" | |
| $ WRITE H_FILE "#define SIXTY_FOUR_BIT" | |
| $ WRITE H_FILE "#undef THIRTY_TWO_BIT" | |
| $ WRITE H_FILE "#undef SIXTEEN_BIT" | |
| $ WRITE H_FILE "#undef EIGHT_BIT" | |
| $ WRITE H_FILE "#endif" | |
| $ | |
| $ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION" | |
| $! | |
| $! Else... | |
| $! | |
| $ ELSE | |
| $! | |
| $! Write the VAX specific data | |
| $! | |
| $ WRITE H_FILE "#if defined(HEADER_RC4_H)" | |
| $ WRITE H_FILE "#undef RC4_INT" | |
| $ WRITE H_FILE "#define RC4_INT unsigned char" | |
| $ WRITE H_FILE "#undef RC4_CHUNK" | |
| $ WRITE H_FILE "#define RC4_CHUNK unsigned long" | |
| $ WRITE H_FILE "#endif" | |
| $! | |
| $ WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)" | |
| $ WRITE H_FILE "#undef DES_LONG" | |
| $ WRITE H_FILE "#define DES_LONG unsigned long" | |
| $ WRITE H_FILE "#undef DES_PTR" | |
| $ WRITE H_FILE "#define DES_PTR" | |
| $ WRITE H_FILE "#undef DES_RISC1" | |
| $ WRITE H_FILE "#undef DES_RISC2" | |
| $ WRITE H_FILE "#undef DES_UNROLL" | |
| $ WRITE H_FILE "#endif" | |
| $! | |
| $ WRITE H_FILE "#if defined(HEADER_BN_H)" | |
| $ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG" | |
| $ WRITE H_FILE "#undef SIXTY_FOUR_BIT" | |
| $ WRITE H_FILE "#undef THIRTY_TWO_BIT" | |
| $ WRITE H_FILE "#define THIRTY_TWO_BIT" | |
| $ WRITE H_FILE "#undef SIXTEEN_BIT" | |
| $ WRITE H_FILE "#undef EIGHT_BIT" | |
| $ WRITE H_FILE "#endif" | |
| $ | |
| $ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION" | |
| $ WRITE H_FILE "#define OPENSSL_EXPORT_VAR_AS_FUNCTION" | |
| $! | |
| $! End | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Close the [.CRYPTO]OPENSSLCONF.H file | |
| $! | |
| $ CLOSE H_FILE | |
| $! | |
| $! That's All, Time To RETURN. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Rebuild The "[.CRYPTO]BUILDINF.H" file. | |
| $! | |
| $ BUILDINF: | |
| $! | |
| $! Tell The User We Are Creating The [.CRYPTO]BUILDINF.H File. | |
| $! | |
| $ WRITE SYS$OUTPUT "Creating [.CRYPTO]BUILDINF.H Include File." | |
| $! | |
| $! Create The [.CRYPTO]BUILDINF.H File. | |
| $! | |
| $ OPEN/WRITE H_FILE SYS$DISK:[.CRYPTO]BUILDINF.H | |
| $! | |
| $! Get The Current Date & Time. | |
| $! | |
| $ TIME = F$TIME() | |
| $! | |
| $! Write The [.CRYPTO]BUILDINF.H File. | |
| $! | |
| $ WRITE H_FILE "#define CFLAGS """" /* Not filled in for now */" | |
| $ WRITE H_FILE "#define PLATFORM ""VMS""" | |
| $ WRITE H_FILE "#define DATE ""''TIME'"" " | |
| $! | |
| $! Close The [.CRYPTO]BUILDINF.H File. | |
| $! | |
| $ CLOSE H_FILE | |
| $! | |
| $! That's All, Time To RETURN. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Copy a lot of files around. | |
| $! | |
| $ SOFTLINKS: | |
| $! | |
| $! Tell The User We Are Partly Rebuilding The [.APPS] Directory. | |
| $! | |
| $ WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD4.C', '[.APPS]MD5.C' And '[.APPS]RMD160.C' Files." | |
| $! | |
| $ DELETE SYS$DISK:[.APPS]MD4.C;*,MD5.C;*,RMD160.C;* | |
| $! | |
| $! Copy MD4.C from [.CRYPTO.MD4] into [.APPS] | |
| $! | |
| $ COPY SYS$DISK:[.CRYPTO.MD4]MD4.C SYS$DISK:[.APPS] | |
| $! | |
| $! Copy MD5.C from [.CRYPTO.MD5] into [.APPS] | |
| $! | |
| $ COPY SYS$DISK:[.CRYPTO.MD5]MD5.C SYS$DISK:[.APPS] | |
| $! | |
| $! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS] | |
| $! | |
| $ COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS] | |
| $! | |
| $! Tell The User We Are Partly Rebuilding The [.TEST] Directory. | |
| $! | |
| $ WRITE SYS$OUTPUT "Rebuilding The '[.TEST]*.C' Files." | |
| $! | |
| $! First, We Have To "Rebuild" The "[.TEST]" Directory, So Delete | |
| $! All The "C" Files That Are Currently There Now. | |
| $! | |
| $ DELETE SYS$DISK:[.TEST]*.C;* | |
| $ DELETE SYS$DISK:[.TEST]EVPTESTS.TXT;* | |
| $! | |
| $! Copy all the *TEST.C files from [.CRYPTO...] into [.TEST] | |
| $! | |
| $ COPY SYS$DISK:[.CRYPTO.*]%*TEST.C SYS$DISK:[.TEST] | |
| $ COPY SYS$DISK:[.CRYPTO.EVP]EVPTESTS.TXT SYS$DISK:[.TEST] | |
| $! | |
| $! Copy all the *TEST.C files from [.SSL...] into [.TEST] | |
| $! | |
| $ COPY SYS$DISK:[.SSL]%*TEST.C SYS$DISK:[.TEST] | |
| $! | |
| $! Tell The User We Are Rebuilding The [.INCLUDE.OPENSSL] Directory. | |
| $! | |
| $ WRITE SYS$OUTPUT "Rebuilding The '[.INCLUDE.OPENSSL]' Directory." | |
| $! | |
| $! First, make sure the directory exists | |
| $! | |
| $ IF F$PARSE("SYS$DISK:[.INCLUDE.OPENSSL]") .EQS. "" THEN - | |
| CREATE/DIRECTORY SYS$DISK:[.INCLUDE.OPENSSL] | |
| $! | |
| $! Copy All The ".H" Files From The Main Directory. | |
| $! | |
| $ EXHEADER := e_os2.h | |
| $ COPY 'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL] | |
| $! | |
| $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree. | |
| $! | |
| $ SDIRS := ,MD2,MD4,MD5,SHA,MDC2,HMAC,RIPEMD,- | |
| DES,RC2,RC4,RC5,IDEA,BF,CAST,- | |
| BN,EC,RSA,DSA,DH,DSO,ENGINE,AES,- | |
| BUFFER,BIO,STACK,LHASH,RAND,ERR,OBJECTS,- | |
| EVP,ASN1,PEM,X509,X509V3,CONF,TXT_DB,PKCS7,PKCS12,COMP,OCSP,UI,KRB5 | |
| $ EXHEADER_ := crypto.h,tmdiff.h,opensslv.h,opensslconf.h,ebcdic.h,symhacks.h,- | |
| ossl_typ.h | |
| $ EXHEADER_MD2 := md2.h | |
| $ EXHEADER_MD4 := md4.h | |
| $ EXHEADER_MD5 := md5.h | |
| $ EXHEADER_SHA := sha.h | |
| $ EXHEADER_MDC2 := mdc2.h | |
| $ EXHEADER_HMAC := hmac.h | |
| $ EXHEADER_RIPEMD := ripemd.h | |
| $ EXHEADER_DES := des.h,des_old.h | |
| $ EXHEADER_RC2 := rc2.h | |
| $ EXHEADER_RC4 := rc4.h | |
| $ EXHEADER_RC5 := rc5.h | |
| $ EXHEADER_IDEA := idea.h | |
| $ EXHEADER_BF := blowfish.h | |
| $ EXHEADER_CAST := cast.h | |
| $ EXHEADER_BN := bn.h | |
| $ EXHEADER_EC := ec.h | |
| $ EXHEADER_RSA := rsa.h | |
| $ EXHEADER_DSA := dsa.h | |
| $ EXHEADER_DH := dh.h | |
| $ EXHEADER_DSO := dso.h | |
| $ EXHEADER_ENGINE := engine.h | |
| $ EXHEADER_AES := aes.h | |
| $ EXHEADER_BUFFER := buffer.h | |
| $ EXHEADER_BIO := bio.h | |
| $ EXHEADER_STACK := stack.h,safestack.h | |
| $ EXHEADER_LHASH := lhash.h | |
| $ EXHEADER_RAND := rand.h | |
| $ EXHEADER_ERR := err.h | |
| $ EXHEADER_OBJECTS := objects.h,obj_mac.h | |
| $ EXHEADER_EVP := evp.h | |
| $ EXHEADER_ASN1 := asn1.h,asn1_mac.h,asn1t.h | |
| $ EXHEADER_PEM := pem.h,pem2.h | |
| $ EXHEADER_X509 := x509.h,x509_vfy.h | |
| $ EXHEADER_X509V3 := x509v3.h | |
| $ EXHEADER_CONF := conf.h,conf_api.h | |
| $ EXHEADER_TXT_DB := txt_db.h | |
| $ EXHEADER_PKCS7 := pkcs7.h | |
| $ EXHEADER_PKCS12 := pkcs12.h | |
| $ EXHEADER_COMP := comp.h | |
| $ EXHEADER_OCSP := ocsp.h | |
| $ EXHEADER_UI := ui.h,ui_compat.h | |
| $ EXHEADER_KRB5 := krb5_asn.h | |
| $ | |
| $ I = 0 | |
| $ LOOP_SDIRS: | |
| $ D = F$EDIT(F$ELEMENT(I, ",", SDIRS),"TRIM") | |
| $ I = I + 1 | |
| $ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END | |
| $ tmp = EXHEADER_'D' | |
| $ IF D .EQS. "" | |
| $ THEN | |
| $ COPY [.CRYPTO]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG | |
| $ ELSE | |
| $ COPY [.CRYPTO.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG | |
| $ ENDIF | |
| $ GOTO LOOP_SDIRS | |
| $ LOOP_SDIRS_END: | |
| $! | |
| $! Copy All The ".H" Files From The [.SSL] Directory. | |
| $! | |
| $ EXHEADER := ssl.h,ssl2.h,ssl3.h,ssl23.h,tls1.h,kssl.h | |
| $ COPY SYS$DISK:[.SSL]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL] | |
| $! | |
| $! Copy All The ".H" Files From The [.FIPS-1_0] Directories. | |
| $! | |
| $ FDIRS := ,SHA,RAND,DES,AES,DSA,RSA,DH,HMAC | |
| $ EXHEADER_ := fips.h | |
| $ EXHEADER_SHA := fips_sha.h | |
| $ EXHEADER_RAND := fips_rand.h | |
| $ EXHEADER_DES := | |
| $ EXHEADER_AES := | |
| $ EXHEADER_DSA := | |
| $ EXHEADER_RSA := | |
| $ EXHEADER_DH := | |
| $ EXHEADER_HMAC := | |
| $ | |
| $ I = 0 | |
| $ LOOP_FDIRS: | |
| $ D = F$EDIT(F$ELEMENT(I, ",", FDIRS),"TRIM") | |
| $ I = I + 1 | |
| $ IF D .EQS. "," THEN GOTO LOOP_FDIRS_END | |
| $ tmp = EXHEADER_'D' | |
| $ IF tmp .EQS. "" THEN GOTO LOOP_FDIRS | |
| $ IF D .EQS. "" | |
| $ THEN | |
| $ COPY [.FIPS-1_0]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG | |
| $ ELSE | |
| $ COPY [.FIPS-1_0.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG | |
| $ ENDIF | |
| $ GOTO LOOP_FDIRS | |
| $ LOOP_FDIRS_END: | |
| $! | |
| $! Purge all doubles | |
| $! | |
| $ PURGE SYS$DISK:[.INCLUDE.OPENSSL]*.H | |
| $! | |
| $! That's All, Time To RETURN. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Build The "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" Library. | |
| $! | |
| $ CRYPTO: | |
| $! | |
| $! Tell The User What We Are Doing. | |
| $! | |
| $ WRITE SYS$OUTPUT "" | |
| $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.CRYPTO]LIBCRYPTO.OLB Library." | |
| $! | |
| $! Go To The [.CRYPTO] Directory. | |
| $! | |
| $ SET DEFAULT SYS$DISK:[.CRYPTO] | |
| $! | |
| $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library. | |
| $! | |
| $ @CRYPTO-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'" | |
| $! | |
| $! Go Back To The Main Directory. | |
| $! | |
| $ SET DEFAULT [-] | |
| $! | |
| $! Go To The [.FIPS-1_0] Directory. | |
| $! | |
| $ SET DEFAULT SYS$DISK:[.FIPS-1_0] | |
| $! | |
| $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library. | |
| $! | |
| $ @FIPS-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'" | |
| $! | |
| $! Build The [.xxx.EXE.CRYPTO]*.EXE Test Applications. | |
| $! | |
| $ @FIPS-LIB APPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' | |
| $! | |
| $! Go Back To The Main Directory. | |
| $! | |
| $ SET DEFAULT [-] | |
| $! | |
| $! Time To RETURN. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Build The "[.xxx.EXE.SSL]LIBSSL.OLB" Library. | |
| $! | |
| $ SSL: | |
| $! | |
| $! Tell The User What We Are Doing. | |
| $! | |
| $ WRITE SYS$OUTPUT "" | |
| $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.SSL]LIBSSL.OLB Library." | |
| $! | |
| $! Go To The [.SSL] Directory. | |
| $! | |
| $ SET DEFAULT SYS$DISK:[.SSL] | |
| $! | |
| $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library. | |
| $! | |
| $ @SSL-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' | |
| $! | |
| $! Go Back To The Main Directory. | |
| $! | |
| $ SET DEFAULT [-] | |
| $! | |
| $! Time To Return. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program. | |
| $! | |
| $ SSL_TASK: | |
| $! | |
| $! Tell The User What We Are Doing. | |
| $! | |
| $ WRITE SYS$OUTPUT "" | |
| $ WRITE SYS$OUTPUT "Building DECNet Based SSL Engine, [.",ARCH,".EXE.SSL]SSL_TASK.EXE" | |
| $! | |
| $! Go To The [.SSL] Directory. | |
| $! | |
| $ SET DEFAULT SYS$DISK:[.SSL] | |
| $! | |
| $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE | |
| $! | |
| $ @SSL-LIB SSL_TASK 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' | |
| $! | |
| $! Go Back To The Main Directory. | |
| $! | |
| $ SET DEFAULT [-] | |
| $! | |
| $! That's All, Time To RETURN. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Build The OpenSSL Test Programs. | |
| $! | |
| $ TEST: | |
| $! | |
| $! Tell The User What We Are Doing. | |
| $! | |
| $ WRITE SYS$OUTPUT "" | |
| $ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCH,".EXE.TEST] Test Utilities." | |
| $! | |
| $! Go To The [.TEST] Directory. | |
| $! | |
| $ SET DEFAULT SYS$DISK:[.TEST] | |
| $! | |
| $! Build The Test Programs. | |
| $! | |
| $ @MAKETESTS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' | |
| $! | |
| $! Go Back To The Main Directory. | |
| $! | |
| $ SET DEFAULT [-] | |
| $! | |
| $! That's All, Time To RETURN. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Build The OpenSSL Application Programs. | |
| $! | |
| $ APPS: | |
| $! | |
| $! Tell The User What We Are Doing. | |
| $! | |
| $ WRITE SYS$OUTPUT "" | |
| $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.APPS] Applications." | |
| $! | |
| $! Go To The [.APPS] Directory. | |
| $! | |
| $ SET DEFAULT SYS$DISK:[.APPS] | |
| $! | |
| $! Build The Application Programs. | |
| $! | |
| $ @MAKEAPPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' | |
| $! | |
| $! Go Back To The Main Directory. | |
| $! | |
| $ SET DEFAULT [-] | |
| $! | |
| $! That's All, Time To RETURN. | |
| $! | |
| $ RETURN | |
| $! | |
| $! Check The User's Options. | |
| $! | |
| $ CHECK_OPTIONS: | |
| $! | |
| $! Check if there's a "part", and separate it out | |
| $! | |
| $ BUILDPART = F$ELEMENT(1,"/",P1) | |
| $ IF BUILDPART .EQS. "/" | |
| $ THEN | |
| $ BUILDPART = "" | |
| $ ELSE | |
| $ P1 = F$EXTRACT(0,F$LENGTH(P1) - F$LENGTH(BUILDPART) - 1, P1) | |
| $ ENDIF | |
| $! | |
| $! Check To See If P1 Is Blank. | |
| $! | |
| $ IF (P1.EQS."ALL") | |
| $ THEN | |
| $! | |
| $! P1 Is ALL, So Build Everything. | |
| $! | |
| $ BUILDCOMMAND = "ALL" | |
| $! | |
| $! Else... | |
| $! | |
| $ ELSE | |
| $! | |
| $! Else, Check To See If P1 Has A Valid Arguement. | |
| $! | |
| $ IF (P1.EQS."CONFIG").OR.(P1.EQS."BUILDINF").OR.(P1.EQS."SOFTLINKS") - | |
| .OR.(P1.EQS."BUILDALL") - | |
| .OR.(P1.EQS."CRYPTO").OR.(P1.EQS."SSL") - | |
| .OR.(P1.EQS."SSL_TASK").OR.(P1.EQS."TEST").OR.(P1.EQS."APPS") | |
| $ THEN | |
| $! | |
| $! A Valid Arguement. | |
| $! | |
| $ BUILDCOMMAND = 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 " CONFIG : Just build the [.CRYPTO]OPENSSLCONF.H file." | |
| $ WRITE SYS$OUTPUT " BUILDINF : Just build the [.CRYPTO]BUILDINF.H file." | |
| $ WRITE SYS$OUTPUT " SOFTLINKS: Just Fix The Unix soft links." | |
| $ WRITE SYS$OUTPUT " BUILDALL : Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done." | |
| $ WRITE SYS$OUTPUT " CRYPTO : To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library." | |
| $ WRITE SYS$OUTPUT " CRYPTO/x : To Build Just The x Part Of The" | |
| $ WRITE SYS$OUTPUT " [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library." | |
| $ WRITE SYS$OUTPUT " SSL : To Build Just The [.xxx.EXE.SSL]LIBSSL.OLB Library." | |
| $ WRITE SYS$OUTPUT " SSL_TASK : To Build Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program." | |
| $ WRITE SYS$OUTPUT " TEST : To Build Just The OpenSSL Test Programs." | |
| $ WRITE SYS$OUTPUT " APPS : To Build Just The OpenSSL Application Programs." | |
| $ 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 Argument Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! End The P1 Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check To See If P3 Is Blank. | |
| $! | |
| $ IF (P3.EQS."NODEBUG") | |
| $ THEN | |
| $! | |
| $! P3 Is NODEBUG, So Compile Without Debugger Information. | |
| $! | |
| $ DEBUGGER = "NODEBUG" | |
| $! | |
| $! Else... | |
| $! | |
| $ ELSE | |
| $! | |
| $! Check To See If We Are To Compile With Debugger Information. | |
| $! | |
| $ IF (P3.EQS."DEBUG") | |
| $ THEN | |
| $! | |
| $! Compile With Debugger Information. | |
| $! | |
| $ DEBUGGER = "DEBUG" | |
| $! | |
| $! Else... | |
| $! | |
| $ ELSE | |
| $! | |
| $! Tell The User Entered An Invalid Option.. | |
| $! | |
| $ WRITE SYS$OUTPUT "" | |
| $ WRITE SYS$OUTPUT "The Option ",P3," 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 P3 Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check To See If P4 Is Blank. | |
| $! | |
| $ IF (P4.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. | |
| $! | |
| $ COMPILER = "GNUC" | |
| $! | |
| $! Tell The User We Are Using GNUC. | |
| $! | |
| $ WRITE SYS$OUTPUT "Using GNU 'C' Compiler." | |
| $! | |
| $! End The GNU C Compiler Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check To See If We Have VAXC Or DECC. | |
| $! | |
| $ IF (F$GETSYI("CPU").GE.128).OR.(F$TRNLNM("DECC$CC_DEFAULT").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." | |
| $! | |
| $! Else... | |
| $! | |
| $ ELSE | |
| $! | |
| $! Looks Like VAXC, Set To Use VAXC. | |
| $! | |
| $ COMPILER = "VAXC" | |
| $! | |
| $! Tell The User We Are Using VAX C. | |
| $! | |
| $ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler." | |
| $! | |
| $! End The DECC & VAXC Compiler Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Else... | |
| $! | |
| $ ELSE | |
| $! | |
| $! Check To See If The User Entered A Valid Paramter. | |
| $! | |
| $ IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")!.OR.(P4.EQS."LINK") | |
| $ THEN | |
| $! | |
| $! Check To See If The User Wanted To Just LINK. | |
| $! | |
| $ IF (P4.EQS."LINK") | |
| $ THEN | |
| $! | |
| $! Looks Like LINK-only | |
| $! | |
| $ COMPILER = "LINK" | |
| $! | |
| $! Tell The User We Are Only Linking. | |
| $! | |
| $ WRITE SYS$OUTPUT "LINK Only. This actually NOT YET SUPPORTED!" | |
| $! | |
| $! End LINK Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check To See If The User Wanted DECC. | |
| $! | |
| $ IF (P4.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." | |
| $! | |
| $! End DECC Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check To See If We Are To Use VAXC. | |
| $! | |
| $ IF (P4.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." | |
| $! | |
| $! End VAXC Check | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check To See If We Are To Use GNU C. | |
| $! | |
| $ IF (P4.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." | |
| $! | |
| $! End The GNU C 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 ",P4," 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 | |
| $! | |
| $! End The Valid Arguement Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! End The P4 Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Time to check the contents of P5, and to make sure we get the correct library. | |
| $! | |
| $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" - | |
| .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE" | |
| $ THEN | |
| $! | |
| $! Check to see if SOCKETSHR was chosen | |
| $! | |
| $ IF P5.EQS."SOCKETSHR" | |
| $ THEN | |
| $! | |
| $! Set the library to use SOCKETSHR | |
| $! | |
| $ TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT" | |
| $! | |
| $! Tell the user | |
| $! | |
| $ WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP" | |
| $! | |
| $! Done with SOCKETSHR | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check to see if MULTINET was chosen | |
| $! | |
| $ IF P5.EQS."MULTINET" | |
| $ THEN | |
| $! | |
| $! Set the library to use UCX emulation. | |
| $! | |
| $ P5 = "UCX" | |
| $! | |
| $! Tell the user | |
| $! | |
| $ WRITE SYS$OUTPUT "Using MultiNet via UCX emulation for TCP/IP" | |
| $! | |
| $! Done with MULTINET | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check to see if UCX was chosen | |
| $! | |
| $ IF P5.EQS."UCX" | |
| $ THEN | |
| $! | |
| $! Set the library to use UCX. | |
| $! | |
| $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT" | |
| $! | |
| $! Tell the user | |
| $! | |
| $ WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP" | |
| $! | |
| $! Done with UCX | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check to see if TCPIP was chosen | |
| $! | |
| $ IF P5.EQS."TCPIP" | |
| $ THEN | |
| $! | |
| $! Set the library to use TCPIP (post UCX). | |
| $! | |
| $ TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT" | |
| $! | |
| $! Tell the user | |
| $! | |
| $ WRITE SYS$OUTPUT "Using TCPIP (post UCX) for TCP/IP" | |
| $! | |
| $! Done with TCPIP | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Check to see if NONE was chosen | |
| $! | |
| $ IF P5.EQS."NONE" | |
| $ THEN | |
| $! | |
| $! Do not use a TCPIP library. | |
| $! | |
| $ TCPIP_LIB = "" | |
| $! | |
| $! Tell the user | |
| $! | |
| $ WRITE SYS$OUTPUT "A specific TCPIP library will not be used." | |
| $! | |
| $! Done with NONE. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Set the TCPIP_TYPE symbol | |
| $! | |
| $ TCPIP_TYPE = P5 | |
| $! | |
| $! Print info | |
| $! | |
| $ WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB | |
| $! | |
| $! Else The User Entered An Invalid Arguement. | |
| $! | |
| $ ELSE | |
| $ IF P5 .NES. "" | |
| $ THEN | |
| $! | |
| $! Tell The User We Don't Know What They Want. | |
| $! | |
| $ WRITE SYS$OUTPUT "" | |
| $ WRITE SYS$OUTPUT "The Option ",P5," 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 TCP/IP (post UCX) library." | |
| $ WRITE SYS$OUTPUT " NONE : To not link with a specific TCP/IP library." | |
| $ WRITE SYS$OUTPUT "" | |
| $! | |
| $! Time To EXIT. | |
| $! | |
| $ EXIT | |
| $ ELSE | |
| $! | |
| $! If TCPIP is not defined, then hardcode it to make | |
| $! it clear that no TCPIP is desired. | |
| $! | |
| $ IF P5 .EQS. "" | |
| $ THEN | |
| $ TCPIP_LIB = "" | |
| $ TCPIP_TYPE = "NONE" | |
| $ ELSE | |
| $! | |
| $! Set the TCPIP_TYPE symbol | |
| $! | |
| $ TCPIP_TYPE = P5 | |
| $ ENDIF | |
| $ ENDIF | |
| $! | |
| $! Done with TCP/IP libraries | |
| $! | |
| $ 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 P6. | |
| $! | |
| $ IF (P6.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 P6 Check. | |
| $! | |
| $ ENDIF | |
| $! | |
| $! Time To RETURN... | |
| $! | |
| $ RETURN |