Return an error if no recipient type matches.
[openssl.git] / crypto / install-crypto.com
1 $! INSTALL.COM -- Installs the files in a given directory tree
2 $!
3 $! Author: Richard Levitte <richard@levitte.org>
4 $! Time of creation: 22-MAY-1998 10:13
5 $!
6 $! Changes by Zoltan Arpadffy <zoli@polarhome.com>
7 $!
8 $! P1  root of the directory tree
9 $! P2  "64" for 64-bit pointers.
10 $!
11 $!
12 $! Announce/identify.
13 $!
14 $ proc = f$environment( "procedure")
15 $ write sys$output "@@@ "+ -
16    f$parse( proc, , , "name")+ f$parse( proc, , , "type")
17 $!
18 $ on error then goto tidy
19 $ on control_c then goto tidy
20 $!
21 $ if (p1 .eqs. "")
22 $ then
23 $   write sys$output "First argument missing."
24 $   write sys$output -
25      "It should be the directory where you want things installed."
26 $     exit
27 $ endif
28 $!
29 $ if (f$getsyi( "cpu") .lt. 128)
30 $ then
31 $   arch = "VAX"
32 $ else
33 $   arch = f$edit( f$getsyi( "arch_name"), "upcase")
34 $   if (arch .eqs. "") then arch = "UNK"
35 $ endif
36 $!
37 $ archd = arch
38 $ lib32 = "32"
39 $ shr = "_SHR32"
40 $!
41 $ if (p2 .nes. "")
42 $ then
43 $   if (p2 .eqs. "64")
44 $   then
45 $     archd = arch+ "_64"
46 $     lib32 = ""
47 $     shr = "_SHR"
48 $   else
49 $     if (p2 .nes. "32")
50 $     then
51 $       write sys$output "Second argument invalid."
52 $       write sys$output "It should be "32", "64", or nothing."
53 $       exit
54 $     endif
55 $   endif
56 $ endif
57 $!
58 $ root = f$parse( p1, "[]A.;0", , , "syntax_only, no_conceal") - "A.;0"
59 $ root_dev = f$parse( root, , , "device", "syntax_only")
60 $ root_dir = f$parse( root, , , "directory", "syntax_only") - -
61    "[000000." - "][" - "[" - "]"
62 $ root = root_dev + "[" + root_dir
63 $!
64 $ define /nolog wrk_sslroot 'root'.] /trans=conc
65 $ define /nolog wrk_sslinclude wrk_sslroot:[include]
66 $ define /nolog wrk_sslxlib wrk_sslroot:['arch'_lib]
67 $!
68 $ if f$parse("wrk_sslroot:[000000]") .eqs. "" then -
69    create /directory /log wrk_sslroot:[000000]
70 $ if f$parse("wrk_sslinclude:") .eqs. "" then -
71    create /directory /log wrk_sslinclude:
72 $ if f$parse("wrk_sslxlib:") .eqs. "" then -
73    create /directory /log wrk_sslxlib:
74 $!
75 $ sdirs := , -
76    'archd', -
77    objects, -
78    md2, md4, md5, sha, mdc2, hmac, ripemd, whrlpool, -
79    des, aes, rc2, rc4, rc5, idea, bf, cast, camellia, seed, -
80    bn, ec, rsa, dsa, ecdsa, dh, ecdh, dso, engine, -
81    buffer, bio, stack, lhash, rand, err, -
82    evp, asn1, pem, x509, x509v3, conf, txt_db, pkcs7, pkcs12, comp, ocsp, -
83    ui, krb5, -
84    store, cms, pqueue, ts, jpake
85 $!
86 $ exheader_ := crypto.h, opensslv.h, ebcdic.h, symhacks.h, ossl_typ.h
87 $ exheader_'archd' := opensslconf.h
88 $ exheader_objects := objects.h, obj_mac.h
89 $ exheader_md2 := md2.h
90 $ exheader_md4 := md4.h
91 $ exheader_md5 := md5.h
92 $ exheader_sha := sha.h
93 $ exheader_mdc2 := mdc2.h
94 $ exheader_hmac := hmac.h
95 $ exheader_ripemd := ripemd.h
96 $ exheader_whrlpool := whrlpool.h
97 $ exheader_des := des.h, des_old.h
98 $ exheader_aes := aes.h
99 $ exheader_rc2 := rc2.h
100 $ exheader_rc4 := rc4.h
101 $ exheader_rc5 := rc5.h
102 $ exheader_idea := idea.h
103 $ exheader_bf := blowfish.h
104 $ exheader_cast := cast.h
105 $ exheader_camellia := camellia.h
106 $ exheader_seed := seed.h
107 $ exheader_modes := modes.h
108 $ exheader_bn := bn.h
109 $ exheader_ec := ec.h
110 $ exheader_rsa := rsa.h
111 $ exheader_dsa := dsa.h
112 $ exheader_ecdsa := ecdsa.h
113 $ exheader_dh := dh.h
114 $ exheader_ecdh := ecdh.h
115 $ exheader_dso := dso.h
116 $ exheader_engine := engine.h
117 $ exheader_buffer := buffer.h
118 $ exheader_bio := bio.h
119 $ exheader_stack := stack.h, safestack.h
120 $ exheader_lhash := lhash.h
121 $ exheader_rand := rand.h
122 $ exheader_err := err.h
123 $ exheader_evp := evp.h
124 $ exheader_asn1 := asn1.h, asn1_mac.h, asn1t.h
125 $ exheader_pem := pem.h, pem2.h
126 $ exheader_x509 := x509.h, x509_vfy.h
127 $ exheader_x509v3 := x509v3.h
128 $ exheader_conf := conf.h, conf_api.h
129 $ exheader_txt_db := txt_db.h
130 $ exheader_pkcs7 := pkcs7.h
131 $ exheader_pkcs12 := pkcs12.h
132 $ exheader_comp := comp.h
133 $ exheader_ocsp := ocsp.h
134 $ exheader_ui := ui.h, ui_compat.h
135 $ exheader_krb5 := krb5_asn.h
136 $! exheader_store := store.h, str_compat.h
137 $ exheader_store := store.h
138 $ exheader_cms := cms.h
139 $ exheader_pqueue := pqueue.h
140 $ exheader_ts := ts.h
141 $ exheader_jpake := jpake.h
142 $ libs := ssl_libcrypto
143 $!
144 $ exe_dir := [-.'archd'.exe.crypto]
145 $!
146 $! Header files.
147 $!
148 $ i = 0
149 $ loop_sdirs: 
150 $   d = f$edit( f$element( i, ",", sdirs), "trim")
151 $   i = i + 1
152 $   if d .eqs. "," then goto loop_sdirs_end
153 $   tmp = exheader_'d'
154 $   if (d .nes. "") then d = "."+ d
155 $   copy /protection = w:re ['d']'tmp' wrk_sslinclude: /log
156 $ goto loop_sdirs
157 $ loop_sdirs_end:
158 $!
159 $! Object libraries, shareable images.
160 $!
161 $ i = 0
162 $ loop_lib: 
163 $   e = f$edit( f$element( i, ",", libs), "trim")
164 $   i = i + 1
165 $   if e .eqs. "," then goto loop_lib_end
166 $   set noon
167 $   file = exe_dir+ e+ lib32+ ".olb"
168 $   if f$search( file) .nes. ""
169 $   then
170 $     copy /protection = w:re 'file' wrk_sslxlib: /log
171 $   endif
172 $!
173 $   file = exe_dir+ e+ shr+ ".exe"
174 $   if f$search( file) .nes. ""
175 $   then
176 $     copy /protection = w:re 'file' wrk_sslxlib: /log
177 $   endif
178 $   set on
179 $ goto loop_lib
180 $ loop_lib_end:
181 $!
182 $ tidy:
183 $!
184 $ call deass wrk_sslroot
185 $ call deass wrk_sslinclude
186 $ call deass wrk_sslxlib
187 $!
188 $ exit
189 $!
190 $ deass: subroutine
191 $ if (f$trnlnm( p1, "LNM$PROCESS") .nes. "")
192 $ then
193 $   deassign /process 'p1'
194 $ endif
195 $ endsubroutine
196 $!