OLD | NEW |
(Empty) | |
| 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 $! |
OLD | NEW |