Enhance and clear the support of linker flags
[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 ALPHA, IA64 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 $!  P7, if defined, specifies the C pointer size.  Ignored on VAX.
32 $!      ("64=ARGV" gives more efficient code with HP C V7.3 or newer.)
33 $!      Supported values are:
34 $!
35 $!      ""      Compile with default (/NOPOINTER_SIZE)
36 $!      32      Compile with /POINTER_SIZE=32 (SHORT)
37 $!      64      Compile with /POINTER_SIZE=64[=ARGV] (LONG[=ARGV])
38 $!               (Automatically select ARGV if compiler supports it.)
39 $!      64=      Compile with /POINTER_SIZE=64 (LONG).
40 $!      64=ARGV  Compile with /POINTER_SIZE=64=ARGV (LONG=ARGV).
41 $!
42 $!  P8, if defined, specifies a directory where ZLIB files (zlib.h,
43 $!  libz.olb) may be found.  Optionally, a non-default object library
44 $!  name may be included ("dev:[dir]libz_64.olb", for example).
45 $!
46 $!-----------------------------------------------------------------------------
47 $!
48 $! Announce/identify.
49 $!
50 $ proc = f$environment( "procedure")
51 $ write sys$output "@@@ "+ -
52    f$parse( proc, , , "name")+ f$parse( proc, , , "type")
53 $!
54 $ on control_c then goto exit
55 $!
56 $! Set the default TCP/IP library to link against if needed
57 $!
58 $ TCPIP_LIB = ""
59 $ ZLIB_LIB = ""
60 $!
61 $! Check What Architecture We Are Using.
62 $!
63 $ IF (F$GETSYI("CPU").LT.128)
64 $ THEN
65 $!
66 $!  The Architecture Is VAX.
67 $!
68 $   ARCH = "VAX"
69 $!
70 $! Else...
71 $!
72 $ ELSE
73 $!
74 $!  The Architecture Is Alpha, IA64 or whatever comes in the future.
75 $!
76 $   ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
77 $   IF (ARCH .EQS. "") THEN ARCH = "UNK"
78 $!
79 $! End The Architecture Check.
80 $!
81 $ ENDIF
82 $!
83 $ ARCHD = ARCH
84 $ LIB32 = "32"
85 $ OPT_FILE = ""
86 $ POINTER_SIZE = ""
87 $!
88 $! Set the names of the engines we want to build
89 $! NOTE: Some might think this list ugly.  However, it's made this way to
90 $! reflect the LIBNAMES variable in Makefile as closely as possible,
91 $! thereby making it fairly easy to verify that the lists are the same.
92 $! NOTE: gmp isn't built, as it's mostly a test engine and brings in another
93 $! library that isn't necessarely ported to VMS.
94 $!
95 $ ENGINES = "," + P6
96 $ IF ENGINES .EQS. "," THEN -
97         ENGINES = ",padlock,capi,"
98 $!
99 $! GOST requires a 64-bit integer type, unavailable on VAX.
100 $!
101 $ IF (ARCH .NES. "VAX") THEN -
102        ENGINES = ENGINES+ ",gost"
103 $!
104 $! Check options.
105 $!
106 $ OPT_PHASE = P1
107 $ ACCEPT_PHASE = "ALL,ENGINES"
108 $ OPT_DEBUG = P2
109 $ OPT_COMPILER = P3
110 $ OPT_TCPIP_LIB = P4
111 $ OPT_SPECIAL_THREADS = P5
112 $ OPT_POINTER_SIZE = P7
113 $ ZLIB = P8
114 $
115 $ GOSUB CHECK_OPTIONS
116 $!
117 $! Set the goal directories, and create them if necessary
118 $!
119 $ OBJ_DIR := SYS$DISK:[-.'ARCHD'.OBJ.ENGINES]
120 $ EXE_DIR := SYS$DISK:[-.'ARCHD'.EXE.ENGINES]
121 $ IF F$PARSE(OBJ_DIR) .EQS. "" THEN CREATE/DIRECTORY 'OBJ_DIR'
122 $ IF F$PARSE(EXE_DIR) .EQS. "" THEN CREATE/DIRECTORY 'EXE_DIR'
123 $!
124 $! Set the goal files, and create them if necessary
125 $!
126 $ CRYPTO_LIB := SYS$DISK:[-.'ARCHD'.EXE.CRYPTO]SSL_LIBCRYPTO'LIB32'.OLB
127 $ IF F$SEARCH(CRYPTO_LIB) .EQS. "" THEN LIBRARY/CREATE/OBJECT 'CRYPTO_LIB'
128 $!
129 $! Specify the destination directory in any /MAP option.
130 $!
131 $ if (LINKMAP .eqs. "MAP")
132 $ then
133 $   LINKMAP = LINKMAP+ "=''EXE_DIR'"
134 $ endif
135 $!
136 $! Add the location prefix to the linker options file name.
137 $!
138 $ if (OPT_FILE .nes. "")
139 $ then
140 $   OPT_FILE = EXE_DIR+ OPT_FILE
141 $ endif
142 $!
143 $! Initialise.
144 $!
145 $ GOSUB INITIALISE
146 $ GOSUB CHECK_OPT_FILE
147 $!
148 $! Define what goes into each engine.  VAX includes a transfer vector.
149 $!
150 $ ENGINE_ = ""
151 $ TV_OBJ = ""
152 $ IF ARCH .EQS. "VAX"
153 $ THEN
154 $   ENGINE_ = "engine_vector.mar"
155 $   TV_OBJ_NAME = OBJ_DIR + F$PARSE(ENGINE_,,,"NAME","SYNTAX_ONLY") + ".OBJ"
156 $   TV_OBJ = ",''TV_OBJ_NAME'"
157 $ ENDIF
158 $ ENGINE_padlock = "e_padlock"
159 $ ENGINE_capi = "e_capi"
160
161 $ ENGINE_gost_SUBDIR = "ccgost"
162 $ ENGINE_gost = "e_gost_err,gost2001_keyx,gost2001,gost89,gost94_keyx,"+ -
163                 "gost_ameth,gost_asn1,gost_crypt,gost_ctl,gost_eng,"+ -
164                 "gosthash,gost_keywrap,gost_md,gost_params,gost_pmeth,"+ -
165                 "gost_sign"
166 $!
167 $! Define which programs need to be linked with a TCP/IP library
168 $!
169 $ TCPIP_ENGINES = ",,"
170 $ IF COMPILER .EQS. "VAXC" THEN -
171      TCPIP_ENGINES = ",,"
172 $!
173 $! Set up two loops, one that keeps track of the engines,
174 $! and one that keeps track of all the files going into
175 $! the current engine.
176 $!
177 $! Here's the start of the engine loop.
178 $!
179 $ ENGINE_COUNTER = 0
180 $ ENGINE_NEXT:
181 $!
182 $! Extract the current engine name, and if we've reached the end, stop
183 $!
184 $ ENGINE_NAME = F$ELEMENT(ENGINE_COUNTER,",",ENGINES)
185 $ IF (ENGINE_NAME.EQS.",") THEN GOTO ENGINE_DONE
186 $!
187 $ ENGINE_COUNTER = ENGINE_COUNTER + 1
188 $!
189 $! Set up the engine library names.
190 $!
191 $ LIB_ENGINE = "ENGINE_" + ENGINE_NAME
192 $!
193 $! Check if the library module name actually is defined
194 $!
195 $ IF F$TYPE('LIB_ENGINE') .EQS. ""
196 $ THEN
197 $   WRITE SYS$ERROR ""
198 $   WRITE SYS$ERROR "The module ",ENGINE_NAME," does not exist.  Continuing..."
199 $   WRITE SYS$ERROR ""
200 $   GOTO ENGINE_NEXT
201 $ ENDIF
202 $!
203 $! Talk to the user
204 $!
205 $ IF ENGINE_NAME .NES. ""
206 $ THEN
207 $   WRITE SYS$OUTPUT "Compiling The ",ENGINE_NAME," Library Files. (",BUILDALL,")"
208 $ ELSE
209 $   WRITE SYS$OUTPUT "Compiling Support Files. (",BUILDALL,")"
210 $ ENDIF
211 $!
212 $! Create a .OPT file for the object files (for a real engine name).
213 $!
214 $ IF ENGINE_NAME .NES. ""
215 $ THEN
216 $   OPEN /WRITE OBJECTS 'EXE_DIR''ENGINE_NAME'.OPT
217 $ ENDIF
218 $!
219 $! Here's the start of per-engine module loop.
220 $!
221 $ FILE_COUNTER = 0
222 $ FILE_NEXT:
223 $!
224 $! Extract the file name from the file list, and if we've reached the end, stop
225 $!
226 $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",'LIB_ENGINE')
227 $ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
228 $!
229 $ FILE_COUNTER = FILE_COUNTER + 1
230 $!
231 $ IF FILE_NAME .EQS. "" THEN GOTO FILE_NEXT
232 $!
233 $! Set up the source and object reference
234 $!
235 $ IF F$TYPE('LIB_ENGINE'_SUBDIR) .EQS. ""
236 $ THEN
237 $     SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[].C",,,"SYNTAX_ONLY")
238 $ ELSE
239 $     SOURCE_FILE = F$PARSE(FILE_NAME,"SYS$DISK:[."+'LIB_ENGINE'_SUBDIR+"].C",,,"SYNTAX_ONLY")
240 $ ENDIF
241 $ OBJECT_FILE = OBJ_DIR + F$PARSE(FILE_NAME,,,"NAME","SYNTAX_ONLY") + ".OBJ"
242 $!
243 $! If we get some problem, we just go on trying to build the next module.
244 $ ON WARNING THEN GOTO FILE_NEXT
245 $!
246 $! Check if the module we want to compile is actually there.
247 $!
248 $ IF F$SEARCH(SOURCE_FILE) .EQS. ""
249 $ THEN
250 $   WRITE SYS$OUTPUT ""
251 $   WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Doesn't Exist."
252 $   WRITE SYS$OUTPUT ""
253 $   GOTO EXIT
254 $ ENDIF
255 $!
256 $! Talk to the user.
257 $!
258 $ WRITE SYS$OUTPUT "    ",FILE_NAME,""
259 $!
260 $! Do the dirty work.
261 $!
262 $ ON ERROR THEN GOTO FILE_NEXT
263 $ IF F$EDIT(F$PARSE(SOURCE_FILE,,,"TYPE","SYNTAX_ONLY"),"UPCASE") .EQS. ".MAR"
264 $ THEN
265 $   MACRO/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
266 $ ELSE
267 $   CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
268 $ ENDIF
269 $!
270 $! Write the entry to the .OPT file (for a real engine name).
271 $!
272 $ IF ENGINE_NAME .NES. ""
273 $ THEN
274 $   WRITE OBJECTS OBJECT_FILE
275 $ ENDIF
276 $!
277 $! Next file
278 $!
279 $ GOTO FILE_NEXT
280 $!
281 $ FILE_DONE:
282 $!
283 $! Do not link the support files.
284 $!
285 $ IF ENGINE_NAME .EQS. "" THEN GOTO ENGINE_NEXT
286 $!
287 $! Close the linker options file (for a real engine name).
288 $!
289 $ CLOSE OBJECTS
290 $!
291 $! Now, there are two ways to handle this.  We can either build 
292 $! shareable images or stick the engine object file into libcrypto.
293 $! For now, the latter is NOT supported.
294 $!
295 $!!!!! LIBRARY/REPLACE 'CRYPTO_LIB' 'OBJECT_FILE'
296 $!
297 $! For shareable libraries, we need to do things a little differently
298 $! depending on if we link with a TCP/IP library or not.
299 $!
300 $ ENGINE_OPT := SYS$DISK:[]'ARCH'.OPT
301 $ LINK /'DEBUGGER' /'LINKMAP' /'TRACEBACK' /SHARE='EXE_DIR''ENGINE_NAME'.EXE -
302    'EXE_DIR''ENGINE_NAME'.OPT /OPTIONS -
303    'TV_OBJ', -
304    'CRYPTO_LIB' /LIBRARY, -
305    'ENGINE_OPT' /OPTIONS -
306    'TCPIP_LIB' -
307    'ZLIB_LIB' -
308    ,'OPT_FILE' /OPTIONS
309 $!
310 $! Next engine
311 $!
312 $ GOTO ENGINE_NEXT
313 $!
314 $ ENGINE_DONE:
315 $!
316 $! Talk to the user
317 $!
318 $ WRITE SYS$OUTPUT "All Done..."
319 $ EXIT:
320 $ GOSUB CLEANUP
321 $ EXIT
322 $!
323 $! Check For The Link Option FIle.
324 $!
325 $ CHECK_OPT_FILE:
326 $!
327 $! Check To See If We Need To Make A VAX C Option File.
328 $!
329 $ IF (COMPILER.EQS."VAXC")
330 $ THEN
331 $!
332 $!  Check To See If We Already Have A VAX C Linker Option File.
333 $!
334 $   IF (F$SEARCH(OPT_FILE).EQS."")
335 $   THEN
336 $!
337 $!    We Need A VAX C Linker Option File.
338 $!
339 $     CREATE 'OPT_FILE'
340 $DECK
341 !
342 ! Default System Options File To Link Against 
343 ! The Sharable VAX C Runtime Library.
344 !
345 SYS$SHARE:VAXCRTL.EXE/SHARE
346 $EOD
347 $!
348 $!  End The Option File Check.
349 $!
350 $   ENDIF
351 $!
352 $! End The VAXC Check.
353 $!
354 $ ENDIF
355 $!
356 $! Check To See If We Need A GNU C Option File.
357 $!
358 $ IF (COMPILER.EQS."GNUC")
359 $ THEN
360 $!
361 $!  Check To See If We Already Have A GNU C Linker Option File.
362 $!
363 $   IF (F$SEARCH(OPT_FILE).EQS."")
364 $   THEN
365 $!
366 $!    We Need A GNU C Linker Option File.
367 $!
368 $     CREATE 'OPT_FILE'
369 $DECK
370 !
371 ! Default System Options File To Link Against 
372 ! The Sharable C Runtime Library.
373 !
374 GNU_CC:[000000]GCCLIB/LIBRARY
375 SYS$SHARE:VAXCRTL/SHARE
376 $EOD
377 $!
378 $!  End The Option File Check.
379 $!
380 $   ENDIF
381 $!
382 $! End The GNU C Check.
383 $!
384 $ ENDIF
385 $!
386 $! Check To See If We Need A DEC C Option File.
387 $!
388 $ IF (COMPILER.EQS."DECC")
389 $ THEN
390 $!
391 $!  Check To See If We Already Have A DEC C Linker Option File.
392 $!
393 $   IF (F$SEARCH(OPT_FILE).EQS."")
394 $   THEN
395 $!
396 $!    Figure Out If We Need A non-VAX Or A VAX Linker Option File.
397 $!
398 $     IF ARCH .EQS. "VAX"
399 $     THEN
400 $!
401 $!      We Need A DEC C Linker Option File For VAX.
402 $!
403 $       CREATE 'OPT_FILE'
404 $DECK
405 !
406 ! Default System Options File To Link Against 
407 ! The Sharable DEC C Runtime Library.
408 !
409 SYS$SHARE:DECC$SHR.EXE/SHARE
410 $EOD
411 $!
412 $!    Else...
413 $!
414 $     ELSE
415 $!
416 $!      Create The non-VAX Linker Option File.
417 $!
418 $       CREATE 'OPT_FILE'
419 $DECK
420 !
421 ! Default System Options File For non-VAX To Link Against 
422 ! The Sharable C Runtime Library.
423 !
424 SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
425 SYS$SHARE:CMA$OPEN_RTL/SHARE
426 $EOD
427 $!
428 $!    End The DEC C Option File Check.
429 $!
430 $     ENDIF
431 $!
432 $!  End The Option File Search.
433 $!
434 $   ENDIF
435 $!
436 $! End The DEC C Check.
437 $!
438 $ ENDIF
439 $!
440 $!  Tell The User What Linker Option File We Are Using.
441 $!
442 $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."     
443 $!
444 $! Time To RETURN.
445 $!
446 $ RETURN
447 $!
448 $! Check The User's Options.
449 $!
450 $ CHECK_OPTIONS:
451 $!
452 $! Check To See If OPT_PHASE Is Blank.
453 $!
454 $ IF (OPT_PHASE.EQS."ALL")
455 $ THEN
456 $!
457 $!   OPT_PHASE Is Blank, So Build Everything.
458 $!
459 $    BUILDALL = "ALL"
460 $!
461 $! Else...
462 $!
463 $ ELSE
464 $!
465 $!  Else, Check To See If OPT_PHASE Has A Valid Argument.
466 $!
467 $   IF ("," + ACCEPT_PHASE + ",") - ("," + OPT_PHASE + ",") -
468        .NES. ("," + ACCEPT_PHASE + ",")
469 $   THEN
470 $!
471 $!    A Valid Argument.
472 $!
473 $     BUILDALL = OPT_PHASE
474 $!
475 $!  Else...
476 $!
477 $   ELSE
478 $!
479 $!    Tell The User We Don't Know What They Want.
480 $!
481 $     WRITE SYS$OUTPUT ""
482 $     WRITE SYS$OUTPUT "The option ",OPT_PHASE," is invalid.  The valid options are:"
483 $     WRITE SYS$OUTPUT ""
484 $     IF ("," + ACCEPT_PHASE + ",") - ",ALL," -
485         .NES. ("," + ACCEPT_PHASE + ",") THEN -
486         WRITE SYS$OUTPUT "    ALL      :  just build everything."
487 $     IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," -
488         .NES. ("," + ACCEPT_PHASE + ",") THEN -
489         WRITE SYS$OUTPUT "    ENGINES  :  to compile just the [.xxx.EXE.ENGINES]*.EXE hareable images."
490 $     WRITE SYS$OUTPUT ""
491 $     WRITE SYS$OUTPUT " where 'xxx' stands for:"
492 $     WRITE SYS$OUTPUT ""
493 $     WRITE SYS$OUTPUT "    ALPHA[64]:  Alpha architecture."
494 $     WRITE SYS$OUTPUT "    IA64[64] :  IA64 architecture."
495 $     WRITE SYS$OUTPUT "    VAX      :  VAX architecture."
496 $     WRITE SYS$OUTPUT ""
497 $!
498 $!    Time To EXIT.
499 $!
500 $     EXIT
501 $!
502 $!  End The Valid Argument Check.
503 $!
504 $   ENDIF
505 $!
506 $! End The OPT_PHASE Check.
507 $!
508 $ ENDIF
509 $!
510 $! Check To See If OPT_DEBUG Is Blank.
511 $!
512 $ IF (OPT_DEBUG.EQS."NODEBUG")
513 $ THEN
514 $!
515 $!  OPT_DEBUG Is NODEBUG, So Compile Without The Debugger Information.
516 $!
517 $   DEBUGGER = "NODEBUG"
518 $   LINKMAP = "NOMAP"
519 $   TRACEBACK = "NOTRACEBACK" 
520 $   GCC_OPTIMIZE = "OPTIMIZE"
521 $   CC_OPTIMIZE = "OPTIMIZE"
522 $   MACRO_OPTIMIZE = "OPTIMIZE"
523 $   WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
524 $   WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
525 $ ELSE
526 $!
527 $!  Check To See If We Are To Compile With Debugger Information.
528 $!
529 $   IF (OPT_DEBUG.EQS."DEBUG")
530 $   THEN
531 $!
532 $!    Compile With Debugger Information.
533 $!
534 $     DEBUGGER = "DEBUG"
535 $     LINKMAP = "MAP"
536 $     TRACEBACK = "TRACEBACK"
537 $     GCC_OPTIMIZE = "NOOPTIMIZE"
538 $     CC_OPTIMIZE = "NOOPTIMIZE"
539 $     MACRO_OPTIMIZE = "NOOPTIMIZE"
540 $     WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
541 $     WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
542 $   ELSE 
543 $!
544 $!    They Entered An Invalid Option.
545 $!
546 $     WRITE SYS$OUTPUT ""
547 $     WRITE SYS$OUTPUT "The Option ",OPT_DEBUG," Is Invalid.  The Valid Options Are:"
548 $     WRITE SYS$OUTPUT ""
549 $     WRITE SYS$OUTPUT "     DEBUG   :  Compile With The Debugger Information."
550 $     WRITE SYS$OUTPUT "     NODEBUG :  Compile Without The Debugger Information."
551 $     WRITE SYS$OUTPUT ""
552 $!
553 $!    Time To EXIT.
554 $!
555 $     EXIT
556 $!
557 $!  End The Valid Argument Check.
558 $!
559 $   ENDIF
560 $!
561 $! End The OPT_DEBUG Check.
562 $!
563 $ ENDIF
564 $!
565 $! Special Threads For OpenVMS v7.1 Or Later
566 $!
567 $! Written By:  Richard Levitte
568 $!              richard@levitte.org
569 $!
570 $!
571 $! Check To See If We Have A Option For OPT_SPECIAL_THREADS.
572 $!
573 $ IF (OPT_SPECIAL_THREADS.EQS."")
574 $ THEN
575 $!
576 $!  Get The Version Of VMS We Are Using.
577 $!
578 $   ISSEVEN :=
579 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
580 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
581 $!
582 $!  Check To See If The VMS Version Is v7.1 Or Later.
583 $!
584 $   IF (TMP.GE.71)
585 $   THEN
586 $!
587 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
588 $!
589 $     ISSEVEN := ,PTHREAD_USE_D4
590 $!
591 $!  End The VMS Version Check.
592 $!
593 $   ENDIF
594 $!
595 $! End The OPT_SPECIAL_THREADS Check.
596 $!
597 $ ENDIF
598 $!
599 $! Check OPT_POINTER_SIZE (P7).
600 $!
601 $ IF (OPT_POINTER_SIZE .NES. "") .AND. (ARCH .NES. "VAX")
602 $ THEN
603 $!
604 $   IF (OPT_POINTER_SIZE .EQS. "32")
605 $   THEN
606 $     POINTER_SIZE = " /POINTER_SIZE=32"
607 $   ELSE
608 $     POINTER_SIZE = F$EDIT( OPT_POINTER_SIZE, "COLLAPSE, UPCASE")
609 $     IF ((POINTER_SIZE .EQS. "64") .OR. -
610        (POINTER_SIZE .EQS. "64=") .OR. -
611        (POINTER_SIZE .EQS. "64=ARGV"))
612 $     THEN
613 $       ARCHD = ARCH+ "_64"
614 $       LIB32 = ""
615 $       POINTER_SIZE = " /POINTER_SIZE=64"
616 $     ELSE
617 $!
618 $!      Tell The User Entered An Invalid Option.
619 $!
620 $       WRITE SYS$OUTPUT ""
621 $       WRITE SYS$OUTPUT "The Option ", OPT_POINTER_SIZE, -
622          " Is Invalid.  The Valid Options Are:"
623 $       WRITE SYS$OUTPUT ""
624 $       WRITE SYS$OUTPUT -
625          "    """"       :  Compile with default (short) pointers."
626 $       WRITE SYS$OUTPUT -
627          "    32       :  Compile with 32-bit (short) pointers."
628 $       WRITE SYS$OUTPUT -
629          "    64       :  Compile with 64-bit (long) pointers (auto ARGV)."
630 $       WRITE SYS$OUTPUT -
631          "    64=      :  Compile with 64-bit (long) pointers (no ARGV)."
632 $       WRITE SYS$OUTPUT -
633          "    64=ARGV  :  Compile with 64-bit (long) pointers (ARGV)."
634 $       WRITE SYS$OUTPUT ""
635 $! 
636 $!      Time To EXIT.
637 $!
638 $       EXIT
639 $!
640 $     ENDIF
641 $!
642 $   ENDIF
643 $!
644 $! End The OPT_POINTER_SIZE Check.
645 $!
646 $ ENDIF
647 $!
648 $! Set basic C compiler /INCLUDE directories.
649 $!
650 $ CC_INCLUDES = "SYS$DISK:[],SYS$DISK:[.VENDOR_DEFNS]"
651 $!
652 $! Check To See If OPT_COMPILER Is Blank.
653 $!
654 $ IF (OPT_COMPILER.EQS."")
655 $ THEN
656 $!
657 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
658 $!  Find Out Which One To Use.
659 $!
660 $!  Check To See If We Have GNU C.
661 $!
662 $   IF (F$TRNLNM("GNU_CC").NES."")
663 $   THEN
664 $!
665 $!    Looks Like GNUC, Set To Use GNUC.
666 $!
667 $     OPT_COMPILER = "GNUC"
668 $!
669 $!  Else...
670 $!
671 $   ELSE
672 $!
673 $!    Check To See If We Have VAXC Or DECC.
674 $!
675 $     IF (ARCH.NES."VAX").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
676 $     THEN 
677 $!
678 $!      Looks Like DECC, Set To Use DECC.
679 $!
680 $       OPT_COMPILER = "DECC"
681 $!
682 $!    Else...
683 $!
684 $     ELSE
685 $!
686 $!      Looks Like VAXC, Set To Use VAXC.
687 $!
688 $       OPT_COMPILER = "VAXC"
689 $!
690 $!    End The VAXC Compiler Check.
691 $!
692 $     ENDIF
693 $!
694 $!  End The DECC & VAXC Compiler Check.
695 $!
696 $   ENDIF
697 $!
698 $!  End The Compiler Check.
699 $!
700 $ ENDIF
701 $!
702 $! Check To See If We Have A Option For OPT_TCPIP_LIB.
703 $!
704 $ IF (OPT_TCPIP_LIB.EQS."")
705 $ THEN
706 $!
707 $!  Find out what socket library we have available
708 $!
709 $   IF F$PARSE("SOCKETSHR:") .NES. ""
710 $   THEN
711 $!
712 $!    We have SOCKETSHR, and it is my opinion that it's the best to use.
713 $!
714 $     OPT_TCPIP_LIB = "SOCKETSHR"
715 $!
716 $!    Tell the user
717 $!
718 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
719 $!
720 $!    Else, let's look for something else
721 $!
722 $   ELSE
723 $!
724 $!    Like UCX (the reason to do this before Multinet is that the UCX
725 $!    emulation is easier to use...)
726 $!
727 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. "" -
728          .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" -
729          .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. ""
730 $     THEN
731 $!
732 $!      Last resort: a UCX or UCX-compatible library
733 $!
734 $       OPT_TCPIP_LIB = "UCX"
735 $!
736 $!      Tell the user
737 $!
738 $       WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
739 $!
740 $!      That was all...
741 $!
742 $     ENDIF
743 $   ENDIF
744 $ ENDIF
745 $!
746 $! Set Up Initial CC Definitions, Possibly With User Ones
747 $!
748 $ CCDEFS = "TCPIP_TYPE_''OPT_TCPIP_LIB',DSO_VMS"
749 $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS
750 $ CCEXTRAFLAGS = ""
751 $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
752 $ CCDISABLEWARNINGS = "" !!! "LONGLONGTYPE,LONGLONGSUFX"
753 $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
754         CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS
755 $!
756 $! Check To See If We Have A ZLIB Option.
757 $!
758 $ IF (ZLIB .NES. "")
759 $ THEN
760 $!
761 $!  Check for expected ZLIB files.
762 $!
763 $   err = 0
764 $   file1 = f$parse( "zlib.h", ZLIB, , , "SYNTAX_ONLY")
765 $   if (f$search( file1) .eqs. "")
766 $   then
767 $     WRITE SYS$OUTPUT ""
768 $     WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid."
769 $     WRITE SYS$OUTPUT "    Can't find header: ''file1'"
770 $     err = 1
771 $   endif
772 $   file1 = f$parse( "A.;", ZLIB)- "A.;"
773 $!
774 $   file2 = f$parse( ZLIB, "libz.olb", , , "SYNTAX_ONLY")
775 $   if (f$search( file2) .eqs. "")
776 $   then
777 $     if (err .eq. 0)
778 $     then
779 $       WRITE SYS$OUTPUT ""
780 $       WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid."
781 $     endif
782 $     WRITE SYS$OUTPUT "    Can't find library: ''file2'"
783 $     WRITE SYS$OUTPUT ""
784 $     err = err+ 2
785 $   endif
786 $   if (err .eq. 1)
787 $   then
788 $     WRITE SYS$OUTPUT ""
789 $   endif
790 $!
791 $   if (err .ne. 0)
792 $   then
793 $     EXIT
794 $   endif
795 $!
796 $   CCDEFS = """ZLIB=1"", "+ CCDEFS
797 $   CC_INCLUDES = CC_INCLUDES+ ", "+ file1
798 $   ZLIB_LIB = ", ''file2' /library"
799 $!
800 $!  Print info
801 $!
802 $   WRITE SYS$OUTPUT "ZLIB library spec: ", file2
803 $!
804 $! End The ZLIB Check.
805 $!
806 $ ENDIF
807 $!
808 $!  Check To See If The User Entered A Valid Parameter.
809 $!
810 $ IF (OPT_COMPILER.EQS."VAXC").OR.(OPT_COMPILER.EQS."DECC").OR.(OPT_COMPILER.EQS."GNUC")
811 $ THEN
812 $!
813 $!    Check To See If The User Wanted DECC.
814 $!
815 $   IF (OPT_COMPILER.EQS."DECC")
816 $   THEN
817 $!
818 $!    Looks Like DECC, Set To Use DECC.
819 $!
820 $     COMPILER = "DECC"
821 $!
822 $!    Tell The User We Are Using DECC.
823 $!
824 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
825 $!
826 $!    Use DECC...
827 $!
828 $     CC = "CC"
829 $     IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
830          THEN CC = "CC/DECC"
831 $     CC = CC + " /''CC_OPTIMIZE' /''DEBUGGER' /STANDARD=RELAXED"+ -
832        "''POINTER_SIZE' /NOLIST /PREFIX=ALL" + -
833        " /INCLUDE=(''CC_INCLUDES') " + -
834        CCEXTRAFLAGS
835 $!
836 $!    Define The Linker Options File Name.
837 $!
838 $     OPT_FILE = "VAX_DECC_OPTIONS.OPT"
839 $!
840 $!  End DECC Check.
841 $!
842 $   ENDIF
843 $!
844 $!  Check To See If We Are To Use VAXC.
845 $!
846 $   IF (OPT_COMPILER.EQS."VAXC")
847 $   THEN
848 $!
849 $!    Looks Like VAXC, Set To Use VAXC.
850 $!
851 $     COMPILER = "VAXC"
852 $!
853 $!    Tell The User We Are Using VAX C.
854 $!
855 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
856 $!
857 $!    Compile Using VAXC.
858 $!
859 $     CC = "CC"
860 $     IF ARCH.NES."VAX"
861 $     THEN
862 $       WRITE SYS$OUTPUT "There is no VAX C on Alpha!"
863 $       EXIT
864 $     ENDIF
865 $     IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
866 $     CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
867            "/INCLUDE=(''CC_INCLUDES')" + -
868            CCEXTRAFLAGS
869 $     CCDEFS = """VAXC""," + CCDEFS
870 $!
871 $!    Define <sys> As SYS$COMMON:[SYSLIB]
872 $!
873 $     DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
874 $!
875 $!    Define The Linker Options File Name.
876 $!
877 $     OPT_FILE = "VAX_VAXC_OPTIONS.OPT"
878 $!
879 $!  End VAXC Check
880 $!
881 $   ENDIF
882 $!
883 $!  Check To See If We Are To Use GNU C.
884 $!
885 $   IF (OPT_COMPILER.EQS."GNUC")
886 $   THEN
887 $!
888 $!    Looks Like GNUC, Set To Use GNUC.
889 $!
890 $     COMPILER = "GNUC"
891 $!
892 $!    Tell The User We Are Using GNUC.
893 $!
894 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
895 $!
896 $!    Use GNU C...
897 $!
898 $     CC = "GCC/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + -
899            "/INCLUDE=(''CC_INCLUDES')" + -
900            CCEXTRAFLAGS
901 $!
902 $!    Define The Linker Options File Name.
903 $!
904 $     OPT_FILE = "VAX_GNUC_OPTIONS.OPT"
905 $!
906 $!  End The GNU C Check.
907 $!
908 $   ENDIF
909 $!
910 $!  Set up default defines
911 $!
912 $   CCDEFS = """FLAT_INC=1""," + CCDEFS
913 $!
914 $!  Finish up the definition of CC.
915 $!
916 $   IF COMPILER .EQS. "DECC"
917 $   THEN
918 $     IF CCDISABLEWARNINGS .NES. ""
919 $     THEN
920 $       CCDISABLEWARNINGS = " /WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
921 $     ENDIF
922 $   ELSE
923 $     CCDISABLEWARNINGS = ""
924 $   ENDIF
925 $   CC = CC + " /DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
926 $!
927 $!  Show user the result
928 $!
929 $   WRITE/SYMBOL SYS$OUTPUT "Main C Compiling Command: ",CC
930 $!
931 $!  Else The User Entered An Invalid Argument.
932 $!
933 $ ELSE
934 $!
935 $!  Tell The User We Don't Know What They Want.
936 $!
937 $   WRITE SYS$OUTPUT ""
938 $   WRITE SYS$OUTPUT "The Option ",OPT_COMPILER," Is Invalid.  The Valid Options Are:"
939 $   WRITE SYS$OUTPUT ""
940 $   WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
941 $   WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
942 $   WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
943 $   WRITE SYS$OUTPUT ""
944 $!
945 $!  Time To EXIT.
946 $!
947 $   EXIT
948 $!
949 $! End The Valid Argument Check.
950 $!
951 $ ENDIF
952 $!
953 $! Build a MACRO command for the architecture at hand
954 $!
955 $ IF ARCH .EQS. "VAX"
956 $ THEN
957 $   MACRO = "MACRO/''DEBUGGER'"
958 $ ELSE
959 $   MACRO = "MACRO/MIGRATION/''DEBUGGER'/''MACRO_OPTIMIZE'"
960 $ ENDIF
961 $!
962 $!  Show user the result
963 $!
964 $ WRITE/SYMBOL SYS$OUTPUT "Main MACRO Compiling Command: ",MACRO
965 $!
966 $! Time to check the contents, and to make sure we get the correct library.
967 $!
968 $ IF OPT_TCPIP_LIB.EQS."SOCKETSHR" .OR. OPT_TCPIP_LIB.EQS."MULTINET" -
969      .OR. OPT_TCPIP_LIB.EQS."UCX" .OR. OPT_TCPIP_LIB.EQS."TCPIP" -
970      .OR. OPT_TCPIP_LIB.EQS."NONE"
971 $ THEN
972 $!
973 $!  Check to see if SOCKETSHR was chosen
974 $!
975 $   IF OPT_TCPIP_LIB.EQS."SOCKETSHR"
976 $   THEN
977 $!
978 $!    Set the library to use SOCKETSHR
979 $!
980 $     TCPIP_LIB = ",SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT /OPTIONS"
981 $!
982 $!    Done with SOCKETSHR
983 $!
984 $   ENDIF
985 $!
986 $!  Check to see if MULTINET was chosen
987 $!
988 $   IF OPT_TCPIP_LIB.EQS."MULTINET"
989 $   THEN
990 $!
991 $!    Set the library to use UCX emulation.
992 $!
993 $     OPT_TCPIP_LIB = "UCX"
994 $!
995 $!    Done with MULTINET
996 $!
997 $   ENDIF
998 $!
999 $!  Check to see if UCX was chosen
1000 $!
1001 $   IF OPT_TCPIP_LIB.EQS."UCX"
1002 $   THEN
1003 $!
1004 $!    Set the library to use UCX.
1005 $!
1006 $     TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT /OPTIONS"
1007 $     IF F$TRNLNM("UCX$IPC_SHR") .NES. ""
1008 $     THEN
1009 $       TCPIP_LIB = ",SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT /OPTIONS"
1010 $     ELSE
1011 $       IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN -
1012           TCPIP_LIB = ",SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT /OPTIONS"
1013 $     ENDIF
1014 $!
1015 $!    Done with UCX
1016 $!
1017 $   ENDIF
1018 $!
1019 $!  Check to see if TCPIP was chosen
1020 $!
1021 $   IF OPT_TCPIP_LIB.EQS."TCPIP"
1022 $   THEN
1023 $!
1024 $!    Set the library to use TCPIP (post UCX).
1025 $!
1026 $     TCPIP_LIB = ",SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT /OPTIONS"
1027 $!
1028 $!    Done with TCPIP
1029 $!
1030 $   ENDIF
1031 $!
1032 $!  Check to see if NONE was chosen
1033 $!
1034 $   IF OPT_TCPIP_LIB.EQS."NONE"
1035 $   THEN
1036 $!
1037 $!    Do not use a TCPIP library.
1038 $!
1039 $     TCPIP_LIB = ""
1040 $!
1041 $!    Done with TCPIP
1042 $!
1043 $   ENDIF
1044 $!
1045 $!  Print info
1046 $!
1047 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB- ","
1048 $!
1049 $!  Else The User Entered An Invalid Argument.
1050 $!
1051 $ ELSE
1052 $!
1053 $!  Tell The User We Don't Know What They Want.
1054 $!
1055 $   WRITE SYS$OUTPUT ""
1056 $   WRITE SYS$OUTPUT "The Option ",OPT_TCPIP_LIB," Is Invalid.  The Valid Options Are:"
1057 $   WRITE SYS$OUTPUT ""
1058 $   WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
1059 $   WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
1060 $   WRITE SYS$OUTPUT "    TCPIP      :  To link with TCPIP (post UCX) TCP/IP library."
1061 $   WRITE SYS$OUTPUT ""
1062 $!
1063 $!  Time To EXIT.
1064 $!
1065 $   EXIT
1066 $!
1067 $!  Done with TCP/IP libraries
1068 $!
1069 $ ENDIF
1070 $!
1071 $!  Time To RETURN...
1072 $!
1073 $ RETURN
1074 $!
1075 $ INITIALISE:
1076 $!
1077 $! Save old value of the logical name OPENSSL
1078 $!
1079 $ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE")
1080 $!
1081 $! Save directory information
1082 $!
1083 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
1084 $ __HERE = F$EDIT(__HERE,"UPCASE")
1085 $ __TOP = __HERE - "ENGINES]"
1086 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
1087 $!
1088 $! Set up the logical name OPENSSL to point at the include directory
1089 $!
1090 $ DEFINE OPENSSL /NOLOG '__INCLUDE'
1091 $!
1092 $! Done
1093 $!
1094 $ RETURN
1095 $!
1096 $ CLEANUP:
1097 $!
1098 $! Restore the saved logical name OPENSSL, if it had a value.
1099 $!
1100 $ if (f$type( __SAVE_OPENSSL) .nes. "")
1101 $ then
1102 $   IF __SAVE_OPENSSL .EQS. ""
1103 $   THEN
1104 $     DEASSIGN OPENSSL
1105 $   ELSE
1106 $     DEFINE /NOLOG OPENSSL '__SAVE_OPENSSL'
1107 $   ENDIF
1108 $ endif
1109 $!
1110 $! Close any open files.
1111 $!
1112 $ if (f$trnlnm( "objects", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then -
1113    close objects
1114 $!
1115 $! Done
1116 $!
1117 $ RETURN
1118 $!