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