diff options
Diffstat (limited to 'install.com')
-rw-r--r-- | install.com | 62 |
1 files changed, 37 insertions, 25 deletions
diff --git a/install.com b/install.com index 7c88603e46..d9285e6150 100644 --- a/install.com +++ b/install.com @@ -7,15 +7,25 @@ $! P1 root of the directory tree $! P2 prefix for certain file (this is really for Compaq, who need to $! use the SSL$ prefix) $! +$ DEF_ORIG = F$ENVIRONMENT( "DEFAULT") +$ ON ERROR THEN GOTO TIDY +$ ON CONTROL_C THEN GOTO TIDY +$ $ IF P1 .EQS. "" $ THEN $ WRITE SYS$OUTPUT "First argument missing." -$ WRITE SYS$OUTPUT "Should be the directory where you want things installed." +$ WRITE SYS$OUTPUT - + "It Should be the directory where you want things installed." $ EXIT $ ENDIF $ -$ ARCH = "AXP" -$ IF F$GETSYI("CPU") .LT. 128 THEN ARCH = "VAX" +$ 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") @@ -24,26 +34,27 @@ $ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - $ 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_SSLXLIB WRK_SSLROOT:['ARCH'_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_SSLXEXE WRK_SSLROOT:['ARCH'_EXE] $ DEFINE/NOLOG WRK_SSLCERTS WRK_SSLROOT:[CERTS] $ DEFINE/NOLOG WRK_SSLCOM WRK_SSLROOT:[COM] $ DEFINE/NOLOG WRK_SSLPRIVATE WRK_SSLROOT:[PRIVATE] $ +$! +$! Exhibit the destination directory. +$! +$ WRITE SYS$OUTPUT " Installing to (WRK_SSLROOT) =" +$ WRITE SYS$OUTPUT " ''f$trnlnm( "WRK_SSLROOT")'" +$ WRITE SYS$OUTPUT "" +$ $ 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_SSLXEXE:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLXEXE: +$ IF F$PARSE("WRK_SSLXLIB:") .EQS. "" THEN - + CREATE/DIR/LOG WRK_SSLXLIB: $ IF F$PARSE("WRK_SSLLIB:") .EQS. "" THEN - CREATE/DIR/LOG WRK_SSLLIB: $ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN - @@ -75,21 +86,22 @@ $ SET DEFAULT [-] $ GOTO LOOP_SDIRS $ LOOP_SDIRS_END: $ +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT " Installation done!" +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT " You might want to purge ",ROOT,"...]" +$ WRITE SYS$OUTPUT "" +$ +$ TIDY: +$ SET DEFAULT 'DEF_ORIG' +$ $ DEASSIGN WRK_SSLROOT -$ DEASSIGN WRK_SSLVLIB -$ DEASSIGN WRK_SSLALIB +$ DEASSIGN WRK_SSLXLIB $ DEASSIGN WRK_SSLLIB $ DEASSIGN WRK_SSLINCLUDE -$ DEASSIGN WRK_SSLVEXE -$ DEASSIGN WRK_SSLAEXE +$ DEASSIGN WRK_SSLXEXE $ DEASSIGN WRK_SSLCERTS $ DEASSIGN WRK_SSLCOM $ 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 |