From: Richard Levitte <levitte@openssl.org>
Date: Thu, 27 May 2004 10:07:04 +0000 (+0000)
Subject: Run an installation of FIPS stuff as well.
X-Git-Tag: OpenSSL_0_9_7e~88
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=3844adbf58a1863cb4c3e8b386c98dc9228a6451;p=oweals%2Fopenssl.git

Run an installation of FIPS stuff as well.
---

diff --git a/fips/install.com b/fips/install.com
new file mode 100644
index 0000000000..aa19f0599d
--- /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 4e4fe80dfe..8de3a7f977 100644
--- 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