1
$! INSTALL-SSL.COM -- Installs the files in a given directory tree
3
$! Author: Richard Levitte <richard@levitte.org>
4
$! Time of creation: 22-MAY-1998 10:13
6
$! P1 root of the directory tree
7
$! P2 "64" for 64-bit pointers.
12
$ proc = f$environment( "procedure")
13
$ write sys$output "@@@ "+ -
14
f$parse( proc, , , "name")+ f$parse( proc, , , "type")
16
$ on error then goto tidy
17
$ on control_c then goto tidy
21
$ write sys$output "First argument missing."
23
"It should be the directory where you want things installed."
27
$ if (f$getsyi( "cpu") .lt. 128)
31
$ arch = f$edit( f$getsyi( "arch_name"), "upcase")
32
$ if (arch .eqs. "") then arch = "UNK"
49
$ write sys$output "Second argument invalid."
50
$ write sys$output "It should be "32", "64", or nothing."
56
$ root = f$parse( p1, "[]A.;0", , , "syntax_only, no_conceal") - "A.;0"
57
$ root_dev = f$parse(root,,,"device","syntax_only")
58
$ root_dir = f$parse(root,,,"directory","syntax_only") - -
59
"[000000." - "][" - "[" - "]"
60
$ root = root_dev + "[" + root_dir
62
$ define /nolog wrk_sslroot 'root'.] /trans=conc
63
$ define /nolog wrk_sslinclude wrk_sslroot:[include]
64
$ define /nolog wrk_sslxexe wrk_sslroot:['archd'_exe]
65
$ define /nolog wrk_sslxlib wrk_sslroot:['arch'_lib]
67
$ if f$parse("wrk_sslroot:[000000]") .eqs. "" then -
68
create /directory /log wrk_sslroot:[000000]
69
$ if f$parse("wrk_sslinclude:") .eqs. "" then -
70
create /directory /log wrk_sslinclude:
71
$ if f$parse("wrk_sslxexe:") .eqs. "" then -
72
create /directory /log wrk_sslxexe:
73
$ if f$parse("wrk_sslxlib:") .eqs. "" then -
74
create /directory /log wrk_sslxlib:
76
$ exheader := ssl.h, ssl2.h, ssl3.h, ssl23.h, tls1.h, dtls1.h, kssl.h
80
$ xexe_dir := [-.'archd'.exe.ssl]
82
$ copy /protection = w:re 'exheader' wrk_sslinclude: /log
86
$ e = f$edit( f$element( i, ",", e_exe), "trim")
88
$ if e .eqs. "," then goto loop_exe_end
90
$ file = xexe_dir+ e+ ".exe"
91
$ if f$search( file) .nes. ""
93
$ copy /protection = w:re 'file' wrk_sslxexe: /log
101
$ e = f$edit(f$element(i, ",", libs),"trim")
103
$ if e .eqs. "," then goto loop_lib_end
106
$ file = xexe_dir+ e+ lib32+ ".olb"
107
$ if f$search( file) .nes. ""
109
$ copy /protection = w:re 'file' wrk_sslxlib: /log
112
$ file = xexe_dir+ e+ shr+ ".exe"
113
$ if f$search( file) .nes. ""
115
$ copy /protection = w:re 'file' wrk_sslxlib: /log
123
$ call deass wrk_sslroot
124
$ call deass wrk_sslinclude
125
$ call deass wrk_sslxexe
126
$ call deass wrk_sslxlib
131
$ if (f$trnlnm( p1, "LNM$PROCESS") .nes. "")
133
$ deassign /process 'p1'