1$! INSTALL.COM -- Installs the files in a given directory tree 2$! 3$! Author: Richard Levitte <richard@levitte.org> 4$! Time of creation: 22-MAY-1998 10:13 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$ ARCH = "AXP" 16$ IF F$GETSYI("CPU") .LT. 128 THEN ARCH = "VAX" 17$ 18$ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0" 19$ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY") 20$ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - 21 - ".][000000" - "[000000." - "][" - "[" - "]" 22$ ROOT = ROOT_DEV + "[" + ROOT_DIR 23$ 24$ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC 25$ DEFINE/NOLOG WRK_SSLVLIB WRK_SSLROOT:[VAX_LIB] 26$ DEFINE/NOLOG WRK_SSLALIB WRK_SSLROOT:[ALPHA_LIB] 27$ DEFINE/NOLOG WRK_SSLLIB WRK_SSLROOT:[LIB] 28$ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE] 29$ DEFINE/NOLOG WRK_SSLVEXE WRK_SSLROOT:[VAX_EXE] 30$ DEFINE/NOLOG WRK_SSLAEXE WRK_SSLROOT:[ALPHA_EXE] 31$ DEFINE/NOLOG WRK_SSLCERTS WRK_SSLROOT:[CERTS] 32$ DEFINE/NOLOG WRK_SSLPRIVATE WRK_SSLROOT:[PRIVATE] 33$ 34$ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN - 35 CREATE/DIR/LOG WRK_SSLROOT:[000000] 36$ IF F$PARSE("WRK_SSLVEXE:") .EQS. "" THEN - 37 CREATE/DIR/LOG WRK_SSLVEXE: 38$ IF F$PARSE("WRK_SSLAEXE:") .EQS. "" THEN - 39 CREATE/DIR/LOG WRK_SSLAEXE: 40$ IF F$PARSE("WRK_SSLVLIB:") .EQS. "" THEN - 41 CREATE/DIR/LOG WRK_SSLVLIB: 42$ IF F$PARSE("WRK_SSLALIB:") .EQS. "" THEN - 43 CREATE/DIR/LOG WRK_SSLALIB: 44$ IF F$PARSE("WRK_SSLLIB:") .EQS. "" THEN - 45 CREATE/DIR/LOG WRK_SSLLIB: 46$ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN - 47 CREATE/DIR/LOG WRK_SSLINCLUDE: 48$ IF F$PARSE("WRK_SSLCERTS:") .EQS. "" THEN - 49 CREATE/DIR/LOG WRK_SSLCERTS: 50$ IF F$PARSE("WRK_SSLPRIVATE:") .EQS. "" THEN - 51 CREATE/DIR/LOG WRK_SSLPRIVATE: 52$ IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN - 53 CREATE/DIR/LOG WRK_SSLROOT:[VMS] 54$ 55$ SDIRS := CRYPTO,SSL,APPS,VMS!,RSAREF,TEST,TOOLS 56$ EXHEADER := e_os2.h 57$ 58$ COPY 'EXHEADER' WRK_SSLINCLUDE: /LOG 59$ SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'EXHEADER' 60$ 61$ I = 0 62$ LOOP_SDIRS: 63$ D = F$ELEMENT(I, ",", SDIRS) 64$ I = I + 1 65$ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END 66$ WRITE SYS$OUTPUT "Installing ",D," files." 67$ SET DEFAULT [.'D'] 68$ @INSTALL 'ROOT'] 69$ SET DEFAULT [-] 70$ GOTO LOOP_SDIRS 71$ LOOP_SDIRS_END: 72$ 73$ DEASSIGN WRK_SSLROOT 74$ DEASSIGN WRK_SSLVLIB 75$ DEASSIGN WRK_SSLALIB 76$ DEASSIGN WRK_SSLLIB 77$ DEASSIGN WRK_SSLINCLUDE 78$ DEASSIGN WRK_SSLVEXE 79$ DEASSIGN WRK_SSLAEXE 80$ DEASSIGN WRK_SSLCERTS 81$ DEASSIGN WRK_SSLPRIVATE 82$ 83$ WRITE SYS$OUTPUT "" 84$ WRITE SYS$OUTPUT " Installation done!" 85$ WRITE SYS$OUTPUT "" 86$ WRITE SYS$OUTPUT " You might want to purge ",ROOT,"...]" 87$ WRITE SYS$OUTPUT "" 88$ 89$ EXIT 90