Implement health checks needed by SP800-90.
[openssl.git] / makevms.com
1 $!
2 $! MAKEVMS.COM
3 $! Original Author:  UNKNOWN
4 $! Rewritten By:  Robert Byer
5 $!                Vice-President
6 $!                A-Com Computing, Inc.
7 $!                byer@mail.all-net.net
8 $!
9 $! Changes by Richard Levitte <richard@levitte.org>
10 $!            Zoltan Arpadffy <zoli@polarhome.com>
11 $!
12 $! This procedure creates the SSL libraries of "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB"
13 $! "[.xxx.EXE.SSL]LIBSSL.OLB"
14 $! The "xxx" denotes the machine architecture of ALPHA, IA64 or VAX.
15 $!
16 $! This procedures accepts two command line options listed below.
17 $!
18 $! Specify one of the following build options for P1.
19 $!
20 $!      ALL       Just build "everything".
21 $!      CONFIG    Just build the "[.CRYPTO._xxx]OPENSSLCONF.H" file.
22 $!      BUILDINF  Just build the "[.CRYPTO._xxx]BUILDINF.H" file.
23 $!      SOFTLINKS Just fix the Unix soft links.
24 $!      BUILDALL  Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done.
25 $!      CRYPTO    Just build the "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
26 $!      CRYPTO/x  Just build the x part of the
27 $!                "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
28 $!      SSL       Just build the "[.xxx.EXE.SSL]LIBSSL.OLB" library.
29 $!      SSL_TASK  Just build the "[.xxx.EXE.SSL]SSL_TASK.EXE" program.
30 $!      TEST      Just build the "[.xxx.EXE.TEST]" test programs for OpenSSL.
31 $!      APPS      Just build the "[.xxx.EXE.APPS]" application programs for OpenSSL.
32 $!      ENGINES   Just build the "[.xxx.EXE.ENGINES]" application programs for OpenSSL.
33 $!
34 $!
35 $! For 64 bit architectures (Alpha and IA64), specify the pointer size as P2.
36 $! For 32 bit architectures (VAX), P2 is ignored.
37 $! Currently supported values are:
38 $!
39 $!      32      To ge a library compiled with /POINTER_SIZE=32
40 $!      64      To ge a library compiled with /POINTER_SIZE=64
41 $!
42 $!
43 $! Speficy DEBUG or NODEBUG as P3 to compile with or without debugging
44 $! information.
45 $!
46 $! Specify which compiler as P4 to try to compile under.
47 $!
48 $!        VAXC   For VAX C.
49 $!        DECC   For DEC C.
50 $!        GNUC   For GNU C.
51 $!        LINK   To only link the programs from existing object files.
52 $!               (not yet implemented)
53 $!
54 $! If you don't speficy a compiler, it will try to determine which
55 $! "C" compiler to use.
56 $!
57 $! P5, if defined, sets a TCP/IP library to use, through one of the following
58 $! keywords:
59 $!
60 $!      UCX             for UCX or UCX emulation
61 $!      TCPIP           for TCP/IP Services or TCP/IP Services emulation
62 $!                      (this is prefered over UCX)
63 $!      SOCKETSHR       for SOCKETSHR+NETLIB
64 $!      NONE            to avoid specifying which TCP/IP implementation to
65 $!                      use at build time (this works with DEC C).  This is
66 $!                      the default.
67 $!
68 $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
69 $!
70 $!
71 $ DEF_ORIG = F$ENVIRONMENT( "DEFAULT")
72 $ ON ERROR THEN GOTO TIDY
73 $ ON CONTROL_C THEN GOTO TIDY
74 $!
75 $! Check if we're in a batch job, and make sure we get to 
76 $! the directory this script is in
77 $!
78 $ IF F$MODE() .EQS. "BATCH"
79 $ THEN
80 $   COMNAME=F$ENVIRONMENT("PROCEDURE")
81 $   COMPATH=F$PARSE("A.;",COMNAME) - "A.;"
82 $   SET DEF 'COMPATH'
83 $ ENDIF
84 $!
85 $! Check What Architecture We Are Using.
86 $!
87 $ IF (F$GETSYI("CPU").LT.128)
88 $ THEN
89 $!
90 $!  The Architecture Is VAX.
91 $!
92 $   ARCH := VAX
93 $!
94 $! Else...
95 $!
96 $ ELSE
97 $!
98 $!  The Architecture Is Alpha, IA64 or whatever comes in the future.
99 $!
100 $   ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
101 $   IF (ARCH .EQS. "") THEN ARCH = "UNK"
102 $!
103 $! End The Architecture Check.
104 $!
105 $ ENDIF
106 $!
107 $! Check To Make Sure We Have Valid Command Line Parameters.
108 $!
109 $ GOSUB CHECK_OPTIONS
110 $!
111 $! Check To See What We Are To Do.
112 $!
113 $ IF (BUILDCOMMAND.EQS."ALL")
114 $ THEN
115 $!
116 $!  Start with building the OpenSSL configuration file.
117 $!
118 $   GOSUB CONFIG
119 $!
120 $!  Create The "BUILDINF.H" Include File.
121 $!
122 $   GOSUB BUILDINF
123 $!
124 $!  Fix The Unix Softlinks.
125 $!
126 $   GOSUB SOFTLINKS
127 $!
128 $ ENDIF
129 $!
130 $ IF (BUILDCOMMAND.EQS."ALL".OR.BUILDCOMMAND.EQS."BUILDALL")
131 $ THEN
132 $!
133 $!  Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
134 $!
135 $   GOSUB CRYPTO
136 $!
137 $!  Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
138 $!
139 $   GOSUB SSL
140 $!
141 $!  Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine.
142 $!
143 $   GOSUB SSL_TASK
144 $!
145 $!  Build The [.xxx.EXE.TEST] OpenSSL Test Utilities.
146 $!
147 $   GOSUB TEST
148 $!
149 $!  Build The [.xxx.EXE.APPS] OpenSSL Application Utilities.
150 $!
151 $   GOSUB APPS
152 $!
153 $!  Build The [.xxx.EXE.ENGINES] OpenSSL Shareable Engines.
154 $!
155 $   GOSUB ENGINES
156 $!
157 $! Else...
158 $!
159 $ ELSE
160 $!
161 $!    Build Just What The User Wants Us To Build.
162 $!
163 $     GOSUB 'BUILDCOMMAND'
164 $!
165 $ ENDIF
166 $!
167 $! Time To EXIT.
168 $!
169 $ GOTO TIDY
170 $!
171 $! Rebuild The [.CRYPTO._xxx]OPENSSLCONF.H" file.
172 $!
173 $ CONFIG:
174 $!
175 $! Tell The User We Are Creating The [.CRYPTO._xxx]OPENSSLCONF.H File.
176 $!
177 $ WRITE SYS$OUTPUT "Creating [.CRYPTO._''ARCH']OPENSSLCONF.H Include File."
178 $!
179 $! First, make sure the directory exists.
180 $!
181 $ IF F$PARSE("SYS$DISK:[.CRYPTO._''ARCH']") .EQS. "" THEN -
182      CREATE/DIRECTORY SYS$DISK:[.CRYPTO._'ARCH']
183 $!
184 $! Create The [.CRYPTO._xxx]OPENSSLCONF.H File.
185 $! Make sure it has the right format.
186 $!
187 $ OSCH_NAME = "SYS$DISK:[.CRYPTO._''ARCH']OPENSSLCONF.H"
188 $ CREATE /FDL=SYS$INPUT: 'OSCH_NAME'
189 RECORD
190         FORMAT stream_lf
191 $ OPEN /APPEND H_FILE 'OSCH_NAME'
192 $!
193 $! Write The [.CRYPTO._xxx]OPENSSLCONF.H File.
194 $!
195 $ WRITE H_FILE "/* This file was automatically built using makevms.com */"
196 $ WRITE H_FILE "/* and [.CRYPTO._''ARCH']OPENSSLCONF.H_IN */"
197 $!
198 $! Write a few macros that indicate how this system was built.
199 $!
200 $ WRITE H_FILE ""
201 $ WRITE H_FILE "#ifndef OPENSSL_SYS_VMS"
202 $ WRITE H_FILE "# define OPENSSL_SYS_VMS"
203 $ WRITE H_FILE "#endif"
204 $ CONFIG_LOGICALS := NO_ASM,NO_RSA,NO_DSA,NO_DH,NO_MD2,NO_MD5,NO_RIPEMD,WHRLPOOL,-
205         NO_SHA,NO_SHA0,NO_SHA1,NO_DES/NO_MDC2;NO_MDC2,NO_RC2,NO_RC4,NO_RC5,-
206         NO_IDEA,NO_BF,NO_CAST,NO_CAMELLIA,NO_SEED,NO_HMAC,NO_SSL2
207 $ CONFIG_LOG_I = 0
208 $ CONFIG_LOG_LOOP:
209 $   CONFIG_LOG_E1 = F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS)
210 $   CONFIG_LOG_I = CONFIG_LOG_I + 1
211 $   IF CONFIG_LOG_E1 .EQS. "" THEN GOTO CONFIG_LOG_LOOP
212 $   IF CONFIG_LOG_E1 .EQS. "," THEN GOTO CONFIG_LOG_LOOP_END
213 $   CONFIG_LOG_E2 = F$EDIT(CONFIG_LOG_E1,"TRIM")
214 $   CONFIG_LOG_E1 = F$ELEMENT(0,";",CONFIG_LOG_E2)
215 $   CONFIG_LOG_E2 = F$ELEMENT(1,";",CONFIG_LOG_E2)
216 $   CONFIG_LOG_E0 = F$ELEMENT(0,"/",CONFIG_LOG_E1)
217 $   CONFIG_LOG_E1 = F$ELEMENT(1,"/",CONFIG_LOG_E1)
218 $   IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E0)
219 $   THEN
220 $     WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E0
221 $     WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E0
222 $     WRITE H_FILE "#endif"
223 $     IF CONFIG_LOG_E1 .NES. "/"
224 $     THEN
225 $       WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E1
226 $       WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E1
227 $       WRITE H_FILE "#endif"
228 $     ENDIF
229 $   ELSE
230 $     IF CONFIG_LOG_E2 .NES. ";"
231 $     THEN
232 $       IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E2)
233 $       THEN
234 $         WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E2
235 $         WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E2
236 $         WRITE H_FILE "#endif"
237 $       ENDIF
238 $     ENDIF
239 $   ENDIF
240 $   GOTO CONFIG_LOG_LOOP
241 $ CONFIG_LOG_LOOP_END:
242 $ WRITE H_FILE "#ifndef OPENSSL_NO_STATIC_ENGINE"
243 $ WRITE H_FILE "# define OPENSSL_NO_STATIC_ENGINE"
244 $ WRITE H_FILE "#endif"
245 $ WRITE H_FILE "#ifndef OPENSSL_THREADS"
246 $ WRITE H_FILE "# define OPENSSL_THREADS"
247 $ WRITE H_FILE "#endif"
248 $ WRITE H_FILE "#ifndef OPENSSL_NO_KRB5"
249 $ WRITE H_FILE "# define OPENSSL_NO_KRB5"
250 $ WRITE H_FILE "#endif"
251 $ WRITE H_FILE ""
252 $!
253 $! Different tar version may have named the file differently
254 $ IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H_IN") .NES. ""
255 $ THEN
256 $   TYPE [.CRYPTO]OPENSSLCONF.H_IN /OUTPUT=H_FILE:
257 $ ELSE
258 $   IF F$SEARCH("[.CRYPTO]OPENSSLCONF_H.IN") .NES. ""
259 $   THEN
260 $     TYPE [.CRYPTO]OPENSSLCONF_H.IN /OUTPUT=H_FILE:
261 $   ELSE
262 $     ! For ODS-5
263 $     IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H.IN") .NES. ""
264 $     THEN
265 $       TYPE [.CRYPTO]OPENSSLCONF.H.IN /OUTPUT=H_FILE:
266 $     ELSE
267 $       WRITE SYS$ERROR "Couldn't find a [.CRYPTO]OPENSSLCONF.H_IN.  Exiting!"
268 $       $STATUS = %X00018294 ! "%RMS-F-FNF, file not found".
269 $       GOTO TIDY
270 $     ENDIF
271 $   ENDIF
272 $ ENDIF
273 $ IF ARCH .NES. "VAX"
274 $ THEN
275 $!
276 $!  Write the non-VAX specific data
277 $!
278 $   WRITE H_FILE "#if defined(HEADER_RC4_H)"
279 $   WRITE H_FILE "#undef RC4_INT"
280 $   WRITE H_FILE "#define RC4_INT unsigned int"
281 $   WRITE H_FILE "#undef RC4_CHUNK"
282 $   WRITE H_FILE "#define RC4_CHUNK unsigned long long"
283 $   WRITE H_FILE "#endif"
284 $!
285 $   WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
286 $   WRITE H_FILE "#undef DES_LONG"
287 $   WRITE H_FILE "#define DES_LONG unsigned int"
288 $   WRITE H_FILE "#undef DES_PTR"
289 $   WRITE H_FILE "#define DES_PTR"
290 $   WRITE H_FILE "#undef DES_RISC1"
291 $   WRITE H_FILE "#undef DES_RISC2"
292 $   WRITE H_FILE "#define DES_RISC1"
293 $   WRITE H_FILE "#undef DES_UNROLL"
294 $   WRITE H_FILE "#define DES_UNROLL"
295 $   WRITE H_FILE "#endif"
296 $!
297 $   WRITE H_FILE "#if defined(HEADER_BN_H)"
298 $   WRITE H_FILE "#undef BN_LLONG"      ! Never define with SIXTY_FOUR_BIT
299 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
300 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT"
301 $   WRITE H_FILE "#define SIXTY_FOUR_BIT"
302 $   WRITE H_FILE "#undef THIRTY_TWO_BIT"
303 $   WRITE H_FILE "#undef SIXTEEN_BIT"
304 $   WRITE H_FILE "#undef EIGHT_BIT"
305 $   WRITE H_FILE "#endif"
306 $
307 $   WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
308 $!
309 $!  Else...
310 $!
311 $ ELSE
312 $!
313 $!  Write the VAX specific data
314 $!
315 $   WRITE H_FILE "#if defined(HEADER_RC4_H)"
316 $   WRITE H_FILE "#undef RC4_INT"
317 $   WRITE H_FILE "#define RC4_INT unsigned char"
318 $   WRITE H_FILE "#undef RC4_CHUNK"
319 $   WRITE H_FILE "#define RC4_CHUNK unsigned long"
320 $   WRITE H_FILE "#endif"
321 $!
322 $   WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
323 $   WRITE H_FILE "#undef DES_LONG"
324 $   WRITE H_FILE "#define DES_LONG unsigned long"
325 $   WRITE H_FILE "#undef DES_PTR"
326 $   WRITE H_FILE "#define DES_PTR"
327 $   WRITE H_FILE "#undef DES_RISC1"
328 $   WRITE H_FILE "#undef DES_RISC2"
329 $   WRITE H_FILE "#undef DES_UNROLL"
330 $   WRITE H_FILE "#endif"
331 $!
332 $   WRITE H_FILE "#if defined(HEADER_BN_H)"
333 $   WRITE H_FILE "#undef BN_LLONG"      ! VAX C/DEC C doesn't have long long
334 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
335 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT"
336 $   WRITE H_FILE "#undef THIRTY_TWO_BIT"
337 $   WRITE H_FILE "#define THIRTY_TWO_BIT"
338 $   WRITE H_FILE "#undef SIXTEEN_BIT"
339 $   WRITE H_FILE "#undef EIGHT_BIT"
340 $   WRITE H_FILE "#endif"
341 $!
342 $! Oddly enough, the following symbol is tested in crypto/sha/sha512.c
343 $! before sha.h gets included (and HEADER_SHA_H defined), so we will not
344 $! protect this one...
345 $   WRITE H_FILE "#undef OPENSSL_NO_SHA512"
346 $   WRITE H_FILE "#define OPENSSL_NO_SHA512"
347 $!
348 $   WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
349 $   WRITE H_FILE "#define OPENSSL_EXPORT_VAR_AS_FUNCTION"
350 $!
351 $!  End
352 $!
353 $ ENDIF
354 $!
355 $! Close the [.CRYPTO._xxx]OPENSSLCONF.H file
356 $!
357 $ CLOSE H_FILE
358 $!
359 $! Purge The [.CRYPTO._xxx]OPENSSLCONF.H file
360 $!
361 $ PURGE SYS$DISK:[.CRYPTO._'ARCH']OPENSSLCONF.H
362 $!
363 $! That's All, Time To RETURN.
364 $!
365 $ RETURN
366 $!
367 $! Rebuild The "[.CRYPTO._xxx]BUILDINF.H" file.
368 $!
369 $ BUILDINF:
370 $!
371 $! Tell The User We Are Creating The [.CRYPTO._xxx]BUILDINF.H File.
372 $!
373 $ WRITE SYS$OUTPUT "Creating [.CRYPTO._''ARCH']BUILDINF.H Include File."
374 $!
375 $! Create The [.CRYPTO._xxx]BUILDINF.H File.
376 $!
377 $ BIH_NAME = "SYS$DISK:[.CRYPTO._''ARCH']BUILDINF.H"
378 $ CREATE /FDL=SYS$INPUT: 'BIH_NAME'
379 RECORD
380         FORMAT stream_lf
381 $!
382 $ OPEN /APPEND H_FILE 'bih_name'
383 $!
384 $! Get The Current Date & Time.
385 $!
386 $ TIME = F$TIME()
387 $!
388 $! Write The [.CRYPTO._xxx]BUILDINF.H File.
389 $!
390 $ WRITE H_FILE "#define CFLAGS ""/POINTER_SIZE=''POINTER_SIZE'"""
391 $ WRITE H_FILE "#define PLATFORM ""VMS ''ARCH' ''VMS_VER'"""
392 $ WRITE H_FILE "#define DATE ""''TIME'"" "
393 $!
394 $! Close The [.CRYPTO._xxx]BUILDINF.H File.
395 $!
396 $ CLOSE H_FILE
397 $!
398 $! Purge The [.CRYPTO._xxx]BUILDINF.H File.
399 $!
400 $ PURGE SYS$DISK:[.CRYPTO._'ARCH']BUILDINF.H
401 $!
402 $! Delete [.CRYPTO]BUILDINF.H File, as there might be some residue from Unix.
403 $!
404 $ IF F$SEARCH("[.CRYPTO]BUILDINF.H") .NES. "" THEN -
405      DELETE SYS$DISK:[.CRYPTO]BUILDINF.H;*
406 $!
407 $! That's All, Time To RETURN.
408 $!
409 $ RETURN
410 $!
411 $! Copy a lot of files around.
412 $!
413 $ SOFTLINKS: 
414 $!
415 $! Tell The User We Are Partly Rebuilding The [.APPS] Directory.
416 $!
417 $ WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD4.C', '[.APPS]MD5.C' And '[.APPS]RMD160.C' Files."
418 $!
419 $ DELETE SYS$DISK:[.APPS]MD4.C;*,MD5.C;*,RMD160.C;*
420 $!
421 $! Copy MD4.C from [.CRYPTO.MD4] into [.APPS]
422 $!
423 $ COPY SYS$DISK:[.CRYPTO.MD4]MD4.C SYS$DISK:[.APPS]
424 $!
425 $! Copy MD5.C from [.CRYPTO.MD5] into [.APPS]
426 $!
427 $ COPY SYS$DISK:[.CRYPTO.MD5]MD5.C SYS$DISK:[.APPS]
428 $!
429 $! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS]
430 $!
431 $ COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS]
432 $!
433 $! Tell The User We Are Partly Rebuilding The [.TEST] Directory.
434 $!
435 $ WRITE SYS$OUTPUT "Rebuilding The '[.TEST]*.C' Files."
436 $!
437 $! First, We Have To "Rebuild" The "[.TEST]" Directory, So Delete
438 $! All The "C" Files That Are Currently There Now.
439 $!
440 $ DELETE SYS$DISK:[.TEST]*.C;*
441 $ DELETE SYS$DISK:[.TEST]EVPTESTS.TXT;*
442 $!
443 $! Copy all the *TEST.C files from [.CRYPTO...] into [.TEST]
444 $!
445 $ COPY SYS$DISK:[.CRYPTO.*]%*TEST.C SYS$DISK:[.TEST]
446 $ COPY SYS$DISK:[.CRYPTO.SHA]SHA%%%T.C SYS$DISK:[.TEST]
447 $ COPY SYS$DISK:[.CRYPTO.EVP]EVPTESTS.TXT SYS$DISK:[.TEST]
448 $!
449 $! Copy all the *TEST.C files from [.SSL...] into [.TEST]
450 $!
451 $ COPY SYS$DISK:[.SSL]%*TEST.C SYS$DISK:[.TEST]
452 $!
453 $! Tell The User We Are Rebuilding The [.INCLUDE.OPENSSL] Directory.
454 $!
455 $ WRITE SYS$OUTPUT "Rebuilding The '[.INCLUDE.OPENSSL]' Directory."
456 $!
457 $! First, make sure the directory exists
458 $!
459 $ IF F$PARSE("SYS$DISK:[.INCLUDE.OPENSSL]") .EQS. "" THEN -
460      CREATE/DIRECTORY SYS$DISK:[.INCLUDE.OPENSSL]
461 $!
462 $! Copy All The ".H" Files From The Main Directory.
463 $!
464 $ EXHEADER := e_os2.h
465 $ COPY 'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
466 $!
467 $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
468 $!
469 $ SDIRS := ,-
470    _'ARCH',-
471    OBJECTS,-
472    MD2,MD4,MD5,SHA,MDC2,HMAC,RIPEMD,WHRLPOOL,-
473    DES,AES,RC2,RC4,RC5,IDEA,BF,CAST,CAMELLIA,SEED,MODES,-
474    BN,EC,RSA,DSA,ECDSA,DH,ECDH,DSO,ENGINE,-
475    BUFFER,BIO,STACK,LHASH,RAND,ERR,-
476    EVP,ASN1,PEM,X509,X509V3,CONF,TXT_DB,PKCS7,PKCS12,COMP,OCSP,UI,KRB5,-
477    CMS,PQUEUE,TS,JPAKE,STORE,CMAC
478 $ EXHEADER_ := crypto.h,opensslv.h,ebcdic.h,symhacks.h,ossl_typ.h
479 $ EXHEADER__'ARCH' := opensslconf.h
480 $ EXHEADER_OBJECTS := objects.h,obj_mac.h
481 $ EXHEADER_MD2 := md2.h
482 $ EXHEADER_MD4 := md4.h
483 $ EXHEADER_MD5 := md5.h
484 $ EXHEADER_SHA := sha.h
485 $ EXHEADER_MDC2 := mdc2.h
486 $ EXHEADER_HMAC := hmac.h
487 $ EXHEADER_RIPEMD := ripemd.h
488 $ EXHEADER_WHRLPOOL := whrlpool.h
489 $ EXHEADER_DES := des.h,des_old.h
490 $ EXHEADER_AES := aes.h
491 $ EXHEADER_RC2 := rc2.h
492 $ EXHEADER_RC4 := rc4.h
493 $ EXHEADER_RC5 := rc5.h
494 $ EXHEADER_IDEA := idea.h
495 $ EXHEADER_BF := blowfish.h
496 $ EXHEADER_CAST := cast.h
497 $ EXHEADER_CAMELLIA := camellia.h
498 $ EXHEADER_SEED := seed.h
499 $ EXHEADER_MODES := modes.h
500 $ EXHEADER_BN := bn.h
501 $ EXHEADER_EC := ec.h
502 $ EXHEADER_RSA := rsa.h
503 $ EXHEADER_DSA := dsa.h
504 $ EXHEADER_ECDSA := ecdsa.h
505 $ EXHEADER_DH := dh.h
506 $ EXHEADER_ECDH := ecdh.h
507 $ EXHEADER_DSO := dso.h
508 $ EXHEADER_ENGINE := engine.h
509 $ EXHEADER_BUFFER := buffer.h
510 $ EXHEADER_BIO := bio.h
511 $ EXHEADER_STACK := stack.h,safestack.h
512 $ EXHEADER_LHASH := lhash.h
513 $ EXHEADER_RAND := rand.h
514 $ EXHEADER_ERR := err.h
515 $ EXHEADER_EVP := evp.h
516 $ EXHEADER_ASN1 := asn1.h,asn1_mac.h,asn1t.h
517 $ EXHEADER_PEM := pem.h,pem2.h
518 $ EXHEADER_X509 := x509.h,x509_vfy.h
519 $ EXHEADER_X509V3 := x509v3.h
520 $ EXHEADER_CONF := conf.h,conf_api.h
521 $ EXHEADER_TXT_DB := txt_db.h
522 $ EXHEADER_PKCS7 := pkcs7.h
523 $ EXHEADER_PKCS12 := pkcs12.h
524 $ EXHEADER_COMP := comp.h
525 $ EXHEADER_OCSP := ocsp.h
526 $ EXHEADER_UI := ui.h,ui_compat.h
527 $ EXHEADER_KRB5 := krb5_asn.h
528 $ EXHEADER_CMS := cms.h
529 $ EXHEADER_PQUEUE := pqueue.h
530 $ EXHEADER_TS := ts.h
531 $ EXHEADER_JPAKE := jpake.h
532 $!EXHEADER_STORE := store.h,str_compat.h
533 $ EXHEADER_STORE := store.h
534 $ EXHEADER_CMAC := cmac.h
535 $
536 $ I = 0
537 $ LOOP_SDIRS: 
538 $ D = F$EDIT(F$ELEMENT(I, ",", SDIRS),"TRIM")
539 $ I = I + 1
540 $ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
541 $ tmp = EXHEADER_'D'
542 $ IF D .EQS. ""
543 $ THEN
544 $   COPY [.CRYPTO]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
545 $ ELSE
546 $   COPY [.CRYPTO.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
547 $ ENDIF
548 $ GOTO LOOP_SDIRS
549 $ LOOP_SDIRS_END:
550 $!
551 $! Copy All The ".H" Files From The [.SSL] Directory.
552 $!
553 $ EXHEADER := ssl.h,ssl2.h,ssl3.h,ssl23.h,tls1.h,dtls1.h,kssl.h
554 $ COPY SYS$DISK:[.SSL]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
555 $!
556 $! Purge all doubles
557 $!
558 $ PURGE SYS$DISK:[.INCLUDE.OPENSSL]*.H
559 $!
560 $! That's All, Time To RETURN.
561 $!
562 $ RETURN
563 $!
564 $! Build The "[.xxx.EXE.CRYPTO]LIBCRYPTO''LIB32'.OLB" Library.
565 $!
566 $ CRYPTO:
567 $!
568 $! Tell The User What We Are Doing.
569 $!
570 $ WRITE SYS$OUTPUT ""
571 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.CRYPTO]LIBCRYPTO''LIB32'.OLB Library."
572 $!
573 $! Go To The [.CRYPTO] Directory.
574 $!
575 $ SET DEFAULT SYS$DISK:[.CRYPTO]
576 $!
577 $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
578 $!  
579 $ @CRYPTO-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'"
580 $!
581 $! Build The [.xxx.EXE.CRYPTO]*.EXE Test Applications.
582 $!  
583 $ @CRYPTO-LIB APPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'"
584 $!
585 $! Go Back To The Main Directory.
586 $!
587 $ SET DEFAULT [-]
588 $!
589 $! Time To RETURN.
590 $!
591 $ RETURN
592 $!
593 $! Build The "[.xxx.EXE.SSL]LIBSSL''LIB32'.OLB" Library.
594 $!
595 $ SSL:
596 $!
597 $! Tell The User What We Are Doing.
598 $!
599 $ WRITE SYS$OUTPUT ""
600 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.SSL]LIBSSL''LIB32'.OLB Library."
601 $!
602 $! Go To The [.SSL] Directory.
603 $!
604 $ SET DEFAULT SYS$DISK:[.SSL]
605 $!
606 $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
607 $!
608 $ @SSL-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''POINTER_SIZE'"
609 $!
610 $! Go Back To The Main Directory.
611 $!
612 $ SET DEFAULT [-]
613 $!
614 $! Time To Return.
615 $!
616 $ RETURN
617 $!
618 $! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program.
619 $!
620 $ SSL_TASK:
621 $!
622 $! Tell The User What We Are Doing.
623 $!
624 $ WRITE SYS$OUTPUT ""
625 $ WRITE SYS$OUTPUT "Building DECNet Based SSL Engine, [.",ARCH,".EXE.SSL]SSL_TASK.EXE"
626 $!
627 $! Go To The [.SSL] Directory.
628 $!
629 $ SET DEFAULT SYS$DISK:[.SSL]
630 $!
631 $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE
632 $!
633 $ @SSL-LIB SSL_TASK 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''POINTER_SIZE'"
634 $!
635 $! Go Back To The Main Directory.
636 $!
637 $ SET DEFAULT [-]
638 $!
639 $! That's All, Time To RETURN.
640 $!
641 $ RETURN
642 $!
643 $! Build The OpenSSL Test Programs.
644 $!
645 $ TEST:
646 $!
647 $! Tell The User What We Are Doing.
648 $!
649 $ WRITE SYS$OUTPUT ""
650 $ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCH,".EXE.TEST] Test Utilities."
651 $!
652 $! Go To The [.TEST] Directory.
653 $!
654 $ SET DEFAULT SYS$DISK:[.TEST]
655 $!
656 $! Build The Test Programs.
657 $!
658 $ @MAKETESTS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''POINTER_SIZE'"
659 $!
660 $! Go Back To The Main Directory.
661 $!
662 $ SET DEFAULT [-]
663 $!
664 $! That's All, Time To RETURN.
665 $!
666 $ RETURN
667 $!
668 $! Build The OpenSSL Application Programs.
669 $!
670 $ APPS:
671 $!
672 $! Tell The User What We Are Doing.
673 $!
674 $ WRITE SYS$OUTPUT ""
675 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.APPS] Applications."
676 $!
677 $! Go To The [.APPS] Directory.
678 $!
679 $ SET DEFAULT SYS$DISK:[.APPS]
680 $!
681 $! Build The Application Programs.
682 $!
683 $ @MAKEAPPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "" "''POINTER_SIZE'"
684 $!
685 $! Go Back To The Main Directory.
686 $!
687 $ SET DEFAULT [-]
688 $!
689 $! That's All, Time To RETURN.
690 $!
691 $ RETURN
692 $!
693 $! Build The OpenSSL Application Programs.
694 $!
695 $ ENGINES:
696 $!
697 $! Tell The User What We Are Doing.
698 $!
699 $ WRITE SYS$OUTPUT ""
700 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.ENGINES] Engines."
701 $!
702 $! Go To The [.ENGINES] Directory.
703 $!
704 $ SET DEFAULT SYS$DISK:[.ENGINES]
705 $!
706 $! Build The Application Programs.
707 $!
708 $ @MAKEENGINES ENGINES 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'"
709 $!
710 $! Go Back To The Main Directory.
711 $!
712 $ SET DEFAULT [-]
713 $!
714 $! That's All, Time To RETURN.
715 $!
716 $ RETURN
717 $!
718 $! Check The User's Options.
719 $!
720 $ CHECK_OPTIONS:
721 $!
722 $! Check if there's a "part", and separate it out
723 $!
724 $ BUILDPART = F$ELEMENT(1,"/",P1)
725 $ IF BUILDPART .EQS. "/"
726 $ THEN
727 $   BUILDPART = ""
728 $ ELSE
729 $   P1 = F$EXTRACT(0,F$LENGTH(P1) - F$LENGTH(BUILDPART) - 1, P1)
730 $ ENDIF
731 $!
732 $! Check To See If P1 Is Blank.
733 $!
734 $ IF (P1.EQS."ALL")
735 $ THEN
736 $!
737 $!   P1 Is ALL, So Build Everything.
738 $!
739 $    BUILDCOMMAND = "ALL"
740 $!
741 $! Else...
742 $!
743 $ ELSE
744 $!
745 $!  Else, Check To See If P1 Has A Valid Arguement.
746 $!
747 $   IF (P1.EQS."CONFIG").OR.(P1.EQS."BUILDINF").OR.(P1.EQS."SOFTLINKS") -
748        .OR.(P1.EQS."BUILDALL") -
749        .OR.(P1.EQS."CRYPTO").OR.(P1.EQS."SSL") -
750        .OR.(P1.EQS."SSL_TASK").OR.(P1.EQS."TEST").OR.(P1.EQS."APPS") -
751        .OR.(P1.EQS."ENGINES")
752 $   THEN
753 $!
754 $!    A Valid Arguement.
755 $!
756 $     BUILDCOMMAND = P1
757 $!
758 $!  Else...
759 $!
760 $   ELSE
761 $!
762 $!    Tell The User We Don't Know What They Want.
763 $!
764 $     WRITE SYS$OUTPUT ""
765 $     WRITE SYS$OUTPUT "USAGE:   @MAKEVMS.COM [Target] [Pointer size] [Debug option] <Compiler>"
766 $     WRITE SYS$OUTPUT ""
767 $     WRITE SYS$OUTPUT "Example: @MAKEVMS.COM ALL """" NODEBUG "
768 $     WRITE SYS$OUTPUT ""
769 $     WRITE SYS$OUTPUT "The Target ",P1," Is Invalid.  The Valid Target Options Are:"
770 $     WRITE SYS$OUTPUT ""
771 $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything."
772 $     WRITE SYS$OUTPUT "    CONFIG   :  Just build the [.CRYPTO._xxx]OPENSSLCONF.H file."
773 $     WRITE SYS$OUTPUT "    BUILDINF :  Just build the [.CRYPTO._xxx]BUILDINF.H file."
774 $     WRITE SYS$OUTPUT "    SOFTLINKS:  Just Fix The Unix soft links."
775 $     WRITE SYS$OUTPUT "    BUILDALL :  Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done."
776 $     WRITE SYS$OUTPUT "    CRYPTO   :  To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
777 $     WRITE SYS$OUTPUT "    CRYPTO/x :  To Build Just The x Part Of The"
778 $     WRITE SYS$OUTPUT "                [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
779 $     WRITE SYS$OUTPUT "    SSL      :  To Build Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
780 $     WRITE SYS$OUTPUT "    SSL_TASK :  To Build Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
781 $     WRITE SYS$OUTPUT "    TEST     :  To Build Just The OpenSSL Test Programs."
782 $     WRITE SYS$OUTPUT "    APPS     :  To Build Just The OpenSSL Application Programs."
783 $     WRITE SYS$OUTPUT "    ENGINES  :  To Build Just The ENGINES"
784 $     WRITE SYS$OUTPUT ""
785 $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
786 $     WRITE SYS$OUTPUT ""
787 $     WRITE SYS$OUTPUT "    ALPHA    :  Alpha Architecture."
788 $     WRITE SYS$OUTPUT "    IA64     :  IA64 Architecture."
789 $     WRITE SYS$OUTPUT "    VAX      :  VAX Architecture."
790 $     WRITE SYS$OUTPUT ""
791 $!
792 $!    Time To EXIT.
793 $!
794 $     GOTO TIDY
795 $!
796 $!  End The Valid Argument Check.
797 $!
798 $   ENDIF
799 $!
800 $! End The P1 Check.
801 $!
802 $ ENDIF
803 $!
804 $! Check To See If P2 Is Blank.
805 $!
806 $ IF (P2.EQS."")
807 $ THEN
808 $   POINTER_SIZE = ""
809 $ ELSE
810 $!
811 $!  Check is P2 Is Valid
812 $!
813 $   IF (P2.EQS."32")
814 $   THEN
815 $     POINTER_SIZE = "32"
816 $     IF ARCH .EQS. "VAX"
817 $     THEN
818 $       LIB32 = ""
819 $     ELSE
820 $       LIB32 = "32"
821 $     ENDIF
822 $   ELSE
823 $     IF (P2.EQS."64")
824 $     THEN
825 $       LIB32 = ""
826 $       IF ARCH .EQS. "VAX"
827 $       THEN
828 $         POINTER_SIZE = "32"
829 $       ELSE
830 $         POINTER_SIZE = "64"
831 $       ENDIF
832 $     ELSE
833 $!
834 $!      Tell The User Entered An Invalid Option..
835 $!
836 $       WRITE SYS$OUTPUT ""
837 $       WRITE SYS$OUTPUT "The Option ",P2," Is Invalid.  The Valid Options Are:"
838 $       WRITE SYS$OUTPUT ""
839 $       WRITE SYS$OUTPUT "    32  :  Compile with 32 bit pointer size"
840 $       WRITE SYS$OUTPUT "    64  :  Compile with 64 bit pointer size"
841 $       WRITE SYS$OUTPUT ""
842 $!
843 $!      Time To EXIT.
844 $!
845 $       GOTO TIDY
846 $!
847 $!      End The Valid Arguement Check.
848 $!
849 $     ENDIF
850 $   ENDIF
851 $!
852 $! End The P2 Check.
853 $!
854 $ ENDIF
855 $!
856 $! Check To See If P3 Is Blank.
857 $!
858 $ IF (P3.EQS."NODEBUG")
859 $ THEN
860 $!
861 $!   P3 Is NODEBUG, So Compile Without Debugger Information.
862 $!
863 $    DEBUGGER = "NODEBUG"
864 $!
865 $! Else...
866 $!
867 $ ELSE
868 $!
869 $!  Check To See If We Are To Compile With Debugger Information.
870 $!
871 $   IF (P3.EQS."DEBUG")
872 $   THEN
873 $!
874 $!    Compile With Debugger Information.
875 $!
876 $     DEBUGGER = "DEBUG"
877 $!
878 $!  Else...
879 $!
880 $   ELSE
881 $!
882 $!    Tell The User Entered An Invalid Option..
883 $!
884 $     WRITE SYS$OUTPUT ""
885 $     WRITE SYS$OUTPUT "The Option ",P3," Is Invalid.  The Valid Options Are:"
886 $     WRITE SYS$OUTPUT ""
887 $     WRITE SYS$OUTPUT "    DEBUG    :  Compile With The Debugger Information."
888 $     WRITE SYS$OUTPUT "    NODEBUG  :  Compile Without The Debugger Information."
889 $     WRITE SYS$OUTPUT ""
890 $!
891 $!    Time To EXIT.
892 $!
893 $     GOTO TIDY
894 $!
895 $!  End The Valid Arguement Check.
896 $!
897 $   ENDIF
898 $!
899 $! End The P3 Check.
900 $!
901 $ ENDIF
902 $!
903 $! Check To See If P4 Is Blank.
904 $!
905 $ IF (P4.EQS."")
906 $ THEN
907 $!
908 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
909 $!  Find Out Which One To Use.
910 $!
911 $!  Check To See If We Have GNU C.
912 $!
913 $   IF (F$TRNLNM("GNU_CC").NES."")
914 $   THEN
915 $!
916 $!    Looks Like GNUC, Set To Use GNUC.
917 $!
918 $     COMPILER = "GNUC"
919 $!
920 $!    Tell The User We Are Using GNUC.
921 $!
922 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
923 $!
924 $!  End The GNU C Compiler Check.
925 $!
926 $   ENDIF
927 $!
928 $!  Check To See If We Have VAXC Or DECC.
929 $!
930 $   IF (F$GETSYI("CPU").GE.128).OR.(F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC")
931 $   THEN 
932 $!
933 $!    Looks Like DECC, Set To Use DECC.
934 $!
935 $     COMPILER = "DECC"
936 $!
937 $!    Tell The User We Are Using DECC.
938 $!
939 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
940 $!
941 $!  Else...
942 $!
943 $   ELSE
944 $!
945 $!    Looks Like VAXC, Set To Use VAXC.
946 $!
947 $     COMPILER = "VAXC"
948 $!
949 $!    Tell The User We Are Using VAX C.
950 $!
951 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
952 $!
953 $!  End The DECC & VAXC Compiler Check.
954 $!
955 $   ENDIF
956 $!
957 $! Else...
958 $!
959 $ ELSE
960 $!
961 $!  Check To See If The User Entered A Valid Paramter.
962 $!
963 $   IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")!.OR.(P4.EQS."LINK")
964 $   THEN
965 $!
966 $!    Check To See If The User Wanted To Just LINK.
967 $!
968 $     IF (P4.EQS."LINK")
969 $     THEN
970 $!
971 $!      Looks Like LINK-only
972 $!
973 $       COMPILER = "LINK"
974 $!
975 $!      Tell The User We Are Only Linking.
976 $!
977 $       WRITE SYS$OUTPUT "LINK Only.  This actually NOT YET SUPPORTED!"
978 $!
979 $!    End LINK Check.
980 $!
981 $     ENDIF
982 $!
983 $!    Check To See If The User Wanted DECC.
984 $!
985 $     IF (P4.EQS."DECC")
986 $     THEN
987 $!
988 $!      Looks Like DECC, Set To Use DECC.
989 $!
990 $       COMPILER = "DECC"
991 $!
992 $!      Tell The User We Are Using DECC.
993 $!
994 $       WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
995 $!
996 $!    End DECC Check.
997 $!
998 $     ENDIF
999 $!
1000 $!    Check To See If We Are To Use VAXC.
1001 $!
1002 $     IF (P4.EQS."VAXC")
1003 $     THEN
1004 $!
1005 $!      Looks Like VAXC, Set To Use VAXC.
1006 $!
1007 $       COMPILER = "VAXC"
1008 $!
1009 $!      Tell The User We Are Using VAX C.
1010 $!
1011 $       WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
1012 $!
1013 $!    End VAXC Check
1014 $!
1015 $     ENDIF
1016 $!
1017 $!    Check To See If We Are To Use GNU C.
1018 $!
1019 $     IF (P4.EQS."GNUC")
1020 $     THEN
1021 $!
1022 $!      Looks Like GNUC, Set To Use GNUC.
1023 $!
1024 $       COMPILER = "GNUC"
1025 $!
1026 $!      Tell The User We Are Using GNUC.
1027 $!
1028 $       WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
1029 $!
1030 $!    End The GNU C Check.
1031 $!
1032 $     ENDIF
1033 $!
1034 $!  Else The User Entered An Invalid Arguement.
1035 $!
1036 $   ELSE
1037 $!
1038 $!    Tell The User We Don't Know What They Want.
1039 $!
1040 $     WRITE SYS$OUTPUT ""
1041 $     WRITE SYS$OUTPUT "The Option ",P4," Is Invalid.  The Valid Options Are:"
1042 $     WRITE SYS$OUTPUT ""
1043 $     WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
1044 $     WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
1045 $     WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
1046 $     WRITE SYS$OUTPUT ""
1047 $!
1048 $!    Time To EXIT.
1049 $!
1050 $     GOTO TIDY
1051 $!
1052 $!  End The Valid Arguement Check.
1053 $!
1054 $   ENDIF
1055 $!
1056 $! End The P4 Check.
1057 $!
1058 $ ENDIF
1059 $!
1060 $! Time to check the contents of P5, and to make sure we get the correct library.
1061 $!
1062 $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" -
1063      .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE"
1064 $ THEN
1065 $!
1066 $!  Check to see if SOCKETSHR was chosen
1067 $!
1068 $   IF P5.EQS."SOCKETSHR"
1069 $   THEN
1070 $!
1071 $!    Set the library to use SOCKETSHR
1072 $!
1073 $     TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
1074 $!
1075 $!    Tell the user
1076 $!
1077 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
1078 $!
1079 $!    Done with SOCKETSHR
1080 $!
1081 $   ENDIF
1082 $!
1083 $!  Check to see if MULTINET was chosen
1084 $!
1085 $   IF P5.EQS."MULTINET"
1086 $   THEN
1087 $!
1088 $!    Set the library to use UCX emulation.
1089 $!
1090 $     P5 = "UCX"
1091 $!
1092 $!    Tell the user
1093 $!
1094 $     WRITE SYS$OUTPUT "Using MultiNet via UCX emulation for TCP/IP"
1095 $!
1096 $!    Done with MULTINET
1097 $!
1098 $   ENDIF
1099 $!
1100 $!  Check to see if UCX was chosen
1101 $!
1102 $   IF P5.EQS."UCX"
1103 $   THEN
1104 $!
1105 $!    Set the library to use UCX.
1106 $!
1107 $     TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
1108 $!
1109 $!    Tell the user
1110 $!
1111 $     WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
1112 $!
1113 $!    Done with UCX
1114 $!
1115 $   ENDIF
1116 $!
1117 $!  Check to see if TCPIP was chosen
1118 $!
1119 $   IF P5.EQS."TCPIP"
1120 $   THEN
1121 $!
1122 $!    Set the library to use TCPIP (post UCX).
1123 $!
1124 $     TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
1125 $!
1126 $!    Tell the user
1127 $!
1128 $     WRITE SYS$OUTPUT "Using TCPIP (post UCX) for TCP/IP"
1129 $!
1130 $!    Done with TCPIP
1131 $!
1132 $   ENDIF
1133 $!
1134 $!  Check to see if NONE was chosen
1135 $!
1136 $   IF P5.EQS."NONE"
1137 $   THEN
1138 $!
1139 $!    Do not use a TCPIP library.
1140 $!
1141 $     TCPIP_LIB = ""
1142 $!
1143 $!    Tell the user
1144 $!
1145 $     WRITE SYS$OUTPUT "A specific TCPIP library will not be used."
1146 $!
1147 $!    Done with NONE.
1148 $!
1149 $   ENDIF
1150 $!
1151 $!  Set the TCPIP_TYPE symbol
1152 $!
1153 $   TCPIP_TYPE = P5
1154 $!
1155 $!  Print info
1156 $!
1157 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
1158 $!
1159 $!  Else The User Entered An Invalid Arguement.
1160 $!
1161 $ ELSE
1162 $   IF P5 .NES. ""
1163 $   THEN
1164 $!
1165 $!    Tell The User We Don't Know What They Want.
1166 $!
1167 $     WRITE SYS$OUTPUT ""
1168 $     WRITE SYS$OUTPUT "The Option ",P5," Is Invalid.  The Valid Options Are:"
1169 $     WRITE SYS$OUTPUT ""
1170 $     WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
1171 $     WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
1172 $     WRITE SYS$OUTPUT "    TCPIP      :  To link with TCPIP TCP/IP (post UCX) library."
1173 $     WRITE SYS$OUTPUT "    NONE       :  To not link with a specific TCP/IP library."
1174 $     WRITE SYS$OUTPUT ""
1175 $!
1176 $!    Time To EXIT.
1177 $!
1178 $     GOTO TIDY
1179 $   ELSE
1180 $!
1181 $! If TCPIP is not defined, then hardcode it to make
1182 $! it clear that no TCPIP is desired.
1183 $!
1184 $     IF P5 .EQS. ""
1185 $     THEN
1186 $       TCPIP_LIB = ""
1187 $       TCPIP_TYPE = "NONE"
1188 $     ELSE
1189 $!
1190 $!    Set the TCPIP_TYPE symbol
1191 $!
1192 $       TCPIP_TYPE = P5
1193 $     ENDIF
1194 $   ENDIF
1195 $!
1196 $!  Done with TCP/IP libraries
1197 $!
1198 $ ENDIF
1199 $!
1200 $! Special Threads For OpenVMS v7.1 Or Later
1201 $!
1202 $! Written By:  Richard Levitte
1203 $!              richard@levitte.org
1204 $!
1205 $!
1206 $! Check To See If We Have A Option For P6.
1207 $!
1208 $ IF (P6.EQS."")
1209 $ THEN
1210 $!
1211 $!  Get The Version Of VMS We Are Using.
1212 $!
1213 $   ISSEVEN :=
1214 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
1215 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
1216 $!
1217 $!  Check To See If The VMS Version Is v7.1 Or Later.
1218 $!
1219 $   IF (TMP.GE.71)
1220 $   THEN
1221 $!
1222 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
1223 $!
1224 $     ISSEVEN := ,PTHREAD_USE_D4
1225 $!
1226 $!  End The VMS Version Check.
1227 $!
1228 $   ENDIF
1229 $!
1230 $! End The P6 Check.
1231 $!
1232 $ ENDIF
1233 $!
1234 $!  Time To RETURN...
1235 $!
1236 $ RETURN
1237 $!
1238 $ TIDY:
1239 $ SET DEFAULT 'DEF_ORIG'
1240 $ EXIT
1241 $!