]>
Commit | Line | Data |
---|---|---|
7d7d2cbc UM |
1 | $! |
2 | $! CRYPTO-LIB.COM | |
3 | $! Written By: Robert Byer | |
4 | $! Vice-President | |
5 | $! A-Com Computing, Inc. | |
6 | $! byer@mail.all-net.net | |
7 | $! | |
8 | $! Changes by Richard Levitte <richard@levitte.org> | |
9 | $! | |
10 | $! This command files compiles and creates the "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" | |
11 | $! library for OpenSSL. The "xxx" denotes the machine architecture of AXP | |
12 | $! or VAX. | |
13 | $! | |
14 | $! It was re-written so it would try to determine what "C" compiler to use | |
15 | $! or you can specify which "C" compiler to use. | |
16 | $! | |
f18a93ab RL |
17 | $! Specify the following as P1 to build just that part or ALL to just |
18 | $! build everything. | |
19 | $! | |
20 | $! LIBRARY To just compile the [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library. | |
21 | $! APPS To just compile the [.xxx.EXE.CRYPTO]*.EXE | |
22 | $! ALL To do both LIBRARY and APPS | |
23 | $! | |
24 | $! Specify RSAREF as P2 to compile with the RSAREF library instead of | |
7d7d2cbc UM |
25 | $! the regular one. If you specify NORSAREF it will compile with the |
26 | $! regular RSAREF routines. (Note: If you are in the United States | |
27 | $! you MUST compile with RSAREF unless you have a license from RSA). | |
28 | $! | |
29 | $! Note: The RSAREF libraries are NOT INCLUDED and you have to | |
30 | $! download it from "ftp://ftp.rsa.com/rsaref". You have to | |
31 | $! get the ".tar-Z" file as the ".zip" file dosen't have the | |
32 | $! directory structure stored. You have to extract the file | |
33 | $! into the [.RSAREF] directory under the root directory as that | |
34 | $! is where the scripts will look for the files. | |
35 | $! | |
f18a93ab | 36 | $! Specify DEBUG or NODEBUG as P3 to compile with or without debugger |
7d7d2cbc UM |
37 | $! information. |
38 | $! | |
f18a93ab | 39 | $! Specify which compiler at P4 to try to compile under. |
7d7d2cbc UM |
40 | $! |
41 | $! VAXC For VAX C. | |
42 | $! DECC For DEC C. | |
43 | $! GNUC For GNU C. | |
44 | $! | |
45 | $! If you don't speficy a compiler, it will try to determine which | |
46 | $! "C" compiler to use. | |
47 | $! | |
f18a93ab | 48 | $! P5, if defined, sets a TCP/IP library to use, through one of the following |
7d7d2cbc UM |
49 | $! keywords: |
50 | $! | |
51 | $! UCX for UCX | |
b935754c | 52 | $! TCPIP for TCPIP (post UCX) |
7d7d2cbc UM |
53 | $! SOCKETSHR for SOCKETSHR+NETLIB |
54 | $! | |
f18a93ab | 55 | $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up) |
7d7d2cbc | 56 | $! |
f18a93ab | 57 | $! P7, if defined, sets a choice of crypto methods to compile. |
7d7d2cbc UM |
58 | $! WARNING: this should only be done to recompile some part of an already |
59 | $! fully compiled library. | |
60 | $! | |
61 | $! | |
62 | $! Define A TCP/IP Library That We Will Need To Link To. | |
63 | $! (That Is, If We Need To Link To One.) | |
64 | $! | |
65 | $ TCPIP_LIB = "" | |
66 | $! | |
67 | $! Check Which Architecture We Are Using. | |
68 | $! | |
69 | $ IF (F$GETSYI("CPU").GE.128) | |
70 | $ THEN | |
71 | $! | |
72 | $! The Architecture Is AXP | |
73 | $! | |
74 | $ ARCH := AXP | |
75 | $! | |
76 | $! Else... | |
77 | $! | |
78 | $ ELSE | |
79 | $! | |
80 | $! The Architecture Is VAX. | |
81 | $! | |
82 | $ ARCH := VAX | |
83 | $! | |
84 | $! End The Architecture Check. | |
85 | $! | |
86 | $ ENDIF | |
87 | $! | |
88 | $! Define The Different Encryption Types. | |
89 | $! | |
d03e0f34 | 90 | $ ENCRYPT_TYPES = "Basic,MD2,MD4,MD5,SHA,MDC2,HMAC,RIPEMD,"+ - |
7d7d2cbc | 91 | "DES,RC2,RC4,RC5,IDEA,BF,CAST,"+ - |
5bd90983 | 92 | "BN,EC,RSA,DSA,ECDSA,DH,ECDH,DSO,ENGINE,AES,"+ - |
7d7d2cbc UM |
93 | "BUFFER,BIO,STACK,LHASH,RAND,ERR,OBJECTS,"+ - |
94 | "EVP,EVP_2,ASN1,ASN1_2,PEM,X509,X509V3,"+ - | |
114697be | 95 | "CONF,TXT_DB,PKCS7,PKCS12,COMP,OCSP,UI,KRB5" |
f18a93ab | 96 | $ ENCRYPT_PROGRAMS = "DES,PKCS7" |
7d7d2cbc UM |
97 | $! |
98 | $! Check To Make Sure We Have Valid Command Line Parameters. | |
99 | $! | |
100 | $ GOSUB CHECK_OPTIONS | |
101 | $! | |
102 | $! Initialise logical names and such | |
103 | $! | |
104 | $ GOSUB INITIALISE | |
105 | $! | |
106 | $! Tell The User What Kind of Machine We Run On. | |
107 | $! | |
108 | $ WRITE SYS$OUTPUT "Compiling On A ",ARCH," Machine." | |
109 | $! | |
110 | $! Define The OBJ Directory. | |
111 | $! | |
112 | $ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.CRYPTO] | |
113 | $! | |
114 | $! Check To See If The Architecture Specific OBJ Directory Exists. | |
115 | $! | |
116 | $ IF (F$PARSE(OBJ_DIR).EQS."") | |
117 | $ THEN | |
118 | $! | |
119 | $! It Dosen't Exist, So Create It. | |
120 | $! | |
121 | $ CREATE/DIR 'OBJ_DIR' | |
122 | $! | |
123 | $! End The Architecture Specific OBJ Directory Check. | |
124 | $! | |
125 | $ ENDIF | |
126 | $! | |
127 | $! Define The EXE Directory. | |
128 | $! | |
129 | $ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.CRYPTO] | |
130 | $! | |
131 | $! Check To See If The Architecture Specific Directory Exists. | |
132 | $! | |
133 | $ IF (F$PARSE(EXE_DIR).EQS."") | |
134 | $ THEN | |
135 | $! | |
136 | $! It Dosen't Exist, So Create It. | |
137 | $! | |
138 | $ CREATE/DIRECTORY 'EXE_DIR' | |
139 | $! | |
140 | $! End The Architecture Specific Directory Check. | |
141 | $! | |
142 | $ ENDIF | |
143 | $! | |
144 | $! Define The Library Name. | |
145 | $! | |
146 | $ LIB_NAME := 'EXE_DIR'LIBCRYPTO.OLB | |
147 | $! | |
f18a93ab RL |
148 | $! Define The CRYPTO-LIB We Are To Use. |
149 | $! | |
150 | $ CRYPTO_LIB := 'EXE_DIR'LIBCRYPTO.OLB | |
151 | $! | |
152 | $! Define The RSAREF-LIB We Are To Use. | |
153 | $! | |
154 | $ RSAREF_LIB := SYS$DISK:[-.'ARCH'.EXE.RSAREF]LIBRSAGLUE.OLB | |
155 | $! | |
7d7d2cbc UM |
156 | $! Check To See If We Already Have A "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" Library... |
157 | $! | |
158 | $ IF (F$SEARCH(LIB_NAME).EQS."") | |
159 | $ THEN | |
160 | $! | |
161 | $! Guess Not, Create The Library. | |
162 | $! | |
163 | $ LIBRARY/CREATE/OBJECT 'LIB_NAME' | |
164 | $! | |
165 | $! End The Library Check. | |
166 | $! | |
167 | $ ENDIF | |
168 | $! | |
f18a93ab RL |
169 | $! Build our options file for the application |
170 | $! | |
171 | $ GOSUB CHECK_OPT_FILE | |
172 | $! | |
7d7d2cbc UM |
173 | $! Define The Different Encryption "library" Strings. |
174 | $! | |
f18a93ab RL |
175 | $ APPS_DES = "DES/DES,CBC3_ENC" |
176 | $ APPS_PKCS7 = "ENC/ENC;DEC/DEC;SIGN/SIGN;VERIFY/VERIFY,EXAMPLE" | |
177 | $ | |
b8e35bd6 | 178 | $ LIB_ = "cryptlib,mem,mem_dbg,cversion,ex_data,tmdiff,cpt_err,ebcdic,uid,o_time" |
7d7d2cbc | 179 | $ LIB_MD2 = "md2_dgst,md2_one" |
d03e0f34 | 180 | $ LIB_MD4 = "md4_dgst,md4_one" |
7d7d2cbc UM |
181 | $ LIB_MD5 = "md5_dgst,md5_one" |
182 | $ LIB_SHA = "sha_dgst,sha1dgst,sha_one,sha1_one" | |
183 | $ LIB_MDC2 = "mdc2dgst,mdc2_one" | |
184 | $ LIB_HMAC = "hmac" | |
185 | $ LIB_RIPEMD = "rmd_dgst,rmd_one" | |
186 | $ LIB_DES = "set_key,ecb_enc,cbc_enc,"+ - | |
187 | "ecb3_enc,cfb64enc,cfb64ede,cfb_enc,ofb64ede,"+ - | |
188 | "enc_read,enc_writ,ofb64enc,"+ - | |
189 | "ofb_enc,str2key,pcbc_enc,qud_cksm,rand_key,"+ - | |
2643b122 | 190 | "des_enc,fcrypt_b,"+ - |
a08ee55e | 191 | "fcrypt,xcbc_enc,rpc_enc,cbc_cksm,"+ - |
401cd0af | 192 | "ede_cbcm_enc,des_old,des_old2,read2pwd" |
7d7d2cbc UM |
193 | $ LIB_RC2 = "rc2_ecb,rc2_skey,rc2_cbc,rc2cfb64,rc2ofb64" |
194 | $ LIB_RC4 = "rc4_skey,rc4_enc" | |
195 | $ LIB_RC5 = "rc5_skey,rc5_ecb,rc5_enc,rc5cfb64,rc5ofb64" | |
196 | $ LIB_IDEA = "i_cbc,i_cfb64,i_ofb64,i_ecb,i_skey" | |
197 | $ LIB_BF = "bf_skey,bf_ecb,bf_enc,bf_cfb64,bf_ofb64" | |
198 | $ LIB_CAST = "c_skey,c_ecb,c_enc,c_cfb64,c_ofb64" | |
199 | $ LIB_BN_ASM = "[.asm]vms.mar,vms-helper" | |
26c77508 | 200 | $ IF F$TRNLNM("OPENSSL_NO_ASM").OR.ARCH.EQS."AXP" THEN LIB_BN_ASM = "bn_asm" |
66a0def8 | 201 | $ LIB_BN = "bn_add,bn_div,bn_exp,bn_lib,bn_ctx,bn_mul,bn_mod,"+ - |
7d7d2cbc | 202 | "bn_print,bn_rand,bn_shift,bn_word,bn_blind,"+ - |
66a0def8 | 203 | "bn_kron,bn_sqrt,bn_gcd,bn_prime,bn_err,bn_sqr,"+LIB_BN_ASM+","+ - |
fd9a4dbe | 204 | "bn_recp,bn_mont,bn_mpi,bn_exp2,bn_gf2m" |
b09f4fb2 | 205 | $ LIB_EC = "ec_lib,ecp_smpl,ecp_mont,ecp_recp,ecp_nist,ec_cvt,ec_mult,"+ - |
5bd90983 | 206 | "ec_err,ec_curve,ec_check,ec_print,ec_asn1,ec_key,"+ - |
763b4dcc | 207 | "ec2_smpl,ec2_mult" |
7d7d2cbc | 208 | $ LIB_RSA = "rsa_eay,rsa_gen,rsa_lib,rsa_sign,rsa_saos,rsa_err,"+ - |
66a0def8 RL |
209 | "rsa_pk1,rsa_ssl,rsa_none,rsa_oaep,rsa_chk,rsa_null,"+ - |
210 | "rsa_asn1" | |
f18a93ab | 211 | $ LIB_DSA = "dsa_gen,dsa_key,dsa_lib,dsa_asn1,dsa_vrf,dsa_sign,dsa_err,dsa_ossl" |
5bd90983 | 212 | $ LIB_ECDSA = "ecs_lib,ecs_asn1,ecs_ossl,ecs_sign,ecs_vrf,ecs_err" |
66a0def8 | 213 | $ LIB_DH = "dh_asn1,dh_gen,dh_key,dh_lib,dh_check,dh_err" |
5bd90983 | 214 | $ LIB_ECDH = "ech_lib,ech_ossl,ech_key,ech_err" |
5ce0e07d RL |
215 | $ LIB_DSO = "dso_dl,dso_dlfcn,dso_err,dso_lib,dso_null,"+ - |
216 | "dso_openssl,dso_win32,dso_vms" | |
e32587d5 RL |
217 | $ LIB_ENGINE = "eng_err,eng_lib,eng_list,eng_init,eng_ctrl,"+ - |
218 | "eng_table,eng_pkey,eng_fat,eng_all,"+ - | |
e09efcf7 | 219 | "tb_rsa,tb_dsa,tb_ecdsa,tb_dh,tb_rand,tb_cipher,tb_digest,tb_ecdh,"+ - |
bd697503 | 220 | "eng_openssl,eng_dyn,eng_cnf,"+ - |
e32587d5 | 221 | "hw_atalla,hw_cswift,hw_ncipher,hw_nuron,hw_ubsec,"+ - |
87ebdd8a RL |
222 | "hw_openbsd_dev_crypto,hw_aep,hw_sureware,hw_4758_cca" |
223 | $ LIB_AES = "aes_core,aes_misc,aes_ecb,aes_cbc,aes_cfb,aes_ofb,aes_ctr" | |
7d7d2cbc UM |
224 | $ LIB_BUFFER = "buffer,buf_err" |
225 | $ LIB_BIO = "bio_lib,bio_cb,bio_err,"+ - | |
226 | "bss_mem,bss_null,bss_fd,"+ - | |
227 | "bss_file,bss_sock,bss_conn,"+ - | |
228 | "bf_null,bf_buff,b_print,b_dump,"+ - | |
645749ef RL |
229 | "b_sock,bss_acpt,bf_nbio,bss_rtcp,bss_bio,bss_log,"+ - |
230 | "bf_lbuf" | |
7d7d2cbc UM |
231 | $ LIB_STACK = "stack" |
232 | $ LIB_LHASH = "lhash,lh_stats" | |
601140b3 RL |
233 | $ LIB_RAND = "md_rand,randfile,rand_lib,rand_err,rand_egd,"+ - |
234 | "rand_vms" | |
7d7d2cbc UM |
235 | $ LIB_ERR = "err,err_all,err_prn" |
236 | $ LIB_OBJECTS = "o_names,obj_dat,obj_lib,obj_err" | |
b2a4e959 | 237 | $ LIB_EVP = "encode,digest,evp_enc,evp_key,evp_acnf,"+ - |
4b88270b | 238 | "e_des,e_bf,e_idea,e_des3,"+ - |
cf1b7d96 | 239 | "e_rc4,e_aes,names,"+ - |
0baed24c | 240 | "e_xcbc_d,e_rc2,e_cast,e_rc5" |
eec79f9b | 241 | $ LIB_EVP_2 = "m_null,m_md2,m_md4,m_md5,m_sha,m_sha1," + - |
b2a4e959 | 242 | "m_dss,m_dss1,m_mdc2,m_ripemd,m_ecdsa,"+ - |
7d7d2cbc UM |
243 | "p_open,p_seal,p_sign,p_verify,p_lib,p_enc,p_dec,"+ - |
244 | "bio_md,bio_b64,bio_enc,evp_err,e_null,"+ - | |
88886fd3 RL |
245 | "c_all,c_allc,c_alld,evp_lib,bio_ok,"+- |
246 | "evp_pkey,evp_pbe,p5_crpt,p5_crpt2" | |
7d7d2cbc | 247 | $ LIB_ASN1 = "a_object,a_bitstr,a_utctm,a_gentm,a_time,a_int,a_octet,"+ - |
66a0def8 RL |
248 | "a_print,a_type,a_set,a_dup,a_d2i_fp,a_i2d_fp,"+ - |
249 | "a_enum,a_utf8,a_sign,a_digest,a_verify,a_mbstr,a_strex,"+ - | |
250 | "x_algor,x_val,x_pubkey,x_sig,x_req,x_attrib,x_bignum,"+ - | |
6525ced5 | 251 | "x_long,x_name,x_x509,x_x509a,x_crl,x_info,x_spki,nsseq,"+ - |
7d7d2cbc | 252 | "d2i_pu,d2i_pr,i2d_pu,i2d_pr" |
d593983d | 253 | $ LIB_ASN1_2 = "t_req,t_x509,t_x509a,t_crl,t_pkey,t_spki,t_bitst,"+ - |
6525ced5 | 254 | "tasn_new,tasn_fre,tasn_enc,tasn_dec,tasn_utl,tasn_typ,"+ - |
66a0def8 | 255 | "f_int,f_string,n_pkey,"+ - |
7d7d2cbc | 256 | "f_enum,a_hdr,x_pkey,a_bool,x_exten,"+ - |
f18a93ab | 257 | "asn1_par,asn1_lib,asn1_err,a_meth,a_bytes,a_strnid,"+ - |
bd697503 | 258 | "evp_asn1,asn_pack,p5_pbe,p5_pbev2,p8_pkey,asn_moid" |
ea71c227 RL |
259 | $ LIB_PEM = "pem_sign,pem_seal,pem_info,pem_lib,pem_all,pem_err,"+ - |
260 | "pem_x509,pem_xaux,pem_oth,pem_pk8,pem_pkey" | |
7d7d2cbc | 261 | $ LIB_X509 = "x509_def,x509_d2,x509_r2x,x509_cmp,"+ - |
f18a93ab | 262 | "x509_obj,x509_req,x509spki,x509_vfy,"+ - |
e32587d5 | 263 | "x509_set,x509cset,x509rset,x509_err,"+ - |
d593983d | 264 | "x509name,x509_v3,x509_ext,x509_att,"+ - |
7d7d2cbc | 265 | "x509type,x509_lu,x_all,x509_txt,"+ - |
74ecf9e2 | 266 | "x509_trs,by_file,by_dir" |
7d7d2cbc UM |
267 | $ LIB_X509V3 = "v3_bcons,v3_bitst,v3_conf,v3_extku,v3_ia5,v3_lib,"+ - |
268 | "v3_prn,v3_utl,v3err,v3_genn,v3_alt,v3_skey,v3_akey,v3_pku,"+ - | |
66a0def8 | 269 | "v3_int,v3_enum,v3_sxnet,v3_cpols,v3_crld,v3_purp,v3_info,"+ - |
ea71c227 | 270 | "v3_ocsp,v3_akeya" |
bd697503 | 271 | $ LIB_CONF = "conf_err,conf_lib,conf_api,conf_def,conf_mod,conf_mall" |
7d7d2cbc | 272 | $ LIB_TXT_DB = "txt_db" |
66a0def8 RL |
273 | $ LIB_PKCS7 = "pk7_asn1,pk7_lib,pkcs7err,pk7_doit,pk7_smime,pk7_attr,"+ - |
274 | "pk7_mime" | |
275 | $ LIB_PKCS12 = "p12_add,p12_asn,p12_attr,p12_crpt,p12_crt,p12_decr,"+ - | |
276 | "p12_init,p12_key,p12_kiss,p12_mutl,"+ - | |
ea71c227 | 277 | "p12_utl,p12_npas,pk12err,p12_p8d,p12_p8e" |
7d7d2cbc UM |
278 | $ LIB_COMP = "comp_lib,"+ - |
279 | "c_rle,c_zlib" | |
cf1b7d96 | 280 | $ LIB_OCSP = "ocsp_asn,ocsp_ext,ocsp_ht,ocsp_lib,ocsp_cl,"+ - |
0cd58667 | 281 | "ocsp_srv,ocsp_prn,ocsp_vfy,ocsp_err" |
87ebdd8a RL |
282 | $ LIB_UI_COMPAT = ",ui_compat" |
283 | $ LIB_UI = "ui_err,ui_lib,ui_openssl,ui_util"+LIB_UI_COMPAT | |
114697be | 284 | $ LIB_KRB5 = "krb5_asn" |
7d7d2cbc UM |
285 | $! |
286 | $! Setup exceptional compilations | |
287 | $! | |
288 | $ COMPILEWITH_CC3 = ",bss_rtcp," | |
65fb3fa6 | 289 | $ COMPILEWITH_CC4 = ",a_utctm,bss_log,o_time," |
d03e0f34 RL |
290 | $ COMPILEWITH_CC5 = ",md2_dgst,md4_dgst,md5_dgst,mdc2dgst," + - |
291 | "sha_dgst,sha1dgst,rmd_dgst,bf_enc," | |
7d7d2cbc UM |
292 | $! |
293 | $! Check To See If We Are Going To Use RSAREF. | |
294 | $! | |
f18a93ab RL |
295 | $ IF (RSAREF.EQS."TRUE" .AND. ENCRYPT_TYPES - "RSA".NES.ENCRYPT_TYPES - |
296 | .AND. (BUILDALL .EQS. "TRUE" .OR. BUILDALL .EQS. "LIBRARY")) | |
7d7d2cbc UM |
297 | $ THEN |
298 | $! | |
299 | $! Check To See If The File [-.RSAREF]RSAREF.C Is Actually There. | |
300 | $! | |
301 | $ IF (F$SEARCH("SYS$DISK:[-.RSAREF]RSAREF.C").EQS."") | |
302 | $ THEN | |
303 | $! | |
0baed24c | 304 | $! Tell The User That The File Doesn't Exist. |
7d7d2cbc UM |
305 | $! |
306 | $ WRITE SYS$OUTPUT "" | |
0baed24c | 307 | $ WRITE SYS$OUTPUT "The File [-.RSAREF]RSAREF.C Doesn't Exist." |
7d7d2cbc UM |
308 | $ WRITE SYS$OUTPUT "" |
309 | $! | |
310 | $! Exit The Build. | |
311 | $! | |
312 | $ GOTO EXIT | |
313 | $! | |
314 | $! End The [-.RSAREF]RSAREF.C Check. | |
315 | $! | |
316 | $ ENDIF | |
317 | $! | |
318 | $! Tell The User We Are Compiling The [-.RSAREF]RSAREF File. | |
319 | $! | |
320 | $ WRITE SYS$OUTPUT "Compiling The [-.RSAREF]RSAREF File." | |
321 | $! | |
322 | $! Compile [-.RSAREF]RSAREF.C | |
323 | $! | |
324 | $ CC/OBJECT='OBJ_DIR'RSAREF.OBJ SYS$DISK:[-.RSAREF]RSAREF.C | |
325 | $! | |
326 | $! Add It To The Library. | |
327 | $! | |
328 | $ LIBRARY/REPLACE 'LIB_NAME' 'OBJ_DIR'RSAREF.OBJ | |
329 | $! | |
330 | $! Delete The Object File. | |
331 | $! | |
332 | $ DELETE 'OBJ_DIR'RSAREF.OBJ;* | |
333 | $! | |
334 | $! Check To See If The File [-.RSAREF]RSAR_ERR.C Is Actually There. | |
335 | $! | |
336 | $ IF (F$SEARCH("SYS$DISK:[-.RSAREF]RSAR_ERR.C").EQS."") | |
337 | $ THEN | |
338 | $! | |
0baed24c | 339 | $! Tell The User That The File Doesn't Exist. |
7d7d2cbc UM |
340 | $! |
341 | $ WRITE SYS$OUTPUT "" | |
0baed24c | 342 | $ WRITE SYS$OUTPUT "The File [-.RSAREF]RSAR_ERR.C Doesn't Exist." |
7d7d2cbc UM |
343 | $ WRITE SYS$OUTPUT "" |
344 | $! | |
345 | $! Exit The Build. | |
346 | $! | |
347 | $ GOTO EXIT | |
348 | $! | |
349 | $! End The [-.RSAREF]RSAR_ERR.C File Check. | |
350 | $! | |
351 | $ ENDIF | |
352 | $! | |
353 | $! Tell The User We Are Compiling The [-.RSAREF]RSAR_ERR File. | |
354 | $! | |
355 | $ WRITE SYS$OUTPUT "Compiling The [-.RSAREF]RSAR_ERR File." | |
356 | $! | |
357 | $! Compile [-.RSAREF]RSAR_ERR.C | |
358 | $! | |
359 | $ CC/OBJECT='OBJ_DIR'RSAR_ERR.OBJ SYS$DISK:[-.RSAREF]RSAR_ERR.C | |
360 | $! | |
361 | $! Add It To The Library. | |
362 | $! | |
363 | $ LIBRARY/REPLACE 'LIB_NAME' 'OBJ_DIR'RSAR_ERR.OBJ | |
364 | $! | |
365 | $! Delete The Object File. | |
366 | $! | |
367 | $ DELETE 'OBJ_DIR'RSAR_ERR.OBJ;* | |
368 | $! | |
369 | $! End The RSAREF Check. | |
370 | $! | |
371 | $ ENDIF | |
372 | $! | |
373 | $! Figure Out What Other Modules We Are To Build. | |
374 | $! | |
375 | $ BUILD_SET: | |
376 | $! | |
377 | $! Define A Module Counter. | |
378 | $! | |
379 | $ MODULE_COUNTER = 0 | |
380 | $! | |
381 | $! Top Of The Loop. | |
382 | $! | |
383 | $ MODULE_NEXT: | |
384 | $! | |
385 | $! Extract The Module Name From The Encryption List. | |
386 | $! | |
387 | $ MODULE_NAME = F$ELEMENT(MODULE_COUNTER,",",ENCRYPT_TYPES) | |
26975577 | 388 | $ IF MODULE_NAME.EQS."Basic" THEN MODULE_NAME = "" |
f18a93ab | 389 | $ MODULE_NAME1 = MODULE_NAME |
7d7d2cbc UM |
390 | $! |
391 | $! Check To See If We Are At The End Of The Module List. | |
392 | $! | |
393 | $ IF (MODULE_NAME.EQS.",") | |
394 | $ THEN | |
395 | $! | |
396 | $! We Are At The End Of The Module List, Go To MODULE_DONE. | |
397 | $! | |
398 | $ GOTO MODULE_DONE | |
399 | $! | |
400 | $! End The Module List Check. | |
401 | $! | |
402 | $ ENDIF | |
403 | $! | |
404 | $! Increment The Moudle Counter. | |
405 | $! | |
406 | $ MODULE_COUNTER = MODULE_COUNTER + 1 | |
407 | $! | |
f18a93ab | 408 | $! Create The Library and Apps Module Names. |
7d7d2cbc UM |
409 | $! |
410 | $ LIB_MODULE = "LIB_" + MODULE_NAME | |
f18a93ab | 411 | $ APPS_MODULE = "APPS_" + MODULE_NAME |
7d7d2cbc UM |
412 | $ IF (MODULE_NAME.EQS."ASN1_2") |
413 | $ THEN | |
414 | $ MODULE_NAME = "ASN1" | |
415 | $ ENDIF | |
416 | $ IF (MODULE_NAME.EQS."EVP_2") | |
417 | $ THEN | |
418 | $ MODULE_NAME = "EVP" | |
419 | $ ENDIF | |
420 | $! | |
f18a93ab RL |
421 | $! Set state (can be LIB and APPS) |
422 | $! | |
423 | $ STATE = "LIB" | |
424 | $ IF BUILDALL .EQS. "APPS" THEN STATE = "APPS" | |
425 | $! | |
7d7d2cbc UM |
426 | $! Check if the library module name actually is defined |
427 | $! | |
428 | $ IF F$TYPE('LIB_MODULE') .EQS. "" | |
429 | $ THEN | |
430 | $ WRITE SYS$ERROR "" | |
431 | $ WRITE SYS$ERROR "The module ",MODULE_NAME," does not exist. Continuing..." | |
432 | $ WRITE SYS$ERROR "" | |
433 | $ GOTO MODULE_NEXT | |
434 | $ ENDIF | |
435 | $! | |
f18a93ab RL |
436 | $! Top Of The Module Loop. |
437 | $! | |
438 | $ MODULE_AGAIN: | |
439 | $! | |
440 | $! Tell The User What Module We Are Building. | |
441 | $! | |
442 | $ IF (MODULE_NAME1.NES."") | |
443 | $ THEN | |
444 | $ IF STATE .EQS. "LIB" | |
445 | $ THEN | |
446 | $ WRITE SYS$OUTPUT "Compiling The ",MODULE_NAME1," Library Files. (",BUILDALL,",",STATE,")" | |
447 | $ ELSE IF F$TYPE('APPS_MODULE') .NES. "" | |
448 | $ THEN | |
449 | $ WRITE SYS$OUTPUT "Compiling The ",MODULE_NAME1," Applications. (",BUILDALL,",",STATE,")" | |
450 | $ ENDIF | |
451 | $ ENDIF | |
452 | $ ENDIF | |
453 | $! | |
454 | $! Define A File Counter And Set It To "0". | |
455 | $! | |
456 | $ FILE_COUNTER = 0 | |
457 | $ APPLICATION = "" | |
458 | $ APPLICATION_COUNTER = 0 | |
459 | $! | |
7d7d2cbc UM |
460 | $! Top Of The File Loop. |
461 | $! | |
462 | $ NEXT_FILE: | |
463 | $! | |
f18a93ab RL |
464 | $! Look in the LIB_MODULE is we're in state LIB |
465 | $! | |
466 | $ IF STATE .EQS. "LIB" | |
467 | $ THEN | |
468 | $! | |
469 | $! O.K, Extract The File Name From The File List. | |
470 | $! | |
471 | $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",'LIB_MODULE') | |
7d7d2cbc | 472 | $! |
f18a93ab RL |
473 | $! else |
474 | $! | |
475 | $ ELSE | |
476 | $ FILE_NAME = "," | |
477 | $! | |
478 | $ IF F$TYPE('APPS_MODULE') .NES. "" | |
479 | $ THEN | |
480 | $! | |
481 | $! Extract The File Name From The File List. | |
482 | $! This part is a bit more complicated. | |
483 | $! | |
484 | $ IF APPLICATION .EQS. "" | |
485 | $ THEN | |
486 | $ APPLICATION = F$ELEMENT(APPLICATION_COUNTER,";",'APPS_MODULE') | |
487 | $ APPLICATION_COUNTER = APPLICATION_COUNTER + 1 | |
488 | $ APPLICATION_OBJECTS = F$ELEMENT(1,"/",APPLICATION) | |
489 | $ APPLICATION = F$ELEMENT(0,"/",APPLICATION) | |
490 | $ FILE_COUNTER = 0 | |
491 | $ ENDIF | |
492 | $ | |
493 | $! WRITE SYS$OUTPUT "DEBUG: SHOW SYMBOL APPLICATION*" | |
494 | $! SHOW SYMBOL APPLICATION* | |
495 | $! | |
496 | $ IF APPLICATION .NES. ";" | |
497 | $ THEN | |
498 | $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",APPLICATION_OBJECTS) | |
499 | $ IF FILE_NAME .EQS. "," | |
500 | $ THEN | |
501 | $ APPLICATION = "" | |
502 | $ GOTO NEXT_FILE | |
503 | $ ENDIF | |
504 | $ ENDIF | |
505 | $ ENDIF | |
506 | $ ENDIF | |
7d7d2cbc UM |
507 | $! |
508 | $! Check To See If We Are At The End Of The File List. | |
509 | $! | |
510 | $ IF (FILE_NAME.EQS.",") | |
511 | $ THEN | |
512 | $! | |
f18a93ab | 513 | $! We Are At The End Of The File List, Change State Or Goto FILE_DONE. |
7d7d2cbc | 514 | $! |
f18a93ab RL |
515 | $ IF STATE .EQS. "LIB" .AND. BUILDALL .NES. "LIBRARY" |
516 | $ THEN | |
517 | $ STATE = "APPS" | |
518 | $ GOTO MODULE_AGAIN | |
519 | $ ELSE | |
520 | $ GOTO FILE_DONE | |
521 | $ ENDIF | |
7d7d2cbc UM |
522 | $! |
523 | $! End The File List Check. | |
524 | $! | |
525 | $ ENDIF | |
526 | $! | |
527 | $! Increment The Counter. | |
528 | $! | |
529 | $ FILE_COUNTER = FILE_COUNTER + 1 | |
530 | $! | |
531 | $! Create The Source File Name. | |
532 | $! | |
533 | $ TMP_FILE_NAME = F$ELEMENT(1,"]",FILE_NAME) | |
534 | $ IF TMP_FILE_NAME .EQS. "]" THEN TMP_FILE_NAME = FILE_NAME | |
535 | $ IF F$ELEMENT(0,".",TMP_FILE_NAME) .EQS. TMP_FILE_NAME THEN - | |
536 | FILE_NAME = FILE_NAME + ".c" | |
537 | $ IF (MODULE_NAME.NES."") | |
538 | $ THEN | |
539 | $ SOURCE_FILE = "SYS$DISK:[." + MODULE_NAME+ "]" + FILE_NAME | |
540 | $ ELSE | |
541 | $ SOURCE_FILE = "SYS$DISK:[]" + FILE_NAME | |
542 | $ ENDIF | |
543 | $ SOURCE_FILE = SOURCE_FILE - "][" | |
544 | $! | |
545 | $! Create The Object File Name. | |
546 | $! | |
547 | $ OBJECT_FILE = OBJ_DIR + F$PARSE(FILE_NAME,,,"NAME","SYNTAX_ONLY") + ".OBJ" | |
548 | $ ON WARNING THEN GOTO NEXT_FILE | |
549 | $! | |
550 | $! Check To See If The File We Want To Compile Is Actually There. | |
551 | $! | |
552 | $ IF (F$SEARCH(SOURCE_FILE).EQS."") | |
553 | $ THEN | |
554 | $! | |
0baed24c | 555 | $! Tell The User That The File Doesn't Exist. |
7d7d2cbc UM |
556 | $! |
557 | $ WRITE SYS$OUTPUT "" | |
0baed24c | 558 | $ WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Doesn't Exist." |
7d7d2cbc UM |
559 | $ WRITE SYS$OUTPUT "" |
560 | $! | |
561 | $! Exit The Build. | |
562 | $! | |
563 | $ GOTO EXIT | |
564 | $! | |
565 | $! End The File Exist Check. | |
566 | $! | |
567 | $ ENDIF | |
568 | $! | |
569 | $! Tell The User We Are Compiling The File. | |
570 | $! | |
571 | $ IF (MODULE_NAME.EQS."") | |
572 | $ THEN | |
f18a93ab | 573 | $ WRITE SYS$OUTPUT "Compiling The ",FILE_NAME," File. (",BUILDALL,",",STATE,")" |
7d7d2cbc UM |
574 | $ ENDIF |
575 | $ IF (MODULE_NAME.NES."") | |
576 | $ THEN | |
577 | $ WRITE SYS$OUTPUT " ",FILE_NAME,"" | |
578 | $ ENDIF | |
579 | $! | |
580 | $! Compile The File. | |
581 | $! | |
582 | $ ON ERROR THEN GOTO NEXT_FILE | |
583 | $ FILE_NAME0 = F$ELEMENT(0,".",FILE_NAME) | |
584 | $ IF FILE_NAME - ".mar" .NES. FILE_NAME | |
585 | $ THEN | |
586 | $ MACRO/OBJECT='OBJECT_FILE' 'SOURCE_FILE' | |
587 | $ ELSE | |
588 | $ IF COMPILEWITH_CC3 - FILE_NAME0 .NES. COMPILEWITH_CC3 | |
589 | $ THEN | |
590 | $ CC3/OBJECT='OBJECT_FILE' 'SOURCE_FILE' | |
591 | $ ELSE | |
592 | $ IF COMPILEWITH_CC4 - FILE_NAME0 .NES. COMPILEWITH_CC4 | |
593 | $ THEN | |
594 | $ CC4/OBJECT='OBJECT_FILE' 'SOURCE_FILE' | |
595 | $ ELSE | |
596 | $ IF COMPILEWITH_CC5 - FILE_NAME0 .NES. COMPILEWITH_CC5 | |
597 | $ THEN | |
598 | $ CC5/OBJECT='OBJECT_FILE' 'SOURCE_FILE' | |
599 | $ ELSE | |
600 | $ CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE' | |
601 | $ ENDIF | |
602 | $ ENDIF | |
603 | $ ENDIF | |
604 | $ ENDIF | |
f18a93ab RL |
605 | $ IF STATE .EQS. "LIB" |
606 | $ THEN | |
7d7d2cbc | 607 | $! |
f18a93ab | 608 | $! Add It To The Library. |
7d7d2cbc | 609 | $! |
f18a93ab | 610 | $ LIBRARY/REPLACE 'LIB_NAME' 'OBJECT_FILE' |
7d7d2cbc | 611 | $! |
f18a93ab | 612 | $! Time To Clean Up The Object File. |
7d7d2cbc | 613 | $! |
f18a93ab RL |
614 | $ DELETE 'OBJECT_FILE';* |
615 | $ ENDIF | |
7d7d2cbc UM |
616 | $! |
617 | $! Go Back And Do It Again. | |
618 | $! | |
619 | $ GOTO NEXT_FILE | |
620 | $! | |
621 | $! All Done With This Library Part. | |
622 | $! | |
623 | $ FILE_DONE: | |
624 | $! | |
f18a93ab RL |
625 | $! Time To Build Some Applications |
626 | $! | |
627 | $ IF F$TYPE('APPS_MODULE') .NES. "" .AND. BUILDALL .NES. "LIBRARY" | |
628 | $ THEN | |
629 | $ APPLICATION_COUNTER = 0 | |
630 | $ NEXT_APPLICATION: | |
631 | $ APPLICATION = F$ELEMENT(APPLICATION_COUNTER,";",'APPS_MODULE') | |
632 | $ IF APPLICATION .EQS. ";" THEN GOTO APPLICATION_DONE | |
633 | $ | |
634 | $ APPLICATION_COUNTER = APPLICATION_COUNTER + 1 | |
635 | $ APPLICATION_OBJECTS = F$ELEMENT(1,"/",APPLICATION) | |
636 | $ APPLICATION = F$ELEMENT(0,"/",APPLICATION) | |
637 | $ | |
638 | $! WRITE SYS$OUTPUT "DEBUG: SHOW SYMBOL APPLICATION*" | |
639 | $! SHOW SYMBOL APPLICATION* | |
640 | $! | |
641 | $! Tell the user what happens | |
642 | $! | |
643 | $ WRITE SYS$OUTPUT " ",APPLICATION,".exe" | |
644 | $! | |
645 | $! Link The Program, Check To See If We Need To Link With RSAREF Or Not. | |
646 | $! | |
b09f4fb2 | 647 | $ ON ERROR THEN GOTO NEXT_APPLICATION |
f18a93ab RL |
648 | $ IF (RSAREF.EQS."TRUE") |
649 | $ THEN | |
650 | $! | |
651 | $! Check To See If We Are To Link With A Specific TCP/IP Library. | |
652 | $! | |
653 | $ IF (TCPIP_LIB.NES."") | |
654 | $ THEN | |
655 | $! | |
656 | $! Link With The RSAREF Library And A Specific TCP/IP Library. | |
657 | $! | |
658 | $ LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR''APPLICATION'.EXE - | |
659 | 'OBJ_DIR''APPLICATION_OBJECTS', - | |
660 | 'CRYPTO_LIB'/LIBRARY,'RSAREF_LIB'/LIBRARY, - | |
661 | 'TCPIP_LIB','OPT_FILE'/OPTION | |
662 | $! | |
663 | $! Else... | |
664 | $! | |
665 | $ ELSE | |
666 | $! | |
667 | $! Link With The RSAREF Library And NO TCP/IP Library. | |
668 | $! | |
669 | $ LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR''APPLICATION'.EXE - | |
670 | 'OBJ_DIR''APPLICATION_OBJECTS', - | |
671 | 'CRYPTO_LIB'/LIBRARY,'RSAREF_LIB'/LIBRARY, - | |
672 | 'OPT_FILE'/OPTION | |
673 | $! | |
674 | $! End The TCP/IP Library Check. | |
675 | $! | |
676 | $ ENDIF | |
677 | $! | |
678 | $! Else... | |
679 | $! | |
680 | $ ELSE | |
681 | $! | |
682 | $! Don't Link With The RSAREF Routines. | |
683 | $! | |
684 | $! | |
685 | $! Check To See If We Are To Link With A Specific TCP/IP Library. | |
686 | $! | |
687 | $ IF (TCPIP_LIB.NES."") | |
688 | $ THEN | |
689 | $! | |
690 | $! Don't Link With The RSAREF Routines And TCP/IP Library. | |
691 | $! | |
692 | $ LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR''APPLICATION'.EXE - | |
693 | 'OBJ_DIR''APPLICATION_OBJECTS', - | |
694 | 'CRYPTO_LIB'/LIBRARY, - | |
695 | 'TCPIP_LIB','OPT_FILE'/OPTION | |
696 | $! | |
697 | $! Else... | |
698 | $! | |
699 | $ ELSE | |
700 | $! | |
701 | $! Don't Link With The RSAREF Routines And Link With A TCP/IP Library. | |
702 | $! | |
703 | $ LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR''APPLICATION'.EXE - | |
704 | 'OBJ_DIR''APPLICATION_OBJECTS',- | |
705 | 'CRYPTO_LIB'/LIBRARY, - | |
706 | 'OPT_FILE'/OPTION | |
707 | $! | |
708 | $! End The TCP/IP Library Check. | |
709 | $! | |
710 | $ ENDIF | |
711 | $! | |
712 | $! End The RSAREF Link Check. | |
713 | $! | |
714 | $ ENDIF | |
715 | $ GOTO NEXT_APPLICATION | |
716 | $ APPLICATION_DONE: | |
717 | $ ENDIF | |
718 | $! | |
7d7d2cbc UM |
719 | $! Go Back And Get The Next Module. |
720 | $! | |
721 | $ GOTO MODULE_NEXT | |
722 | $! | |
723 | $! All Done With This Module. | |
724 | $! | |
725 | $ MODULE_DONE: | |
726 | $! | |
727 | $! Tell The User That We Are All Done. | |
728 | $! | |
729 | $ WRITE SYS$OUTPUT "All Done..." | |
730 | $ EXIT: | |
731 | $ GOSUB CLEANUP | |
732 | $ EXIT | |
733 | $! | |
734 | $! Check For The Link Option FIle. | |
735 | $! | |
736 | $ CHECK_OPT_FILE: | |
737 | $! | |
738 | $! Check To See If We Need To Make A VAX C Option File. | |
739 | $! | |
740 | $ IF (COMPILER.EQS."VAXC") | |
741 | $ THEN | |
742 | $! | |
743 | $! Check To See If We Already Have A VAX C Linker Option File. | |
744 | $! | |
745 | $ IF (F$SEARCH(OPT_FILE).EQS."") | |
746 | $ THEN | |
747 | $! | |
748 | $! We Need A VAX C Linker Option File. | |
749 | $! | |
750 | $ CREATE 'OPT_FILE' | |
751 | $DECK | |
752 | ! | |
753 | ! Default System Options File To Link Agianst | |
754 | ! The Sharable VAX C Runtime Library. | |
755 | ! | |
756 | SYS$SHARE:VAXCRTL.EXE/SHARE | |
757 | $EOD | |
758 | $! | |
759 | $! End The Option File Check. | |
760 | $! | |
761 | $ ENDIF | |
762 | $! | |
763 | $! End The VAXC Check. | |
764 | $! | |
765 | $ ENDIF | |
766 | $! | |
767 | $! Check To See If We Need A GNU C Option File. | |
768 | $! | |
769 | $ IF (COMPILER.EQS."GNUC") | |
770 | $ THEN | |
771 | $! | |
772 | $! Check To See If We Already Have A GNU C Linker Option File. | |
773 | $! | |
774 | $ IF (F$SEARCH(OPT_FILE).EQS."") | |
775 | $ THEN | |
776 | $! | |
777 | $! We Need A GNU C Linker Option File. | |
778 | $! | |
779 | $ CREATE 'OPT_FILE' | |
780 | $DECK | |
781 | ! | |
782 | ! Default System Options File To Link Agianst | |
783 | ! The Sharable C Runtime Library. | |
784 | ! | |
785 | GNU_CC:[000000]GCCLIB/LIBRARY | |
786 | SYS$SHARE:VAXCRTL/SHARE | |
787 | $EOD | |
788 | $! | |
789 | $! End The Option File Check. | |
790 | $! | |
791 | $ ENDIF | |
792 | $! | |
793 | $! End The GNU C Check. | |
794 | $! | |
795 | $ ENDIF | |
796 | $! | |
797 | $! Check To See If We Need A DEC C Option File. | |
798 | $! | |
799 | $ IF (COMPILER.EQS."DECC") | |
800 | $ THEN | |
801 | $! | |
802 | $! Check To See If We Already Have A DEC C Linker Option File. | |
803 | $! | |
804 | $ IF (F$SEARCH(OPT_FILE).EQS."") | |
805 | $ THEN | |
806 | $! | |
807 | $! Figure Out If We Need An AXP Or A VAX Linker Option File. | |
808 | $! | |
809 | $ IF ARCH .EQS. "VAX" | |
810 | $ THEN | |
811 | $! | |
812 | $! We Need A DEC C Linker Option File For VAX. | |
813 | $! | |
814 | $ CREATE 'OPT_FILE' | |
815 | $DECK | |
816 | ! | |
817 | ! Default System Options File To Link Agianst | |
818 | ! The Sharable DEC C Runtime Library. | |
819 | ! | |
820 | SYS$SHARE:DECC$SHR.EXE/SHARE | |
821 | $EOD | |
822 | $! | |
823 | $! Else... | |
824 | $! | |
825 | $ ELSE | |
826 | $! | |
827 | $! Create The AXP Linker Option File. | |
828 | $! | |
829 | $ CREATE 'OPT_FILE' | |
830 | $DECK | |
831 | ! | |
832 | ! Default System Options File For AXP To Link Agianst | |
833 | ! The Sharable C Runtime Library. | |
834 | ! | |
835 | SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE | |
836 | SYS$SHARE:CMA$OPEN_RTL/SHARE | |
837 | $EOD | |
838 | $! | |
839 | $! End The VAX/AXP DEC C Option File Check. | |
840 | $! | |
841 | $ ENDIF | |
842 | $! | |
843 | $! End The Option File Search. | |
844 | $! | |
845 | $ ENDIF | |
846 | $! | |
847 | $! End The DEC C Check. | |
848 | $! | |
849 | $ ENDIF | |
850 | $! | |
851 | $! Tell The User What Linker Option File We Are Using. | |
852 | $! | |
853 | $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"." | |
854 | $! | |
855 | $! Time To RETURN. | |
856 | $! | |
857 | $ RETURN | |
858 | $! | |
29ccd81f RL |
859 | $! Check The User's Options. |
860 | $! | |
861 | $ CHECK_OPTIONS: | |
862 | $! | |
f18a93ab RL |
863 | $! Check To See If P1 Is Blank. |
864 | $! | |
865 | $ IF (P1.EQS."ALL") | |
866 | $ THEN | |
867 | $! | |
868 | $! P1 Is Blank, So Build Everything. | |
869 | $! | |
870 | $ BUILDALL = "TRUE" | |
871 | $! | |
872 | $! Else... | |
873 | $! | |
874 | $ ELSE | |
875 | $! | |
876 | $! Else, Check To See If P1 Has A Valid Arguement. | |
877 | $! | |
878 | $ IF (P1.EQS."LIBRARY").OR.(P1.EQS."APPS") | |
879 | $ THEN | |
880 | $! | |
881 | $! A Valid Arguement. | |
882 | $! | |
883 | $ BUILDALL = P1 | |
884 | $! | |
885 | $! Else... | |
886 | $! | |
887 | $ ELSE | |
888 | $! | |
889 | $! Tell The User We Don't Know What They Want. | |
890 | $! | |
891 | $ WRITE SYS$OUTPUT "" | |
892 | $ WRITE SYS$OUTPUT "The Option ",P1," Is Invalid. The Valid Options Are:" | |
893 | $ WRITE SYS$OUTPUT "" | |
894 | $ WRITE SYS$OUTPUT " ALL : Just Build Everything." | |
895 | $ WRITE SYS$OUTPUT " LIBRARY : To Compile Just The [.xxx.EXE.SSL]LIBCRYPTO.OLB Library." | |
896 | $ WRITE SYS$OUTPUT " APPS : To Compile Just The [.xxx.EXE.SSL]*.EXE Programs." | |
897 | $ WRITE SYS$OUTPUT "" | |
898 | $ WRITE SYS$OUTPUT " Where 'xxx' Stands For:" | |
899 | $ WRITE SYS$OUTPUT "" | |
900 | $ WRITE SYS$OUTPUT " AXP : Alpha Architecture." | |
901 | $ WRITE SYS$OUTPUT " VAX : VAX Architecture." | |
902 | $ WRITE SYS$OUTPUT "" | |
903 | $! | |
904 | $! Time To EXIT. | |
905 | $! | |
906 | $ EXIT | |
907 | $! | |
908 | $! End The Valid Arguement Check. | |
909 | $! | |
910 | $ ENDIF | |
911 | $! | |
912 | $! End The P1 Check. | |
913 | $! | |
914 | $ ENDIF | |
915 | $! | |
f18a93ab | 916 | $! Check To See If P2 Is Blank. |
7d7d2cbc | 917 | $! |
ccb9643f | 918 | $ P2 = "NORSAREF" |
f18a93ab | 919 | $ IF (P2.EQS."NORSAREF") |
7d7d2cbc UM |
920 | $ THEN |
921 | $! | |
f18a93ab | 922 | $! P2 Is NORSAREF, So Compile With The Regular RSA Libraries. |
7d7d2cbc UM |
923 | $! |
924 | $ RSAREF = "FALSE" | |
925 | $ ELSE | |
926 | $! | |
927 | $! Check To See If We Are To Use The RSAREF Library. | |
928 | $! | |
f18a93ab | 929 | $ IF (P2.EQS."RSAREF") |
7d7d2cbc UM |
930 | $ THEN |
931 | $! | |
932 | $! Check To Make Sure We Have The RSAREF Source Code Directory. | |
933 | $! | |
934 | $ IF (F$SEARCH("SYS$DISK:[-.RSAREF]SOURCE.DIR").EQS."") | |
935 | $ THEN | |
936 | $! | |
937 | $! We Don't Have The RSAREF Souce Code Directory, So Tell The | |
938 | $! User This. | |
939 | $! | |
940 | $ WRITE SYS$OUTPUT "" | |
941 | $ WRITE SYS$OUTPUT "It appears that you don't have the RSAREF Souce Code." | |
942 | $ WRITE SYS$OUTPUT "You need to go to 'ftp://ftp.rsa.com/rsaref'. You have to" | |
0baed24c | 943 | $ WRITE SYS$OUTPUT "get the '.tar-Z' file as the '.zip' file doesn't have the" |
7d7d2cbc UM |
944 | $ WRITE SYS$OUTPUT "directory structure stored. You have to extract the file" |
945 | $ WRITE SYS$OUTPUT "into the [.RSAREF] directory under the root directory" | |
946 | $ WRITE SYS$OUTPUT "as that is where the scripts will look for the files." | |
947 | $ WRITE SYS$OUTPUT "" | |
948 | $! | |
949 | $! Time To Exit. | |
950 | $! | |
951 | $ EXIT | |
952 | $! | |
953 | $! Else, Compile Using The RSAREF Library. | |
954 | $! | |
955 | $ ELSE | |
956 | $ RSAREF = "TRUE" | |
957 | $ ENDIF | |
958 | $ ELSE | |
959 | $! | |
960 | $! They Entered An Invalid Option.. | |
961 | $! | |
962 | $ WRITE SYS$OUTPUT "" | |
f18a93ab | 963 | $ WRITE SYS$OUTPUT "The Option ",P2," Is Invalid. The Valid Options Are:" |
7d7d2cbc UM |
964 | $ WRITE SYS$OUTPUT "" |
965 | $ WRITE SYS$OUTPUT " RSAREF : Compile With The RSAREF Library." | |
966 | $ WRITE SYS$OUTPUT " NORSAREF : Compile With The Regular RSA Library." | |
967 | $ WRITE SYS$OUTPUT "" | |
968 | $! | |
969 | $! Time To EXIT. | |
970 | $! | |
971 | $ EXIT | |
972 | $! | |
973 | $! End The Valid Arguement Check. | |
974 | $! | |
975 | $ ENDIF | |
976 | $! | |
f18a93ab | 977 | $! End The P2 Check. |
7d7d2cbc UM |
978 | $! |
979 | $ ENDIF | |
980 | $! | |
f18a93ab | 981 | $! Check To See If P3 Is Blank. |
7d7d2cbc | 982 | $! |
f18a93ab | 983 | $ IF (P3.EQS."NODEBUG") |
7d7d2cbc UM |
984 | $ THEN |
985 | $! | |
f18a93ab | 986 | $! P3 Is NODEBUG, So Compile Without The Debugger Information. |
7d7d2cbc UM |
987 | $! |
988 | $ DEBUGGER = "NODEBUG" | |
989 | $ TRACEBACK = "NOTRACEBACK" | |
990 | $ GCC_OPTIMIZE = "OPTIMIZE" | |
991 | $ CC_OPTIMIZE = "OPTIMIZE" | |
992 | $ MACRO_OPTIMIZE = "OPTIMIZE" | |
993 | $ WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile." | |
994 | $ WRITE SYS$OUTPUT "Compiling With Compiler Optimization." | |
995 | $ ELSE | |
996 | $! | |
997 | $! Check To See If We Are To Compile With Debugger Information. | |
998 | $! | |
f18a93ab | 999 | $ IF (P3.EQS."DEBUG") |
7d7d2cbc UM |
1000 | $ THEN |
1001 | $! | |
1002 | $! Compile With Debugger Information. | |
1003 | $! | |
1004 | $ DEBUGGER = "DEBUG" | |
1005 | $ TRACEBACK = "TRACEBACK" | |
1006 | $ GCC_OPTIMIZE = "NOOPTIMIZE" | |
1007 | $ CC_OPTIMIZE = "NOOPTIMIZE" | |
1008 | $ MACRO_OPTIMIZE = "NOOPTIMIZE" | |
1009 | $ WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile." | |
1010 | $ WRITE SYS$OUTPUT "Compiling Without Compiler Optimization." | |
1011 | $ ELSE | |
1012 | $! | |
1013 | $! They Entered An Invalid Option.. | |
1014 | $! | |
1015 | $ WRITE SYS$OUTPUT "" | |
f18a93ab | 1016 | $ WRITE SYS$OUTPUT "The Option ",P3," Is Invalid. The Valid Options Are:" |
7d7d2cbc UM |
1017 | $ WRITE SYS$OUTPUT "" |
1018 | $ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information." | |
1019 | $ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information." | |
1020 | $ WRITE SYS$OUTPUT "" | |
1021 | $! | |
1022 | $! Time To EXIT. | |
1023 | $! | |
1024 | $ EXIT | |
1025 | $! | |
1026 | $! End The Valid Arguement Check. | |
1027 | $! | |
1028 | $ ENDIF | |
1029 | $! | |
f18a93ab | 1030 | $! End The P3 Check. |
7d7d2cbc UM |
1031 | $! |
1032 | $ ENDIF | |
1033 | $! | |
1034 | $! Special Threads For OpenVMS v7.1 Or Later | |
1035 | $! | |
1036 | $! Written By: Richard Levitte | |
1037 | $! richard@levitte.org | |
1038 | $! | |
1039 | $! | |
f18a93ab | 1040 | $! Check To See If We Have A Option For P6. |
7d7d2cbc | 1041 | $! |
f18a93ab | 1042 | $ IF (P6.EQS."") |
7d7d2cbc UM |
1043 | $ THEN |
1044 | $! | |
1045 | $! Get The Version Of VMS We Are Using. | |
1046 | $! | |
1047 | $ ISSEVEN := | |
1048 | $ TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION"))) | |
1049 | $ TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP)) | |
1050 | $! | |
1051 | $! Check To See If The VMS Version Is v7.1 Or Later. | |
1052 | $! | |
1053 | $ IF (TMP.GE.71) | |
1054 | $ THEN | |
1055 | $! | |
1056 | $! We Have OpenVMS v7.1 Or Later, So Use The Special Threads. | |
1057 | $! | |
1058 | $ ISSEVEN := ,PTHREAD_USE_D4 | |
1059 | $! | |
1060 | $! End The VMS Version Check. | |
1061 | $! | |
1062 | $ ENDIF | |
1063 | $! | |
f18a93ab | 1064 | $! End The P6 Check. |
7d7d2cbc UM |
1065 | $! |
1066 | $ ENDIF | |
1067 | $! | |
f18a93ab | 1068 | $! Check To See If P4 Is Blank. |
7d7d2cbc | 1069 | $! |
f18a93ab | 1070 | $ IF (P4.EQS."") |
7d7d2cbc UM |
1071 | $ THEN |
1072 | $! | |
1073 | $! O.K., The User Didn't Specify A Compiler, Let's Try To | |
1074 | $! Find Out Which One To Use. | |
1075 | $! | |
1076 | $! Check To See If We Have GNU C. | |
1077 | $! | |
1078 | $ IF (F$TRNLNM("GNU_CC").NES."") | |
1079 | $ THEN | |
1080 | $! | |
1081 | $! Looks Like GNUC, Set To Use GNUC. | |
1082 | $! | |
f18a93ab | 1083 | $ P4 = "GNUC" |
7d7d2cbc UM |
1084 | $! |
1085 | $! Else... | |
1086 | $! | |
1087 | $ ELSE | |
1088 | $! | |
1089 | $! Check To See If We Have VAXC Or DECC. | |
1090 | $! | |
1091 | $ IF (ARCH.EQS."AXP").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."") | |
1092 | $ THEN | |
1093 | $! | |
1094 | $! Looks Like DECC, Set To Use DECC. | |
1095 | $! | |
f18a93ab | 1096 | $ P4 = "DECC" |
7d7d2cbc UM |
1097 | $! |
1098 | $! Else... | |
1099 | $! | |
1100 | $ ELSE | |
1101 | $! | |
1102 | $! Looks Like VAXC, Set To Use VAXC. | |
1103 | $! | |
f18a93ab | 1104 | $ P4 = "VAXC" |
7d7d2cbc UM |
1105 | $! |
1106 | $! End The VAXC Compiler Check. | |
1107 | $! | |
1108 | $ ENDIF | |
1109 | $! | |
1110 | $! End The DECC & VAXC Compiler Check. | |
1111 | $! | |
1112 | $ ENDIF | |
1113 | $! | |
1114 | $! End The Compiler Check. | |
1115 | $! | |
1116 | $ ENDIF | |
1117 | $! | |
f18a93ab | 1118 | $! Check To See If We Have A Option For P5. |
7d7d2cbc | 1119 | $! |
f18a93ab | 1120 | $ IF (P5.EQS."") |
7d7d2cbc UM |
1121 | $ THEN |
1122 | $! | |
1123 | $! Find out what socket library we have available | |
1124 | $! | |
1125 | $ IF F$PARSE("SOCKETSHR:") .NES. "" | |
1126 | $ THEN | |
1127 | $! | |
1128 | $! We have SOCKETSHR, and it is my opinion that it's the best to use. | |
1129 | $! | |
f18a93ab | 1130 | $ P5 = "SOCKETSHR" |
7d7d2cbc UM |
1131 | $! |
1132 | $! Tell the user | |
1133 | $! | |
1134 | $ WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP" | |
1135 | $! | |
1136 | $! Else, let's look for something else | |
1137 | $! | |
1138 | $ ELSE | |
1139 | $! | |
1140 | $! Like UCX (the reason to do this before Multinet is that the UCX | |
1141 | $! emulation is easier to use...) | |
1142 | $! | |
1143 | $ IF F$TRNLNM("UCX$IPC_SHR") .NES. "" - | |
1144 | .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" - | |
1145 | .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. "" | |
1146 | $ THEN | |
1147 | $! | |
1148 | $! Last resort: a UCX or UCX-compatible library | |
1149 | $! | |
f18a93ab | 1150 | $ P5 = "UCX" |
7d7d2cbc UM |
1151 | $! |
1152 | $! Tell the user | |
1153 | $! | |
1154 | $ WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP" | |
1155 | $! | |
1156 | $! That was all... | |
1157 | $! | |
1158 | $ ENDIF | |
1159 | $ ENDIF | |
1160 | $ ENDIF | |
1161 | $! | |
1162 | $! Set Up Initial CC Definitions, Possibly With User Ones | |
1163 | $! | |
6525ced5 | 1164 | $ CCDEFS = "TCPIP_TYPE_''P5',DSO_VMS" |
7d7d2cbc UM |
1165 | $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS |
1166 | $ CCEXTRAFLAGS = "" | |
1167 | $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS | |
6209ada9 | 1168 | $ CCDISABLEWARNINGS = "LONGLONGTYPE,LONGLONGSUFX" |
7d7d2cbc | 1169 | $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN - |
6209ada9 | 1170 | CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS |
7d7d2cbc UM |
1171 | $! |
1172 | $! Check To See If The User Entered A Valid Paramter. | |
1173 | $! | |
f18a93ab | 1174 | $ IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC") |
7d7d2cbc UM |
1175 | $ THEN |
1176 | $! | |
1177 | $! Check To See If The User Wanted DECC. | |
1178 | $! | |
f18a93ab | 1179 | $ IF (P4.EQS."DECC") |
7d7d2cbc UM |
1180 | $ THEN |
1181 | $! | |
1182 | $! Looks Like DECC, Set To Use DECC. | |
1183 | $! | |
1184 | $ COMPILER = "DECC" | |
1185 | $! | |
1186 | $! Tell The User We Are Using DECC. | |
1187 | $! | |
1188 | $ WRITE SYS$OUTPUT "Using DECC 'C' Compiler." | |
1189 | $! | |
1190 | $! Use DECC... | |
1191 | $! | |
1192 | $ CC = "CC" | |
1193 | $ IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" - | |
1194 | THEN CC = "CC/DECC" | |
1195 | $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89" + - | |
5270e702 | 1196 | "/NOLIST/PREFIX=ALL" + - |
e0031b80 | 1197 | "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.ENGINE.VENDOR_DEFNS],SYS$DISK:[.EVP])" + - |
5270e702 | 1198 | CCEXTRAFLAGS |
7d7d2cbc UM |
1199 | $! |
1200 | $! Define The Linker Options File Name. | |
1201 | $! | |
1202 | $ OPT_FILE = "SYS$DISK:[]VAX_DECC_OPTIONS.OPT" | |
1203 | $! | |
1204 | $! End DECC Check. | |
1205 | $! | |
1206 | $ ENDIF | |
1207 | $! | |
1208 | $! Check To See If We Are To Use VAXC. | |
1209 | $! | |
f18a93ab | 1210 | $ IF (P4.EQS."VAXC") |
7d7d2cbc UM |
1211 | $ THEN |
1212 | $! | |
1213 | $! Looks Like VAXC, Set To Use VAXC. | |
1214 | $! | |
1215 | $ COMPILER = "VAXC" | |
1216 | $! | |
1217 | $! Tell The User We Are Using VAX C. | |
1218 | $! | |
1219 | $ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler." | |
1220 | $! | |
1221 | $! Compile Using VAXC. | |
1222 | $! | |
1223 | $ CC = "CC" | |
1224 | $ IF ARCH.EQS."AXP" | |
1225 | $ THEN | |
1226 | $ WRITE SYS$OUTPUT "There is no VAX C on Alpha!" | |
1227 | $ EXIT | |
1228 | $ ENDIF | |
1229 | $ IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC" | |
5270e702 | 1230 | $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + - |
41d2a336 | 1231 | "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.ENGINE.VENDOR_DEFNS])" + - |
7d7d2cbc UM |
1232 | CCEXTRAFLAGS |
1233 | $ CCDEFS = """VAXC""," + CCDEFS | |
1234 | $! | |
1235 | $! Define <sys> As SYS$COMMON:[SYSLIB] | |
1236 | $! | |
1237 | $ DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB] | |
1238 | $! | |
1239 | $! Define The Linker Options File Name. | |
1240 | $! | |
1241 | $ OPT_FILE = "SYS$DISK:[]VAX_VAXC_OPTIONS.OPT" | |
1242 | $! | |
1243 | $! End VAXC Check | |
1244 | $! | |
1245 | $ ENDIF | |
1246 | $! | |
1247 | $! Check To See If We Are To Use GNU C. | |
1248 | $! | |
f18a93ab | 1249 | $ IF (P4.EQS."GNUC") |
7d7d2cbc UM |
1250 | $ THEN |
1251 | $! | |
1252 | $! Looks Like GNUC, Set To Use GNUC. | |
1253 | $! | |
1254 | $ COMPILER = "GNUC" | |
1255 | $! | |
1256 | $! Tell The User We Are Using GNUC. | |
1257 | $! | |
1258 | $ WRITE SYS$OUTPUT "Using GNU 'C' Compiler." | |
1259 | $! | |
1260 | $! Use GNU C... | |
1261 | $! | |
1262 | $ CC = "GCC/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + - | |
41d2a336 | 1263 | "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.ENGINE.VENDOR_DEFNS])" + - |
5270e702 | 1264 | CCEXTRAFLAGS |
7d7d2cbc UM |
1265 | $! |
1266 | $! Define The Linker Options File Name. | |
1267 | $! | |
1268 | $ OPT_FILE = "SYS$DISK:[]VAX_GNUC_OPTIONS.OPT" | |
1269 | $! | |
1270 | $! End The GNU C Check. | |
1271 | $! | |
1272 | $ ENDIF | |
1273 | $! | |
1274 | $! Set up default defines | |
1275 | $! | |
1276 | $ CCDEFS = """FLAT_INC=1""," + CCDEFS | |
1277 | $! | |
1278 | $! Check To See If We Are To Compile With RSAREF Routines. | |
1279 | $! | |
1280 | $ IF (RSAREF.EQS."TRUE") | |
1281 | $ THEN | |
1282 | $! | |
1283 | $! Compile With RSAREF. | |
1284 | $! | |
1285 | $ CCDEFS = CCDEFS + ",""RSAref=1""" | |
1286 | $! | |
1287 | $! Tell The User This. | |
1288 | $! | |
1289 | $ WRITE SYS$OUTPUT "Compiling With RSAREF Routines." | |
1290 | $! | |
1291 | $! Else, We Don't Care. Compile Without The RSAREF Library. | |
1292 | $! | |
1293 | $ ELSE | |
1294 | $! | |
1295 | $! Tell The User We Are Compile Without The RSAREF Routines. | |
1296 | $! | |
1297 | $ WRITE SYS$OUTPUT "Compiling Without The RSAREF Routines. | |
1298 | $! | |
1299 | $! End The RSAREF Check. | |
1300 | $! | |
1301 | $ ENDIF | |
1302 | $! | |
1303 | $! Finish up the definition of CC. | |
1304 | $! | |
1305 | $ IF COMPILER .EQS. "DECC" | |
1306 | $ THEN | |
1307 | $ IF CCDISABLEWARNINGS .EQS. "" | |
1308 | $ THEN | |
1309 | $ CC4DISABLEWARNINGS = "DOLLARID" | |
1310 | $ ELSE | |
1311 | $ CC4DISABLEWARNINGS = CCDISABLEWARNINGS + ",DOLLARID" | |
1312 | $ CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))" | |
1313 | $ ENDIF | |
1314 | $ CC4DISABLEWARNINGS = "/WARNING=(DISABLE=(" + CC4DISABLEWARNINGS + "))" | |
1315 | $ ELSE | |
1316 | $ CCDISABLEWARNINGS = "" | |
1317 | $ CC4DISABLEWARNINGS = "" | |
1318 | $ ENDIF | |
1319 | $ CC3 = CC + "/DEFINE=(" + CCDEFS + ISSEVEN + ")" + CCDISABLEWARNINGS | |
1320 | $ CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS | |
f18a93ab | 1321 | $ IF ARCH .EQS. "VAX" .AND. COMPILER .EQS. "DECC" .AND. P3 .NES. "DEBUG" |
7d7d2cbc UM |
1322 | $ THEN |
1323 | $ CC5 = CC + "/OPTIMIZE=NODISJOINT" | |
1324 | $ ELSE | |
1325 | $ CC5 = CC + "/NOOPTIMIZE" | |
1326 | $ ENDIF | |
1327 | $ CC4 = CC - CCDISABLEWARNINGS + CC4DISABLEWARNINGS | |
1328 | $! | |
1329 | $! Show user the result | |
1330 | $! | |
265e892f | 1331 | $ WRITE/SYMBOL SYS$OUTPUT "Main C Compiling Command: ",CC |
7d7d2cbc UM |
1332 | $! |
1333 | $! Else The User Entered An Invalid Arguement. | |
1334 | $! | |
1335 | $ ELSE | |
1336 | $! | |
1337 | $! Tell The User We Don't Know What They Want. | |
1338 | $! | |
1339 | $ WRITE SYS$OUTPUT "" | |
f18a93ab | 1340 | $ WRITE SYS$OUTPUT "The Option ",P4," Is Invalid. The Valid Options Are:" |
7d7d2cbc UM |
1341 | $ WRITE SYS$OUTPUT "" |
1342 | $ WRITE SYS$OUTPUT " VAXC : To Compile With VAX C." | |
1343 | $ WRITE SYS$OUTPUT " DECC : To Compile With DEC C." | |
1344 | $ WRITE SYS$OUTPUT " GNUC : To Compile With GNU C." | |
1345 | $ WRITE SYS$OUTPUT "" | |
1346 | $! | |
1347 | $! Time To EXIT. | |
1348 | $! | |
1349 | $ EXIT | |
1350 | $! | |
1351 | $! End The Valid Arguement Check. | |
1352 | $! | |
1353 | $ ENDIF | |
1354 | $! | |
1355 | $! Build a MACRO command for the architecture at hand | |
1356 | $! | |
1357 | $ IF ARCH .EQS. "VAX" THEN MACRO = "MACRO/''DEBUGGER'" | |
1358 | $ IF ARCH .EQS. "AXP" THEN MACRO = "MACRO/MIGRATION/''DEBUGGER'/''MACRO_OPTIMIZE'" | |
1359 | $! | |
1360 | $! Show user the result | |
1361 | $! | |
265e892f | 1362 | $ WRITE/SYMBOL SYS$OUTPUT "Main MACRO Compiling Command: ",MACRO |
7d7d2cbc UM |
1363 | $! |
1364 | $! Time to check the contents, and to make sure we get the correct library. | |
1365 | $! | |
b935754c RL |
1366 | $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" - |
1367 | .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE" | |
7d7d2cbc UM |
1368 | $ THEN |
1369 | $! | |
1370 | $! Check to see if SOCKETSHR was chosen | |
1371 | $! | |
f18a93ab | 1372 | $ IF P5.EQS."SOCKETSHR" |
7d7d2cbc UM |
1373 | $ THEN |
1374 | $! | |
1375 | $! Set the library to use SOCKETSHR | |
1376 | $! | |
b935754c | 1377 | $ TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT" |
7d7d2cbc UM |
1378 | $! |
1379 | $! Done with SOCKETSHR | |
1380 | $! | |
1381 | $ ENDIF | |
1382 | $! | |
1383 | $! Check to see if MULTINET was chosen | |
1384 | $! | |
f18a93ab | 1385 | $ IF P5.EQS."MULTINET" |
7d7d2cbc UM |
1386 | $ THEN |
1387 | $! | |
1388 | $! Set the library to use UCX emulation. | |
1389 | $! | |
f18a93ab | 1390 | $ P5 = "UCX" |
7d7d2cbc UM |
1391 | $! |
1392 | $! Done with MULTINET | |
1393 | $! | |
1394 | $ ENDIF | |
1395 | $! | |
1396 | $! Check to see if UCX was chosen | |
1397 | $! | |
f18a93ab | 1398 | $ IF P5.EQS."UCX" |
7d7d2cbc UM |
1399 | $ THEN |
1400 | $! | |
1401 | $! Set the library to use UCX. | |
1402 | $! | |
b935754c | 1403 | $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT" |
7d7d2cbc UM |
1404 | $ IF F$TRNLNM("UCX$IPC_SHR") .NES. "" |
1405 | $ THEN | |
b935754c | 1406 | $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT/OPT" |
7d7d2cbc UM |
1407 | $ ELSE |
1408 | $ IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN - | |
b935754c | 1409 | TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT/OPT" |
7d7d2cbc UM |
1410 | $ ENDIF |
1411 | $! | |
1412 | $! Done with UCX | |
1413 | $! | |
1414 | $ ENDIF | |
1415 | $! | |
b935754c RL |
1416 | $! Check to see if TCPIP was chosen |
1417 | $! | |
1418 | $ IF P5.EQS."TCPIP" | |
1419 | $ THEN | |
1420 | $! | |
1421 | $! Set the library to use TCPIP (post UCX). | |
1422 | $! | |
1423 | $ TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT" | |
1424 | $! | |
1425 | $! Done with TCPIP | |
1426 | $! | |
1427 | $ ENDIF | |
1428 | $! | |
1429 | $! Check to see if NONE was chosen | |
1430 | $! | |
1431 | $ IF P5.EQS."NONE" | |
1432 | $ THEN | |
1433 | $! | |
1434 | $! Do not use a TCPIP library. | |
1435 | $! | |
1436 | $ TCPIP_LIB = "" | |
1437 | $! | |
1438 | $! Done with TCPIP | |
1439 | $! | |
1440 | $ ENDIF | |
1441 | $! | |
7d7d2cbc UM |
1442 | $! Print info |
1443 | $! | |
1444 | $ WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB | |
1445 | $! | |
1446 | $! Else The User Entered An Invalid Arguement. | |
1447 | $! | |
1448 | $ ELSE | |
1449 | $! | |
1450 | $! Tell The User We Don't Know What They Want. | |
1451 | $! | |
1452 | $ WRITE SYS$OUTPUT "" | |
f18a93ab | 1453 | $ WRITE SYS$OUTPUT "The Option ",P5," Is Invalid. The Valid Options Are:" |
7d7d2cbc UM |
1454 | $ WRITE SYS$OUTPUT "" |
1455 | $ WRITE SYS$OUTPUT " SOCKETSHR : To link with SOCKETSHR TCP/IP library." | |
1456 | $ WRITE SYS$OUTPUT " UCX : To link with UCX TCP/IP library." | |
b935754c | 1457 | $ WRITE SYS$OUTPUT " TCPIP : To link with TCPIP (post UCX) TCP/IP library." |
7d7d2cbc UM |
1458 | $ WRITE SYS$OUTPUT "" |
1459 | $! | |
1460 | $! Time To EXIT. | |
1461 | $! | |
1462 | $ EXIT | |
1463 | $! | |
1464 | $! Done with TCP/IP libraries | |
1465 | $! | |
1466 | $ ENDIF | |
1467 | $! | |
1468 | $! Check if the user wanted to compile just a subset of all the encryption | |
1469 | $! methods. | |
1470 | $! | |
f18a93ab | 1471 | $ IF P7 .NES. "" |
7d7d2cbc | 1472 | $ THEN |
f18a93ab | 1473 | $ ENCRYPT_TYPES = P7 |
ea823552 | 1474 | $! NYI: ENCRYPT_PROGRAMS = P7 |
7d7d2cbc UM |
1475 | $ ENDIF |
1476 | $! | |
1477 | $! Time To RETURN... | |
1478 | $! | |
1479 | $ RETURN | |
1480 | $! | |
1481 | $ INITIALISE: | |
1482 | $! | |
1483 | $! Save old value of the logical name OPENSSL | |
1484 | $! | |
1485 | $ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE") | |
1486 | $! | |
1487 | $! Save directory information | |
1488 | $! | |
1489 | $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;" | |
7b5ffd68 | 1490 | $ __HERE = F$EDIT(__HERE,"UPCASE") |
7d7d2cbc UM |
1491 | $ __TOP = __HERE - "CRYPTO]" |
1492 | $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]" | |
1493 | $! | |
1494 | $! Set up the logical name OPENSSL to point at the include directory | |
1495 | $! | |
1496 | $ DEFINE OPENSSL/NOLOG '__INCLUDE' | |
1497 | $! | |
1498 | $! Done | |
1499 | $! | |
1500 | $ RETURN | |
1501 | $! | |
1502 | $ CLEANUP: | |
1503 | $! | |
1504 | $! Restore the logical name OPENSSL if it had a value | |
1505 | $! | |
1506 | $ IF __SAVE_OPENSSL .EQS. "" | |
1507 | $ THEN | |
1508 | $ DEASSIGN OPENSSL | |
1509 | $ ELSE | |
1510 | $ DEFINE/NOLOG OPENSSL '__SAVE_OPENSSL' | |
1511 | $ ENDIF | |
1512 | $! | |
1513 | $! Done | |
1514 | $! | |
1515 | $ RETURN |