Run an installation of FIPS stuff as well.

diff --git a/fips/install.com b/fips/install.com
new file mode 100644 (file)
index 0000000..aa19f05
--- /dev/null
+++ b/fips/install.com
@@ -0,0 +1,55 @@
+$! INSTALL.COM -- Installs the files in a given directory tree
+$!
+$! Author: Richard Levitte <richard@levitte.org>
+$! Time of creation: 27-MAY-2004 11:47
+$!
+$! 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
+$
+$      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:
+$
+$      FDIRS := ,RAND,SHA1,DES,AES,DSA,RSA
+$      EXHEADER_ := fips.h
+$      EXHEADER_SHA1 :=
+$      EXHEADER_RAND := fips_rand.h
+$      EXHEADER_DES :=
+$      EXHEADER_AES :=
+$      EXHEADER_DSA :=
+$      EXHEADER_RSA :=
+$
+$      I = 0
+$ LOOP_FDIRS: 
+$      D = F$EDIT(F$ELEMENT(I, ",", FDIRS),"TRIM")
+$      I = I + 1
+$      IF D .EQS. "," THEN GOTO LOOP_FDIRS_END
+$      tmp = EXHEADER_'D'
+$      IF tmp .EQS. "" THEN GOTO LOOP_FDIRS
+$      IF D .EQS. ""
+$      THEN
+$        COPY 'tmp' WRK_SSLINCLUDE: /LOG
+$      ELSE
+$        COPY [.'D']'tmp' WRK_SSLINCLUDE: /LOG
+$      ENDIF
+$      SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'tmp'
+$      GOTO LOOP_FDIRS
+$ LOOP_FDIRS_END:
+$
+$      EXIT

diff --git a/install.com b/install.com
index 4e4fe80dfe6bbbf0a6c763733ea3bccc61d613d1..8de3a7f9772e24a20aeedcec63488a99018eebf6 100644 (file)
--- a/install.com
+++ b/install.com
@@ -52,23 +52,23 @@ $   IF F$PARSE("WRK_SSLPRIVATE:") .EQS. "" THEN -
 $      IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN -
           CREATE/DIR/LOG WRK_SSLROOT:[VMS]
 $
-$      SDIRS := CRYPTO,SSL,APPS,VMS!,RSAREF,TEST,TOOLS
+$      DIRS := CRYPTO,FIPS,SSL,APPS,VMS!,RSAREF,TEST,TOOLS
 $      EXHEADER := e_os2.h
 $
 $      COPY 'EXHEADER' WRK_SSLINCLUDE: /LOG
 $      SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'EXHEADER'
 $
 $      I = 0
-$ LOOP_SDIRS: 
-$      D = F$ELEMENT(I, ",", SDIRS)
+$ LOOP_DIRS: 
+$      D = F$ELEMENT(I, ",", DIRS)
 $      I = I + 1
-$      IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
+$      IF D .EQS. "," THEN GOTO LOOP_DIRS_END
 $      WRITE SYS$OUTPUT "Installing ",D," files."
 $      SET DEFAULT [.'D']
 $      @INSTALL 'ROOT']
 $      SET DEFAULT [-]
-$      GOTO LOOP_SDIRS
-$ LOOP_SDIRS_END:
+$      GOTO LOOP_DIRS
+$ LOOP_DIRS_END:
 $
 $      DEASSIGN WRK_SSLROOT
 $      DEASSIGN WRK_SSLVLIB