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