diff options
-rw-r--r-- | VMS/TODO | 18 | ||||
-rw-r--r-- | VMS/WISHLIST.TXT | 4 | ||||
-rwxr-xr-x | VMS/install-vms.com | 67 | ||||
-rw-r--r-- | VMS/multinet_shr.opt | 1 | ||||
-rwxr-xr-x | VMS/openssl_startup.com | 108 | ||||
-rwxr-xr-x | VMS/openssl_undo.com | 20 | ||||
-rw-r--r-- | VMS/socketshr_shr.opt | 1 | ||||
-rw-r--r-- | VMS/tcpip_shr_decc.opt | 1 | ||||
-rw-r--r-- | VMS/ucx_shr_decc.opt | 1 | ||||
-rw-r--r-- | VMS/ucx_shr_decc_log.opt | 1 | ||||
-rw-r--r-- | VMS/ucx_shr_vaxc.opt | 1 | ||||
-rw-r--r-- | apps/CA.com | 221 | ||||
-rwxr-xr-x | apps/install-apps.com | 107 | ||||
-rw-r--r-- | apps/makeapps.com | 1169 | ||||
-rw-r--r-- | crypto/crypto-lib.com | 1427 | ||||
-rwxr-xr-x | crypto/install-crypto.com | 197 | ||||
-rw-r--r-- | engines/alpha.opt | 1 | ||||
-rw-r--r-- | engines/axp.opt | 1 | ||||
-rw-r--r-- | engines/ia64.opt | 1 | ||||
-rw-r--r-- | engines/makeengines.com | 1118 | ||||
-rw-r--r-- | engines/vax.opt | 9 | ||||
-rw-r--r-- | include/openssl/symhacks.h | 367 | ||||
-rw-r--r-- | install.com | 136 | ||||
-rwxr-xr-x | makevms.com | 1548 | ||||
-rwxr-xr-x | ssl/install-ssl.com | 116 | ||||
-rw-r--r-- | ssl/ssl-lib.com | 956 | ||||
-rwxr-xr-x | test/clean_test.com | 35 | ||||
-rw-r--r-- | test/maketests.com | 1099 | ||||
-rw-r--r-- | test/tests.com | 405 | ||||
-rw-r--r-- | util/deltree.com | 34 | ||||
-rwxr-xr-x | util/libeay.num | 203 | ||||
-rwxr-xr-x | util/ssleay.num | 57 |
32 files changed, 77 insertions, 9353 deletions
diff --git a/VMS/TODO b/VMS/TODO deleted file mode 100644 index 359e069191..0000000000 --- a/VMS/TODO +++ /dev/null @@ -1,18 +0,0 @@ -TODO: -===== - -There are a few things that need to be worked out in the VMS version of -OpenSSL, still: - -- Description files. ("Makefile's" :-)) -- Script code to link an already compiled build tree. -- A VMSINSTALlable version (way in the future, unless someone else hacks). -- shareable images (DLL for you Windows folks). - -There may be other things that I have missed and that may be desirable. -Please send mail to <openssl-users@openssl.org> or to me directly if you -have any ideas. - --- -Richard Levitte <richard@levitte.org> -1999-05-24 diff --git a/VMS/WISHLIST.TXT b/VMS/WISHLIST.TXT deleted file mode 100644 index c151fc8ea7..0000000000 --- a/VMS/WISHLIST.TXT +++ /dev/null @@ -1,4 +0,0 @@ -* Have the building procedure contain a LINK-only possibility. - Wished by Mark Daniel <mark.daniel@dsto.defence.gov.au> - - One way to enable that is also to go over to DESCRIP.MMS files. diff --git a/VMS/install-vms.com b/VMS/install-vms.com deleted file mode 100755 index 7da8b2153b..0000000000 --- a/VMS/install-vms.com +++ /dev/null @@ -1,67 +0,0 @@ -$! install-vms.com -- Installs the files in a given directory tree -$! -$! Author: Richard Levitte <richard@levitte.org> -$! Time of creation: 23-MAY-1998 19:22 -$! -$! P1 root of the directory tree -$! -$! -$! Announce/identify. -$! -$ proc = f$environment( "procedure") -$ write sys$output "@@@ "+ - - f$parse( proc, , , "name")+ f$parse( proc, , , "type") -$! -$ on error then goto tidy -$ on control_c then goto tidy -$! -$ if p1 .eqs. "" -$ then -$ write sys$output "First argument missing." -$ write sys$output - - "Should be the directory where you want things installed." -$ exit -$ endif -$ -$ if (f$getsyi( "cpu") .lt. 128) -$ then -$ arch = "VAX" -$ else -$ arch = f$edit( f$getsyi( "arch_name"), "upcase") -$ if (arch .eqs. "") then arch = "UNK" -$ endif -$ -$ root = f$parse( P1, "[]A.;0", , , "SYNTAX_ONLY, NO_CONCEAL")- "A.;0" -$ root_dev = f$parse( root, , , "device", "syntax_only") -$ root_dir = f$parse( root, , , "directory", "syntax_only") - - - "[000000." - "][" - "[" - "]" -$ root = root_dev + "[" + root_dir -$ -$ define /nolog wrk_sslroot 'root'.] /translation_attributes = concealed -$ define /nolog wrk_sslinclude wrk_sslroot:[include] -$ -$ if f$parse( "wrk_sslroot:[000000]") .eqs. "" then - - create /directory /log wrk_sslroot:[000000] -$ if f$parse( "wrk_sslinclude:") .eqs. "" then - - create /directory /log wrk_sslinclude: -$ if f$parse( "wrk_sslroot:[vms]") .eqs. "" then - - create /directory /log wrk_sslroot:[vms] -$! -$ copy /log /protection = world:re openssl_startup.com wrk_sslroot:[vms] -$ copy /log /protection = world:re openssl_undo.com wrk_sslroot:[vms] -$ copy /log /protection = world:re openssl_utils.com wrk_sslroot:[vms] -$! -$ tidy: -$! -$ call deass wrk_sslroot -$ call deass wrk_sslinclude -$! -$ exit -$! -$ deass: subroutine -$ if (f$trnlnm( p1, "LNM$PROCESS") .nes. "") -$ then -$ deassign /process 'p1' -$ endif -$ endsubroutine -$! diff --git a/VMS/multinet_shr.opt b/VMS/multinet_shr.opt deleted file mode 100644 index 610f42dddb..0000000000 --- a/VMS/multinet_shr.opt +++ /dev/null @@ -1 +0,0 @@ -multinet:multinet_socket_library.exe/share diff --git a/VMS/openssl_startup.com b/VMS/openssl_startup.com deleted file mode 100755 index 04bbbde886..0000000000 --- a/VMS/openssl_startup.com +++ /dev/null @@ -1,108 +0,0 @@ -$! -$! Startup file for OpenSSL 1.x. -$! -$! 2011-03-05 SMS. -$! -$! This procedure must reside in the OpenSSL installation directory. -$! It will fail if it is copied to a different location. -$! -$! P1 qualifier(s) for DEFINE. For example, "/SYSTEM" to get the -$! logical names defined in the system logical name table. -$! -$! P2 "64", to use executables which were built with 64-bit pointers. -$! -$! Good (default) and bad status values. -$! -$ status = %x00010001 ! RMS$_NORMAL, normal successful completion. -$ rms_e_fnf = %x00018292 ! RMS$_FNF, file not found. -$! -$! Prepare for problems. -$! -$ orig_dev_dir = f$environment( "DEFAULT") -$ on control_y then goto clean_up -$ on error then goto clean_up -$! -$! Determine hardware architecture. -$! -$ if (f$getsyi( "cpu") .lt. 128) -$ then -$ arch_name = "VAX" -$ else -$ arch_name = f$edit( f$getsyi( "arch_name"), "upcase") -$ if (arch_name .eqs. "") then arch_name = "UNK" -$ endif -$! -$ if (p2 .eqs. "64") -$ then -$ arch_name_exe = arch_name+ "_64" -$ else -$ arch_name_exe = arch_name -$ endif -$! -$! Derive the OpenSSL installation device:[directory] from the location -$! of this command procedure. -$! -$ proc = f$environment( "procedure") -$ proc_dev_dir = f$parse( "A.;", proc, , , "no_conceal") - "A.;" -$ proc_dev = f$parse( proc_dev_dir, , , "device", "syntax_only") -$ proc_dir = f$parse( proc_dev_dir, , , "directory", "syntax_only") - - - ".][000000"- "[000000."- "]["- "["- "]" -$ proc_dev_dir = proc_dev+ "["+ proc_dir+ "]" -$ set default 'proc_dev_dir' -$ set default [-] -$ ossl_dev_dir = f$environment( "default") -$! -$! Check existence of expected directories (to see if this procedure has -$! been moved away from its proper place). -$! -$ if ((f$search( "certs.dir;1") .eqs. "") .or. - - (f$search( "include.dir;1") .eqs. "") .or. - - (f$search( "private.dir;1") .eqs. "") .or. - - (f$search( "vms.dir;1") .eqs. "")) -$ then -$ write sys$output - - " Can't find expected common OpenSSL directories in:" -$ write sys$output " ''ossl_dev_dir'" -$ status = rms_e_fnf -$ goto clean_up -$ endif -$! -$ if ((f$search( "''arch_name_exe'_exe.dir;1") .eqs. "") .or. - - (f$search( "''arch_name'_lib.dir;1") .eqs. "")) -$ then -$ write sys$output - - " Can't find expected architecture-specific OpenSSL directories in:" -$ write sys$output " ''ossl_dev_dir'" -$ status = rms_e_fnf -$ goto clean_up -$ endif -$! -$! All seems well (enough). Define the OpenSSL logical names. -$! -$ ossl_root = ossl_dev_dir- "]"+ ".]" -$ define /translation_attributes = concealed /nolog'p1 SSLROOT 'ossl_root' -$ define /nolog 'p1' SSLCERTS sslroot:[certs] -$ define /nolog 'p1' SSLINCLUDE sslroot:[include] -$ define /nolog 'p1' SSLPRIVATE sslroot:[private] -$ define /nolog 'p1' SSLEXE sslroot:['arch_name_exe'_exe] -$ define /nolog 'p1' SSLLIB sslroot:['arch_name'_lib] -$! -$! Defining OPENSSL lets a C program use "#include <openssl/{foo}.h>": -$ define /nolog 'p1' OPENSSL SSLINCLUDE: -$! -$! Run a site-specific procedure, if it exists. -$! -$ if f$search( "sslroot:[vms]openssl_systartup.com") .nes."" then - - @ sslroot:[vms]openssl_systartup.com -$! -$! Restore the original default dev:[dir] (if known). -$! -$ clean_up: -$! -$ if (f$type( orig_dev_dir) .nes. "") -$ then -$ set default 'orig_dev_dir' -$ endif -$! -$ EXIT 'status' -$! diff --git a/VMS/openssl_undo.com b/VMS/openssl_undo.com deleted file mode 100755 index d1623a3160..0000000000 --- a/VMS/openssl_undo.com +++ /dev/null @@ -1,20 +0,0 @@ -$! -$! Deassign OpenSSL logical names. -$! -$ call deass "OPENSSL" "''p1'" -$ call deass "SSLCERTS" "''p1'" -$ call deass "SSLEXE" "''p1'" -$ call deass "SSLINCLUDE" "''p1'" -$ call deass "SSLLIB" "''p1'" -$ call deass "SSLPRIVATE" "''p1'" -$ call deass "SSLROOT" "''p1'" -$! -$ exit -$! -$deass: subroutine -$ if (f$trnlnm( p1) .nes. "") -$ then -$ deassign 'p2' 'p1' -$ endif -$ endsubroutine -$! diff --git a/VMS/socketshr_shr.opt b/VMS/socketshr_shr.opt deleted file mode 100644 index f6e3131626..0000000000 --- a/VMS/socketshr_shr.opt +++ /dev/null @@ -1 +0,0 @@ -socketshr/share diff --git a/VMS/tcpip_shr_decc.opt b/VMS/tcpip_shr_decc.opt deleted file mode 100644 index 33b159e5f5..0000000000 --- a/VMS/tcpip_shr_decc.opt +++ /dev/null @@ -1 +0,0 @@ -sys$share:tcpip$ipc_shr.exe/share diff --git a/VMS/ucx_shr_decc.opt b/VMS/ucx_shr_decc.opt deleted file mode 100644 index 28d84f4af6..0000000000 --- a/VMS/ucx_shr_decc.opt +++ /dev/null @@ -1 +0,0 @@ -sys$share:ucx$ipc_shr.exe/share diff --git a/VMS/ucx_shr_decc_log.opt b/VMS/ucx_shr_decc_log.opt deleted file mode 100644 index c9d9a96d09..0000000000 --- a/VMS/ucx_shr_decc_log.opt +++ /dev/null @@ -1 +0,0 @@ -ucx$ipc_shr/share diff --git a/VMS/ucx_shr_vaxc.opt b/VMS/ucx_shr_vaxc.opt deleted file mode 100644 index 86bfaf0d07..0000000000 --- a/VMS/ucx_shr_vaxc.opt +++ /dev/null @@ -1 +0,0 @@ -sys$library:ucx$ipc.olb/library diff --git a/apps/CA.com b/apps/CA.com deleted file mode 100644 index 95925d3111..0000000000 --- a/apps/CA.com +++ /dev/null @@ -1,221 +0,0 @@ -$! CA - wrapper around ca to make it easier to use ... basically ca requires -$! some setup stuff to be done before you can use it and this makes -$! things easier between now and when Eric is convinced to fix it :-) -$! -$! CA -newca ... will setup the right stuff -$! CA -newreq ... will generate a certificate request -$! CA -sign ... will sign the generated request and output -$! -$! At the end of that grab newreq.pem and newcert.pem (one has the key -$! and the other the certificate) and cat them together and that is what -$! you want/need ... I'll make even this a little cleaner later. -$! -$! default openssl.cnf file has setup as per the following -$! demoCA ... where everything is stored -$ -$ IF F$TYPE(OPENSSL_CONFIG) .EQS. "" THEN OPENSSL_CONFIG := SSLLIB:OPENSSL.CNF -$ -$ DAYS = "-days 365" -$ REQ = openssl + " req " + OPENSSL_CONFIG -$ CA = openssl + " ca " + OPENSSL_CONFIG -$ VERIFY = openssl + " verify" -$ X509 = openssl + " x509" -$ PKCS12 = openssl + " pkcs12" -$ echo = "write sys$Output" -$ RET = 1 -$! -$! 2010-12-20 SMS. -$! Use a concealed logical name to reduce command line lengths, to -$! avoid DCL errors on VAX: -$! %DCL-W-TKNOVF, command element is too long - shorten -$! (Path segments like "openssl-1_0_1-stable-SNAP-20101217" accumulate -$! quickly.) -$! -$ CATOP = F$PARSE( F$ENVIRONMENT( "DEFAULT"), "[]")- "].;"+ ".demoCA.]" -$ define /translation_attributes = concealed CATOP 'CATOP' -$! -$ on error then goto clean_up -$ on control_y then goto clean_up -$! -$ CAKEY = "CATOP:[private]cakey.pem" -$ CACERT = "CATOP:[000000]cacert.pem" -$ -$ __INPUT := SYS$COMMAND -$! -$ i = 1 -$opt_loop: -$ if i .gt. 8 then goto opt_loop_end -$ -$ prog_opt = F$EDIT(P'i',"lowercase") -$ -$ IF (prog_opt .EQS. "?" .OR. prog_opt .EQS. "-h" .OR. prog_opt .EQS. "-help") -$ THEN -$ echo "usage: CA -newcert|-newreq|-newca|-sign|-verify" -$ goto clean_up -$ ENDIF -$! -$ IF (prog_opt .EQS. "-input") -$ THEN -$ ! Get input from somewhere other than SYS$COMMAND -$ i = i + 1 -$ __INPUT = P'i' -$ GOTO opt_loop_continue -$ ENDIF -$! -$ IF (prog_opt .EQS. "-newcert") -$ THEN -$ ! Create a certificate. -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ REQ -new -x509 -keyout newreq.pem -out newreq.pem 'DAYS' -$ RET=$STATUS -$ echo "Certificate (and private key) is in newreq.pem" -$ GOTO opt_loop_continue -$ ENDIF -$! -$ IF (prog_opt .EQS. "-newreq") -$ THEN -$ ! Create a certificate request -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ REQ -new -keyout newreq.pem -out newreq.pem 'DAYS' -$ RET=$STATUS -$ echo "Request (and private key) is in newreq.pem" -$ GOTO opt_loop_continue -$ ENDIF -$! -$ IF (prog_opt .EQS. "-newca") -$ THEN -$ ! If explicitly asked for or it doesn't exist then setup the directory -$ ! structure that Eric likes to manage things. -$ IF F$SEARCH( "CATOP:[000000]serial.") .EQS. "" -$ THEN -$ CREATE /DIRECTORY /PROTECTION=OWNER:RWED CATOP:[000000] -$ CREATE /DIRECTORY /PROTECTION=OWNER:RWED CATOP:[certs] -$ CREATE /DIRECTORY /PROTECTION=OWNER:RWED CATOP:[crl] -$ CREATE /DIRECTORY /PROTECTION=OWNER:RWED CATOP:[newcerts] -$ CREATE /DIRECTORY /PROTECTION=OWNER:RWED CATOP:[private] -$ -$ OPEN /WRITE ser_file CATOP:[000000]serial. -$ WRITE ser_file "01" -$ CLOSE ser_file -$ APPEND /NEW_VERSION NL: CATOP:[000000]index.txt -$ -$ ! The following is to make sure access() doesn't get confused. It -$ ! really needs one file in the directory to give correct answers... -$ COPY NLA0: CATOP:[certs].; -$ COPY NLA0: CATOP:[crl].; -$ COPY NLA0: CATOP:[newcerts].; -$ COPY NLA0: CATOP:[private].; -$ ENDIF -$! -$ IF F$SEARCH( CAKEY) .EQS. "" -$ THEN -$ READ '__INPUT' FILE - - /PROMPT="CA certificate filename (or enter to create): " -$ IF (FILE .NES. "") .AND. (F$SEARCH(FILE) .NES. "") -$ THEN -$ COPY 'FILE' 'CAKEY' -$ RET=$STATUS -$ ELSE -$ echo "Making CA certificate ..." -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ REQ -new -x509 -keyout 'CAKEY' -out 'CACERT' 'DAYS' -$ RET=$STATUS -$ ENDIF -$ ENDIF -$ GOTO opt_loop_continue -$ ENDIF -$! -$ IF (prog_opt .EQS. "-pkcs12") -$ THEN -$ i = i + 1 -$ cname = P'i' -$ IF cname .EQS. "" THEN cname = "My certificate" -$ PKCS12 -in newcert.pem -inkey newreq.pem -certfile 'CACERT' - - -out newcert.p12 -export -name "''cname'" -$ RET=$STATUS -$ goto clean_up -$ ENDIF -$! -$ IF (prog_opt .EQS. "-xsign") -$ THEN -$! -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ CA -policy policy_anything -infiles newreq.pem -$ RET=$STATUS -$ GOTO opt_loop_continue -$ ENDIF -$! -$ IF ((prog_opt .EQS. "-sign") .OR. (prog_opt .EQS. "-signreq")) -$ THEN -$! -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ CA -policy policy_anything -out newcert.pem -infiles newreq.pem -$ RET=$STATUS -$ type newcert.pem -$ echo "Signed certificate is in newcert.pem" -$ GOTO opt_loop_continue -$ ENDIF -$! -$ IF (prog_opt .EQS. "-signcert") -$ THEN -$! -$ echo "Cert passphrase will be requested twice - bug?" -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ X509 -x509toreq -in newreq.pem -signkey newreq.pem -out tmp.pem -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ CA -policy policy_anything -out newcert.pem -infiles tmp.pem -y -y -$ type newcert.pem -$ echo "Signed certificate is in newcert.pem" -$ GOTO opt_loop_continue -$ ENDIF -$! -$ IF (prog_opt .EQS. "-verify") -$ THEN -$! -$ i = i + 1 -$ IF (p'i' .EQS. "") -$ THEN -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ VERIFY "-CAfile" 'CACERT' newcert.pem -$ ELSE -$ j = i -$ verify_opt_loop: -$ IF j .GT. 8 THEN GOTO verify_opt_loop_end -$ IF p'j' .NES. "" -$ THEN -$ DEFINE /USER_MODE SYS$INPUT '__INPUT' -$ __tmp = p'j' -$ VERIFY "-CAfile" 'CACERT' '__tmp' -$ tmp=$STATUS -$ IF tmp .NE. 0 THEN RET=tmp -$ ENDIF -$ j = j + 1 -$ GOTO verify_opt_loop -$ verify_opt_loop_end: -$ ENDIF -$ -$ GOTO opt_loop_end -$ ENDIF -$! -$ IF (prog_opt .NES. "") -$ THEN -$! -$ echo "Unknown argument ''prog_opt'" -$ RET = 3 -$ goto clean_up -$ ENDIF -$ -$opt_loop_continue: -$ i = i + 1 -$ GOTO opt_loop -$ -$opt_loop_end: -$! -$clean_up: -$! -$ if f$trnlnm( "CATOP", "LNM$PROCESS") .nes. "" then - - deassign /process CATOP -$! -$ EXIT 'RET' diff --git a/apps/install-apps.com b/apps/install-apps.com deleted file mode 100755 index 7a553aa12e..0000000000 --- a/apps/install-apps.com +++ /dev/null @@ -1,107 +0,0 @@ -$! INSTALL.COM -- Installs the files in a given directory tree -$! -$! Author: Richard Levitte <richard@levitte.org> -$! Time of creation: 22-MAY-1998 10:13 -$! -$! P1 root of the directory tree -$! P2 "64" for 64-bit pointers. -$! -$! -$! Announce/identify. -$! -$ proc = f$environment( "procedure") -$ write sys$output "@@@ "+ - - f$parse( proc, , , "name")+ f$parse( proc, , , "type") -$! -$ on error then goto tidy -$ on control_c then goto tidy -$! -$ if (p1 .eqs. "") -$ then -$ write sys$output "First argument missing." -$ write sys$output - - "It should be the directory where you want things installed." -$ exit -$ endif -$! -$ if (f$getsyi("cpu") .lt. 128) -$ then -$ arch = "VAX" -$ else -$ arch = f$edit( f$getsyi( "arch_name"), "upcase") -$ if (arch .eqs. "") then arch = "UNK" -$ endif -$! -$ archd = arch -$! -$ if (p2 .nes. "") -$ then -$ if (p2 .eqs. "64") -$ then -$ archd = arch+ "_64" -$ else -$ if (p2 .nes. "32") -$ then -$ write sys$output "Second argument invalid." -$ write sys$output "It should be "32", "64", or nothing." -$ exit -$ endif -$ endif -$ endif -$! -$ root = f$parse( p1, "[]A.;0", , , "syntax_only, no_conceal") - "A.;0" -$ root_dev = f$parse(root,,,"device","syntax_only") -$ root_dir = f$parse(root,,,"directory","syntax_only") - - - "[000000." - "][" - "[" - "]" -$ root = root_dev + "[" + root_dir -$! -$ define /nolog wrk_sslroot 'root'.] /trans=conc -$ define /nolog wrk_sslxexe wrk_sslroot:['archd'_exe] -$! -$ if f$parse("wrk_sslroot:[000000]") .eqs. "" then - - create /directory /log wrk_sslroot:[000000] -$ if f$parse("wrk_sslxexe:") .eqs. "" then - - create /directory /log wrk_sslxexe: -$! -$ exe := openssl -$! -$ exe_dir := [-.'archd'.exe.apps] -$! -$! Executables. -$! -$ i = 0 -$ loop_exe: -$ e = f$edit(f$element( i, ",", exe), "trim") -$ i = i + 1 -$ if e .eqs. "," then goto loop_exe_end -$ set noon -$ file = exe_dir+ e+ ".exe" -$ if f$search( file) .nes. "" -$ then -$ copy /protection = w:re 'file' wrk_sslxexe: /log -$ endif -$ set on -$ goto loop_exe -$ loop_exe_end: -$! -$! Miscellaneous. -$! -$ set noon -$ copy /protection = w:re ca.com wrk_sslxexe:ca.com /log -$ copy /protection = w:re openssl-vms.cnf wrk_sslroot:[000000]openssl.cnf /log -$ set on -$! -$ tidy: -$! -$ call deass wrk_sslroot -$ call deass wrk_sslxexe -$! -$ exit -$! -$ deass: subroutine -$ if (f$trnlnm( p1, "LNM$PROCESS") .nes. "") -$ then -$ deassign /process 'p1' -$ endif -$ endsubroutine -$! diff --git a/apps/makeapps.com b/apps/makeapps.com deleted file mode 100644 index 2724cc6051..0000000000 --- a/apps/makeapps.com +++ /dev/null @@ -1,1169 +0,0 @@ -$! -$! MAKEAPPS.COM -$! Written 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 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 -$! ALPHA, IA64 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 DEBUG or NODEBUG as P1 to compile with or without debugger -$! information. -$! -$! Specify which compiler at P2 to try to compile under. -$! -$! VAXC For VAX C. -$! DECC For DEC C. -$! GNUC For GNU C. -$! -$! If you don't specify a compiler, it will try to determine which -$! "C" compiler to use. -$! -$! P3, 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) -$! -$! P4, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up) -$! -$! P5, if defined, sets a choice of programs to compile. -$! -$! P6, 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). -$! -$! 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") -$! -$ on control_c then goto exit -$! -$! Define A TCP/IP Library That We Will Need To Link To. -$! (That Is, If We Need To Link To One.) -$! -$ TCPIP_LIB = "" -$ ZLIB_LIB = "" -$! -$! 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" -$ OPT_FILE = "" -$ POINTER_SIZE = "" -$! -$! Define what programs should be compiled -$! -$ PROGRAMS := OPENSSL -$! -$! Check To Make Sure We Have Valid Command Line Parameters. -$! -$ GOSUB CHECK_OPTIONS -$! -$! Define The CRYPTO Library. -$! -$ CRYPTO_LIB := SYS$DISK:[-.'ARCHD'.EXE.CRYPTO]SSL_LIBCRYPTO'LIB32'.OLB -$! -$! Define The SSL Library. -$! -$ SSL_LIB := SYS$DISK:[-.'ARCHD'.EXE.SSL]SSL_LIBSSL'LIB32'.OLB -$! -$! Define The OBJ and EXE Directories. -$! -$ OBJ_DIR := SYS$DISK:[-.'ARCHD'.OBJ.APPS] -$ EXE_DIR := SYS$DISK:[-.'ARCHD'.EXE.APPS] -$! -$! Specify the destination directory in any /MAP option. -$! -$ if (LINKMAP .eqs. "MAP") -$ then -$ LINKMAP = LINKMAP+ "=''EXE_DIR'" -$ endif -$! -$! Add the location prefix to the linker options file name. -$! -$ if (OPT_FILE .nes. "") -$ then -$ OPT_FILE = EXE_DIR+ OPT_FILE -$ endif -$! -$! Initialise logical names and such -$! -$ GOSUB INITIALISE -$! -$! Tell The User What Kind of Machine We Run On. -$! -$ WRITE SYS$OUTPUT "Host system architecture: ''ARCHD'" -$! -$! 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 -$! -$! 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. -$! NOTE: Some might think this list ugly. However, it's made this way to -$! reflect the E_OBJ variable in Makefile as closely as possible, thereby -$! making it fairly easy to verify that the lists are the same. -$! -$ LIB_OPENSSL = "VERIFY,ASN1PARS,REQ,DGST,DHPARAM,ENC,PASSWD,ERRSTR,"+- - "CA,PKCS7,CRL2P7,CRL,"+- - "RSA,RSAUTL,DSA,DSAPARAM,EC,ECPARAM,"+- - "X509,GENRSA,GENDSA,GENPKEY,S_SERVER,S_CLIENT,SPEED,"+- - "S_TIME,APPS,S_CB,S_SOCKET,APP_RAND,VERSION,SESS_ID,"+- - "CIPHERS,NSEQ,PKCS12,PKCS8,PKEY,PKEYPARAM,PKEYUTL,"+ - - "SPKAC,SMIME,CMS,RAND,ENGINE,OCSP,PRIME,TS,SRP" -$! -$ LIB_OPENSSL = LIB_OPENSSL+ ",VMS_DECC_INIT" -$! -$ TCPIP_PROGRAMS = ",," -$ IF COMPILER .EQS. "VAXC" THEN - - TCPIP_PROGRAMS = ",OPENSSL," -$! -$! Setup exceptional compilations -$! -$ COMPILEWITH_CC2 = ",S_SOCKET,S_SERVER,S_CLIENT," -$! -$ PHASE := LIB -$! -$ RESTART: -$! -$! Define An App Counter And Set It To "0". -$! -$ APP_COUNTER = 0 -$! -$! Top Of The App Loop. -$! -$ NEXT_APP: -$! -$! Make The Application File Name -$! -$ CURRENT_APP = F$EDIT(F$ELEMENT(APP_COUNTER,",",PROGRAMS),"TRIM") -$! -$! Create The Executable File Name. -$! -$ EXE_FILE = EXE_DIR + CURRENT_APP + ".EXE" -$! -$! Check To See If We Are At The End Of The File List. -$! -$ IF (CURRENT_APP.EQS.",") -$ THEN -$ IF (PHASE.EQS."LIB") -$ THEN -$ PHASE := APP -$ GOTO RESTART -$ ELSE -$ GOTO APP_DONE -$ ENDIF -$ ENDIF -$! -$! Increment The Counter. -$! -$ APP_COUNTER = APP_COUNTER + 1 -$! -$! Decide if we're building the object files or not. -$! -$ IF (PHASE.EQS."LIB") -$ THEN -$! -$! Define A Library File Counter And Set It To "-1". -$! -1 Means The Application File Name Is To Be Used. -$! -$ LIB_COUNTER = -1 -$! -$! Create a .OPT file for the object files -$! -$ OPEN /WRITE OBJECTS 'EXE_DIR''CURRENT_APP'.OPT -$! -$! Top Of The File Loop. -$! -$ NEXT_LIB: -$! -$! O.K, Extract The File Name From The File List. -$! -$ IF LIB_COUNTER .GE. 0 -$ THEN -$ FILE_NAME = F$EDIT(F$ELEMENT(LIB_COUNTER,",",LIB_'CURRENT_APP'),"TRIM") -$ ELSE -$ FILE_NAME = CURRENT_APP -$ ENDIF -$! -$! Check To See If We Are At The End Of The File List. -$! -$ IF (FILE_NAME.EQS.",") -$ THEN -$ CLOSE OBJECTS -$ GOTO NEXT_APP -$ ENDIF -$! -$! Increment The Counter. -$! -$ LIB_COUNTER = LIB_COUNTER + 1 -$! -$! Create The Source File Name. -$! -$ SOURCE_FILE = "SYS$DISK:[]" + FILE_NAME + ".C" -$! -$! Create The Object File Name. -$! -$ OBJECT_FILE = OBJ_DIR + FILE_NAME + ".OBJ" -$ ON WARNING THEN GOTO NEXT_LIB -$! -$! Check To See If The File We Want To Compile Actually Exists. |