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 |