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$ 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 66