1$! install-vms.com -- Installs the files in a given directory tree 2$! 3$! Author: Richard Levitte <richard@levitte.org> 4$! Time of creation: 23-MAY-1998 19:22 5$! 6$! P1 root of the directory tree 7$! 8$! 9$! Announce/identify. 10$! 11$ proc = f$environment( "procedure") 12$ write sys$output "@@@ "+ - 13 f$parse( proc, , , "name")+ f$parse( proc, , , "type") 14$! 15$ on error then goto tidy 16$ on control_c then goto tidy 17$! 18$ if p1 .eqs. "" 19$ then 20$ write sys$output "First argument missing." 21$ write sys$output - 22 "Should be the directory where you want things installed." 23$ exit 24$ endif 25$ 26$ if (f$getsyi( "cpu") .lt. 128) 27$ then 28$ arch = "VAX" 29$ else 30$ arch = f$edit( f$getsyi( "arch_name"), "upcase") 31$ if (arch .eqs. "") then arch = "UNK" 32$ endif 33$ 34$ root = f$parse( P1, "[]A.;0", , , "SYNTAX_ONLY, NO_CONCEAL")- "A.;0" 35$ root_dev = f$parse( root, , , "device", "syntax_only") 36$ root_dir = f$parse( root, , , "directory", "syntax_only") - - 37 "[000000." - "][" - "[" - "]" 38$ root = root_dev + "[" + root_dir 39$ 40$ define /nolog wrk_sslroot 'root'.] /translation_attributes = concealed 41$ define /nolog wrk_sslinclude wrk_sslroot:[include] 42$ 43$ if f$parse( "wrk_sslroot:[000000]") .eqs. "" then - 44 create /directory /log wrk_sslroot:[000000] 45$ if f$parse( "wrk_sslinclude:") .eqs. "" then - 46 create /directory /log wrk_sslinclude: 47$ if f$parse( "wrk_sslroot:[vms]") .eqs. "" then - 48 create /directory /log wrk_sslroot:[vms] 49$! 50$ copy /log /protection = world:re openssl_startup.com wrk_sslroot:[vms] 51$ copy /log /protection = world:re openssl_undo.com wrk_sslroot:[vms] 52$ copy /log /protection = world:re openssl_utils.com wrk_sslroot:[vms] 53$! 54$ tidy: 55$! 56$ call deass wrk_sslroot 57$ call deass wrk_sslinclude 58$! 59$ exit 60$! 61$ deass: subroutine 62$ if (f$trnlnm( p1, "LNM$PROCESS") .nes. "") 63$ then 64$ deassign /process 'p1' 65$ endif 66$ endsubroutine 67$! 68