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