1 $! INSTALL.COM -- Installs the files in a given directory tree
3 $! Author: Richard Levitte <richard@levitte.org>
4 $! Time of creation: 27-MAY-2004 11:47
6 $! P1 root of the directory tree
10 $ WRITE SYS$OUTPUT "First argument missing."
11 $ WRITE SYS$OUTPUT "Should be the directory where you want things installed."
15 $ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0"
16 $ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY")
17 $ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") -
18 - "[000000." - "][" - "[" - "]"
19 $ ROOT = ROOT_DEV + "[" + ROOT_DIR
21 $ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC
22 $ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE]
24 $ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN -
25 CREATE/DIR/LOG WRK_SSLROOT:[000000]
26 $ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN -
27 CREATE/DIR/LOG WRK_SSLINCLUDE:
29 $ FDIRS := ,RAND,SHA1,DES,AES,DSA,RSA
32 $ EXHEADER_RAND := fips_rand.h
40 $ D = F$EDIT(F$ELEMENT(I, ",", FDIRS),"TRIM")
42 $ IF D .EQS. "," THEN GOTO LOOP_FDIRS_END
44 $ IF tmp .EQS. "" THEN GOTO LOOP_FDIRS
47 $ COPY 'tmp' WRK_SSLINCLUDE: /LOG
49 $ COPY [.'D']'tmp' WRK_SSLINCLUDE: /LOG
51 $ SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'tmp'