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 installed." 12$ EXIT 13$ ENDIF 14$ 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 20$ 21$ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC 22$ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE] 23$ 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: 28$ 29$ FDIRS := ,RAND,SHA1,DES,AES,DSA,RSA 30$ EXHEADER_ := fips.h 31$ EXHEADER_SHA1 := 32$ EXHEADER_RAND := fips_rand.h 33$ EXHEADER_DES := 34$ EXHEADER_AES := 35$ EXHEADER_DSA := 36$ EXHEADER_RSA := 37$ 38$ I = 0 39$ LOOP_FDIRS: 40$ D = F$EDIT(F$ELEMENT(I, ",", FDIRS),"TRIM") 41$ I = I + 1 42$ IF D .EQS. "," THEN GOTO LOOP_FDIRS_END 43$ tmp = EXHEADER_'D' 44$ IF tmp .EQS. "" THEN GOTO LOOP_FDIRS 45$ IF D .EQS. "" 46$ THEN 47$ COPY 'tmp' WRK_SSLINCLUDE: /LOG 48$ ELSE 49$ COPY [.'D']'tmp' WRK_SSLINCLUDE: /LOG 50$ ENDIF 51$ SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'tmp' 52$ GOTO LOOP_FDIRS 53$ LOOP_FDIRS_END: 54$ 55$ EXIT 56