a1806c82ae6edc617717094d77469bd0bfe65118
[openssl.git] / engines / makeengines.com
1 $!
2 $!  MAKEENGINES.COM
3 $!  Written By:  Richard Levitte
4 $!               richard@levitte.org
5 $!
6 $!  This command file compiles and creates the various engines in form
7 $!  of shared images.  They are placed in [.xxx.EXE.ENGINES], where "xxx"
8 $!  is either AXP or VAX depending on your hardware.
9 $!
10 $!  P1  if this is ENGINES or ALL, the engines will build, otherwise not.
11 $!
12 $!  P2  DEBUG or NODEBUG to compile with or without debugger information.
13 $!
14 $!  P3  VAXC            for VAX C
15 $!      DECC            for DEC C
16 $!      GNUC            for GNU C (untested)
17 $!
18 $!  P4  if defined, sets the TCP/IP libraries to use.  UCX or TCPIP is
19 $!      used by default since most other implementations come with a
20 $!      compatibility library.  The value must be one of the following:
21 $!
22 $!      UCX             for UCX
23 $!      SOCKETSHR       for SOCKETSHR+NETLIB
24 $!      TCPIP           for TCPIP (post UCX)
25 $!
26 $!  P5  if defined, tells the compiler not to use special threads.
27 $!
28 $!  P6  if defined, denotes which engines to build.  If not defined,
29 $!      all available engines are built.
30 $!
31 $!-----------------------------------------------------------------------------
32 $!
33 $! Set the names of the engines we want to build
34 $!
35 $ ENGINES = "," + P6
36 $ IF ENGINES .EQS. "," THEN -
37         ENGINES = ",4758cca,aep,atalla,cswift,chil,nuron,sureware,ubsec,padlock,ccgost"
38 $!
39 $! Set the default TCP/IP library to link against if needed
40 $!
41 $ TCPIP_LIB = ""
42 $!
43 $! Set the architecture name
44 $!
45 $ ARCH := VAX
46 $ IF F$GETSYI("CPU") .GE. 128 THEN ARCH := AXP
47 $!
48 $! Set the goal directories, and creat them if necessary
49 $!
50 $ OBJ_DIR := SYS$DISK:[-.'ARCH'.OBJ.ENGINES]
51 $ EXE_DIR := SYS$DISK:[-.'ARCH'.EXE.ENGINES]
52 $ IF F$PARSE(OBJ_DIR) .EQS. "" THEN CREATE/DIRECTORY 'OBJ_DIR'
53 $ IF F$PARSE(EXE_DIR) .EQS. "" THEN CREATE/DIRECTORY 'EXE_DIR'
54 $!
55 $! Set the goal files, and create them if necessary
56 $!
57 $ CRYPTO_LIB :=SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO.OLB
58 $ CRYPTO_EXE :=SYS$DISK:[-.'ARCH'.EXE.CRYPTO]LIBCRYPTO.EXE
59 $ IF F$SEARCH(CRYPTO_LIB) .EQS. "" THEN LIBRARY/CREATE/OBJECT 'CRYPTO_LIB'
60 $!
61 $! OK, time to check options and initialise
62 $!
63 $ OPT_PHASE = P1
64 $ ACCEPT_PHASE = "ALL,ENGINES"
65 $ OPT_DEBUG = P2
66 $ OPT_COMPILER = P3
67 $ OPT_TCPIP_LIB = P4
68 $ OPT_SPECIAL_THREADS = P5
69 $
70 $ GOSUB CHECK_OPTIONS
71 $ GOSUB INITIALISE
72 $ GOSUB CHECK_OPT_FILE
73 $!
74 $! Define what goes into each engine
75 $!
76 $ ENGINE_ = ""
77 $ IF ARCH .EQS. "VAX"
78 $ THEN
79 $   ENGINE_ = "engine_vector.mar"
80 $   EXTRA_OBJ := ,'OBJ_DIR'ENGINE_VECTOR.OBJ
81 $ ENDIF
82 $ ENGINE_4758CCA = "e_4758cca"
83 $ ENGINE_aep = "e_aep"
84 $ ENGINE_atalla = "e_atalla"
85 $ ENGINE_cswift = "e_cswift"
86 $ ENGINE_chil = "e_chil"
87 $ ENGINE_nuron = "e_nuron"
88 $ ENGINE_sureware = "e_sureware"
89 $ ENGINE_ubsec = "e_ubsec"
90 $ ENGINE_ubsec = "e_padlock"
91 $
92 $ ENGINE_ccgost_SUBDIR = "ccgost"
93 $ ENGINE_ccgost = "e_gost_err,gost2001_keyx,gost2001,gost89,gost94_keyx,"+ -
94                   "gost_ameth,gost_asn1,gost_crypt,gost_ctl,gost_eng,"+ -
95                   "gosthash,gost_keywrap,gost_md,gost_params,gost_pmeth,"+ -
96                   "gost_sign"
97 $!
98 $! Define which programs need to be linked with a TCP/IP library
99 $!
100 $ TCPIP_ENGINES = ",,"
101 $ IF COMPILER .EQS. "VAXC" THEN -
102      TCPIP_ENGINES = ",,"
103 $!
104 $! Set up two loops, one that keeps track of the engines,
105 $! and one that keeps track of all the files going into
106 $! the current engine.
107 $!
108 $! Here's the start of the engine loop.
109 $!
110 $ ENGINE_COUNTER = 0
111 $ ENGINE_NEXT:
112 $!
113 $! Extract the current engine name, and if we've reached the end, stop
114 $!
115 $ ENGINE_NAME = F$ELEMENT(ENGINE_COUNTER,",",ENGINES)
116 $ IF (ENGINE_NAME.EQS.",") THEN GOTO ENGINE_DONE
117 $!
118 $ ENGINE_COUNTER = ENGINE_COUNTER + 1
119 $!
120 $! Set up the engine library names.
121 $!
122 $ LIB_ENGINE = "ENGINE_" + ENGINE_NAME
123 $!
124 $! Check if the library module name actually is defined
125 $!
126 $ IF F$TYPE('LIB_ENGINE') .EQS. ""
127 $ THEN
128 $   WRITE SYS$ERROR ""
129 $   WRITE SYS$ERROR "The module ",ENGINE_NAME," does not exist.  Continuing..."
130 $   WRITE SYS$ERROR ""
131 $   GOTO ENGINE_NEXT
132 $ ENDIF
133 $!
134 $! Talk to the user
135 $!
136 $ IF ENGINE_NAME .NES. ""
137 $ THEN
138 $   WRITE SYS$OUTPUT "Compiling The ",ENGINE_NAME," Library Files. (",BUILDALL,")"
139 $ ELSE
140 $   WRITE SYS$OUTPUT "Compiling Support Files. (",BUILDALL,")"
141 $ ENDIF
142 $!
143 $!  Create a .OPT file for the object files
144 $!
145 $ OPEN/WRITE OBJECTS 'EXE_DIR''ENGINE_NAME'.OPT
146 $!
147 $! Here's the start of per-engine module loop.
148 $!
149 $ FILE_COUNTER = 0
150 $ FILE_NEXT:
151 $!
152 $! Extract the file name from the file list, and if we've reached the end, stop
153 $!
154 $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",'LIB_ENGINE')
155 $ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
156 $!
157 $ FILE_COUNTER = FILE_COUNTER + 1
158 $!
159 $ IF FILE_NAME .EQS. "" THEN GOTO FILE_NEXT
160 $!
161 $! Set up the source and object reference
162 $!
163 $ IF F$TYPE('LIB_ENGINE'_SUBDIR) .EQS. ""
164 $ THEN
165 $     SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[].C",,,"SYNTAX_ONLY")
166 $ ELSE
167 $     SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[."+'LIB_ENGINE'_SUBDIR+"].C",,,"SYNTAX_ONLY")
168 $ ENDIF
169 $ OBJECT_FILE = OBJ_DIR + F$PARSE(FILE_NAME,,,"NAME","SYNTAX_ONLY") + ".OBJ"
170 $!
171 $! If we get some problem, we just go on trying to build the next module.
172 $ ON WARNING THEN GOTO FILE_NEXT
173 $!
174 $! Check if the module we want to compile is actually there.
175 $!
176 $ IF F$SEARCH(SOURCE_FILE) .EQS. ""
177 $ THEN
178 $   WRITE SYS$OUTPUT ""
179 $   WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Doesn't Exist."
180 $   WRITE SYS$OUTPUT ""
181 $   GOTO EXIT
182 $ ENDIF
183 $!
184 $! Talk to the user.
185 $!
186 $ WRITE SYS$OUTPUT "    ",FILE_NAME,""
187 $!
188 $! Do the dirty work.
189 $!
190 $ ON ERROR THEN GOTO FILE_NEXT
191 $ IF FILE_NAME - ".MAR" .NES. FILE_NAME
192 $ THEN
193 $   MACRO/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
194 $ ELSE
195 $   CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
196 $ ENDIF
197 $ WRITE OBJECTS OBJECT_FILE
198 $!
199 $! Next file
200 $!
201 $ GOTO FILE_NEXT
202 $!
203 $ FILE_DONE:
204 $ CLOSE OBJECTS
205 $!
206 $! Do not link the support files.
207 $!
208 $ IF ENGINE_NAME .EQS. "" THEN GOTO ENGINE_DONE
209 $!
210 $! Now, there are two ways to handle this.  We can either build 
211 $! shareable images or stick the engine object file into libcrypto.
212 $! For now, the latter is NOT supported.
213 $!
214 $!!!!! LIBRARY/REPLACE 'CRYPTO_LIB' 'OBJECT_FILE'
215 $!
216 $! For shareable libraries, we need to do things a little differently
217 $! depending on if we link with a TCP/IP library or not.
218 $!
219 $ ENGINE_OPT := SYS$DISK:[]'ARCH'.OPT
220 $ IF TCPIP_LIB .NES. ""
221 $ THEN
222 $   LINK/'DEBUGGER'/'TRACEBACK' /SHARE='EXE_DIR''ENGINE_NAME'.EXE -
223         'EXE_DIR''ENGINE_NAME'.OPT/OPTION'EXTRA_OBJ', -
224         'CRYPTO_LIB'/LIBRARY, -
225         'ENGINE_OPT'/OPTION,'TCPIP_LIB','OPT_FILE'/OPTION
226 $ ELSE
227 $   LINK/'DEBUGGER'/'TRACEBACK' /SHARE='EXE_DIR''ENGINE_NAME'.EXE -
228         'EXE_DIR''ENGINE_NAME'.OPT/OPTION'EXTRA_OBJ', -
229         'CRYPTO_LIB'/LIBRARY, -
230         'ENGINE_OPT'/OPTION,'OPT_FILE'/OPTION
231 $ ENDIF
232 $!
233 $! Next engine
234 $!
235 $ GOTO ENGINE_NEXT
236 $!
237 $ ENGINE_DONE:
238 $!
239 $! Talk to the user
240 $!
241 $ WRITE SYS$OUTPUT "All Done..."
242 $ EXIT:
243 $ GOSUB CLEANUP
244 $ EXIT
245 $!
246 $! Check For The Link Option FIle.
247 $!
248 $ CHECK_OPT_FILE:
249 $!
250 $! Check To See If We Need To Make A VAX C Option File.
251 $!
252 $ IF (COMPILER.EQS."VAXC")
253 $ THEN
254 $!
255 $!  Check To See If We Already Have A VAX C Linker Option File.
256 $!
257 $   IF (F$SEARCH(OPT_FILE).EQS."")
258 $   THEN
259 $!
260 $!    We Need A VAX C Linker Option File.
261 $!
262 $     CREATE 'OPT_FILE'
263 $DECK
264 !
265 ! Default System Options File To Link Agianst 
266 ! The Sharable VAX C Runtime Library.
267 !
268 SYS$SHARE:VAXCRTL.EXE/SHARE
269 $EOD
270 $!
271 $!  End The Option File Check.
272 $!
273 $   ENDIF
274 $!
275 $! End The VAXC Check.
276 $!
277 $ ENDIF
278 $!
279 $! Check To See If We Need A GNU C Option File.
280 $!
281 $ IF (COMPILER.EQS."GNUC")
282 $ THEN
283 $!
284 $!  Check To See If We Already Have A GNU C Linker Option File.
285 $!
286 $   IF (F$SEARCH(OPT_FILE).EQS."")
287 $   THEN
288 $!
289 $!    We Need A GNU C Linker Option File.
290 $!
291 $     CREATE 'OPT_FILE'
292 $DECK
293 !
294 ! Default System Options File To Link Agianst 
295 ! The Sharable C Runtime Library.
296 !
297 GNU_CC:[000000]GCCLIB/LIBRARY
298 SYS$SHARE:VAXCRTL/SHARE
299 $EOD
300 $!
301 $!  End The Option File Check.
302 $!
303 $   ENDIF
304 $!
305 $! End The GNU C Check.
306 $!
307 $ ENDIF
308 $!
309 $! Check To See If We Need A DEC C Option File.
310 $!
311 $ IF (COMPILER.EQS."DECC")
312 $ THEN
313 $!
314 $!  Check To See If We Already Have A DEC C Linker Option File.
315 $!
316 $   IF (F$SEARCH(OPT_FILE).EQS."")
317 $   THEN
318 $!
319 $!    Figure Out If We Need An AXP Or A VAX Linker Option File.
320 $!
321 $     IF ARCH .EQS. "VAX"
322 $     THEN
323 $!
324 $!      We Need A DEC C Linker Option File For VAX.
325 $!
326 $       CREATE 'OPT_FILE'
327 $DECK
328 !
329 ! Default System Options File To Link Agianst 
330 ! The Sharable DEC C Runtime Library.
331 !
332 SYS$SHARE:DECC$SHR.EXE/SHARE
333 $EOD
334 $!
335 $!    Else...
336 $!
337 $     ELSE
338 $!
339 $!      Create The AXP Linker Option File.
340 $!
341 $       CREATE 'OPT_FILE'
342 $DECK
343 !
344 ! Default System Options File For AXP To Link Agianst 
345 ! The Sharable C Runtime Library.
346 !
347 SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
348 SYS$SHARE:CMA$OPEN_RTL/SHARE
349 $EOD
350 $!
351 $!    End The VAX/AXP DEC C Option File Check.
352 $!
353 $     ENDIF
354 $!
355 $!  End The Option File Search.
356 $!
357 $   ENDIF
358 $!
359 $! End The DEC C Check.
360 $!
361 $ ENDIF
362 $!
363 $!  Tell The User What Linker Option File We Are Using.
364 $!
365 $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."     
366 $!
367 $! Time To RETURN.
368 $!
369 $ RETURN
370 $!
371 $! Check The User's Options.
372 $!
373 $ CHECK_OPTIONS:
374 $!
375 $! Check To See If OPT_PHASE Is Blank.
376 $!
377 $ IF (OPT_PHASE.EQS."ALL")
378 $ THEN
379 $!
380 $!   OPT_PHASE Is Blank, So Build Everything.
381 $!
382 $    BUILDALL = "ALL"
383 $!
384 $! Else...
385 $!
386 $ ELSE
387 $!
388 $!  Else, Check To See If OPT_PHASE Has A Valid Arguement.
389 $!
390 $   IF ("," + ACCEPT_PHASE + ",") - ("," + OPT_PHASE + ",") -
391        .NES. ("," + ACCEPT_PHASE + ",")
392 $   THEN
393 $!
394 $!    A Valid Arguement.
395 $!
396 $     BUILDALL = OPT_PHASE
397 $!
398 $!  Else...
399 $!
400 $   ELSE
401 $!
402 $!    Tell The User We Don't Know What They Want.
403 $!
404 $     WRITE SYS$OUTPUT ""
405 $     WRITE SYS$OUTPUT "The option ",OPT_PHASE," is invalid.  The valid options are:"
406 $     WRITE SYS$OUTPUT ""
407 $     IF ("," + ACCEPT_PHASE + ",") - ",ALL," -
408         .NES. ("," + ACCEPT_PHASE + ",") THEN -
409         WRITE SYS$OUTPUT "    ALL      :  just build everything."
410 $     IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," -
411         .NES. ("," + ACCEPT_PHASE + ",") THEN -
412         WRITE SYS$OUTPUT "    ENGINES  :  to compile just the [.xxx.EXE.ENGINES]*.EXE hareable images."
413 $     WRITE SYS$OUTPUT ""
414 $     WRITE SYS$OUTPUT " where 'xxx' stands for:"
415 $     WRITE SYS$OUTPUT ""
416 $     WRITE SYS$OUTPUT "        AXP  :  Alpha architecture."
417 $     WRITE SYS$OUTPUT "        VAX  :  VAX architecture."
418 $     WRITE SYS$OUTPUT ""
419 $!
420 $!    Time To EXIT.
421 $!
422 $     EXIT
423 $!
424 $!  End The Valid Arguement Check.
425 $!
426 $   ENDIF
427 $!
428 $! End The OPT_PHASE Check.
429 $!
430 $ ENDIF
431 $!
432 $! Check To See If OPT_DEBUG Is Blank.
433 $!
434 $ IF (OPT_DEBUG.EQS."NODEBUG")
435 $ THEN
436 $!
437 $!   OPT_DEBUG Is NODEBUG, So Compile Without The Debugger Information.
438 $!
439 $    DEBUGGER = "NODEBUG"
440 $    TRACEBACK = "NOTRACEBACK" 
441 $    GCC_OPTIMIZE = "OPTIMIZE"
442 $    CC_OPTIMIZE = "OPTIMIZE"
443 $    MACRO_OPTIMIZE = "OPTIMIZE"
444 $    WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
445 $    WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
446 $ ELSE
447 $!
448 $!  Check To See If We Are To Compile With Debugger Information.
449 $!
450 $   IF (OPT_DEBUG.EQS."DEBUG")
451 $   THEN
452 $!
453 $!    Compile With Debugger Information.
454 $!
455 $     DEBUGGER = "DEBUG"
456 $     TRACEBACK = "TRACEBACK"
457 $     GCC_OPTIMIZE = "NOOPTIMIZE"
458 $     CC_OPTIMIZE = "NOOPTIMIZE"
459 $     MACRO_OPTIMIZE = "NOOPTIMIZE"
460 $     WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
461 $     WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
462 $   ELSE 
463 $!
464 $!    They Entered An Invalid Option..
465 $!
466 $     WRITE SYS$OUTPUT ""
467 $     WRITE SYS$OUTPUT "The Option ",OPT_DEBUG," Is Invalid.  The Valid Options Are:"
468 $     WRITE SYS$OUTPUT ""
469 $     WRITE SYS$OUTPUT "     DEBUG   :  Compile With The Debugger Information."
470 $     WRITE SYS$OUTPUT "     NODEBUG :  Compile Without The Debugger Information."
471 $     WRITE SYS$OUTPUT ""
472 $!
473 $!    Time To EXIT.
474 $!
475 $     EXIT
476 $!
477 $!  End The Valid Arguement Check.
478 $!
479 $   ENDIF
480 $!
481 $! End The OPT_DEBUG Check.
482 $!
483 $ ENDIF
484 $!
485 $! Special Threads For OpenVMS v7.1 Or Later
486 $!
487 $! Written By:  Richard Levitte
488 $!              richard@levitte.org
489 $!
490 $!
491 $! Check To See If We Have A Option For OPT_SPECIAL_THREADS.
492 $!
493 $ IF (OPT_SPECIAL_THREADS.EQS."")
494 $ THEN
495 $!
496 $!  Get The Version Of VMS We Are Using.
497 $!
498 $   ISSEVEN :=
499 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
500 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
501 $!
502 $!  Check To See If The VMS Version Is v7.1 Or Later.
503 $!
504 $   IF (TMP.GE.71)
505 $   THEN
506 $!
507 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
508 $!
509 $     ISSEVEN := ,PTHREAD_USE_D4
510 $!
511 $!  End The VMS Version Check.
512 $!
513 $   ENDIF
514 $!
515 $! End The OPT_SPECIAL_THREADS Check.
516 $!
517 $ ENDIF
518 $!
519 $! Check To See If OPT_COMPILER Is Blank.
520 $!
521 $ IF (OPT_COMPILER.EQS."")
522 $ THEN
523 $!
524 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
525 $!  Find Out Which One To Use.
526 $!
527 $!  Check To See If We Have GNU C.
528 $!
529 $   IF (F$TRNLNM("GNU_CC").NES."")
530 $   THEN
531 $!
532 $!    Looks Like GNUC, Set To Use GNUC.
533 $!
534 $     OPT_COMPILER = "GNUC"
535 $!
536 $!  Else...
537 $!
538 $   ELSE
539 $!
540 $!    Check To See If We Have VAXC Or DECC.
541 $!
542 $     IF (ARCH.EQS."AXP").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
543 $     THEN 
544 $!
545 $!      Looks Like DECC, Set To Use DECC.
546 $!
547 $       OPT_COMPILER = "DECC"
548 $!
549 $!    Else...
550 $!
551 $     ELSE
552 $!
553 $!      Looks Like VAXC, Set To Use VAXC.
554 $!
555 $       OPT_COMPILER = "VAXC"
556 $!
557 $!    End The VAXC Compiler Check.
558 $!
559 $     ENDIF
560 $!
561 $!  End The DECC & VAXC Compiler Check.
562 $!
563 $   ENDIF
564 $!
565 $!  End The Compiler Check.
566 $!
567 $ ENDIF
568 $!
569 $! Check To See If We Have A Option For OPT_TCPIP_LIB.
570 $!
571 $ IF (OPT_TCPIP_LIB.EQS."")
572 $ THEN
573 $!
574 $!  Find out what socket library we have available
575 $!
576 $   IF F$PARSE("SOCKETSHR:") .NES. ""
577 $   THEN
578 $!
579 $!    We have SOCKETSHR, and it is my opinion that it's the best to use.
580 $!
581 $     OPT_TCPIP_LIB = "SOCKETSHR"
582 $!
583 $!    Tell the user
584 $!
585 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
586 $!
587 $!    Else, let's look for something else
588 $!
589 $   ELSE
590 $!
591 $!    Like UCX (the reason to do this before Multinet is that the UCX
592 $!    emulation is easier to use...)
593 $!
594 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. "" -
595          .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" -
596          .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. ""
597 $     THEN
598 $!
599 $!      Last resort: a UCX or UCX-compatible library
600 $!
601 $       OPT_TCPIP_LIB = "UCX"
602 $!
603 $!      Tell the user
604 $!
605 $       WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
606 $!
607 $!      That was all...
608 $!
609 $     ENDIF
610 $   ENDIF
611 $ ENDIF
612 $!
613 $! Set Up Initial CC Definitions, Possibly With User Ones
614 $!
615 $ CCDEFS = "TCPIP_TYPE_''OPT_TCPIP_LIB',DSO_VMS"
616 $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS
617 $ CCEXTRAFLAGS = ""
618 $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
619 $ CCDISABLEWARNINGS = "LONGLONGTYPE,LONGLONGSUFX"
620 $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
621         CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS
622 $!
623 $!  Check To See If The User Entered A Valid Paramter.
624 $!
625 $ IF (OPT_COMPILER.EQS."VAXC").OR.(OPT_COMPILER.EQS."DECC").OR.(OPT_COMPILER.EQS."GNUC")
626 $ THEN
627 $!
628 $!    Check To See If The User Wanted DECC.
629 $!
630 $   IF (OPT_COMPILER.EQS."DECC")
631 $   THEN
632 $!
633 $!    Looks Like DECC, Set To Use DECC.
634 $!
635 $     COMPILER = "DECC"
636 $!
637 $!    Tell The User We Are Using DECC.
638 $!
639 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
640 $!
641 $!    Use DECC...
642 $!
643 $     CC = "CC"
644 $     IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
645          THEN CC = "CC/DECC"
646 $     CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89" + -
647            "/NOLIST/PREFIX=ALL" + -
648            "/INCLUDE=(SYS$DISK:[],SYS$DISK:[.VENDOR_DEFNS])" + -
649            CCEXTRAFLAGS
650 $!
651 $!    Define The Linker Options File Name.
652 $!
653 $     OPT_FILE = "SYS$DISK:[]VAX_DECC_OPTIONS.OPT"
654 $!
655 $!  End DECC Check.
656 $!
657 $   ENDIF
658 $!
659 $!  Check To See If We Are To Use VAXC.
660 $!
661 $   IF (OPT_COMPILER.EQS."VAXC")
662 $   THEN
663 $!
664 $!    Looks Like VAXC, Set To Use VAXC.
665 $!
666 $     COMPILER = "VAXC"
667 $!
668 $!    Tell The User We Are Using VAX C.
669 $!
670 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
671 $!
672 $!    Compile Using VAXC.
673 $!
674 $     CC = "CC"
675 $     IF ARCH.EQS."AXP"
676 $     THEN
677 $       WRITE SYS$OUTPUT "There is no VAX C on Alpha!"
678 $       EXIT
679 $     ENDIF
680 $     IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
681 $     CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
682            "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.ENGINE.VENDOR_DEFNS])" + -
683            CCEXTRAFLAGS
684 $     CCDEFS = """VAXC""," + CCDEFS
685 $!
686 $!    Define <sys> As SYS$COMMON:[SYSLIB]
687 $!
688 $     DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
689 $!
690 $!    Define The Linker Options File Name.
691 $!
692 $     OPT_FILE = "SYS$DISK:[]VAX_VAXC_OPTIONS.OPT"
693 $!
694 $!  End VAXC Check
695 $!
696 $   ENDIF
697 $!
698 $!  Check To See If We Are To Use GNU C.
699 $!
700 $   IF (OPT_COMPILER.EQS."GNUC")
701 $   THEN
702 $!
703 $!    Looks Like GNUC, Set To Use GNUC.
704 $!
705 $     COMPILER = "GNUC"
706 $!
707 $!    Tell The User We Are Using GNUC.
708 $!
709 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
710 $!
711 $!    Use GNU C...
712 $!
713 $     CC = "GCC/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
714            "/INCLUDE=(SYS$DISK:[],SYS$DISK:[-],SYS$DISK:[.ENGINE.VENDOR_DEFNS])" + -
715            CCEXTRAFLAGS
716 $!
717 $!    Define The Linker Options File Name.
718 $!
719 $     OPT_FILE = "SYS$DISK:[]VAX_GNUC_OPTIONS.OPT"
720 $!
721 $!  End The GNU C Check.
722 $!
723 $   ENDIF
724 $!
725 $!  Set up default defines
726 $!
727 $   CCDEFS = """FLAT_INC=1""," + CCDEFS
728 $!
729 $!  Finish up the definition of CC.
730 $!
731 $   IF COMPILER .EQS. "DECC"
732 $   THEN
733 $     IF CCDISABLEWARNINGS .NES. ""
734 $     THEN
735 $       CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
736 $     ENDIF
737 $   ELSE
738 $     CCDISABLEWARNINGS = ""
739 $   ENDIF
740 $   CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
741 $!
742 $!  Show user the result
743 $!
744 $   WRITE/SYMBOL SYS$OUTPUT "Main C Compiling Command: ",CC
745 $!
746 $!  Else The User Entered An Invalid Arguement.
747 $!
748 $ ELSE
749 $!
750 $!  Tell The User We Don't Know What They Want.
751 $!
752 $   WRITE SYS$OUTPUT ""
753 $   WRITE SYS$OUTPUT "The Option ",OPT_COMPILER," Is Invalid.  The Valid Options Are:"
754 $   WRITE SYS$OUTPUT ""
755 $   WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
756 $   WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
757 $   WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
758 $   WRITE SYS$OUTPUT ""
759 $!
760 $!  Time To EXIT.
761 $!
762 $   EXIT
763 $!
764 $! End The Valid Arguement Check.
765 $!
766 $ ENDIF
767 $!
768 $! Build a MACRO command for the architecture at hand
769 $!
770 $ IF ARCH .EQS. "VAX" THEN MACRO = "MACRO/''DEBUGGER'"
771 $ IF ARCH .EQS. "AXP" THEN MACRO = "MACRO/MIGRATION/''DEBUGGER'/''MACRO_OPTIMIZE'"
772 $!
773 $!  Show user the result
774 $!
775 $ WRITE/SYMBOL SYS$OUTPUT "Main MACRO Compiling Command: ",MACRO
776 $!
777 $! Time to check the contents, and to make sure we get the correct library.
778 $!
779 $ IF OPT_TCPIP_LIB.EQS."SOCKETSHR" .OR. OPT_TCPIP_LIB.EQS."MULTINET" -
780      .OR. OPT_TCPIP_LIB.EQS."UCX" .OR. OPT_TCPIP_LIB.EQS."TCPIP" -
781      .OR. OPT_TCPIP_LIB.EQS."NONE"
782 $ THEN
783 $!
784 $!  Check to see if SOCKETSHR was chosen
785 $!
786 $   IF OPT_TCPIP_LIB.EQS."SOCKETSHR"
787 $   THEN
788 $!
789 $!    Set the library to use SOCKETSHR
790 $!
791 $     TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
792 $!
793 $!    Done with SOCKETSHR
794 $!
795 $   ENDIF
796 $!
797 $!  Check to see if MULTINET was chosen
798 $!
799 $   IF OPT_TCPIP_LIB.EQS."MULTINET"
800 $   THEN
801 $!
802 $!    Set the library to use UCX emulation.
803 $!
804 $     OPT_TCPIP_LIB = "UCX"
805 $!
806 $!    Done with MULTINET
807 $!
808 $   ENDIF
809 $!
810 $!  Check to see if UCX was chosen
811 $!
812 $   IF OPT_TCPIP_LIB.EQS."UCX"
813 $   THEN
814 $!
815 $!    Set the library to use UCX.
816 $!
817 $     TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
818 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. ""
819 $     THEN
820 $       TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT/OPT"
821 $     ELSE
822 $       IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN -
823           TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT/OPT"
824 $     ENDIF
825 $!
826 $!    Done with UCX
827 $!
828 $   ENDIF
829 $!
830 $!  Check to see if TCPIP was chosen
831 $!
832 $   IF OPT_TCPIP_LIB.EQS."TCPIP"
833 $   THEN
834 $!
835 $!    Set the library to use TCPIP (post UCX).
836 $!
837 $     TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
838 $!
839 $!    Done with TCPIP
840 $!
841 $   ENDIF
842 $!
843 $!  Check to see if NONE was chosen
844 $!
845 $   IF OPT_TCPIP_LIB.EQS."NONE"
846 $   THEN
847 $!
848 $!    Do not use a TCPIP library.
849 $!
850 $     TCPIP_LIB = ""
851 $!
852 $!    Done with TCPIP
853 $!
854 $   ENDIF
855 $!
856 $!  Print info
857 $!
858 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
859 $!
860 $!  Else The User Entered An Invalid Arguement.
861 $!
862 $ ELSE
863 $!
864 $!  Tell The User We Don't Know What They Want.
865 $!
866 $   WRITE SYS$OUTPUT ""
867 $   WRITE SYS$OUTPUT "The Option ",OPT_TCPIP_LIB," Is Invalid.  The Valid Options Are:"
868 $   WRITE SYS$OUTPUT ""
869 $   WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
870 $   WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
871 $   WRITE SYS$OUTPUT "    TCPIP      :  To link with TCPIP (post UCX) TCP/IP library."
872 $   WRITE SYS$OUTPUT ""
873 $!
874 $!  Time To EXIT.
875 $!
876 $   EXIT
877 $!
878 $!  Done with TCP/IP libraries
879 $!
880 $ ENDIF
881 $!
882 $!  Time To RETURN...
883 $!
884 $ RETURN
885 $!
886 $ INITIALISE:
887 $!
888 $! Save old value of the logical name OPENSSL
889 $!
890 $ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE")
891 $!
892 $! Save directory information
893 $!
894 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
895 $ __HERE = F$EDIT(__HERE,"UPCASE")
896 $ __TOP = __HERE - "ENGINES]"
897 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
898 $!
899 $! Set up the logical name OPENSSL to point at the include directory
900 $!
901 $ DEFINE OPENSSL/NOLOG '__INCLUDE'
902 $!
903 $! Done
904 $!
905 $ RETURN
906 $!
907 $ CLEANUP:
908 $!
909 $! Restore the logical name OPENSSL if it had a value
910 $!
911 $ IF __SAVE_OPENSSL .EQS. ""
912 $ THEN
913 $   DEASSIGN OPENSSL
914 $ ELSE
915 $   DEFINE/NOLOG OPENSSL '__SAVE_OPENSSL'
916 $ ENDIF
917 $!
918 $! Done
919 $!
920 $ RETURN