Don't "goto err" in client_master_key because no such label exists;
[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 $!
11 $! This procedure creates the SSL libraries of "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB"
12 $! "[.xxx.EXE.SSL]LIBSSL.OLB" and if specified "[.xxx.EXE.RSAREF]LIBRSAGLUE.OLB".
13 $! The "xxx" denotes the machine architecture of AXP or VAX.
14 $!
15 $! This procedures accepts two command line options listed below.
16 $!
17 $! Specify one of the following build options for P1.
18 $!
19 $!      ALL       Just build "everything".
20 $!      BUILDINF  Just build the "[.CRYPTO]BUILDINF.H" file.
21 $!      SOFTLINKS Just fix the Unix soft links.
22 $!      RSAREF    Just build the "[.xxx.EXE.RSAREF]LIBRSAGLUE.OLB" library.
23 $!      CRYPTO    Just build the "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
24 $!      SSL       Just build the "[.xxx.EXE.SSL]LIBSSL.OLB" library.
25 $!      SSL_TASK  Just build the "[.xxx.EXE.SSL]SSL_TASK.EXE" program.
26 $!      TEST      Just build the "[.xxx.EXE.TEST]" test programs for OpenSSL.
27 $!      APPS      Just build the "[.xxx.EXE.APPS]" application programs for OpenSSL.
28 $!
29 $!
30 $! Specify RSAREF as P2 to compile using the RSAREF Library.
31 $! If you specify NORSAREF, it will compile without using RSAREF.
32 $! (If in the United States, You Must Compile Using RSAREF).
33 $!
34 $! Note: The RSAREF libraries are NOT INCLUDED and you have to
35 $!       download it from "ftp://ftp.rsa.com/rsaref".  You have to
36 $!       get the ".tar-Z" file as the ".zip" file dosen't have the
37 $!       directory structure stored.  You have to extract the file
38 $!       into the [.RSAREF] directory as that is where the scripts
39 $!       will look for the files.
40 $!
41 $! Speficy DEBUG or NODEBUG as P3 to compile with or without debugging
42 $! information.
43 $!
44 $! Specify which compiler at P4 to try to compile under.
45 $!
46 $!        VAXC   For VAX C.
47 $!        DECC   For DEC C.
48 $!        GNUC   For GNU C.
49 $!        LINK   To only link the programs from existing object files.
50 $!               (not yet implemented)
51 $!
52 $! If you don't speficy a compiler, it will try to determine which
53 $! "C" compiler to use.
54 $!
55 $!  P5, if defined, sets a TCP/IP library to use, through one of the following
56 $!  keywords:
57 $!
58 $!      UCX             for UCX or UCX emulation
59 $!      SOCKETSHR       for SOCKETSHR+NETLIB
60 $!
61 $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
62 $!
63 $!
64 $! Check Which Architecture We Are Using.
65 $!
66 $ IF (F$GETSYI("CPU").GE.128)
67 $ THEN
68 $!
69 $!  The Architecture Is AXP.
70 $!
71 $   ARCH := AXP
72 $!
73 $! Else...
74 $!
75 $ ELSE
76 $!
77 $!  The Architecture Is VAX.
78 $!
79 $   ARCH := VAX
80 $!
81 $! End The Architecture Check.
82 $!
83 $ ENDIF
84 $!
85 $! Check To Make Sure We Have Valid Command Line Parameters.
86 $!
87 $ GOSUB CHECK_OPTIONS
88 $!
89 $! Check To See What We Are To Do.
90 $!
91 $ IF (BUILDALL.EQS."TRUE")
92 $ THEN
93 $!
94 $!  Since Nothing Special Was Specified, Do Everything.
95 $!  First, Fix The Unix Softlinks.
96 $!
97 $   GOSUB SOFTLINKS
98 $!
99 $!  Create The "BUILDINF.H" Include File.
100 $!
101 $   GOSUB BUILDINF
102 $!
103 $!  Check To See If We Are Going To Be Building The 
104 $!  [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library.
105 $!
106 $   IF (RSAREF.EQS."RSAREF")
107 $   THEN
108 $!
109 $!    Build The [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library.
110 $!
111 $     GOSUB RSAREF
112 $!
113 $!  End The RSAREF Check.
114 $!
115 $   ENDIF
116 $!
117 $!  Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
118 $!
119 $   GOSUB CRYPTO
120 $!
121 $!  Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
122 $!
123 $   GOSUB SSL
124 $!
125 $!  Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine.
126 $!
127 $   GOSUB SSL_TASK
128 $!
129 $!  Build The [.xxx.EXE.TEST] OpenSSL Test Utilities.
130 $!
131 $   GOSUB TEST
132 $!
133 $!  Build The [.xxx.EXE.APPS] OpenSSL Application Utilities.
134 $!
135 $   GOSUB APPS
136 $!
137 $! Else...
138 $!
139 $ ELSE
140 $!
141 $!    Build Just What The User Wants Us To Build.
142 $!
143 $     GOSUB 'BUILDALL'
144 $ ENDIF
145 $!
146 $! Time To EXIT.
147 $!
148 $ EXIT   
149 $!
150 $! Rebuild The "[.CRYPTO]BUILDINF.H" file.
151 $!
152 $ BUILDINF:
153 $!
154 $! Tell The User We Are Creating The [.CRYPTO]BUILDINF.H File.
155 $!
156 $ WRITE SYS$OUTPUT "Creating [.CRYPTO]BUILDINF.H Include File."
157 $!
158 $! Create The [.CRYPTO]BUILDINF.H File.
159 $!
160 $ OPEN/WRITE H_FILE SYS$DISK:[.CRYPTO]BUILDINF.H
161 $!
162 $! Get The Current Date & Time.
163 $!
164 $ TIME = F$TIME()
165 $!
166 $! Write The [.CRYPTO]BUILDINF.H File.
167 $!
168 $ WRITE H_FILE "#define CFLAGS """" /* Not filled in for now */"
169 $ WRITE H_FILE "#define PLATFORM ""VMS"""
170 $ WRITE H_FILE "#define DATE ""''TIME'"" "
171 $!
172 $! Close The [.CRYPTO]BUILDINF.H File.
173 $!
174 $ CLOSE H_FILE
175 $!
176 $! That's All, Time To RETURN.
177 $!
178 $ RETURN
179 $!
180 $! Copy a lot of files around.
181 $!
182 $ SOFTLINKS: 
183 $!
184 $! Tell The User We Are Partly Rebuilding The [.TEST] Directory.
185 $!
186 $ WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD5.C' And '[.APPS]RMD160.C' Files."
187 $!
188 $ DELETE SYS$DISK:[.APPS]MD5.C;*,RMD160.C;*
189 $!
190 $! Copy MD5.C from [.CRYPTO.MD5] into [.APPS]
191 $!
192 $ COPY SYS$DISK:[.CRYPTO.MD5]MD5.C SYS$DISK:[.APPS]
193 $!
194 $! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS]
195 $!
196 $ COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS]
197 $!
198 $! Tell The User We Are Partly Rebuilding The [.TEST] Directory.
199 $!
200 $ WRITE SYS$OUTPUT "Rebuilding The '[.TEST]*.C' Files."
201 $!
202 $! First, We Have To "Rebuild" The "[.TEST]" Directory, So Delete
203 $! All The "C" Files That Are Currently There Now.
204 $!
205 $ DELETE SYS$DISK:[.TEST]*.C;*
206 $!
207 $! Copy all the *TEST.C files from [.CRYPTO...] into [.TEST]
208 $!
209 $ COPY SYS$DISK:[.CRYPTO.*]%*TEST.C SYS$DISK:[.TEST]
210 $!
211 $! Copy all the *TEST.C files from [.SSL...] into [.TEST]
212 $!
213 $ COPY SYS$DISK:[.SSL]%*TEST.C SYS$DISK:[.TEST]
214 $!
215 $! Tell The User We Are Rebuilding The [.INCLUDE.OPENSSL] Directory.
216 $!
217 $ WRITE SYS$OUTPUT "Rebuilding The '[.INCLUDE.OPENSSL]' Directory."
218 $!
219 $! First, make sure the directory exists
220 $!
221 $ IF F$PARSE("SYS$DISK:[.INCLUDE.OPENSSL]") .EQS. "" THEN -
222      CREATE/DIRECTORY SYS$DISK:[.INCLUDE.OPENSSL]
223 $!
224 $! Copy All The ".H" Files From The Main Directory.
225 $!
226 $ EXHEADER := e_os.h,e_os2.h
227 $ COPY 'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
228 $!
229 $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
230 $!
231 $ SDIRS := ,MD2,MD5,SHA,MDC2,HMAC,RIPEMD,-
232    DES,RC2,RC4,RC5,IDEA,BF,CAST,-
233    BN,RSA,DSA,DH,-
234    BUFFER,BIO,STACK,LHASH,RAND,ERR,OBJECTS,-
235    EVP,ASN1,PEM,X509,X509V3,-
236    CONF,TXT_DB,PKCS7,PKCS12,COMP
237 $ EXHEADER_ := crypto.h,tmdiff.h,opensslv.h,opensslconf.h,ebcdic.h
238 $ EXHEADER_MD2 := md2.h
239 $ EXHEADER_MD5 := md5.h
240 $ EXHEADER_SHA := sha.h
241 $ EXHEADER_MDC2 := mdc2.h
242 $ EXHEADER_HMAC := hmac.h
243 $ EXHEADER_RIPEMD := ripemd.h
244 $ EXHEADER_DES := des.h
245 $ EXHEADER_RC2 := rc2.h
246 $ EXHEADER_RC4 := rc4.h
247 $ EXHEADER_RC5 := rc5.h
248 $ EXHEADER_IDEA := idea.h
249 $ EXHEADER_BF := blowfish.h
250 $ EXHEADER_CAST := cast.h
251 $ EXHEADER_BN := bn.h
252 $ EXHEADER_RSA := rsa.h
253 $ EXHEADER_DSA := dsa.h
254 $ EXHEADER_DH := dh.h
255 $ EXHEADER_BUFFER := buffer.h
256 $ EXHEADER_BIO := bio.h
257 $ EXHEADER_STACK := stack.h,safestack.h
258 $ EXHEADER_LHASH := lhash.h
259 $ EXHEADER_RAND := rand.h
260 $ EXHEADER_ERR := err.h
261 $ EXHEADER_OBJECTS := objects.h
262 $ EXHEADER_EVP := evp.h
263 $ EXHEADER_ASN1 := asn1.h,asn1_mac.h
264 $ EXHEADER_PEM := pem.h,pem2.h
265 $ EXHEADER_X509 := x509.h,x509_vfy.h
266 $ EXHEADER_X509V3 := x509v3.h
267 $ EXHEADER_CONF := conf.h
268 $ EXHEADER_TXT_DB := txt_db.h
269 $ EXHEADER_PKCS7 := pkcs7.h
270 $ EXHEADER_PKCS12 := pkcs12.h
271 $ EXHEADER_COMP := comp.h
272 $
273 $ I = 0
274 $ LOOP_SDIRS: 
275 $ D = F$EDIT(F$ELEMENT(I, ",", SDIRS),"TRIM")
276 $ I = I + 1
277 $ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
278 $ tmp = EXHEADER_'D'
279 $ IF D .EQS. ""
280 $ THEN
281 $   COPY [.CRYPTO]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] /LOG
282 $ ELSE
283 $   COPY [.CRYPTO.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] /LOG
284 $ ENDIF
285 $ GOTO LOOP_SDIRS
286 $ LOOP_SDIRS_END:
287 $!
288 $! Copy All The ".H" Files From The [.RSAREF] Directory.
289 $!
290 $ EXHEADER := rsaref.h
291 $ COPY SYS$DISK:[.RSAREF]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
292 $!
293 $! Copy All The ".H" Files From The [.SSL] Directory.
294 $!
295 $ EXHEADER := ssl.h,ssl2.h,ssl3.h,ssl23.h,tls1.h
296 $ COPY SYS$DISK:[.SSL]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
297 $!
298 $! Copy All The ".H" Files From The [.VMS] Directory.
299 $!
300 $ EXHEADER := vms_idhacks.h
301 $ COPY SYS$DISK:[.VMS]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
302 $!
303 $! Purge all doubles
304 $!
305 $ PURGE SYS$DISK:[.INCLUDE.OPENSSL]*.H
306 $!
307 $! That's All, Time To RETURN.
308 $!
309 $ RETURN
310 $!
311 $! Build The "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" Library.
312 $!
313 $ CRYPTO:
314 $!
315 $! Tell The User What We Are Doing.
316 $!
317 $ WRITE SYS$OUTPUT ""
318 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.CRYPTO]LIBCRYPTO.OLB Library."
319 $!
320 $! Go To The [.CRYPTO] Directory.
321 $!
322 $ SET DEFAULT SYS$DISK:[.CRYPTO]
323 $!
324 $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
325 $!  
326 $ @CRYPTO-LIB LIBRARY 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
327 $!
328 $! Build The [.xxx.EXE.CRYPTO]*.EXE Test Applications.
329 $!  
330 $ @CRYPTO-LIB APPS 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
331 $!
332 $! Go Back To The Main Directory.
333 $!
334 $ SET DEFAULT [-]
335 $!
336 $! Time To RETURN.
337 $!
338 $ RETURN
339 $!
340 $! Build The [.xxx.EXE.RSAREF]LIBRSAGLUE Library.
341 $!
342 $ RSAREF:
343 $!
344 $! Tell The User What We Are Doing.
345 $!
346 $ WRITE SYS$OUTPUT ""
347 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.RSAREF]LIBRSAGLUE.OLB Library."
348 $!
349 $! Go To The [.RSAREF] Directory.
350 $!
351 $ SET DEFAULT SYS$DISK:[.RSAREF]
352 $!
353 $! Build The [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library.
354 $!
355 $ @RSAREF-LIB LIBRARY 'DEBUGGER' "''COMPILER'" 'ISSEVEN'
356 $!
357 $! Go Back To The Main Directory.
358 $!
359 $ SET DEFAULT [-]
360 $!
361 $! Time To Return.
362 $!
363 $ RETURN
364 $!
365 $! Build The "[.xxx.EXE.SSL]LIBSSL.OLB" Library.
366 $!
367 $ SSL:
368 $!
369 $! Tell The User What We Are Doing.
370 $!
371 $ WRITE SYS$OUTPUT ""
372 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.SSL]LIBSSL.OLB Library."
373 $!
374 $! Go To The [.SSL] Directory.
375 $!
376 $ SET DEFAULT SYS$DISK:[.SSL]
377 $!
378 $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
379 $!
380 $ @SSL-LIB LIBRARY 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
381 $!
382 $! Go Back To The Main Directory.
383 $!
384 $ SET DEFAULT [-]
385 $!
386 $! Time To Return.
387 $!
388 $ RETURN
389 $!
390 $! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program.
391 $!
392 $ SSL_TASK:
393 $!
394 $! Tell The User What We Are Doing.
395 $!
396 $ WRITE SYS$OUTPUT ""
397 $ WRITE SYS$OUTPUT "Building DECNet Based SSL Engine, [.",ARCH,".EXE.SSL]SSL_TASK.EXE"
398 $!
399 $! Go To The [.SSL] Directory.
400 $!
401 $ SET DEFAULT SYS$DISK:[.SSL]
402 $!
403 $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE
404 $!
405 $ @SSL-LIB SSL_TASK 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
406 $!
407 $! Go Back To The Main Directory.
408 $!
409 $ SET DEFAULT [-]
410 $!
411 $! That's All, Time To RETURN.
412 $!
413 $ RETURN
414 $!
415 $! Build The OpenSSL Test Programs.
416 $!
417 $ TEST:
418 $!
419 $! Tell The User What We Are Doing.
420 $!
421 $ WRITE SYS$OUTPUT ""
422 $ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCH,".EXE.TEST] Test Utilities."
423 $!
424 $! Go To The [.TEST] Directory.
425 $!
426 $ SET DEFAULT SYS$DISK:[.TEST]
427 $!
428 $! Build The Test Programs.
429 $!
430 $ @MAKETESTS 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
431 $!
432 $! Go Back To The Main Directory.
433 $!
434 $ SET DEFAULT [-]
435 $!
436 $! That's All, Time To RETURN.
437 $!
438 $ RETURN
439 $!
440 $! Build The OpenSSL Application Programs.
441 $!
442 $ APPS:
443 $!
444 $! Tell The User What We Are Doing.
445 $!
446 $ WRITE SYS$OUTPUT ""
447 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.APPS] Applications."
448 $!
449 $! Go To The [.APPS] Directory.
450 $!
451 $ SET DEFAULT SYS$DISK:[.APPS]
452 $!
453 $! Build The Application Programs.
454 $!
455 $ @MAKEAPPS 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
456 $!
457 $! Go Back To The Main Directory.
458 $!
459 $ SET DEFAULT [-]
460 $!
461 $! That's All, Time To RETURN.
462 $!
463 $ RETURN
464 $!
465 $! Check The User's Options.
466 $!
467 $ CHECK_OPTIONS:
468 $!
469 $! Check To See If P1 Is Blank.
470 $!
471 $ IF (P1.EQS."ALL")
472 $ THEN
473 $!
474 $!   P1 Is ALL, So Build Everything.
475 $!
476 $    BUILDALL = "TRUE"
477 $!
478 $! Else...
479 $!
480 $ ELSE
481 $!
482 $!  Else, Check To See If P1 Has A Valid Arguement.
483 $!
484 $   IF (P1.EQS."BUILDINF").OR.(P1.EQS."SOFTLINKS").OR.(P1.EQS."CRYPTO") -
485        .OR.(P1.EQS."SSL").OR.(P1.EQS."RSAREF").OR.(P1.EQS."SSL_TASK") -
486        .OR.(P1.EQS."TEST").OR.(P1.EQS."APPS")
487 $   THEN
488 $!
489 $!    A Valid Arguement.
490 $!
491 $     BUILDALL = P1
492 $!
493 $!  Else...
494 $!
495 $   ELSE
496 $!
497 $!    Tell The User We Don't Know What They Want.
498 $!
499 $     WRITE SYS$OUTPUT ""
500 $     WRITE SYS$OUTPUT "The Option ",P1," Is Invalid.  The Valid Options Are:"
501 $     WRITE SYS$OUTPUT ""
502 $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything."
503 $     WRITE SYS$OUTPUT "    BUILDINF :  Just build the [.CRYPTO]BUILDINF.H file."
504 $     WRITE SYS$OUTPUT "    SOFTLINKS:  Just Fix The Unix soft links."
505 $     WRITE SYS$OUTPUT "    RSAREF   :  To Build Just The [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library."
506 $     WRITE SYS$OUTPUT "    CRYPTO   :  To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
507 $     WRITE SYS$OUTPUT "    SSL      :  To Build Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
508 $     WRITE SYS$OUTPUT "    SSL_TASK :  To Build Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
509 $     WRITE SYS$OUTPUT "    TEST     :  To Build Just The OpenSSL Test Programs."
510 $     WRITE SYS$OUTPUT "    APPS     :  To Build Just The OpenSSL Application Programs."
511 $     WRITE SYS$OUTPUT ""
512 $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
513 $     WRITE SYS$OUTPUT ""
514 $     WRITE SYS$OUTPUT "        AXP  :  Alpha Architecture."
515 $     WRITE SYS$OUTPUT "        VAX  :  VAX Architecture."
516 $     WRITE SYS$OUTPUT ""
517 $!
518 $!    Time To EXIT.
519 $!
520 $     EXIT
521 $!
522 $!  End The Valid Argument Check.
523 $!
524 $   ENDIF
525 $!
526 $! End The P1 Check.
527 $!
528 $ ENDIF
529 $!
530 $! Check To See If P2 Is Blank.
531 $!
532 $ IF (P2.EQS."NORSAREF")
533 $ THEN
534 $!
535 $!   P2 Is NORSAREF, So Compile Without RSAREF.
536 $!
537 $    RSAREF = "NORSAREF"
538 $!
539 $! Else...
540 $!
541 $ ELSE
542 $!
543 $!  Check To See If We Are To Compile Using The RSAREF Library.
544 $!
545 $   IF (P2.EQS."RSAREF")
546 $   THEN
547 $!
548 $!    Compile With RSAREF Library.
549 $!
550 $     RSAREF = "RSAREF"
551 $!
552 $!  Else...
553 $!
554 $   ELSE
555 $!
556 $!    Tell The User Entered An Invalid Option..
557 $!
558 $     WRITE SYS$OUTPUT ""
559 $     WRITE SYS$OUTPUT "The Option ",P2," Is Invalid.  The Valid Options Are:"
560 $     WRITE SYS$OUTPUT ""
561 $     WRITE SYS$OUTPUT "    RSAREF   :  To Compile With The RSAREF Library."
562 $     WRITE SYS$OUTPUT "    NORSAREF :  To Compile With The Regular RSA Library."
563 $     WRITE SYS$OUTPUT ""
564 $!
565 $!    Time To EXIT.
566 $!
567 $     EXIT
568 $!
569 $!  End The Valid Arguemnt Check.
570 $!
571 $   ENDIF
572 $!
573 $! End The P2 Check.
574 $!
575 $ ENDIF
576 $!
577 $! Check To See If P3 Is Blank.
578 $!
579 $ IF (P3.EQS."NODEBUG")
580 $ THEN
581 $!
582 $!   P3 Is NODEBUG, So Compile Without Debugger Information.
583 $!
584 $    DEBUGGER = "NODEBUG"
585 $!
586 $! Else...
587 $!
588 $ ELSE
589 $!
590 $!  Check To See If We Are To Compile With Debugger Information.
591 $!
592 $   IF (P3.EQS."DEBUG")
593 $   THEN
594 $!
595 $!    Compile With Debugger Information.
596 $!
597 $     DEBUGGER = "DEBUG"
598 $!
599 $!  Else...
600 $!
601 $   ELSE
602 $!
603 $!    Tell The User Entered An Invalid Option..
604 $!
605 $     WRITE SYS$OUTPUT ""
606 $     WRITE SYS$OUTPUT "The Option ",P3," Is Invalid.  The Valid Options Are:"
607 $     WRITE SYS$OUTPUT ""
608 $     WRITE SYS$OUTPUT "    DEBUG    :  Compile With The Debugger Information."
609 $     WRITE SYS$OUTPUT "    NODEBUG  :  Compile Without The Debugger Information."
610 $     WRITE SYS$OUTPUT ""
611 $!
612 $!    Time To EXIT.
613 $!
614 $     EXIT
615 $!
616 $!  End The Valid Arguement Check.
617 $!
618 $   ENDIF
619 $!
620 $! End The P3 Check.
621 $!
622 $ ENDIF
623 $!
624 $! Check To See If P4 Is Blank.
625 $!
626 $ IF (P4.EQS."")
627 $ THEN
628 $!
629 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
630 $!  Find Out Which One To Use.
631 $!
632 $!  Check To See If We Have GNU C.
633 $!
634 $   IF (F$TRNLNM("GNU_CC").NES."")
635 $   THEN
636 $!
637 $!    Looks Like GNUC, Set To Use GNUC.
638 $!
639 $     COMPILER = "GNUC"
640 $!
641 $!    Tell The User We Are Using GNUC.
642 $!
643 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
644 $!
645 $!  End The GNU C Compiler Check.
646 $!
647 $   ENDIF
648 $!
649 $!  Check To See If We Have VAXC Or DECC.
650 $!
651 $   IF (F$GETSYI("CPU").GE.128).OR.(F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC")
652 $   THEN 
653 $!
654 $!    Looks Like DECC, Set To Use DECC.
655 $!
656 $     COMPILER = "DECC"
657 $!
658 $!    Tell The User We Are Using DECC.
659 $!
660 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
661 $!
662 $!  Else...
663 $!
664 $   ELSE
665 $!
666 $!    Looks Like VAXC, Set To Use VAXC.
667 $!
668 $     COMPILER = "VAXC"
669 $!
670 $!    Tell The User We Are Using VAX C.
671 $!
672 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
673 $!
674 $!  End The DECC & VAXC Compiler Check.
675 $!
676 $   ENDIF
677 $!
678 $! Else...
679 $!
680 $ ELSE
681 $!
682 $!  Check To See If The User Entered A Valid Paramter.
683 $!
684 $   IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")!.OR.(P4.EQS."LINK")
685 $   THEN
686 $!
687 $!    Check To See If The User Wanted To Just LINK.
688 $!
689 $     IF (P4.EQS."LINK")
690 $     THEN
691 $!
692 $!      Looks Like LINK-only
693 $!
694 $       COMPILER = "LINK"
695 $!
696 $!      Tell The User We Are Only Linking.
697 $!
698 $       WRITE SYS$OUTPUT "LINK Only.  This actually NOT YET SUPPORTED!"
699 $!
700 $!    End LINK Check.
701 $!
702 $     ENDIF
703 $!
704 $!    Check To See If The User Wanted DECC.
705 $!
706 $     IF (P4.EQS."DECC")
707 $     THEN
708 $!
709 $!      Looks Like DECC, Set To Use DECC.
710 $!
711 $       COMPILER = "DECC"
712 $!
713 $!      Tell The User We Are Using DECC.
714 $!
715 $       WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
716 $!
717 $!    End DECC Check.
718 $!
719 $     ENDIF
720 $!
721 $!    Check To See If We Are To Use VAXC.
722 $!
723 $     IF (P4.EQS."VAXC")
724 $     THEN
725 $!
726 $!      Looks Like VAXC, Set To Use VAXC.
727 $!
728 $       COMPILER = "VAXC"
729 $!
730 $!      Tell The User We Are Using VAX C.
731 $!
732 $       WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
733 $!
734 $!    End VAXC Check
735 $!
736 $     ENDIF
737 $!
738 $!    Check To See If We Are To Use GNU C.
739 $!
740 $     IF (P4.EQS."GNUC")
741 $     THEN
742 $!
743 $!      Looks Like GNUC, Set To Use GNUC.
744 $!
745 $       COMPILER = "GNUC"
746 $!
747 $!      Tell The User We Are Using GNUC.
748 $!
749 $       WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
750 $!
751 $!    End The GNU C Check.
752 $!
753 $     ENDIF
754 $!
755 $!  Else The User Entered An Invalid Arguement.
756 $!
757 $   ELSE
758 $!
759 $!    Tell The User We Don't Know What They Want.
760 $!
761 $     WRITE SYS$OUTPUT ""
762 $     WRITE SYS$OUTPUT "The Option ",P4," Is Invalid.  The Valid Options Are:"
763 $     WRITE SYS$OUTPUT ""
764 $     WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
765 $     WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
766 $     WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
767 $     WRITE SYS$OUTPUT ""
768 $!
769 $!    Time To EXIT.
770 $!
771 $     EXIT
772 $!
773 $!  End The Valid Arguement Check.
774 $!
775 $   ENDIF
776 $!
777 $! End The P4 Check.
778 $!
779 $ ENDIF
780 $!
781 $! Time to check the contents of P5, and to make sure we get the correct library.
782 $!
783 $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX"
784 $ THEN
785 $!
786 $!  Check to see if SOCKETSHR was chosen
787 $!
788 $   IF P5.EQS."SOCKETSHR"
789 $   THEN
790 $!
791 $!    Set the library to use SOCKETSHR
792 $!
793 $     TCPIP_LIB = "[-.VMS]SOCKETSHR_SHR.OPT/OPT"
794 $!
795 $!    Tell the user
796 $!
797 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
798 $!
799 $!    Done with SOCKETSHR
800 $!
801 $   ENDIF
802 $!
803 $!  Check to see if MULTINET was chosen
804 $!
805 $   IF P5.EQS."MULTINET"
806 $   THEN
807 $!
808 $!    Set the library to use UCX emulation.
809 $!
810 $     P5 = "UCX"
811 $!
812 $!    Tell the user
813 $!
814 $     WRITE SYS$OUTPUT "Using MultiNet via UCX emulation for TCP/IP"
815 $!
816 $!    Done with MULTINET
817 $!
818 $   ENDIF
819 $!
820 $!  Check to see if UCX was chosen
821 $!
822 $   IF P5.EQS."UCX"
823 $   THEN
824 $!
825 $!    Set the library to use UCX.
826 $!
827 $     TCPIP_LIB = "[-.VMS]UCX_SHR_DECC.OPT/OPT"
828 $!
829 $!    Tell the user
830 $!
831 $     WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
832 $!
833 $!    Done with UCX
834 $!
835 $   ENDIF
836 $!
837 $!  Set the TCPIP_TYPE symbol
838 $!
839 $   TCPIP_TYPE = P5
840 $!
841 $!  Print info
842 $!
843 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
844 $!
845 $!  Else The User Entered An Invalid Arguement.
846 $!
847 $ ELSE
848 $   IF P5 .NES. ""
849 $   THEN
850 $!
851 $!    Tell The User We Don't Know What They Want.
852 $!
853 $     WRITE SYS$OUTPUT ""
854 $     WRITE SYS$OUTPUT "The Option ",P5," Is Invalid.  The Valid Options Are:"
855 $     WRITE SYS$OUTPUT ""
856 $     WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
857 $     WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
858 $     WRITE SYS$OUTPUT ""
859 $!
860 $!    Time To EXIT.
861 $!
862 $     EXIT
863 $   ELSE
864 $!
865 $!    Set the TCPIP_TYPE symbol
866 $!
867 $     TCPIP_TYPE = P5
868 $   ENDIF
869 $!
870 $!  Done with TCP/IP libraries
871 $!
872 $ ENDIF
873 $!
874 $! Special Threads For OpenVMS v7.1 Or Later
875 $!
876 $! Written By:  Richard Levitte
877 $!              richard@levitte.org
878 $!
879 $!
880 $! Check To See If We Have A Option For P6.
881 $!
882 $ IF (P6.EQS."")
883 $ THEN
884 $!
885 $!  Get The Version Of VMS We Are Using.
886 $!
887 $   ISSEVEN :=
888 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
889 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
890 $!
891 $!  Check To See If The VMS Version Is v7.1 Or Later.
892 $!
893 $   IF (TMP.GE.71)
894 $   THEN
895 $!
896 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
897 $!
898 $     ISSEVEN := ,PTHREAD_USE_D4
899 $!
900 $!  End The VMS Version Check.
901 $!
902 $   ENDIF
903 $!
904 $! End The P6 Check.
905 $!
906 $ ENDIF
907 $!
908 $!  Time To RETURN...
909 $!
910 $ RETURN