|  | $! | 
|  | $! 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> | 
|  | $!	      Zoltan Arpadffy <zoli@polarhome.com> | 
|  | $! | 
|  | $! This procedure creates the SSL libraries of "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" | 
|  | $! "[.xxx.EXE.SSL]LIBSSL.OLB" | 
|  | $! The "xxx" denotes the machine architecture of ALPHA, IA64 or VAX. | 
|  | $! | 
|  | $! This procedures accepts two command line options listed below. | 
|  | $! | 
|  | $! P1 specifies one of the following build options: | 
|  | $! | 
|  | $!      ALL       Just build "everything". | 
|  | $!      CONFIG    Just build the "[.CRYPTO._xxx]OPENSSLCONF.H" file. | 
|  | $!      BUILDINF  Just build the "[.CRYPTO._xxx]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. | 
|  | $!      TEST      Just build the "[.xxx.EXE.TEST]" test programs for OpenSSL. | 
|  | $!      APPS      Just build the "[.xxx.EXE.APPS]" application programs for OpenSSL. | 
|  | $!      ENGINES   Just build the "[.xxx.EXE.ENGINES]" application programs for OpenSSL. | 
|  | $! | 
|  | $! P2, if defined, specifies the C pointer size.  Ignored on VAX. | 
|  | $!      ("64=ARGV" gives more efficient code with HP C V7.3 or newer.) | 
|  | $!      Supported values are: | 
|  | $! | 
|  | $!      ""       Compile with default (/NOPOINTER_SIZE). | 
|  | $!      32       Compile with /POINTER_SIZE=32 (SHORT). | 
|  | $!      64       Compile with /POINTER_SIZE=64[=ARGV] (LONG[=ARGV]). | 
|  | $!               (Automatically select ARGV if compiler supports it.) | 
|  | $!      64=      Compile with /POINTER_SIZE=64 (LONG). | 
|  | $!      64=ARGV  Compile with /POINTER_SIZE=64=ARGV (LONG=ARGV). | 
|  | $! | 
|  | $! P3 specifies DEBUG or NODEBUG, to compile with or without debugging | 
|  | $!    information. | 
|  | $! | 
|  | $! P4 specifies which compiler 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 specify 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). | 
|  | $! | 
|  | $! P7, if defined, specifies a directory where ZLIB files (zlib.h, | 
|  | $! libz.olb) may be found.  Optionally, a non-default object library | 
|  | $! name may be included ("dev:[dir]libz_64.olb", for example). | 
|  | $! | 
|  | $! | 
|  | $! Announce/identify. | 
|  | $! | 
|  | $ proc = f$environment( "procedure") | 
|  | $ write sys$output "@@@ "+ - | 
|  | f$parse( proc, , , "name")+ f$parse( proc, , , "type") | 
|  | $! | 
|  | $ DEF_ORIG = F$ENVIRONMENT( "DEFAULT") | 
|  | $ ON ERROR THEN GOTO TIDY | 
|  | $ ON CONTROL_C THEN GOTO TIDY | 
|  | $! | 
|  | $! 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 What Architecture We Are Using. | 
|  | $! | 
|  | $ IF (F$GETSYI("CPU").LT.128) | 
|  | $ THEN | 
|  | $! | 
|  | $!  The Architecture Is VAX. | 
|  | $! | 
|  | $   ARCH = "VAX" | 
|  | $! | 
|  | $! Else... | 
|  | $! | 
|  | $ ELSE | 
|  | $! | 
|  | $!  The Architecture Is Alpha, IA64 or whatever comes in the future. | 
|  | $! | 
|  | $   ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE") | 
|  | $   IF (ARCH .EQS. "") THEN ARCH = "UNK" | 
|  | $! | 
|  | $! End The Architecture Check. | 
|  | $! | 
|  | $ ENDIF | 
|  | $! | 
|  | $ ARCHD = ARCH | 
|  | $ LIB32 = "32" | 
|  | $ POINTER_SIZE = "" | 
|  | $! | 
|  | $! Get VMS version. | 
|  | $! | 
|  | $ VMS_VERSION = f$edit( f$getsyi( "VERSION"), "TRIM") | 
|  | $! | 
|  | $! 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.TEST] OpenSSL Test Utilities. | 
|  | $! | 
|  | $   GOSUB TEST | 
|  | $! | 
|  | $!  Build The [.xxx.EXE.APPS] OpenSSL Application Utilities. | 
|  | $! | 
|  | $   GOSUB APPS | 
|  | $! | 
|  | $!  Build The [.xxx.EXE.ENGINES] OpenSSL Shareable Engines. | 
|  | $! | 
|  | $   GOSUB ENGINES | 
|  | $! | 
|  | $! Else... | 
|  | $! | 
|  | $ ELSE | 
|  | $! | 
|  | $!    Build Just What The User Wants Us To Build. | 
|  | $! | 
|  | $     GOSUB 'BUILDCOMMAND' | 
|  | $! | 
|  | $ ENDIF | 
|  | $! | 
|  | $! Time To EXIT. | 
|  | $! | 
|  | $ GOTO TIDY | 
|  | $! | 
|  | $! Rebuild The [.CRYPTO._xxx]OPENSSLCONF.H" file. | 
|  | $! | 
|  | $ CONFIG: | 
|  | $! | 
|  | $! Tell The User We Are Creating The [.CRYPTO._xxx]OPENSSLCONF.H File. | 
|  | $! | 
|  | $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCHD']OPENSSLCONF.H Include File." | 
|  | $! | 
|  | $! First, make sure the directory exists. | 
|  | $! | 
|  | $ IF F$PARSE("SYS$DISK:[.CRYPTO.''ARCHD']") .EQS. "" THEN - | 
|  | CREATE/DIRECTORY SYS$DISK:[.CRYPTO.'ARCHD'] | 
|  | $! | 
|  | $! Different tar/UnZip versions/option may have named the file differently | 
|  | $ IF F$SEARCH("[.crypto]opensslconf.h_in") .NES. "" | 
|  | $ THEN | 
|  | $   OPENSSLCONF_H_IN = "[.crypto]opensslconf.h_in" | 
|  | $ ELSE | 
|  | $   IF F$SEARCH( "[.crypto]opensslconf_h.in") .NES. "" | 
|  | $   THEN | 
|  | $     OPENSSLCONF_H_IN = "[.crypto]opensslconf_h.in" | 
|  | $   ELSE | 
|  | $     ! For ODS-5 | 
|  | $     IF F$SEARCH( "[.crypto]opensslconf.h.in") .NES. "" | 
|  | $     THEN | 
|  | $       OPENSSLCONF_H_IN = "[.crypto]opensslconf.h.in" | 
|  | $     ELSE | 
|  | $       WRITE SYS$ERROR "Couldn't find a [.crypto]opensslconf.h.in.  Exiting!" | 
|  | $       $STATUS = %X00018294 ! "%RMS-F-FNF, file not found". | 
|  | $       GOTO TIDY | 
|  | $     ENDIF | 
|  | $   ENDIF | 
|  | $ ENDIF | 
|  | $! | 
|  | $! Create The [.CRYPTO._xxx]OPENSSLCONF.H File. | 
|  | $! Make sure it has the right format. | 
|  | $! | 
|  | $ OSCH_NAME = "SYS$DISK:[.CRYPTO.''ARCHD']OPENSSLCONF.H" | 
|  | $ CREATE /FDL=SYS$INPUT: 'OSCH_NAME' | 
|  | RECORD | 
|  | FORMAT stream_lf | 
|  | $ OPEN /APPEND H_FILE 'OSCH_NAME' | 
|  | $! | 
|  | $! Write The [.CRYPTO._xxx]OPENSSLCONF.H File. | 
|  | $! | 
|  | $ WRITE H_FILE "/* This file was automatically built using makevms.com */" | 
|  | $ WRITE H_FILE "/* and ''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" | 
|  | $ | 
|  | $! | 
|  | $! Defined the full SDIRS here.  It will be pruned depending on configuration. | 
|  | $! This is an exact copy of what's found in Makefile.org, with spaces replaced | 
|  | $! with commas. | 
|  | $! | 
|  | $ SDIRS := - | 
|  | objects,- | 
|  | md2,md4,md5,sha,mdc2,hmac,ripemd,whrlpool,- | 
|  | des,aes,rc2,rc4,rc5,idea,bf,cast,camellia,seed,modes,- | 
|  | bn,ec,rsa,dsa,ecdsa,dh,ecdh,dso,engine,- | 
|  | buffer,bio,stack,lhash,rand,err,- | 
|  | evp,asn1,pem,x509,x509v3,conf,txt_db,pkcs7,pkcs12,comp,ocsp,ui,- | 
|  | cms,pqueue,ts,jpake,srp,store,cmac | 
|  | $ | 
|  | $! One of the best way to figure out what the list should be is to do | 
|  | $! the following on a Unix system: | 
|  | $!   grep OPENSSL_NO_ crypto/include/internal/*.h crypto/*/*.h ssl/*.h engines/*.h engines/*/*.h|grep ':# *if'|sed -e 's/^.*def //'|sort|uniq | 
|  | $! For that reason, the list will also always end up in alphabetical order | 
|  | $ CONFIG_LOGICALS := AES,- | 
|  | ASM,INLINE_ASM,- | 
|  | BF,- | 
|  | CAMELLIA,- | 
|  | CAST,- | 
|  | CMS,- | 
|  | COMP,- | 
|  | DEPRECATED,- | 
|  | DES,- | 
|  | DGRAM,- | 
|  | DH,- | 
|  | DSA,- | 
|  | EC,- | 
|  | EC2M,- | 
|  | ECDH,- | 
|  | ECDSA,- | 
|  | EC_NISTP_64_GCC_128,- | 
|  | ENGINE,- | 
|  | ERR,- | 
|  | GMP,- | 
|  | GOST,- | 
|  | HEARTBEATS,- | 
|  | HMAC,- | 
|  | IDEA,- | 
|  | JPAKE,- | 
|  | MD2,- | 
|  | MD4,- | 
|  | MD5,- | 
|  | MDC2,- | 
|  | NEXTPROTONEG,- | 
|  | OCB,- | 
|  | OCSP,- | 
|  | PSK,- | 
|  | RC2,- | 
|  | RC4,- | 
|  | RC5,- | 
|  | RFC3779,- | 
|  | RMD160,- | 
|  | RSA,- | 
|  | SCT,- | 
|  | SCRYPT,- | 
|  | SCTP,- | 
|  | SEED,- | 
|  | SOCK,- | 
|  | SRP,- | 
|  | SRTP,- | 
|  | SSL3_METHOD,- | 
|  | SSL_TRACE,- | 
|  | STATIC_ENGINE,- | 
|  | STDIO,- | 
|  | STORE,- | 
|  | UNIT_TEST,- | 
|  | WHIRLPOOL | 
|  | $ CONFIG_EXPERIMENTAL := JPAKE,- | 
|  | STORE | 
|  | $! The following rules, which dictate how some algorithm choices affect | 
|  | $! others, are picked from Configure. | 
|  | $! Quick syntax: | 
|  | $!  list = item[ ; list] | 
|  | $!  item = algos / dependents | 
|  | $!  algos = algo [, algos] | 
|  | $!  dependents = dependent [, dependents] | 
|  | $! When a list of algos is specified in one item, it means that they must | 
|  | $! all be disabled for the rule to apply. | 
|  | $! When a list of dependents is specified in one item, it means that they | 
|  | $! will all be disabled if the rule applies. | 
|  | $! Rules are checked sequentially.  If a rule disables an algorithm, it will | 
|  | $! affect all following rules that depend on that algorithm being disabled. | 
|  | $! To force something to be enabled or disabled, have no algorithms in the | 
|  | $! algos part. | 
|  | $ CONFIG_DISABLE_RULES := RIJNDAEL/AES;- | 
|  | RMD160/RIPEMD;- | 
|  | DES/MDC2;- | 
|  | EC/ECDSA,ECDH;- | 
|  | MD5/SSL3,TLS1;- | 
|  | SHA/SSL3,TLS1;- | 
|  | RSA,DSA/SSL3,TLS1;- | 
|  | DH/SSL3,TLS1;- | 
|  | EC/GOST;- | 
|  | DSA/GOST;- | 
|  | DH/GOST;- | 
|  | /STATIC_ENGINE;- | 
|  | /DEPRECATED;- | 
|  | /EC_NISTP_64_GCC_128;- | 
|  | /GMP;- | 
|  | /MD2;- | 
|  | /RC5;- | 
|  | /RFC3779;- | 
|  | /SCTP;- | 
|  | /SSL_TRACE;- | 
|  | /UNIT_TEST | 
|  | $ CONFIG_ENABLE_RULES := ZLIB_DYNAMIC/ZLIB;- | 
|  | /THREADS | 
|  | $ | 
|  | $! Architecture specific rule addtions | 
|  | $ IF ARCH .EQS. "VAX" | 
|  | $ THEN | 
|  | $   ! Disable algorithms that require 64-bit integers in C | 
|  | $   CONFIG_DISABLE_RULES = CONFIG_DISABLE_RULES + - | 
|  | ";/GOST" + - | 
|  | ";/WHIRLPOOL" | 
|  | $ ENDIF | 
|  | $ | 
|  | $! Keep track of things to remove from SDIRS, have the items surrounded | 
|  | $! with commas | 
|  | $ SKIP_SDIRS = "," | 
|  | $ | 
|  | $ CONFIG_LOG_I = 0 | 
|  | $ CONFIG_LOG_LOOP11: | 
|  | $   CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS),"TRIM") | 
|  | $   CONFIG_LOG_I = CONFIG_LOG_I + 1 | 
|  | $   IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP11 | 
|  | $   IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP11_END | 
|  | $   IF F$TRNLNM("OPENSSL_NO_"+CONFIG_LOG_E) | 
|  | $   THEN | 
|  | $       CONFIG_DISABLED_'CONFIG_LOG_E' := YES | 
|  | $       CONFIG_ENABLED_'CONFIG_LOG_E' := NO | 
|  | $	CONFIG_CHANGED_'CONFIG_LOG_E' := YES | 
|  | $	IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .EQS. SKIP_SDIRS THEN - | 
|  | SKIP_SDIRS = SKIP_SDIRS + CONFIG_LOG_E + "," | 
|  | $   ELSE | 
|  | $       CONFIG_DISABLED_'CONFIG_LOG_E' := NO | 
|  | $       CONFIG_ENABLED_'CONFIG_LOG_E' := YES | 
|  | $	! Because all non-experimental algorithms are assumed | 
|  | $	! enabled by default | 
|  | $	CONFIG_CHANGED_'CONFIG_LOG_E' := NO | 
|  | $	IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .NES. SKIP_SDIRS THEN - | 
|  | SKIP_SDIRS = SKIP_SDIRS - (CONFIG_LOG_E + ",") | 
|  | $   ENDIF | 
|  | $   GOTO CONFIG_LOG_LOOP11 | 
|  | $ CONFIG_LOG_LOOP11_END: | 
|  | $ | 
|  | $ CONFIG_LOG_I = 0 | 
|  | $ CONFIG_LOG_LOOP12: | 
|  | $   CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_EXPERIMENTAL),"TRIM") | 
|  | $   CONFIG_LOG_I = CONFIG_LOG_I + 1 | 
|  | $   IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP12 | 
|  | $   IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP12_END | 
|  | $   IF F$TRNLNM("OPENSSL_EXPERIMENTAL_"+CONFIG_LOG_E) | 
|  | $   THEN | 
|  | $	CONFIG_DISABLED_'CONFIG_LOG_E' := NO | 
|  | $	CONFIG_ENABLED_'CONFIG_LOG_E' := YES | 
|  | $	CONFIG_CHANGED_'CONFIG_LOG_E' := YES | 
|  | $	IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .NES. SKIP_SDIRS THEN - | 
|  | SKIP_SDIRS = SKIP_SDIRS - (CONFIG_LOG_E + ",") | 
|  | $   ELSE | 
|  | $	CONFIG_DISABLED_'CONFIG_LOG_E' := YES | 
|  | $	CONFIG_ENABLED_'CONFIG_LOG_E' := NO | 
|  | $	! Because all experimental algorithms are assumed | 
|  | $	! disabled by default | 
|  | $	CONFIG_CHANGED_'CONFIG_LOG_E' := NO | 
|  | $	IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .EQS. SKIP_SDIRS THEN - | 
|  | SKIP_SDIRS = SKIP_SDIRS + CONFIG_LOG_E + "," | 
|  | $   ENDIF | 
|  | $   GOTO CONFIG_LOG_LOOP12 | 
|  | $ CONFIG_LOG_LOOP12_END: | 
|  | $ | 
|  | $! Apply cascading disable rules | 
|  | $ CONFIG_DISABLE_I = 0 | 
|  | $ CONFIG_DISABLE_LOOP0: | 
|  | $   CONFIG_DISABLE_E = F$EDIT(F$ELEMENT(CONFIG_DISABLE_I,";", - | 
|  | CONFIG_DISABLE_RULES),"TRIM") | 
|  | $   CONFIG_DISABLE_I = CONFIG_DISABLE_I + 1 | 
|  | $   IF CONFIG_DISABLE_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP0 | 
|  | $   IF CONFIG_DISABLE_E .EQS. ";" THEN GOTO CONFIG_DISABLE_LOOP0_END | 
|  | $ | 
|  | $   CONFIG_DISABLE_ALGOS = F$EDIT(F$ELEMENT(0,"/",CONFIG_DISABLE_E),"TRIM") | 
|  | $   CONFIG_DISABLE_DEPENDENTS = F$EDIT(F$ELEMENT(1,"/",CONFIG_DISABLE_E),"TRIM") | 
|  | $   TO_DISABLE := YES | 
|  | $   CONFIG_ALGO_I = 0 | 
|  | $   CONFIG_DISABLE_LOOP1: | 
|  | $     CONFIG_ALGO_E = F$EDIT(F$ELEMENT(CONFIG_ALGO_I,",", - | 
|  | CONFIG_DISABLE_ALGOS),"TRIM") | 
|  | $     CONFIG_ALGO_I = CONFIG_ALGO_I + 1 | 
|  | $     IF CONFIG_ALGO_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP1 | 
|  | $     IF CONFIG_ALGO_E .EQS. "," THEN GOTO CONFIG_DISABLE_LOOP1_END | 
|  | $     IF F$TYPE(CONFIG_DISABLED_'CONFIG_ALGO_E') .EQS. "" | 
|  | $     THEN | 
|  | $	TO_DISABLE := NO | 
|  | $     ELSE | 
|  | $	IF .NOT. CONFIG_DISABLED_'CONFIG_ALGO_E' THEN TO_DISABLE := NO | 
|  | $     ENDIF | 
|  | $     GOTO CONFIG_DISABLE_LOOP1 | 
|  | $   CONFIG_DISABLE_LOOP1_END: | 
|  | $ | 
|  | $   IF TO_DISABLE | 
|  | $   THEN | 
|  | $     CONFIG_DEPENDENT_I = 0 | 
|  | $     CONFIG_DISABLE_LOOP2: | 
|  | $	CONFIG_DEPENDENT_E = F$EDIT(F$ELEMENT(CONFIG_DEPENDENT_I,",", - | 
|  | CONFIG_DISABLE_DEPENDENTS),"TRIM") | 
|  | $	CONFIG_DEPENDENT_I = CONFIG_DEPENDENT_I + 1 | 
|  | $	IF CONFIG_DEPENDENT_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP2 | 
|  | $	IF CONFIG_DEPENDENT_E .EQS. "," THEN GOTO CONFIG_DISABLE_LOOP2_END | 
|  | $       CONFIG_DISABLED_'CONFIG_DEPENDENT_E' := YES | 
|  | $       CONFIG_ENABLED_'CONFIG_DEPENDENT_E' := NO | 
|  | $	! Better not to assume defaults at this point... | 
|  | $	CONFIG_CHANGED_'CONFIG_DEPENDENT_E' := YES | 
|  | $	IF (SKIP_SDIRS - (","+CONFIG_DEPENDENT_E+",")) .EQS. SKIP_SDIRS THEN - | 
|  | SKIP_SDIRS = SKIP_SDIRS + CONFIG_DEPENDENT_E + "," | 
|  | $	WRITE SYS$ERROR - | 
|  | "''CONFIG_DEPENDENT_E' disabled by rule ''CONFIG_DISABLE_E'" | 
|  | $	GOTO CONFIG_DISABLE_LOOP2 | 
|  | $     CONFIG_DISABLE_LOOP2_END: | 
|  | $   ENDIF | 
|  | $   GOTO CONFIG_DISABLE_LOOP0 | 
|  | $ CONFIG_DISABLE_LOOP0_END: | 
|  | $ | 
|  | $! Apply cascading enable rules | 
|  | $ CONFIG_ENABLE_I = 0 | 
|  | $ CONFIG_ENABLE_LOOP0: | 
|  | $   CONFIG_ENABLE_E = F$EDIT(F$ELEMENT(CONFIG_ENABLE_I,";", - | 
|  | CONFIG_ENABLE_RULES),"TRIM") | 
|  | $   CONFIG_ENABLE_I = CONFIG_ENABLE_I + 1 | 
|  | $   IF CONFIG_ENABLE_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP0 | 
|  | $   IF CONFIG_ENABLE_E .EQS. ";" THEN GOTO CONFIG_ENABLE_LOOP0_END | 
|  | $ | 
|  | $   CONFIG_ENABLE_ALGOS = F$EDIT(F$ELEMENT(0,"/",CONFIG_ENABLE_E),"TRIM") | 
|  | $   CONFIG_ENABLE_DEPENDENTS = F$EDIT(F$ELEMENT(1,"/",CONFIG_ENABLE_E),"TRIM") | 
|  | $   TO_ENABLE := YES | 
|  | $   CONFIG_ALGO_I = 0 | 
|  | $   CONFIG_ENABLE_LOOP1: | 
|  | $     CONFIG_ALGO_E = F$EDIT(F$ELEMENT(CONFIG_ALGO_I,",", - | 
|  | CONFIG_ENABLE_ALGOS),"TRIM") | 
|  | $     CONFIG_ALGO_I = CONFIG_ALGO_I + 1 | 
|  | $     IF CONFIG_ALGO_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP1 | 
|  | $     IF CONFIG_ALGO_E .EQS. "," THEN GOTO CONFIG_ENABLE_LOOP1_END | 
|  | $     IF F$TYPE(CONFIG_ENABLED_'CONFIG_ALGO_E') .EQS. "" | 
|  | $     THEN | 
|  | $	TO_ENABLE := NO | 
|  | $     ELSE | 
|  | $	IF .NOT. CONFIG_ENABLED_'CONFIG_ALGO_E' THEN TO_ENABLE := NO | 
|  | $     ENDIF | 
|  | $     GOTO CONFIG_ENABLE_LOOP1 | 
|  | $   CONFIG_ENABLE_LOOP1_END: | 
|  | $ | 
|  | $   IF TO_ENABLE | 
|  | $   THEN | 
|  | $     CONFIG_DEPENDENT_I = 0 | 
|  | $     CONFIG_ENABLE_LOOP2: | 
|  | $	CONFIG_DEPENDENT_E = F$EDIT(F$ELEMENT(CONFIG_DEPENDENT_I,",", - | 
|  | CONFIG_ENABLE_DEPENDENTS),"TRIM") | 
|  | $	CONFIG_DEPENDENT_I = CONFIG_DEPENDENT_I + 1 | 
|  | $	IF CONFIG_DEPENDENT_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP2 | 
|  | $	IF CONFIG_DEPENDENT_E .EQS. "," THEN GOTO CONFIG_ENABLE_LOOP2_END | 
|  | $       CONFIG_DISABLED_'CONFIG_DEPENDENT_E' := NO | 
|  | $       CONFIG_ENABLED_'CONFIG_DEPENDENT_E' := YES | 
|  | $	! Better not to assume defaults at this point... | 
|  | $	CONFIG_CHANGED_'CONFIG_DEPENDENT_E' := YES | 
|  | $	IF (SKIP_SDIRS - (","+CONFIG_DEPENDENT_E+",")) .NES. SKIP_SDIRS THEN - | 
|  | SKIP_SDIRS = SKIP_SDIRS - (CONFIG_DEPENDENT_E + ",") | 
|  | $	WRITE SYS$ERROR - | 
|  | "''CONFIG_DEPENDENT_E' enabled by rule ''CONFIG_ENABLE_E'" | 
|  | $	GOTO CONFIG_ENABLE_LOOP2 | 
|  | $     CONFIG_ENABLE_LOOP2_END: | 
|  | $   ENDIF | 
|  | $   GOTO CONFIG_ENABLE_LOOP0 | 
|  | $ CONFIG_ENABLE_LOOP0_END: | 
|  | $ | 
|  | $! Fix SDIRS | 
|  | $ SDIRS = ","+F$EDIT(SDIRS,"COLLAPSE")+"," | 
|  | $ CONFIG_SKIP_I = 0 | 
|  | $ CONFIG_SDIRS_LOOP1: | 
|  | $   CONFIG_SKIP_E = F$EDIT(F$ELEMENT(CONFIG_SKIP_I,",",SKIP_SDIRS),"TRIM") | 
|  | $   CONFIG_SKIP_I = CONFIG_SKIP_I + 1 | 
|  | $   IF CONFIG_SKIP_E .EQS. "" THEN GOTO CONFIG_SDIRS_LOOP1 | 
|  | $   IF CONFIG_SKIP_E .EQS. "," THEN GOTO CONFIG_SDIRS_LOOP1_END | 
|  | $   IF (SDIRS - (","+CONFIG_SKIP_E+",")) .NES. SDIRS THEN - | 
|  | SDIRS = SDIRS - (CONFIG_SKIP_E+",") | 
|  | $   GOTO CONFIG_SDIRS_LOOP1 | 
|  | $ CONFIG_SDIRS_LOOP1_END: | 
|  | $ | 
|  | $! Write to the configuration | 
|  | $ CONFIG_LOG_I = 0 | 
|  | $ CONFIG_LOG_LOOP2: | 
|  | $   CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS),"TRIM") | 
|  | $   CONFIG_LOG_I = CONFIG_LOG_I + 1 | 
|  | $   IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP2 | 
|  | $   IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP2_END | 
|  | $   IF CONFIG_DISABLED_'CONFIG_LOG_E' | 
|  | $   THEN | 
|  | $     WRITE H_FILE "#ifndef OPENSSL_NO_",CONFIG_LOG_E | 
|  | $     WRITE H_FILE "# define OPENSSL_NO_",CONFIG_LOG_E | 
|  | $     WRITE H_FILE "#endif" | 
|  | $   ELSE | 
|  | $     IF CONFIG_CHANGED_'CONFIG_LOG_E' | 
|  | $     THEN | 
|  | $	WRITE H_FILE "#ifndef OPENSSL_EXPERIMENTAL_",CONFIG_LOG_E | 
|  | $	WRITE H_FILE "# ifndef OPENSSL_NO_",CONFIG_LOG_E | 
|  | $	WRITE H_FILE "#  define OPENSSL_NO_",CONFIG_LOG_E | 
|  | $	WRITE H_FILE "# endif" | 
|  | $	WRITE H_FILE "#endif" | 
|  | $ | 
|  | $	IF F$TYPE(USER_CCDEFS) .NES. "" | 
|  | $	THEN | 
|  | $	  USER_CCDEFS = USER_CCDEFS + ",OPENSSL_EXPERIMENTAL_" + CONFIG_LOG_E | 
|  | $       ELSE | 
|  | $	  USER_CCDEFS = "OPENSSL_EXPERIMENTAL_" + CONFIG_LOG_E | 
|  | $       ENDIF | 
|  | $     ENDIF | 
|  | $   ENDIF | 
|  | $   GOTO CONFIG_LOG_LOOP2 | 
|  | $ CONFIG_LOG_LOOP2_END: | 
|  | $ | 
|  | $ WRITE/SYMBOL SYS$ERROR "SDIRS = """,SDIRS,"""" | 
|  | $! | 
|  | $ WRITE H_FILE "" | 
|  | $ WRITE H_FILE "/* STCP support comes with TCPIP 5.7 ECO 2 " | 
|  | $ WRITE H_FILE " * enable on newer systems / 2012-02-24 arpadffy */" | 
|  | $ WRITE H_FILE "#define OPENSSL_NO_SCTP" | 
|  | $ WRITE H_FILE "" | 
|  | $! | 
|  | $! Add in the common "crypto/opensslconf.h.in". | 
|  | $! | 
|  | $ TYPE 'OPENSSLCONF_H_IN' /OUTPUT=H_FILE: | 
|  | $! | 
|  | $ IF ARCH .NES. "VAX" | 
|  | $ THEN | 
|  | $! | 
|  | $!  Write the non-VAX 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 BN_LLONG"	! Never define with SIXTY_FOUR_BIT | 
|  | $   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 BN_LLONG"	! VAX C/DEC C doesn't have long long | 
|  | $   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._xxx]OPENSSLCONF.H file | 
|  | $! | 
|  | $ CLOSE H_FILE | 
|  | $! | 
|  | $! Purge The [.CRYPTO._xxx]OPENSSLCONF.H file | 
|  | $! | 
|  | $ PURGE SYS$DISK:[.CRYPTO.'ARCHD']OPENSSLCONF.H | 
|  | $! | 
|  | $! That's All, Time To RETURN. | 
|  | $! | 
|  | $ RETURN | 
|  | $! | 
|  | $! Rebuild The "[.CRYPTO._xxx]BUILDINF.H" file. | 
|  | $! | 
|  | $ BUILDINF: | 
|  | $! | 
|  | $! Tell The User We Are Creating The [.CRYPTO._xxx]BUILDINF.H File. | 
|  | $! | 
|  | $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCHD']BUILDINF.H Include File." | 
|  | $! | 
|  | $! Create The [.CRYPTO._xxx]BUILDINF.H File. | 
|  | $! | 
|  | $ BIH_NAME = "SYS$DISK:[.CRYPTO.''ARCHD']BUILDINF.H" | 
|  | $ CREATE /FDL=SYS$INPUT: 'BIH_NAME' | 
|  | RECORD | 
|  | FORMAT stream_lf | 
|  | $! | 
|  | $ OPEN /APPEND H_FILE 'bih_name' | 
|  | $! | 
|  | $! Get The Current Date & Time. | 
|  | $! | 
|  | $ TIME = F$TIME() | 
|  | $! | 
|  | $! Write The [.CRYPTO._xxx]BUILDINF.H File. | 
|  | $! | 
|  | $ CFLAGS = "" | 
|  | $ if (POINTER_SIZE .nes. "") | 
|  | $ then | 
|  | $   CFLAGS = CFLAGS+ "/POINTER_SIZE=''POINTER_SIZE'" | 
|  | $ endif | 
|  | $ if (ZLIB .nes. "") | 
|  | $ then | 
|  | $   if (CFLAGS .nes. "") then CFLAGS = CFLAGS+ " " | 
|  | $   CFLAGS = CFLAGS+ "/DEFINE=ZLIB" | 
|  | $ endif | 
|  | $! | 
|  | $ WRITE H_FILE "#define CFLAGS ""''CFLAGS'""" | 
|  | $ WRITE H_FILE "#define PLATFORM ""VMS ''ARCHD' ''VMS_VERSION'""" | 
|  | $ WRITE H_FILE "#define DATE ""''TIME'"" " | 
|  | $! | 
|  | $! Close The [.CRYPTO._xxx]BUILDINF.H File. | 
|  | $! | 
|  | $ CLOSE H_FILE | 
|  | $! | 
|  | $! Purge The [.CRYPTO._xxx]BUILDINF.H File. | 
|  | $! | 
|  | $ PURGE SYS$DISK:[.CRYPTO.'ARCHD']BUILDINF.H | 
|  | $! | 
|  | $! Delete [.CRYPTO]BUILDINF.H File, as there might be some residue from Unix. | 
|  | $! | 
|  | $ IF F$SEARCH("[.CRYPTO]BUILDINF.H") .NES. "" THEN - | 
|  | DELETE SYS$DISK:[.CRYPTO]BUILDINF.H;* | 
|  | $! | 
|  | $! 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]RD160.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] | 
|  | $!!!! Tell The User We Are Rebuilding The [.include.openssl] Directory. | 
|  | $!!!! | 
|  | $!!!! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS] | 
|  | $!!!! | 
|  | $!!! COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS] | 
|  | $! | 
|  | $! Ensure that the [.include.openssl] directory contains a full set of | 
|  | $! real header files.  The distribution kit may have left real or fake | 
|  | $! symlinks there.  Rather than think about what's there, simply delete | 
|  | $! the destination files (fake or real symlinks) before copying the real | 
|  | $! header files in.  (Copying a real header file onto a real symlink | 
|  | $! merely duplicates the real header file at its source.) | 
|  | $! | 
|  | $! 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 it did exist, delete all | 
|  | $! the existing header files (or fake or real symlinks). | 
|  | $! | 
|  | $ if f$parse( "sys$disk:[.include.openssl]") .eqs. "" | 
|  | $ then | 
|  | $   create /directory sys$disk:[.include.openssl] | 
|  | $ else | 
|  | $   delete sys$disk:[.include.openssl]*.h;* | 
|  | $ endif | 
|  | $! | 
|  | $! 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. | 
|  | $! | 
|  | $ HEADER_SDIRS := , - | 
|  | 'ARCHD', - | 
|  | OBJECTS, - | 
|  | MD2, MD4, MD5, SHA, MDC2, HMAC, RIPEMD, WHRLPOOL, - | 
|  | DES, AES, RC2, RC4, RC5, IDEA, BF, CAST, CAMELLIA, SEED, MODES, - | 
|  | BN, EC, RSA, DSA, ECDSA, DH, ECDH, DSO, ENGINE, - | 
|  | BUFFER, BIO, STACK, LHASH, RAND, ERR, - | 
|  | EVP, ASN1, PEM, X509, X509V3, CONF, TXT_DB, PKCS7, PKCS12, - | 
|  | COMP, OCSP, UI, - | 
|  | CMS, PQUEUE, TS, JPAKE, SRP, STORE, CMAC | 
|  | $! | 
|  | $ EXHEADER_ := crypto.h, opensslv.h, ebcdic.h, symhacks.h, ossl_typ.h | 
|  | $ EXHEADER_'ARCHD' := opensslconf.h | 
|  | $ EXHEADER_OBJECTS := objects.h, obj_mac.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_WHRLPOOL := whrlpool.h | 
|  | $ EXHEADER_DES := des.h | 
|  | $ EXHEADER_AES := aes.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_CAMELLIA := camellia.h | 
|  | $ EXHEADER_SEED := seed.h | 
|  | $ EXHEADER_MODES := modes.h | 
|  | $ EXHEADER_BN := bn.h | 
|  | $ EXHEADER_EC := ec.h | 
|  | $ EXHEADER_RSA := rsa.h | 
|  | $ EXHEADER_DSA := dsa.h | 
|  | $ EXHEADER_ECDSA := ecdsa.h | 
|  | $ EXHEADER_DH := dh.h | 
|  | $ EXHEADER_ECDH := ecdh.h | 
|  | $ EXHEADER_DSO := dso.h | 
|  | $ EXHEADER_ENGINE := engine.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_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 | 
|  | $ EXHEADER_CMS := cms.h | 
|  | $ EXHEADER_PQUEUE := pqueue.h | 
|  | $ EXHEADER_TS := ts.h | 
|  | $ EXHEADER_JPAKE := jpake.h | 
|  | $ EXHEADER_SRP := srp.h | 
|  | $!!! EXHEADER_STORE := store.h, str_compat.h | 
|  | $ EXHEADER_STORE := store.h | 
|  | $ EXHEADER_CMAC := cmac.h | 
|  | $! | 
|  | $ i = 0 | 
|  | $ loop_header_sdirs: | 
|  | $   sdir = f$edit( f$element( i, ",", header_sdirs), "trim") | 
|  | $   i = i + 1 | 
|  | $   if (sdir .eqs. ",") then goto loop_header_sdirs_end | 
|  | $   hdr_list = exheader_'sdir' | 
|  | $   if (sdir .nes. "") then sdir = "."+ sdir | 
|  | $   copy [.crypto'sdir']'hdr_list' sys$disk:[.include.openssl] | 
|  | $ goto loop_header_sdirs | 
|  | $ loop_header_sdirs_end: | 
|  | $! | 
|  | $! Copy All The ".H" Files From The [.SSL] Directory. | 
|  | $! | 
|  | $! (keep these in the same order as ssl/Makefile) | 
|  | $ EXHEADER := ssl.h, ssl2.h, ssl3.h, ssl23.h, tls1.h, dtls1.h, srtp.h | 
|  | $ copy sys$disk:[.ssl]'exheader' sys$disk:[.include.openssl] | 
|  | $! | 
|  | $! Purge the [.include.openssl] header files. | 
|  | $! | 
|  | $ purge sys$disk:[.include.openssl]*.h | 
|  | $! | 
|  | $! That's All, Time To RETURN. | 
|  | $! | 
|  | $ RETURN | 
|  | $! | 
|  | $! Build The "[.xxx.EXE.CRYPTO]SSL_LIBCRYPTO''LIB32'.OLB" Library. | 
|  | $! | 
|  | $ CRYPTO: | 
|  | $! | 
|  | $! Tell The User What We Are Doing. | 
|  | $! | 
|  | $ WRITE SYS$OUTPUT "" | 
|  | $ WRITE SYS$OUTPUT - | 
|  | "Building The [.",ARCHD,".EXE.CRYPTO]SSL_LIBCRYPTO''LIB32'.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'" "''POINTER_SIZE'" "''ZLIB'" | 
|  | $! | 
|  | $! Go Back To The Main Directory. | 
|  | $! | 
|  | $ SET DEFAULT [-] | 
|  | $! | 
|  | $! Time To RETURN. | 
|  | $! | 
|  | $ RETURN | 
|  | $! | 
|  | $! Build The "[.xxx.EXE.SSL]SSL_LIBSSL''LIB32'.OLB" Library. | 
|  | $! | 
|  | $ SSL: | 
|  | $! | 
|  | $! Tell The User What We Are Doing. | 
|  | $! | 
|  | $ WRITE SYS$OUTPUT "" | 
|  | $ WRITE SYS$OUTPUT - | 
|  | "Building The [.",ARCHD,".EXE.SSL]SSL_LIBSSL''LIB32'.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'" "''POINTER_SIZE'" "''ZLIB'" | 
|  | $! | 
|  | $! Go Back To The Main Directory. | 
|  | $! | 
|  | $ SET DEFAULT [-] | 
|  | $! | 
|  | $! 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 [.",ARCHD,".EXE.TEST] Test Utilities." | 
|  | $! | 
|  | $! Go To The [.TEST] Directory. | 
|  | $! | 
|  | $ SET DEFAULT SYS$DISK:[.TEST] | 
|  | $! | 
|  | $! Build The Test Programs. | 
|  | $! | 
|  | $ @MAKETESTS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" - | 
|  | "''POINTER_SIZE'" "''ZLIB'" | 
|  | $! | 
|  | $! 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 [.",ARCHD,".EXE.APPS] Applications." | 
|  | $! | 
|  | $! Go To The [.APPS] Directory. | 
|  | $! | 
|  | $ SET DEFAULT SYS$DISK:[.APPS] | 
|  | $! | 
|  | $! Build The Application Programs. | 
|  | $! | 
|  | $ @MAKEAPPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" - | 
|  | "" "''POINTER_SIZE'" "''ZLIB'" | 
|  | $! | 
|  | $! Go Back To The Main Directory. | 
|  | $! | 
|  | $ SET DEFAULT [-] | 
|  | $! | 
|  | $! That's All, Time To RETURN. | 
|  | $! | 
|  | $ RETURN | 
|  | $! | 
|  | $! Build The OpenSSL Application Programs. | 
|  | $! | 
|  | $ ENGINES: | 
|  | $! | 
|  | $! Tell The User What We Are Doing. | 
|  | $! | 
|  | $ WRITE SYS$OUTPUT "" | 
|  | $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCHD,".EXE.ENGINES] Engines." | 
|  | $! | 
|  | $! Go To The [.ENGINES] Directory. | 
|  | $! | 
|  | $ SET DEFAULT SYS$DISK:[.ENGINES] | 
|  | $! | 
|  | $! Build The Application Programs. | 
|  | $! | 
|  | $ @MAKEENGINES ENGINES 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" - | 
|  | "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'" "''ZLIB'" | 
|  | $! | 
|  | $! 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 Argument. | 
|  | $! | 
|  | $   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."TEST").OR.(P1.EQS."APPS") - | 
|  | .OR.(P1.EQS."ENGINES") | 
|  | $   THEN | 
|  | $! | 
|  | $!    A Valid Argument. | 
|  | $! | 
|  | $     BUILDCOMMAND = P1 | 
|  | $! | 
|  | $!  Else... | 
|  | $! | 
|  | $   ELSE | 
|  | $! | 
|  | $!    Tell The User We Don't Know What They Want. | 
|  | $! | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     WRITE SYS$OUTPUT "USAGE:   @MAKEVMS.COM [Target] [Pointer size] [Debug option] <Compiler>" | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     WRITE SYS$OUTPUT "Example: @MAKEVMS.COM ALL """" NODEBUG " | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     WRITE SYS$OUTPUT "The Target ",P1," Is Invalid.  The Valid Target Options Are:" | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything." | 
|  | $     WRITE SYS$OUTPUT "    CONFIG   :  Just build the [.CRYPTO._xxx]OPENSSLCONF.H file." | 
|  | $     WRITE SYS$OUTPUT "    BUILDINF :  Just build the [.CRYPTO._xxx]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 "    TEST     :  To Build Just The OpenSSL Test Programs." | 
|  | $     WRITE SYS$OUTPUT "    APPS     :  To Build Just The OpenSSL Application Programs." | 
|  | $     WRITE SYS$OUTPUT "    ENGINES  :  To Build Just The ENGINES" | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:" | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     WRITE SYS$OUTPUT "    ALPHA[64]:  Alpha Architecture." | 
|  | $     WRITE SYS$OUTPUT "    IA64[64] :  IA64 Architecture." | 
|  | $     WRITE SYS$OUTPUT "    VAX      :  VAX Architecture." | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $! | 
|  | $!    Time To EXIT. | 
|  | $! | 
|  | $     GOTO TIDY | 
|  | $! | 
|  | $!  End The Valid Argument Check. | 
|  | $! | 
|  | $   ENDIF | 
|  | $! | 
|  | $! End The P1 Check. | 
|  | $! | 
|  | $ ENDIF | 
|  | $! | 
|  | $! Check P2 (POINTER_SIZE). | 
|  | $! | 
|  | $ IF (P2 .NES. "") .AND. (ARCH .NES. "VAX") | 
|  | $ THEN | 
|  | $! | 
|  | $   IF (P2 .EQS. "32") | 
|  | $   THEN | 
|  | $     POINTER_SIZE = "32" | 
|  | $   ELSE | 
|  | $     POINTER_SIZE = F$EDIT( P2, "COLLAPSE, UPCASE") | 
|  | $     IF ((POINTER_SIZE .EQS. "64") .OR. - | 
|  | (POINTER_SIZE .EQS. "64=") .OR. - | 
|  | (POINTER_SIZE .EQS. "64=ARGV")) | 
|  | $     THEN | 
|  | $       ARCHD = ARCH+ "_64" | 
|  | $       LIB32 = "" | 
|  | $     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 - | 
|  | "    """"       :  Compile with default (short) pointers." | 
|  | $       WRITE SYS$OUTPUT - | 
|  | "    32       :  Compile with 32-bit (short) pointers." | 
|  | $       WRITE SYS$OUTPUT - | 
|  | "    64       :  Compile with 64-bit (long) pointers (auto ARGV)." | 
|  | $       WRITE SYS$OUTPUT - | 
|  | "    64=      :  Compile with 64-bit (long) pointers (no ARGV)." | 
|  | $       WRITE SYS$OUTPUT - | 
|  | "    64=ARGV  :  Compile with 64-bit (long) pointers (ARGV)." | 
|  | $       WRITE SYS$OUTPUT "" | 
|  | $! | 
|  | $!      Time To EXIT. | 
|  | $! | 
|  | $       GOTO TIDY | 
|  | $! | 
|  | $     ENDIF | 
|  | $! | 
|  | $   ENDIF | 
|  | $! | 
|  | $! End The P2 (POINTER_SIZE) 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. | 
|  | $! | 
|  | $     GOTO TIDY | 
|  | $! | 
|  | $!  End The Valid Argument 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 Parameter. | 
|  | $! | 
|  | $   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 Argument. | 
|  | $! | 
|  | $   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. | 
|  | $! | 
|  | $     GOTO TIDY | 
|  | $! | 
|  | $!  End The Valid Argument 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 /OPTIONS" | 
|  | $! | 
|  | $!    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 /OPTIONS" | 
|  | $! | 
|  | $!    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 /OPTIONS" | 
|  | $! | 
|  | $!    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 Argument. | 
|  | $! | 
|  | $ 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. | 
|  | $! | 
|  | $     GOTO TIDY | 
|  | $   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,VMS_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 | 
|  | $! | 
|  | $! | 
|  | $! Check To See If We Have A ZLIB Option. | 
|  | $! | 
|  | $ ZLIB = P7 | 
|  | $ IF (ZLIB .NES. "") | 
|  | $ THEN | 
|  | $! | 
|  | $!  Check for expected ZLIB files. | 
|  | $! | 
|  | $   err = 0 | 
|  | $   file1 = f$parse( "zlib.h", ZLIB, , , "SYNTAX_ONLY") | 
|  | $   if (f$search( file1) .eqs. "") | 
|  | $   then | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid." | 
|  | $     WRITE SYS$OUTPUT "    Can't find header: ''file1'" | 
|  | $     err = 1 | 
|  | $   endif | 
|  | $! | 
|  | $   file2 = f$parse( ZLIB, "libz.olb", , , "SYNTAX_ONLY") | 
|  | $   if (f$search( file2) .eqs. "") | 
|  | $   then | 
|  | $     if (err .eq. 0) | 
|  | $     then | 
|  | $       WRITE SYS$OUTPUT "" | 
|  | $       WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid." | 
|  | $     endif | 
|  | $     WRITE SYS$OUTPUT "    Can't find library: ''file2'" | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $     err = err+ 2 | 
|  | $   endif | 
|  | $   if (err .eq. 1) | 
|  | $   then | 
|  | $     WRITE SYS$OUTPUT "" | 
|  | $   endif | 
|  | $! | 
|  | $   if (err .ne. 0) | 
|  | $   then | 
|  | $     GOTO TIDY | 
|  | $   endif | 
|  | $! | 
|  | $!  Print info | 
|  | $! | 
|  | $   WRITE SYS$OUTPUT "ZLIB library spec: ", file2 | 
|  | $! | 
|  | $! End The ZLIB Check. | 
|  | $! | 
|  | $ ENDIF | 
|  | $! | 
|  | $!  Time To RETURN... | 
|  | $! | 
|  | $ RETURN | 
|  | $! | 
|  | $ TIDY: | 
|  | $! | 
|  | $! Close any open files. | 
|  | $! | 
|  | $ if (f$trnlnm( "h_file", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then - | 
|  | close h_file | 
|  | $! | 
|  | $! Restore the original default device:[directory]. | 
|  | $! | 
|  | $ SET DEFAULT 'DEF_ORIG' | 
|  | $! | 
|  | $ EXIT | 
|  | $! |