Index: openssl/VMS/install.com |
=================================================================== |
--- openssl/VMS/install.com (revision 105093) |
+++ openssl/VMS/install.com (working copy) |
@@ -1,79 +0,0 @@ |
-$! INSTALL.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 |
-$! |
-$ 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'.] /TRANS=CONC |
-$ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE] |
-$ |
-$ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN - |
- CREATE/DIR/LOG WRK_SSLROOT:[000000] |
-$ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN - |
- CREATE/DIR/LOG WRK_SSLINCLUDE: |
-$ IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN - |
- CREATE/DIR/LOG WRK_SSLROOT:[VMS] |
-$ |
-$ IF F$SEARCH("WRK_SSLINCLUDE:vms_idhacks.h") .NES. "" THEN - |
- DELETE WRK_SSLINCLUDE:vms_idhacks.h;* |
-$ |
-$ OPEN/WRITE SF WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM |
-$ WRITE SYS$OUTPUT "%OPEN-I-CREATED, ",F$SEARCH("WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM")," created." |
-$ WRITE SF "$! Startup file for Openssl" |
-$ WRITE SF "$!" |
-$ WRITE SF "$! Do not edit this file, as it will be regenerated during next installation." |
-$ WRITE SF "$! Instead, add or change SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM" |
-$ WRITE SF "$!" |
-$ WRITE SF "$! P1 a qualifier to DEFINE. For example ""/SYSTEM"" to get the logical names" |
-$ WRITE SF "$! defined in the system logical name table." |
-$ WRITE SF "$!" |
-$ WRITE SF "$ IF (F$GETSYI(""CPU"").LT.128)" |
-$ WRITE SF "$ THEN" |
-$ WRITE SF "$ ARCH := VAX" |
-$ WRITE SF "$ ELSE" |
-$ WRITE SF "$ ARCH = F$EDIT( F$GETSYI( ""ARCH_NAME""), ""UPCASE"")" |
-$ WRITE SF "$ IF (ARCH .EQS. """") THEN ARCH = ""UNK""" |
-$ WRITE SF "$ ENDIF" |
-$ WRITE SF "$ DEFINE/NOLOG'P1 SSLROOT ",ROOT,".] /TRANS=CONC" |
-$ WRITE SF "$ DEFINE/NOLOG'P1 SSLLIB SSLROOT:['ARCH'_LIB]" |
-$ WRITE SF "$ DEFINE/NOLOG'P1 SSLINCLUDE SSLROOT:[INCLUDE]" |
-$ WRITE SF "$ DEFINE/NOLOG'P1 SSLEXE SSLROOT:['ARCH'_EXE]" |
-$ WRITE SF "$ DEFINE/NOLOG'P1 SSLCERTS SSLROOT:[CERTS]" |
-$ WRITE SF "$ DEFINE/NOLOG'P1 SSLPRIVATE SSLROOT:[PRIVATE]" |
-$ WRITE SF "$" |
-$ WRITE SF "$! This is program can include <openssl/{foo}.h>" |
-$ WRITE SF "$ DEFINE/NOLOG'P1 OPENSSL SSLINCLUDE:" |
-$ WRITE SF "$" |
-$ WRITE SF "$ IF F$SEARCH(""SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM"") .NES."""" THEN -" |
-$ WRITE SF " @SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM" |
-$ WRITE SF "$" |
-$ WRITE SF "$ EXIT" |
-$ CLOSE SF |
-$ SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM |
-$ |
-$ COPY OPENSSL_UTILS.COM WRK_SSLROOT:[VMS]/LOG |
-$ SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_UTILS.COM |
-$ |
-$ EXIT |