Relax CCM tag check.
[openssl.git] / VMS / install-vms.com
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 $!