Implement health checks needed by SP800-90.

[openssl.git] / install.com

diff --git a/install.com b/install.com
index 86fae7e872a48fa6791633ca7e99c76d7fded5cc..d15c23a83252ae4bedfebce2a148b598f3033d4c 100644 (file)
--- a/install.com
+++ b/install.com
@@ -5,15 +5,25 @@ $! Time of creation: 22-MAY-1998 10:13
 $!
 $! P1  root of the directory tree
 $!
+$      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")
@@ -22,25 +32,26 @@ $   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_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 -
@@ -52,7 +63,7 @@ $     IF F$PARSE("WRK_SSLPRIVATE:") .EQS. "" THEN -
 $      IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN -
           CREATE/DIR/LOG WRK_SSLROOT:[VMS]
 $
-$      SDIRS := CRYPTO,SSL,RSAREF,APPS,VMS!,TEST,TOOLS
+$      SDIRS := CRYPTO,SSL,APPS,VMS!,RSAREF,TEST,TOOLS
 $      EXHEADER := e_os2.h
 $
 $      COPY 'EXHEADER' WRK_SSLINCLUDE: /LOG
@@ -70,20 +81,21 @@ $   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 ""
 $
+$ TIDY:
+$      SET DEFAULT 'DEF_ORIG'
+$
+$      DEASSIGN WRK_SSLROOT
+$      DEASSIGN WRK_SSLXLIB
+$      DEASSIGN WRK_SSLLIB
+$      DEASSIGN WRK_SSLINCLUDE
+$      DEASSIGN WRK_SSLXEXE
+$      DEASSIGN WRK_SSLCERTS
+$      DEASSIGN WRK_SSLPRIVATE
+$
 $      EXIT