| OLD | NEW |
| (Empty) |
| 1 $! INSTALL.COM -- Installs the files in a given directory tree | |
| 2 $! | |
| 3 $! Author: Richard Levitte <richard@levitte.org> | |
| 4 $! Time of creation: 27-MAY-2004 11:47 | |
| 5 $! | |
| 6 $! P1 root of the directory tree | |
| 7 $! | |
| 8 $ IF P1 .EQS. "" | |
| 9 $ THEN | |
| 10 $ WRITE SYS$OUTPUT "First argument missing." | |
| 11 $ WRITE SYS$OUTPUT "Should be the directory where you want things inst
alled." | |
| 12 $ EXIT | |
| 13 $ ENDIF | |
| 14 $ | |
| 15 $ IF (F$GETSYI("CPU").LT.128) | |
| 16 $ THEN | |
| 17 $ ARCH := VAX | |
| 18 $ ELSE | |
| 19 $ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE") | |
| 20 $ IF (ARCH .EQS. "") THEN ARCH = "UNK" | |
| 21 $ ENDIF | |
| 22 $ | |
| 23 $ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0" | |
| 24 $ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY") | |
| 25 $ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - | |
| 26 - "[000000." - "][" - "[" - "]" | |
| 27 $ ROOT = ROOT_DEV + "[" + ROOT_DIR | |
| 28 $ | |
| 29 $ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC | |
| 30 $ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE] | |
| 31 $ | |
| 32 $ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN - | |
| 33 CREATE/DIR/LOG WRK_SSLROOT:[000000] | |
| 34 $ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN - | |
| 35 CREATE/DIR/LOG WRK_SSLINCLUDE: | |
| 36 $ | |
| 37 $ FDIRS := ,RAND,SHA,DES,AES,DSA,RSA,DH,HMAC | |
| 38 $ EXHEADER_ := fips.h | |
| 39 $ EXHEADER_SHA := fips_sha.h | |
| 40 $ EXHEADER_RAND := fips_rand.h | |
| 41 $ EXHEADER_DES := | |
| 42 $ EXHEADER_AES := | |
| 43 $ EXHEADER_DSA := | |
| 44 $ EXHEADER_RSA := | |
| 45 $ EXHEADER_DH := | |
| 46 $ EXHEADER_HMAC := | |
| 47 $ | |
| 48 $ I = 0 | |
| 49 $ LOOP_FDIRS: | |
| 50 $ D = F$EDIT(F$ELEMENT(I, ",", FDIRS),"TRIM") | |
| 51 $ I = I + 1 | |
| 52 $ IF D .EQS. "," THEN GOTO LOOP_FDIRS_END | |
| 53 $ tmp = EXHEADER_'D' | |
| 54 $ IF tmp .EQS. "" THEN GOTO LOOP_FDIRS | |
| 55 $ IF D .EQS. "" | |
| 56 $ THEN | |
| 57 $ COPY 'tmp' WRK_SSLINCLUDE: /LOG | |
| 58 $ ELSE | |
| 59 $ COPY [.'D']'tmp' WRK_SSLINCLUDE: /LOG | |
| 60 $ ENDIF | |
| 61 $ SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'tmp' | |
| 62 $ GOTO LOOP_FDIRS | |
| 63 $ LOOP_FDIRS_END: | |
| 64 $ | |
| 65 $ EXIT | |
| OLD | NEW |