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