1
$! INSTALL.COM -- Installs the files in a given directory tree
3
$! Author: Richard Levitte <richard@levitte.org>
4
$! Time of creation: 23-MAY-1998 19:22
6
$! P1 root of the directory tree
10
$ WRITE SYS$OUTPUT "First argument missing."
11
$ WRITE SYS$OUTPUT "Should be the directory where you want things installed."
15
$ IF (F$GETSYI("CPU").LT.128)
19
$ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
20
$ IF (ARCH .EQS. "") THEN ARCH = "UNK"
23
$ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0"
24
$ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY")
25
$ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") -
26
- "[000000." - "][" - "[" - "]"
27
$ ROOT = ROOT_DEV + "[" + ROOT_DIR
29
$ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC
30
$ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE]
32
$ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN -
33
CREATE/DIR/LOG WRK_SSLROOT:[000000]
34
$ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN -
35
CREATE/DIR/LOG WRK_SSLINCLUDE:
36
$ IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN -
37
CREATE/DIR/LOG WRK_SSLROOT:[VMS]
39
$ IF F$SEARCH("WRK_SSLINCLUDE:vms_idhacks.h") .NES. "" THEN -
40
DELETE WRK_SSLINCLUDE:vms_idhacks.h;*
42
$ OPEN/WRITE SF WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM
43
$ WRITE SYS$OUTPUT "%OPEN-I-CREATED, ",F$SEARCH("WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM")," created."
44
$ WRITE SF "$! Startup file for Openssl"
46
$ WRITE SF "$! Do not edit this file, as it will be regenerated during next installation."
47
$ WRITE SF "$! Instead, add or change SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM"
49
$ WRITE SF "$! P1 a qualifier to DEFINE. For example ""/SYSTEM"" to get the logical names"
50
$ WRITE SF "$! defined in the system logical name table."
52
$ WRITE SF "$ IF (F$GETSYI(""CPU"").LT.128)"
54
$ WRITE SF "$ ARCH := VAX"
56
$ WRITE SF "$ ARCH = F$EDIT( F$GETSYI( ""ARCH_NAME""), ""UPCASE"")"
57
$ WRITE SF "$ IF (ARCH .EQS. """") THEN ARCH = ""UNK"""
59
$ WRITE SF "$ DEFINE/NOLOG'P1 SSLROOT ",ROOT,".] /TRANS=CONC"
60
$ WRITE SF "$ DEFINE/NOLOG'P1 SSLLIB SSLROOT:['ARCH'_LIB]"
61
$ WRITE SF "$ DEFINE/NOLOG'P1 SSLINCLUDE SSLROOT:[INCLUDE]"
62
$ WRITE SF "$ DEFINE/NOLOG'P1 SSLEXE SSLROOT:['ARCH'_EXE]"
63
$ WRITE SF "$ DEFINE/NOLOG'P1 SSLCERTS SSLROOT:[CERTS]"
64
$ WRITE SF "$ DEFINE/NOLOG'P1 SSLPRIVATE SSLROOT:[PRIVATE]"
66
$ WRITE SF "$! This is program can include <openssl/{foo}.h>"
67
$ WRITE SF "$ DEFINE/NOLOG'P1 OPENSSL SSLINCLUDE:"
69
$ WRITE SF "$ IF F$SEARCH(""SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM"") .NES."""" THEN -"
70
$ WRITE SF " @SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM"
74
$ SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM
76
$ COPY OPENSSL_UTILS.COM WRK_SSLROOT:[VMS]/LOG
77
$ SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_UTILS.COM