d6829a8d64552c955912352d5fba21fced2cc643
[openssl.git] / ssl / ssl-lib.com
1 $!
2 $!  SSL-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 file compiles and creates the "[.xxx.EXE.SSL]LIBSSL.OLB" 
11 $!  library for OpenSSL.  The "xxx" denotes the machine architecture of AXP 
12 $!  or VAX.
13 $!
14 $!  It is written to detect what type of machine you are compiling on
15 $!  (i.e. AXP or VAX) and which "C" compiler you have (i.e. VAXC, DECC 
16 $!  or GNU C) or you can specify which compiler to use.
17 $!
18 $!  Specify the following as P1 to build just that part or ALL to just
19 $!  build everything.
20 $!
21 $!              LIBRARY    To just compile the [.xxx.EXE.SSL]LIBSSL.OLB Library.
22 $!              SSL_TASK   To just compile the [.xxx.EXE.SSL]SSL_TASK.EXE
23 $!
24 $!  Specify RSAREF as P2 to compile with the RSAREF library instead of
25 $!  the regular one.  If you specify NORSAREF it will compile with the
26 $!  regular RSAREF routines.  (Note: If you are in the United States
27 $!  you MUST compile with RSAREF unless you have a license from RSA).
28 $!
29 $!  Note: The RSAREF libraries are NOT INCLUDED and you have to
30 $!        download it from "ftp://ftp.rsa.com/rsaref".  You have to
31 $!        get the ".tar-Z" file as the ".zip" file dosen't have the
32 $!        directory structure stored.  You have to extract the file
33 $!        into the [.RSAREF] directory under the root directory as that
34 $!        is where the scripts will look for the files.
35 $!
36 $!  Specify DEBUG or NODEBUG as P3 to compile with or without debugger
37 $!  information.
38 $!
39 $!  Specify which compiler at P4 to try to compile under.
40 $!
41 $!         VAXC  For VAX C.
42 $!         DECC  For DEC C.
43 $!         GNUC  For GNU C.
44 $!
45 $!  If you don't speficy a compiler, it will try to determine which
46 $!  "C" compiler to use.
47 $!
48 $!  P5, if defined, sets a TCP/IP library to use, through one of the following
49 $!  keywords:
50 $!
51 $!      UCX             for UCX
52 $!      TCPIP           for TCPIP (post UCX)
53 $!      SOCKETSHR       for SOCKETSHR+NETLIB
54 $!
55 $!  P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
56 $!
57 $!
58 $! Define A TCP/IP Library That We Will Need To Link To.
59 $! (That Is, If We Need To Link To One.)
60 $!
61 $ TCPIP_LIB = ""
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 $! Initialise logical names and such
89 $!
90 $ GOSUB INITIALISE
91 $!
92 $! Tell The User What Kind of Machine We Run On.
93 $!
94 $ WRITE SYS$OUTPUT "Compiling On A ",ARCH," Machine."
95 $!
96 $! Define The OBJ Directory.
97 $!
98 $ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.SSL]
99 $!
100 $! Check To See If The Architecture Specific OBJ Directory Exists.
101 $!
102 $ IF (F$PARSE(OBJ_DIR).EQS."")
103 $ THEN
104 $!
105 $!  It Dosen't Exist, So Create It.
106 $!
107 $   CREATE/DIR 'OBJ_DIR'
108 $!
109 $! End The Architecture Specific OBJ Directory Check.
110 $!
111 $ ENDIF
112 $!
113 $! Define The EXE Directory.
114 $!
115 $ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.SSL]
116 $!
117 $! Check To See If The Architecture Specific Directory Exists.
118 $!
119 $ IF (F$PARSE(EXE_DIR).EQS."")
120 $ THEN
121 $!
122 $!  It Dosen't Exist, So Create It.
123 $!
124 $   CREATE/DIR 'EXE_DIR'
125 $!
126 $! End The Architecture Specific Directory Check.
127 $!
128 $ ENDIF
129 $!
130 $! Define The Library Name.
131 $!
132 $ SSL_LIB := 'EXE_DIR'LIBSSL.OLB
133 $!
134 $! Define The CRYPTO-LIB We Are To Use.
135 $!
136 $ CRYPTO_LIB := SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO.OLB
137 $!
138 $! Define The RSAREF-LIB We Are To Use.
139 $!
140 $ RSAREF_LIB := SYS$DISK:[-.'ARCH'.EXE.RSAREF]LIBRSAGLUE.OLB
141 $!
142 $! Check To See What We Are To Do.
143 $!
144 $ IF (BUILDALL.EQS."TRUE")
145 $ THEN
146 $!
147 $!  Since Nothing Special Was Specified, Do Everything.
148 $!
149 $   GOSUB LIBRARY
150 $   GOSUB SSL_TASK
151 $!
152 $! Else...
153 $!
154 $ ELSE
155 $!
156 $!  Build Just What The User Wants Us To Build.
157 $!
158 $   GOSUB 'BUILDALL'
159 $!
160 $! End The BUILDALL Check.
161 $!
162 $ ENDIF
163 $!
164 $! Time To EXIT.
165 $!
166 $ EXIT:
167 $ GOSUB CLEANUP
168 $ EXIT   
169 $!
170 $! Compile The Library.
171 $!
172 $ LIBRARY:
173 $!
174 $! Check To See If We Already Have A "[.xxx.EXE.SSL]LIBSSL.OLB" Library...
175 $!
176 $ IF (F$SEARCH(SSL_LIB).EQS."")
177 $ THEN
178 $!
179 $! Guess Not, Create The Library.
180 $!
181 $   LIBRARY/CREATE/OBJECT 'SSL_LIB'
182 $!
183 $! End The Library Exist Check.
184 $!
185 $ ENDIF
186 $!
187 $! Define The Different SSL "library" Files.
188 $!
189 $ LIB_SSL = "s2_meth,s2_srvr,s2_clnt,s2_lib,s2_enc,s2_pkt,"+ -
190             "s3_meth,s3_srvr,s3_clnt,s3_lib,s3_enc,s3_pkt,s3_both,"+ -
191             "s23_meth,s23_srvr,s23_clnt,s23_lib,s23_pkt,"+ -
192             "t1_meth,t1_srvr,t1_clnt,t1_lib,t1_enc,"+ -
193             "ssl_lib,ssl_err2,ssl_cert,ssl_sess,"+ -
194             "ssl_ciph,ssl_stat,ssl_rsa,"+ -
195             "ssl_asn1,ssl_txt,ssl_algs,"+ -
196             "bio_ssl,ssl_err,kssl"
197 $!
198 $! Tell The User That We Are Compiling The Library.
199 $!
200 $ WRITE SYS$OUTPUT "Building The ",SSL_LIB," Library."
201 $!
202 $! Define A File Counter And Set It To "0"
203 $!
204 $ FILE_COUNTER = 0
205 $!
206 $! Top Of The File Loop.
207 $!
208 $ NEXT_FILE:
209 $!
210 $! O.K, Extract The File Name From The File List.
211 $!
212 $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",LIB_SSL)
213 $!
214 $! Check To See If We Are At The End Of The File List.
215 $!
216 $ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
217 $!
218 $! Increment The Counter.
219 $!
220 $ FILE_COUNTER = FILE_COUNTER + 1
221 $!
222 $! Create The Source File Name.
223 $!
224 $ SOURCE_FILE = "SYS$DISK:[]" + FILE_NAME + ".C"
225 $!
226 $! Create The Object File Name.
227 $!
228 $ OBJECT_FILE = OBJ_DIR + FILE_NAME + ".OBJ"
229 $ ON WARNING THEN GOTO NEXT_FILE
230 $!
231 $! Check To See If The File We Want To Compile Is Actually There.
232 $!
233 $ IF (F$SEARCH(SOURCE_FILE).EQS."")
234 $ THEN
235 $!
236 $!  Tell The User That The File Dosen't Exist.
237 $!
238 $   WRITE SYS$OUTPUT ""
239 $   WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Dosen't Exist."
240 $   WRITE SYS$OUTPUT ""
241 $!
242 $!  Exit The Build.
243 $!
244 $   EXIT
245 $!
246 $! End The File Exists Check.
247 $!
248 $ ENDIF
249 $!
250 $!  Tell The User What File We Are Compiling.
251 $!
252 $ WRITE SYS$OUTPUT "    ",FILE_NAME,".c"
253 $!
254 $! Compile The File.
255 $!
256 $ ON ERROR THEN GOTO NEXT_FILE
257 $ CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
258 $!
259 $! Add It To The Library.
260 $!
261 $ LIBRARY/REPLACE/OBJECT 'SSL_LIB' 'OBJECT_FILE'
262 $!
263 $! Time To Clean Up The Object File.
264 $!
265 $ DELETE 'OBJECT_FILE';*
266 $!
267 $! Go Back And Get The Next File Name.
268 $!
269 $ GOTO NEXT_FILE
270 $!
271 $! All Done With This Library.
272 $!
273 $ FILE_DONE:
274 $!
275 $! Tell The User That We Are All Done.
276 $!
277 $ WRITE SYS$OUTPUT "Library ",SSL_LIB," Compiled."
278 $!
279 $! Time To RETURN.
280 $!
281 $ RETURN
282 $ SSL_TASK:
283 $!
284 $! Check To See If We Have The Proper Libraries.
285 $!
286 $ GOSUB LIB_CHECK
287 $!
288 $! Check To See If We Have A Linker Option File.
289 $!
290 $ GOSUB CHECK_OPT_FILE
291 $!
292 $! Check To See If The File We Want To Compile Is Actually There.
293 $!
294 $ IF (F$SEARCH("SYS$DISK:[]SSL_TASK.C").EQS."")
295 $ THEN
296 $!
297 $!  Tell The User That The File Dosen't Exist.
298 $!
299 $   WRITE SYS$OUTPUT ""
300 $   WRITE SYS$OUTPUT "The File SSL_TASK.C Dosen't Exist."
301 $   WRITE SYS$OUTPUT ""
302 $!
303 $!  Exit The Build.
304 $!
305 $   EXIT
306 $!
307 $! End The SSL_TASK.C File Check.
308 $!
309 $ ENDIF
310 $!
311 $! Tell The User We Are Creating The SSL_TASK.
312 $!
313 $ WRITE SYS$OUTPUT "Creating SSL_TASK OSU HTTP SSL Engine."     
314 $!
315 $! Compile The File.
316 $!
317 $ ON ERROR THEN GOTO SSL_TASK_END
318 $ CC5/OBJECT='OBJ_DIR'SSL_TASK.OBJ SYS$DISK:[]SSL_TASK.C
319 $!
320 $! Link The Program, Check To See If We Need To Link With RSAREF Or Not.
321 $!
322 $ IF (RSAREF.EQS."TRUE")
323 $ THEN
324 $!
325 $!  Check To See If We Are To Link With A Specific TCP/IP Library.
326 $!
327 $   IF (TCPIP_LIB.NES."")
328 $   THEN
329 $!
330 $!    Link With The RSAREF Library And A Specific TCP/IP Library.
331 $!
332 $     LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
333           'OBJ_DIR'SSL_TASK.OBJ, -
334           'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY,'RSAREF_LIB'/LIBRARY, -
335           'TCPIP_LIB','OPT_FILE'/OPTION
336 $!
337 $!  Else...
338 $!
339 $   ELSE
340 $!
341 $!    Link With The RSAREF Library And NO TCP/IP Library.
342 $!
343 $     LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
344           'OBJ_DIR'SSL_TASK.OBJ, -
345           'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY,'RSAREF_LIB'/LIBRARY, -
346           'OPT_FILE'/OPTION
347 $!
348 $!  End The TCP/IP Library Check.
349 $!
350 $   ENDIF
351 $!
352 $! Else...
353 $!
354 $ ELSE
355 $!
356 $!  Don't Link With The RSAREF Routines.
357 $!
358 $!
359 $!  Check To See If We Are To Link With A Specific TCP/IP Library.
360 $!
361 $   IF (TCPIP_LIB.NES."")
362 $   THEN
363 $!
364 $!    Don't Link With The RSAREF Routines And TCP/IP Library.
365 $!
366 $     LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
367           'OBJ_DIR'SSL_TASK.OBJ, -
368           'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY, -
369           'TCPIP_LIB','OPT_FILE'/OPTION
370 $!
371 $!  Else...
372 $!
373 $   ELSE
374 $!
375 $!    Don't Link With The RSAREF Routines And Link With A TCP/IP Library.
376 $!
377 $     LINK/'DEBUGGER'/'TRACEBACK'/EXE='EXE_DIR'SSL_TASK.EXE -
378           'OBJ_DIR'SSL_TASK.OBJ,-
379           'SSL_LIB'/LIBRARY,'CRYPTO_LIB'/LIBRARY, -
380           'OPT_FILE'/OPTION
381 $!
382 $!  End The TCP/IP Library Check.
383 $!
384 $   ENDIF
385 $!
386 $! End The RSAREF Link Check.
387 $!
388 $ ENDIF
389 $!
390 $! Time To Return.
391 $!
392 $SSL_TASK_END:
393 $ RETURN
394 $!
395 $! Check For The Link Option FIle.
396 $!
397 $ CHECK_OPT_FILE:
398 $!
399 $! Check To See If We Need To Make A VAX C Option File.
400 $!
401 $ IF (COMPILER.EQS."VAXC")
402 $ THEN
403 $!
404 $!  Check To See If We Already Have A VAX C Linker Option File.
405 $!
406 $   IF (F$SEARCH(OPT_FILE).EQS."")
407 $   THEN
408 $!
409 $!    We Need A VAX C Linker Option File.
410 $!
411 $     CREATE 'OPT_FILE'
412 $DECK
413 !
414 ! Default System Options File To Link Agianst 
415 ! The Sharable VAX C Runtime Library.
416 !
417 SYS$SHARE:VAXCRTL.EXE/SHARE
418 $EOD
419 $!
420 $!  End The Option File Check.
421 $!
422 $   ENDIF
423 $!
424 $! End The VAXC Check.
425 $!
426 $ ENDIF
427 $!
428 $! Check To See If We Need A GNU C Option File.
429 $!
430 $ IF (COMPILER.EQS."GNUC")
431 $ THEN
432 $!
433 $!  Check To See If We Already Have A GNU C Linker Option File.
434 $!
435 $   IF (F$SEARCH(OPT_FILE).EQS."")
436 $   THEN
437 $!
438 $!    We Need A GNU C Linker Option File.
439 $!
440 $     CREATE 'OPT_FILE'
441 $DECK
442 !
443 ! Default System Options File To Link Agianst 
444 ! The Sharable C Runtime Library.
445 !
446 GNU_CC:[000000]GCCLIB/LIBRARY
447 SYS$SHARE:VAXCRTL/SHARE
448 $EOD
449 $!
450 $!  End The Option File Check.
451 $!
452 $   ENDIF
453 $!
454 $! End The GNU C Check.
455 $!
456 $ ENDIF
457 $!
458 $! Check To See If We Need A DEC C Option File.
459 $!
460 $ IF (COMPILER.EQS."DECC")
461 $ THEN
462 $!
463 $!  Check To See If We Already Have A DEC C Linker Option File.
464 $!
465 $   IF (F$SEARCH(OPT_FILE).EQS."")
466 $   THEN
467 $!
468 $!    Figure Out If We Need An AXP Or A VAX Linker Option File.
469 $!
470 $     IF (ARCH.EQS."VAX")
471 $     THEN
472 $!
473 $!      We Need A DEC C Linker Option File For VAX.
474 $!
475 $       CREATE 'OPT_FILE'
476 $DECK
477 !
478 ! Default System Options File To Link Agianst 
479 ! The Sharable DEC C Runtime Library.
480 !
481 SYS$SHARE:DECC$SHR.EXE/SHARE
482 $EOD
483 $!
484 $!    Else...
485 $!
486 $     ELSE
487 $!
488 $!      Create The AXP Linker Option File.
489 $!
490 $       CREATE 'OPT_FILE'
491 $DECK
492 !
493 ! Default System Options File For AXP To Link Agianst 
494 ! The Sharable C Runtime Library.
495 !
496 SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
497 SYS$SHARE:CMA$OPEN_RTL/SHARE
498 $EOD
499 $!
500 $!    End The VAX/AXP DEC C Option File Check.
501 $!
502 $     ENDIF
503 $!
504 $!  End The Option File Search.
505 $!
506 $   ENDIF
507 $!
508 $! End The DEC C Check.
509 $!
510 $ ENDIF
511 $!
512 $!  Tell The User What Linker Option File We Are Using.
513 $!
514 $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."     
515 $!
516 $! Time To RETURN.
517 $!
518 $ RETURN
519 $ LIB_CHECK:
520 $!
521 $! Look For The VAX Library LIBSSL.OLB.
522 $!
523 $ IF (F$SEARCH(SSL_LIB).EQS."")
524 $ THEN
525 $!
526 $!  Tell The User We Can't Find The LIBSSL.OLB Library.
527 $!
528 $   WRITE SYS$OUTPUT ""
529 $   WRITE SYS$OUTPUT "Can't Find The Library ",SSL_LIB,"."
530 $   WRITE SYS$OUTPUT "We Can't Link Without It."
531 $   WRITE SYS$OUTPUT ""
532 $!
533 $!  Since We Can't Link Without It, Exit.
534 $!
535 $   EXIT
536 $!
537 $! End The LIBSSL.OLB Library Check.
538 $!
539 $ ENDIF
540 $!
541 $! Look For The Library LIBCRYPTO.OLB.
542 $!
543 $ IF (F$SEARCH(CRYPTO_LIB).EQS."")
544 $ THEN
545 $!
546 $!  Tell The User We Can't Find The LIBCRYPTO.OLB Library.
547 $!
548 $   WRITE SYS$OUTPUT ""
549 $   WRITE SYS$OUTPUT "Can't Find The Library ",CRYPTO_LIB,"."
550 $   WRITE SYS$OUTPUT "We Can't Link Without It."
551 $   WRITE SYS$OUTPUT ""
552 $!
553 $!  Since We Can't Link Without It, Exit.
554 $!
555 $   EXIT
556 $!
557 $! End The LIBCRYPTO.OLB Library Check.
558 $!
559 $ ENDIF
560 $!
561 $! Check To See If We Need The RSAREF Library.
562 $!
563 $ IF (RSAREF.EQS."TRUE")
564 $ THEN
565 $!
566 $!  Look For The Library LIBRSAGLUE.OLB.
567 $!
568 $   IF (F$SEARCH(RSAREF_LIB).EQS."")
569 $   THEN
570 $!
571 $!    Tell The User We Can't Find The LIBRSAGLUE.OLB Library.
572 $!
573 $     WRITE SYS$OUTPUT ""
574 $     WRITE SYS$OUTPUT "Can't Find The Library ",RSAREF_LIB,"."
575 $     WRITE SYS$OUTPUT "We Can't Link Without It."
576 $     WRITE SYS$OUTPUT ""
577 $!
578 $!    Since We Can't Link Without It, Exit.
579 $!
580 $     EXIT
581 $!
582 $!   End The LIBRSAGLUE.OLB Library Check.
583 $!
584 $   ENDIF
585 $!
586 $! End The RSAREF Library Check.
587 $!
588 $ ENDIF
589 $!
590 $! Time To Return.
591 $!
592 $ RETURN
593 $!
594 $! Check The User's Options.
595 $!
596 $ CHECK_OPTIONS:
597 $!
598 $! Check To See If P1 Is Blank.
599 $!
600 $ IF (P1.EQS."ALL")
601 $ THEN
602 $!
603 $!   P1 Is Blank, So Build Everything.
604 $!
605 $    BUILDALL = "TRUE"
606 $!
607 $! Else...
608 $!
609 $ ELSE
610 $!
611 $!  Else, Check To See If P1 Has A Valid Arguement.
612 $!
613 $   IF (P1.EQS."LIBRARY").OR.(P1.EQS."SSL_TASK")
614 $   THEN
615 $!
616 $!    A Valid Arguement.
617 $!
618 $     BUILDALL = P1
619 $!
620 $!  Else...
621 $!
622 $   ELSE
623 $!
624 $!    Tell The User We Don't Know What They Want.
625 $!
626 $     WRITE SYS$OUTPUT ""
627 $     WRITE SYS$OUTPUT "The Option ",P1," Is Invalid.  The Valid Options Are:"
628 $     WRITE SYS$OUTPUT ""
629 $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything."
630 $     WRITE SYS$OUTPUT "    LIBRARY  :  To Compile Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
631 $     WRITE SYS$OUTPUT "    SSL_TASK :  To Compile Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
632 $     WRITE SYS$OUTPUT ""
633 $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
634 $     WRITE SYS$OUTPUT ""
635 $     WRITE SYS$OUTPUT "        AXP  :  Alpha Architecture."
636 $     WRITE SYS$OUTPUT "        VAX  :  VAX Architecture."
637 $     WRITE SYS$OUTPUT ""
638 $!
639 $!    Time To EXIT.
640 $!
641 $     EXIT
642 $!
643 $!  End The Valid Arguement Check.
644 $!
645 $   ENDIF
646 $!
647 $! End The P1 Check.
648 $!
649 $ ENDIF
650 $!
651 $! Check To See If P2 Is Blank.
652 $!
653 $ p2 = "NORSAREF"
654 $ IF (P2.EQS."NORSAREF")
655 $ THEN
656 $!
657 $!   P2 Is NORSAREF, So Compile With The Regular RSA Libraries.
658 $!
659 $    RSAREF = "FALSE"
660 $!
661 $! Else...
662 $!
663 $ ELSE
664 $!
665 $!  Check To See If We Are To Use The RSAREF Library.
666 $!
667 $   IF (P2.EQS."RSAREF")
668 $   THEN
669 $!
670 $!    Check To Make Sure We Have The RSAREF Source Code Directory.
671 $!
672 $     IF (F$SEARCH("SYS$DISK:[-.RSAREF]SOURCE.DIR").EQS."")
673 $     THEN
674 $!
675 $!      We Don't Have The RSAREF Souce Code Directory, So Tell The
676 $!      User This.
677 $!
678 $       WRITE SYS$OUTPUT ""
679 $       WRITE SYS$OUTPUT "It appears that you don't have the RSAREF Souce Code."
680 $       WRITE SYS$OUTPUT "You need to go to 'ftp://ftp.rsa.com/rsaref'.  You have to"
681 $       WRITE SYS$OUTPUT "get the '.tar-Z' file as the '.zip' file dosen't have the"
682 $       WRITE SYS$OUTPUT "directory structure stored.  You have to extract the file"
683 $       WRITE SYS$OUTPUT "into the [.RSAREF] directory under the root directory"
684 $       WRITE SYS$OUTPUT "as that is where the scripts will look for the files."
685 $       WRITE SYS$OUTPUT ""
686 $!
687 $!      Time To Exit.
688 $!
689 $       EXIT
690 $!
691 $!    Else, Compile Using The RSAREF Library.
692 $!
693 $     ELSE
694 $       RSAREF = "TRUE"
695 $     ENDIF
696 $   ELSE 
697 $!
698 $!    They Entered An Invalid Option..
699 $!
700 $     WRITE SYS$OUTPUT ""
701 $     WRITE SYS$OUTPUT "The Option ",P2," Is Invalid.  The Valid Options Are:"
702 $     WRITE SYS$OUTPUT ""
703 $     WRITE SYS$OUTPUT "     RSAREF   :  Compile With The RSAREF Library."
704 $     WRITE SYS$OUTPUT "     NORSAREF :  Compile With The Regular RSA Library."
705 $     WRITE SYS$OUTPUT ""
706 $!
707 $!    Time To EXIT.
708 $!
709 $     EXIT
710 $!
711 $!  End The Valid Arguement Check.
712 $!
713 $   ENDIF
714 $!
715 $! End The P2 Check.
716 $!
717 $ ENDIF
718 $!
719 $! Check To See If P3 Is Blank.
720 $!
721 $ IF (P3.EQS."NODEBUG")
722 $ THEN
723 $!
724 $!   P3 Is NODEBUG, So Compile Without Debugger Information.
725 $!
726 $    DEBUGGER  = "NODEBUG"
727 $    TRACEBACK = "NOTRACEBACK" 
728 $    GCC_OPTIMIZE = "OPTIMIZE"
729 $    CC_OPTIMIZE = "OPTIMIZE"
730 $    WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
731 $    WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
732 $!
733 $! Else...
734 $!
735 $ ELSE
736 $!
737 $!  Check To See If We Are To Compile With Debugger Information.
738 $!
739 $   IF (P3.EQS."DEBUG")
740 $   THEN
741 $!
742 $!    Compile With Debugger Information.
743 $!
744 $     DEBUGGER  = "DEBUG"
745 $     TRACEBACK = "TRACEBACK"
746 $     GCC_OPTIMIZE = "NOOPTIMIZE"
747 $     CC_OPTIMIZE = "NOOPTIMIZE"
748 $     WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
749 $     WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
750 $   ELSE
751 $!
752 $!    Tell The User Entered An Invalid Option..
753 $!
754 $     WRITE SYS$OUTPUT ""
755 $     WRITE SYS$OUTPUT "The Option ",P3," Is Invalid.  The Valid Options Are:"
756 $     WRITE SYS$OUTPUT ""
757 $     WRITE SYS$OUTPUT "    DEBUG    :  Compile With The Debugger Information."
758 $     WRITE SYS$OUTPUT "    NODEBUG  :  Compile Without The Debugger Information."
759 $     WRITE SYS$OUTPUT ""
760 $!
761 $!    Time To EXIT.
762 $!
763 $     EXIT
764 $!
765 $!  End The Valid Arguement Check.
766 $!
767 $   ENDIF
768 $!
769 $! End The P3 Check.
770 $!
771 $ ENDIF
772 $!
773 $! Special Threads For OpenVMS v7.1 Or Later
774 $!
775 $! Written By:  Richard Levitte
776 $!              richard@levitte.org
777 $!
778 $!
779 $! Check To See If We Have A Option For P6.
780 $!
781 $ IF (P6.EQS."")
782 $ THEN
783 $!
784 $!  Get The Version Of VMS We Are Using.
785 $!
786 $   ISSEVEN :=
787 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
788 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
789 $!
790 $!  Check To See If The VMS Version Is v7.1 Or Later.
791 $!
792 $   IF (TMP.GE.71)
793 $   THEN
794 $!
795 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
796 $!
797 $     ISSEVEN := ,PTHREAD_USE_D4
798 $!
799 $!  End The VMS Version Check.
800 $!
801 $   ENDIF
802 $!
803 $! End The P6 Check.
804 $!
805 $ ENDIF
806 $!
807 $! Check To See If P4 Is Blank.
808 $!
809 $ IF (P4.EQS."")
810 $ THEN
811 $!
812 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
813 $!  Find Out Which One To Use.
814 $!
815 $!  Check To See If We Have GNU C.
816 $!
817 $   IF (F$TRNLNM("GNU_CC").NES."")
818 $   THEN
819 $!
820 $!    Looks Like GNUC, Set To Use GNUC.
821 $!
822 $     P4 = "GNUC"
823 $!
824 $!  End The GNU C Compiler Check.
825 $!
826 $   ELSE
827 $!
828 $!  Check To See If We Have VAXC Or DECC.
829 $!
830 $     IF (ARCH.EQS."AXP").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
831 $     THEN 
832 $!
833 $!      Looks Like DECC, Set To Use DECC.
834 $!
835 $       P4 = "DECC"
836 $!
837 $!      Else...
838 $!
839 $     ELSE
840 $!
841 $!      Looks Like VAXC, Set To Use VAXC.
842 $!
843 $       P4 = "VAXC"
844 $!
845 $!    End The VAXC Compiler Check.
846 $!
847 $     ENDIF
848 $!
849 $!  End The DECC & VAXC Compiler Check.
850 $!
851 $   ENDIF
852 $!
853 $!  End The Compiler Check.
854 $!
855 $ ENDIF
856 $!
857 $! Check To See If We Have A Option For P5.
858 $!
859 $ IF (P5.EQS."")
860 $ THEN
861 $!
862 $!  Find out what socket library we have available
863 $!
864 $   IF F$PARSE("SOCKETSHR:") .NES. ""
865 $   THEN
866 $!
867 $!    We have SOCKETSHR, and it is my opinion that it's the best to use.
868 $!
869 $     P5 = "SOCKETSHR"
870 $!
871 $!    Tell the user
872 $!
873 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
874 $!
875 $!    Else, let's look for something else
876 $!
877 $   ELSE
878 $!
879 $!    Like UCX (the reason to do this before Multinet is that the UCX
880 $!    emulation is easier to use...)
881 $!
882 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. "" -
883          .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" -
884          .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. ""
885 $     THEN
886 $!
887 $!      Last resort: a UCX or UCX-compatible library
888 $!
889 $       P5 = "UCX"
890 $!
891 $!      Tell the user
892 $!
893 $       WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
894 $!
895 $!      That was all...
896 $!
897 $     ENDIF
898 $   ENDIF
899 $ ENDIF
900 $!
901 $! Set Up Initial CC Definitions, Possibly With User Ones
902 $!
903 $ CCDEFS = "TCPIP_TYPE_''P5'"
904 $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS
905 $ CCEXTRAFLAGS = ""
906 $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
907 $ CCDISABLEWARNINGS = "LONGLONGTYPE,LONGLONGSUFX"
908 $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
909         CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS
910 $!
911 $!  Check To See If The User Entered A Valid Paramter.
912 $!
913 $ IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")
914 $ THEN
915 $!
916 $!  Check To See If The User Wanted DECC.
917 $!
918 $   IF (P4.EQS."DECC")
919 $   THEN
920 $!
921 $!    Looks Like DECC, Set To Use DECC.
922 $!
923 $     COMPILER = "DECC"
924 $!
925 $!    Tell The User We Are Using DECC.
926 $!
927 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
928 $!
929 $!    Use DECC...
930 $!
931 $     CC = "CC"
932 $     IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
933          THEN CC = "CC/DECC"
934 $     CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89" + -
935            "/NOLIST/PREFIX=ALL" + -
936            "/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
937 $!
938 $!    Define The Linker Options File Name.
939 $!
940 $     OPT_FILE = "SYS$DISK:[]VAX_DECC_OPTIONS.OPT"
941 $!
942 $!  End DECC Check.
943 $!
944 $   ENDIF
945 $!
946 $!  Check To See If We Are To Use VAXC.
947 $!
948 $   IF (P4.EQS."VAXC")
949 $   THEN
950 $!
951 $!    Looks Like VAXC, Set To Use VAXC.
952 $!
953 $     COMPILER = "VAXC"
954 $!
955 $!    Tell The User We Are Using VAX C.
956 $!
957 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
958 $!
959 $!    Compile Using VAXC.
960 $!
961 $     CC = "CC"
962 $     IF ARCH.EQS."AXP"
963 $     THEN
964 $       WRITE SYS$OUTPUT "There is no VAX C on Alpha!"
965 $       EXIT
966 $     ENDIF
967 $     IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
968 $     CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
969            "/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
970 $     CCDEFS = CCDEFS + ",""VAXC"""
971 $!
972 $!    Define <sys> As SYS$COMMON:[SYSLIB]
973 $!
974 $     DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
975 $!
976 $!    Define The Linker Options File Name.
977 $!
978 $     OPT_FILE = "SYS$DISK:[]VAX_VAXC_OPTIONS.OPT"
979 $!
980 $!  End VAXC Check
981 $!
982 $   ENDIF
983 $!
984 $!  Check To See If We Are To Use GNU C.
985 $!
986 $   IF (P4.EQS."GNUC")
987 $   THEN
988 $!
989 $!    Looks Like GNUC, Set To Use GNUC.
990 $!
991 $     COMPILER = "GNUC"
992 $!
993 $!    Tell The User We Are Using GNUC.
994 $!
995 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
996 $!
997 $!    Use GNU C...
998 $!
999 $     IF F$TYPE(GCC) .EQS. "" THEN GCC := GCC
1000 $     CC = GCC+"/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
1001            "/INCLUDE=(SYS$DISK:[-.CRYPTO],SYS$DISK:[-])" + CCEXTRAFLAGS
1002 $!
1003 $!    Define The Linker Options File Name.
1004 $!
1005 $     OPT_FILE = "SYS$DISK:[]VAX_GNUC_OPTIONS.OPT"
1006 $!
1007 $!  End The GNU C Check.
1008 $!
1009 $   ENDIF
1010 $!
1011 $!  Set up default defines
1012 $!
1013 $   CCDEFS = """FLAT_INC=1""," + CCDEFS
1014 $!
1015 $!  Check To See If We Are To Compile With RSAREF Routines.
1016 $!
1017 $   IF (RSAREF.EQS."TRUE")
1018 $   THEN
1019 $!
1020 $!    Compile With RSAREF.
1021 $!
1022 $     CCDEFS = CCDEFS + ",""RSAref=1"""
1023 $!
1024 $!    Tell The User This.
1025 $!
1026 $     WRITE SYS$OUTPUT "Compiling With RSAREF Routines."
1027 $!
1028 $!    Else, We Don't Care.  Compile Without The RSAREF Library.
1029 $!
1030 $   ELSE
1031 $!
1032 $!    Tell The User We Are Compile Without The RSAREF Routines.
1033 $!
1034 $     WRITE SYS$OUTPUT "Compiling Without The RSAREF Routines.
1035 $!
1036 $!  End The RSAREF Check.
1037 $!
1038 $   ENDIF
1039 $!
1040 $!  Finish up the definition of CC.
1041 $!
1042 $   IF COMPILER .EQS. "DECC"
1043 $   THEN
1044 $     IF CCDISABLEWARNINGS .EQS. ""
1045 $     THEN
1046 $       CC4DISABLEWARNINGS = "DOLLARID"
1047 $     ELSE
1048 $       CC4DISABLEWARNINGS = CCDISABLEWARNINGS + ",DOLLARID"
1049 $       CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
1050 $     ENDIF
1051 $     CC4DISABLEWARNINGS = "/WARNING=(DISABLE=(" + CC4DISABLEWARNINGS + "))"
1052 $   ELSE
1053 $     CCDISABLEWARNINGS = ""
1054 $     CC4DISABLEWARNINGS = ""
1055 $   ENDIF
1056 $   CC2 = CC + "/DEFINE=(" + CCDEFS + ",_POSIX_C_SOURCE)" + CCDISABLEWARNINGS
1057 $   CC3 = CC + "/DEFINE=(" + CCDEFS + ISSEVEN + ")" + CCDISABLEWARNINGS
1058 $   CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
1059 $   IF COMPILER .EQS. "DECC"
1060 $   THEN
1061 $     CC4 = CC - CCDISABLEWARNINGS + CC4DISABLEWARNINGS
1062 $     CC5 = CC3 - CCDISABLEWARNINGS + CC4DISABLEWARNINGS
1063 $   ELSE
1064 $     CC4 = CC
1065 $     CC5 = CC3
1066 $   ENDIF
1067 $!
1068 $!  Show user the result
1069 $!
1070 $   WRITE/SYMBOL SYS$OUTPUT "Main Compiling Command: ",CC
1071 $!
1072 $!  Else The User Entered An Invalid Arguement.
1073 $!
1074 $ ELSE
1075 $!
1076 $!  Tell The User We Don't Know What They Want.
1077 $!
1078 $   WRITE SYS$OUTPUT ""
1079 $   WRITE SYS$OUTPUT "The Option ",P4," Is Invalid.  The Valid Options Are:"
1080 $   WRITE SYS$OUTPUT ""
1081 $   WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
1082 $   WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
1083 $   WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
1084 $   WRITE SYS$OUTPUT ""
1085 $!
1086 $!  Time To EXIT.
1087 $!
1088 $   EXIT
1089 $ ENDIF
1090 $!
1091 $! Time to check the contents, and to make sure we get the correct library.
1092 $!
1093 $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" -
1094      .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE"
1095 $ THEN
1096 $!
1097 $!  Check to see if SOCKETSHR was chosen
1098 $!
1099 $   IF P5.EQS."SOCKETSHR"
1100 $   THEN
1101 $!
1102 $!    Set the library to use SOCKETSHR
1103 $!
1104 $     TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
1105 $!
1106 $!    Done with SOCKETSHR
1107 $!
1108 $   ENDIF
1109 $!
1110 $!  Check to see if MULTINET was chosen
1111 $!
1112 $   IF P5.EQS."MULTINET"
1113 $   THEN
1114 $!
1115 $!    Set the library to use UCX emulation.
1116 $!
1117 $     P5 = "UCX"
1118 $!
1119 $!    Done with MULTINET
1120 $!
1121 $   ENDIF
1122 $!
1123 $!  Check to see if UCX was chosen
1124 $!
1125 $   IF P5.EQS."UCX"
1126 $   THEN
1127 $!
1128 $!    Set the library to use UCX.
1129 $!
1130 $     TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
1131 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. ""
1132 $     THEN
1133 $       TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT/OPT"
1134 $     ELSE
1135 $       IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN -
1136           TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT/OPT"
1137 $     ENDIF
1138 $!
1139 $!    Done with UCX
1140 $!
1141 $   ENDIF
1142 $!
1143 $!  Check to see if TCPIP was chosen
1144 $!
1145 $   IF P5.EQS."TCPIP"
1146 $   THEN
1147 $!
1148 $!    Set the library to use TCPIP (post UCX).
1149 $!
1150 $     TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
1151 $!
1152 $!    Done with TCPIP
1153 $!
1154 $   ENDIF
1155 $!
1156 $!  Check to see if NONE was chosen
1157 $!
1158 $   IF P5.EQS."NONE"
1159 $   THEN
1160 $!
1161 $!    Do not use a TCPIP library.
1162 $!
1163 $     TCPIP_LIB = ""
1164 $!
1165 $!    Done with NONE
1166 $!
1167 $   ENDIF
1168 $!
1169 $!  Print info
1170 $!
1171 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
1172 $!
1173 $!  Else The User Entered An Invalid Arguement.
1174 $!
1175 $ ELSE
1176 $!
1177 $!  Tell The User We Don't Know What They Want.
1178 $!
1179 $   WRITE SYS$OUTPUT ""
1180 $   WRITE SYS$OUTPUT "The Option ",P5," Is Invalid.  The Valid Options Are:"
1181 $   WRITE SYS$OUTPUT ""
1182 $   WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
1183 $   WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
1184 $   WRITE SYS$OUTPUT "    TCPIP      :  To link with TCPIP (post UCX) TCP/IP library."
1185 $   WRITE SYS$OUTPUT ""
1186 $!
1187 $!  Time To EXIT.
1188 $!
1189 $   EXIT
1190 $!
1191 $!  Done with TCP/IP libraries
1192 $!
1193 $ ENDIF
1194 $!
1195 $!  Time To RETURN...
1196 $!
1197 $ RETURN
1198 $!
1199 $ INITIALISE:
1200 $!
1201 $! Save old value of the logical name OPENSSL
1202 $!
1203 $ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE")
1204 $!
1205 $! Save directory information
1206 $!
1207 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
1208 $ __HERE = F$EDIT(__HERE,"UPCASE")
1209 $ __TOP = __HERE - "SSL]"
1210 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
1211 $!
1212 $! Set up the logical name OPENSSL to point at the include directory
1213 $!
1214 $ DEFINE OPENSSL/NOLOG '__INCLUDE'
1215 $!
1216 $! Done
1217 $!
1218 $ RETURN
1219 $!
1220 $ CLEANUP:
1221 $!
1222 $! Restore the logical name OPENSSL if it had a value
1223 $!
1224 $ IF __SAVE_OPENSSL .EQS. ""
1225 $ THEN
1226 $   DEASSIGN OPENSSL
1227 $ ELSE
1228 $   DEFINE/NOLOG OPENSSL '__SAVE_OPENSSL'
1229 $ ENDIF
1230 $!
1231 $! Done
1232 $!
1233 $ RETURN