48f48d96ce
Thank you\! (note: not tested for now, a few nightly builds should give indications though)
79 lines
2.9 KiB
Text
79 lines
2.9 KiB
Text
$! 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
|