1$! INSTALL.COM -- Installs the files in a given directory tree 2$! 3$! Author: Richard Levitte <richard@levitte.org> 4$! Time of creation: 23-MAY-1998 19:22 5$! 6$! P1 root of the directory tree 7$! 8$ IF P1 .EQS. "" 9$ THEN 10$ WRITE SYS$OUTPUT "First argument missing." 11$ WRITE SYS$OUTPUT "Should be the directory where you want things installed." 12$ EXIT 13$ ENDIF 14$ 15$ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0" 16$ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY") 17$ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - 18 - "[000000." - "][" - "[" - "]" 19$ ROOT = ROOT_DEV + "[" + ROOT_DIR 20$ 21$ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC 22$ DEFINE/NOLOG WRK_SSLVLIB WRK_SSLROOT:[VAX_LIB] 23$ DEFINE/NOLOG WRK_SSLALIB WRK_SSLROOT:[ALPHA_LIB] 24$ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE] 25$ DEFINE/NOLOG WRK_SSLVEXE WRK_SSLROOT:[VAX_EXE] 26$ DEFINE/NOLOG WRK_SSLAEXE WRK_SSLROOT:[ALPHA_EXE] 27$ DEFINE/NOLOG WRK_SSLCERTS WRK_SSLROOT:[CERTS] 28$ DEFINE/NOLOG WRK_SSLPRIVATE WRK_SSLROOT:[PRIVATE] 29$ 30$ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN - 31 CREATE/DIR/LOG WRK_SSLROOT:[000000] 32$ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN - 33 CREATE/DIR/LOG WRK_SSLINCLUDE: 34$ IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN - 35 CREATE/DIR/LOG WRK_SSLROOT:[VMS] 36$ 37$ IF F$SEARCH("WRK_SSLINCLUDE:vms_idhacks.h") .NES. "" THEN - 38 DELETE WRK_SSLINCLUDE:vms_idhacks.h;* 39$ 40$ OPEN/WRITE SF WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM 41$ WRITE SYS$OUTPUT "%OPEN-I-CREATED, ",F$SEARCH("WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM")," created." 42$ WRITE SF "$! Startup file for Openssl 0.9.2-RL 15-Mar-1999" 43$ WRITE SF "$!" 44$ WRITE SF "$! Do not edit this file, as it will be regenerated during next installation." 45$ WRITE SF "$! Instead, add or change SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM" 46$ WRITE SF "$!" 47$ WRITE SF "$! P1 a qualifier to DEFINE. For example ""/SYSTEM"" to get the logical names" 48$ WRITE SF "$! defined in the system logical name table." 49$ WRITE SF "$!" 50$ WRITE SF "$ ARCH = ""VAX""" 51$ WRITE SF "$ IF F$GETSYI(""CPU"") .GE. 128 THEN ARCH = ""ALPHA""" 52$ WRITE SF "$ DEFINE/NOLOG'P1 SSLROOT ",ROOT,".] /TRANS=CONC" 53$ WRITE SF "$ DEFINE/NOLOG'P1 SSLLIB SSLROOT:['ARCH'_LIB]" 54$ WRITE SF "$ DEFINE/NOLOG'P1 SSLINCLUDE SSLROOT:[INCLUDE]" 55$ WRITE SF "$ DEFINE/NOLOG'P1 SSLEXE SSLROOT:['ARCH'_EXE]" 56$ WRITE SF "$ DEFINE/NOLOG'P1 SSLCERTS SSLROOT:[CERTS]" 57$ WRITE SF "$ DEFINE/NOLOG'P1 SSLPRIVATE SSLROOT:[PRIVATE]" 58$ WRITE SF "$" 59$ WRITE SF "$! This is program can include <openssl/{foo}.h>" 60$ WRITE SF "$ DEFINE/NOLOG'P1 OPENSSL SSLINCLUDE:" 61$ WRITE SF "$" 62$ WRITE SF "$ IF F$SEARCH(""SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM"") .NES."""" THEN -" 63$ WRITE SF " @SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM" 64$ WRITE SF "$" 65$ WRITE SF "$ EXIT" 66$ CLOSE SF 67$ SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM 68$ 69$ COPY OPENSSL_UTILS.COM WRK_SSLROOT:[VMS]/LOG 70$ SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_UTILS.COM 71$ 72$ EXIT 73