diff options
| author | Ulf Möller <ulf@openssl.org> | 1999-05-13 11:37:32 +0000 |
|---|---|---|
| committer | Ulf Möller <ulf@openssl.org> | 1999-05-13 11:37:32 +0000 |
| commit | 7d7d2cbcb02206f3393681f2bce198e11e2e185b (patch) | |
| tree | 93410fafc5aa977c748ea492994da3f581d11278 /install.com | |
| parent | 8d111f4a476896a417069d16597ce3009f9bb992 (diff) | |
VMS support.
Submitted by: Richard Levitte <richard@levitte.org>
Diffstat (limited to 'install.com')
| -rw-r--r-- | install.com | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/install.com b/install.com new file mode 100644 index 0000000000..436b5bc095 --- /dev/null +++ b/install.com @@ -0,0 +1,88 @@ +$! 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 +$! +$ IF P1 .EQS. "" +$ THEN +$ WRITE SYS$OUTPUT "First argument missing." +$ WRITE SYS$OUTPUT "Should be the directory where you want things installed." +$ EXIT +$ ENDIF +$ +$ ARCH = "AXP" +$ IF F$GETSYI("CPU") .LT. 128 THEN ARCH = "VAX" +$ +$ 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" - "[000000." - "][" - "[" - "]" +$ ROOT = ROOT_DEV + "[" + ROOT_DIR +$ +$ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC +$ DEFINE/NOLOG WRK_SSLVLIB WRK_SSLROOT:[VAX_LIB] +$ DEFINE/NOLOG WRK_SSLALIB WRK_SSLROOT:[ALPHA_LIB] +$ DEFINE/NOLOG WRK_SSLLIB WRK_SSLROOT:[LIB] +$ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE] +$ DEFINE/NOLOG WRK_SSLVEXE WRK_SSLROOT:[VAX_EXE] +$ DEFINE/NOLOG WRK_SSLAEXE WRK_SSLROOT:[ALPHA_EXE] +$ DEFINE/NOLOG WRK_SSLCERTS WRK_SSLROOT:[CERTS] +$ DEFINE/NOLOG WRK_SSLPRIVATE WRK_SSLROOT:[PRIVATE] +$ +$ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLROOT:[000000] +$ IF F$PARSE("WRK_SSLVEXE:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLVEXE: +$ IF F$PARSE("WRK_SSLAEXE:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLAEXE: +$ IF F$PARSE("WRK_SSLVLIB:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLVLIB: +$ IF F$PARSE("WRK_SSLALIB:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLALIB: +$ IF F$PARSE("WRK_SSLLIB:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLLIB: +$ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLINCLUDE: +$ IF F$PARSE("WRK_SSLCERTS:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLCERTS: +$ IF F$PARSE("WRK_SSLPRIVATE:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLPRIVATE: +$ IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLROOT:[VMS] +$ +$ SDIRS := CRYPTO,SSL,RSAREF,APPS,VMS!,TEST,TOOLS +$ EXHEADER := e_os.h +$ +$ COPY 'EXHEADER' WRK_SSLINCLUDE: /LOG +$ +$ I = 0 +$ LOOP_SDIRS: +$ D = F$ELEMENT(I, ",", SDIRS) +$ I = I + 1 +$ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END +$ WRITE SYS$OUTPUT "Installing ",D," files." +$ SET DEFAULT [.'D'] +$ @INSTALL 'ROOT'] +$ SET DEFAULT [-] +$ GOTO LOOP_SDIRS +$ LOOP_SDIRS_END: +$ +$ DEASSIGN WRK_SSLROOT +$ DEASSIGN WRK_SSLVLIB +$ DEASSIGN WRK_SSLALIB +$ DEASSIGN WRK_SSLLIB +$ DEASSIGN WRK_SSLINCLUDE +$ DEASSIGN WRK_SSLVEXE +$ DEASSIGN WRK_SSLAEXE +$ DEASSIGN WRK_SSLCERTS +$ DEASSIGN WRK_SSLPRIVATE +$ +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT " Installation done!" +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT " You might want to purge ",ROOT,"...]" +$ WRITE SYS$OUTPUT "" +$ +$ EXIT |