| blob | 348f1c047093b197031707b2070a41046af14608 |
1 $!
2 $! DES-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 files compiles and creates the
11 $! "[.xxx.EXE.CRYPTO.DES]LIBDES.OLB" library. The "xxx" denotes the machine
12 $! architecture of ALPHA, IA64 or VAX.
13 $!
14 $! It was re-written to try to determine which "C" compiler to try to use
15 $! or the user can specify a compiler in P3.
16 $!
17 $! Specify one of the following to build just that part, specify "ALL" to
18 $! just build everything.
19 $!
20 $! ALL To Just Build "Everything".
21 $! LIBRARY To Just Build The [.xxx.EXE.CRYPTO.DES]LIBDES.OLB Library.
22 $! DESTEST To Just Build The [.xxx.EXE.CRYPTO.DES]DESTEST.EXE Program.
23 $! SPEED To Just Build The [.xxx.EXE.CRYPTO.DES]SPEED.EXE Program.
24 $! RPW To Just Build The [.xxx.EXE.CRYPTO.DES]RPW.EXE Program.
25 $! DES To Just Build The [.xxx.EXE.CRYPTO.DES]DES.EXE Program.
26 $! DES_OPTS To Just Build The [.xxx.EXE.CRYPTO.DES]DES_OPTS.EXE Program.
27 $!
28 $! Specify either DEBUG or NODEBUG as P2 to compile with or without
29 $! debugging information.
30 $!
31 $! Specify which compiler at P3 to try to compile under.
32 $!
33 $! VAXC For VAX C.
34 $! DECC For DEC C.
35 $! GNUC For GNU C.
36 $!
37 $! If you don't speficy a compiler, it will try to determine which
38 $! "C" compiler to try to use.
39 $!
40 $! P4, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
41 $!
42 $!
43 $! Make sure we know what architecture we run on.
44 $!
45 $!
46 $! Check Which Architecture We Are Using.
47 $!
48 $ IF (F$GETSYI("CPU").LT.128)
49 $ THEN
50 $!
51 $! The Architecture Is VAX
52 $!
53 $ ARCH := VAX
54 $!
55 $! Else...
56 $!
57 $ ELSE
58 $!
59 $! The Architecture Is Alpha, IA64 or whatever comes in the future.
60 $!
61 $ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
62 $ IF (ARCH .EQS. "") THEN ARCH = "UNK"
63 $!
64 $! End The Architecture Check.
65 $!
66 $ ENDIF
67 $!
68 $! Define The OBJ Directory Name.
69 $!
70 $ OBJ_DIR := SYS$DISK:[--.'ARCH'.OBJ.CRYPTO.DES]
71 $!
72 $! Define The EXE Directory Name.
73 $!
74 $ EXE_DIR :== SYS$DISK:[--.'ARCH'.EXE.CRYPTO.DES]
75 $!
76 $! Check To Make Sure We Have Valid Command Line Parameters.
77 $!
78 $ GOSUB CHECK_OPTIONS
79 $!
80 $! Tell The User What Kind of Machine We Run On.
81 $!
82 $ WRITE SYS$OUTPUT "Compiling On A ",ARCH," Machine."
83 $!
84 $! Check To See If The Architecture Specific OBJ Directory Exists.
85 $!
86 $ IF (F$PARSE(OBJ_DIR).EQS."")
87 $ THEN
88 $!
89 $! It Dosen't Exist, So Create It.
90 $!
91 $ CREATE/DIR 'OBJ_DIR'
92 $!
93 $! End The Architecture Specific OBJ Directory Check.
94 $!
95 $ ENDIF
96 $!
97 $! Check To See If The Architecture Specific Directory Exists.
98 $!
99 $ IF (F$PARSE(EXE_DIR).EQS."")
100 $ THEN
101 $!
102 $! It Dosen't Exist, So Create It.
103 $!
104 $ CREATE/DIR 'EXE_DIR'
105 $!
106 $! End The Architecture Specific Directory Check.
107 $!
108 $ ENDIF
109 $!
110 $! Define The Library Name.
111 $!
112 $ LIB_NAME := 'EXE_DIR'LIBDES.OLB
113 $!
114 $! Check To See What We Are To Do.
115 $!
116 $ IF (BUILDALL.EQS."TRUE")
117 $ THEN
118 $!
119 $! Since Nothing Special Was Specified, Do Everything.
120 $!
121 $ GOSUB LIBRARY
122 $ GOSUB DESTEST
123 $ GOSUB SPEED
124 $ GOSUB RPW
125 $ GOSUB DES
126 $ GOSUB DES_OPTS
127 $!
128 $! Else...
129 $!
130 $ ELSE
131 $!
132 $! Build Just What The User Wants Us To Build.
133 $!
134 $ GOSUB 'BUILDALL'
135 $!
136 $! End The BUILDALL Check.
137 $!
138 $ ENDIF
139 $!
140 $! Time To EXIT.
141 $!
142 $ EXIT
143 $ LIBRARY:
144 $!
145 $! Tell The User That We Are Compiling.
146 $!
147 $ WRITE SYS$OUTPUT "Compiling The ",LIB_NAME," Files."
148 $!
149 $! Check To See If We Already Have A "[.xxx.EXE.CRYPTO.DES]LIBDES.OLB" Library...
150 $!
151 $ IF (F$SEARCH(LIB_NAME).EQS."")
152 $ THEN
153 $!
154 $! Guess Not, Create The Library.
155 $!
156 $ LIBRARY/CREATE/OBJECT 'LIB_NAME'
157 $!
158 $! End The Library Exist Check.
159 $!
160 $ ENDIF
161 $!
162 $! Define The DES Library Files.
163 $!
164 $ LIB_DES = "set_key,ecb_enc,cbc_enc,"+ -
165 "ecb3_enc,cfb64enc,cfb64ede,cfb_enc,ofb64ede,"+ -
166 "enc_read,enc_writ,ofb64enc,"+ -
167 "ofb_enc,str2key,pcbc_enc,qud_cksm,rand_key,"+ -
168 "des_enc,fcrypt_b,read2pwd,"+ -
169 "fcrypt,xcbc_enc,read_pwd,rpc_enc,cbc_cksm,supp"
170 $!
171 $! Define A File Counter And Set It To "0".
172 $!
173 $ FILE_COUNTER = 0
174 $!
175 $! Top Of The File Loop.
176 $!
177 $ NEXT_FILE:
178 $!
179 $! O.K, Extract The File Name From The File List.
180 $!
181 $ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",LIB_DES)
182 $!
183 $! Check To See If We Are At The End Of The File List.
184 $!
185 $ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE
186 $!
187 $! Increment The Counter.
188 $!
189 $ FILE_COUNTER = FILE_COUNTER + 1
190 $!
191 $! Create The Source File Name.
192 $!
193 $ SOURCE_FILE = "SYS$DISK:[]" + FILE_NAME + ".C"
194 $!
195 $! Tell The User We Are Compiling The Source File.
196 $!
197 $ WRITE SYS$OUTPUT " ",FILE_NAME,".C"
198 $!
199 $! Create The Object File Name.
200 $!
201 $ OBJECT_FILE = OBJ_DIR + FILE_NAME + "." + ARCH + "OBJ"
202 $ ON WARNING THEN GOTO NEXT_FILE
203 $!
204 $! Check To See If The File We Want To Compile Actually Exists.
205 $!
206 $ IF (F$SEARCH(SOURCE_FILE).EQS."")
207 $ THEN
208 $!
209 $! Tell The User That The File Dosen't Exist.
210 $!
211 $ WRITE SYS$OUTPUT ""
212 $ WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Dosen't Exist."
213 $ WRITE SYS$OUTPUT ""
214 $!
215 $! Exit The Build.
216 $!
217 $ EXIT
218 $!
219 $! End The File Exists Check.
220 $!
221 $ ENDIF
222 $!
223 $! Compile The File.
224 $!
225 $ ON ERROR THEN GOTO NEXT_FILE
226 $ CC/OBJECT='OBJECT_FILE' 'SOURCE_FILE'
227 $!
228 $! Add It To The Library.
229 $!
230 $ LIBRARY/REPLACE/OBJECT 'LIB_NAME' 'OBJECT_FILE'
231 $!
232 $! Time To Clean Up The Object File.
233 $!
234 $ DELETE 'OBJECT_FILE';*
235 $!
236 $! Go Back And Do It Again.
237 $!
238 $ GOTO NEXT_FILE
239 $!
240 $! All Done With This Library Part.
241 $!
242 $ FILE_DONE:
243 $!
244 $! Tell The User That We Are All Done.
245 $!
246 $ WRITE SYS$OUTPUT "Library ",LIB_NAME," Built."
247 $!
248 $! All Done, Time To Return.
249 $!
250 $ RETURN
251 $!
252 $! Compile The DESTEST Program.
253 $!
254 $ DESTEST:
255 $!
256 $! Check To See If We Have The Proper Libraries.
257 $!
258 $ GOSUB LIB_CHECK
259 $!
260 $! Check To See If We Have A Linker Option File.
261 $!
262 $ GOSUB CHECK_OPT_FILE
263 $!
264 $! Check To See If The File We Want To Compile Actually Exists.
265 $!
266 $ IF (F$SEARCH("SYS$DISK:[]DESTEST.C").EQS."")
267 $ THEN
268 $!
269 $! Tell The User That The File Dosen't Exist.
270 $!
271 $ WRITE SYS$OUTPUT ""
272 $ WRITE SYS$OUTPUT "The File DESTEST.C Dosen't Exist."
273 $ WRITE SYS$OUTPUT ""
274 $!
275 $! Exit The Build.
276 $!
277 $ EXIT
278 $!
279 $! End The DESTEST.C File Check.
280 $!
281 $ ENDIF
282 $!
283 $! Tell The User What We Are Building.
284 $!
285 $ WRITE SYS$OUTPUT "Building ",EXE_DIR,"DESTEST.EXE"
286 $!
287 $! Compile The DESTEST Program.
288 $!
289 $ CC/OBJECT='OBJ_DIR'DESTEST.OBJ SYS$DISK:[]DESTEST.C
290 $!
291 $! Link The DESTEST Program.
292 $!
293 $ LINK/'DEBUGGER'/'TRACEBACK'/CONTIGUOUS/EXE='EXE_DIR'DESTEST.EXE -
294 'OBJ_DIR'DESTEST.OBJ,'LIB_NAME'/LIBRARY,'OPT_FILE'/OPTION
295 $!
296 $! All Done, Time To Return.
297 $!
298 $ RETURN
299 $!
300 $! Compile The SPEED Program.
301 $!
302 $ SPEED:
303 $!
304 $! Check To See If We Have The Proper Libraries.
305 $!
306 $ GOSUB LIB_CHECK
307 $!
308 $! Check To See If We Have A Linker Option File.
309 $!
310 $ GOSUB CHECK_OPT_FILE
311 $!
312 $! Check To See If The File We Want To Compile Actually Exists.
313 $!
314 $ IF (F$SEARCH("SYS$DISK:[]SPEED.C").EQS."")
315 $ THEN
316 $!
317 $! Tell The User That The File Dosen't Exist.
318 $!
319 $ WRITE SYS$OUTPUT ""
320 $ WRITE SYS$OUTPUT "The File SPEED.C Dosen't Exist."
321 $ WRITE SYS$OUTPUT ""
322 $!
323 $! Exit The Build.
324 $!
325 $ EXIT
326 $!
327 $! End The SPEED.C File Check.
328 $!
329 $ ENDIF
330 $!
331 $! Tell The User What We Are Building.
332 $!
333 $ WRITE SYS$OUTPUT "Building ",EXE_DIR,"SPEED.EXE"
334 $!
335 $! Compile The SPEED Program.
336 $!
337 $ CC/OBJECT='OBJ_DIR'SPEED.OBJ SYS$DISK:[]SPEED.C
338 $!
339 $! Link The SPEED Program.
340 $!
341 $ LINK/'DEBUGGER'/'TRACEBACK'/CONTIGUOUS/EXE='EXE_DIR'SPEED.EXE -
342 'OBJ_DIR'SPEED.OBJ,'LIB_NAME'/LIBRARY,'OPT_FILE'/OPTION
343 $!
344 $! All Done, Time To Return.
345 $!
346 $ RETURN
347 $!
348 $! Compile The RPW Program.
349 $!
350 $ RPW:
351 $!
352 $! Check To See If We Have The Proper Libraries.
353 $!
354 $ GOSUB LIB_CHECK
355 $!
356 $! Check To See If We Have A Linker Option File.
357 $!
358 $ GOSUB CHECK_OPT_FILE
359 $!
360 $! Check To See If The File We Want To Compile Actually Exists.
361 $!
362 $ IF (F$SEARCH("SYS$DISK:[]RPW.C").EQS."")
363 $ THEN
364 $!
365 $! Tell The User That The File Dosen't Exist.
366 $!
367 $ WRITE SYS$OUTPUT ""
368 $ WRITE SYS$OUTPUT "The File RPW.C Dosen't Exist."
369 $ WRITE SYS$OUTPUT ""
370 $!
371 $! Exit The Build.
372 $!
373 $ EXIT
374 $!
375 $! End The RPW.C File Check.
376 $!
377 $ ENDIF
378 $!
379 $! Tell The User What We Are Building.
380 $!
381 $ WRITE SYS$OUTPUT "Building ",EXE_DIR,"RPW.EXE"
382 $!
383 $! Compile The RPW Program.
384 $!
385 $ CC/OBJECT='OBJ_DIR'RPW.OBJ SYS$DISK:[]RPW.C
386 $!
387 $! Link The RPW Program.
388 $!
389 $ LINK/'DEBUGGER'/'TRACEBACK'/CONTIGUOUS/EXE='EXE_DIR'RPW.EXE -
390 'OBJ_DIR'RPW.OBJ,'LIB_NAME'/LIBRARY,'OPT_FILE'/OPTION
391 $!
392 $! All Done, Time To Return.
393 $!
394 $ RETURN
395 $!
396 $! Compile The DES Program.
397 $!
398 $ DES:
399 $!
400 $! Check To See If We Have The Proper Libraries.
401 $!
402 $ GOSUB LIB_CHECK
403 $!
404 $! Check To See If We Have A Linker Option File.
405 $!
406 $ GOSUB CHECK_OPT_FILE
407 $!
408 $! Check To See If The File We Want To Compile Actually Exists.
409 $!
410 $ IF (F$SEARCH("SYS$DISK:[]DES.C").EQS."")
411 $ THEN
412 $!
413 $! Tell The User That The File Dosen't Exist.
414 $!
415 $ WRITE SYS$OUTPUT ""
416 $ WRITE SYS$OUTPUT "The File DES.C Dosen't Exist."
417 $ WRITE SYS$OUTPUT ""
418 $!
419 $! Exit The Build.
420 $!
421 $ EXIT
422 $!
423 $! End The DES.C File Check.
424 $!
425 $ ENDIF
426 $!
427 $! Tell The User What We Are Building.
428 $!
429 $ WRITE SYS$OUTPUT "Building ",EXE_DIR,"DES.EXE"
430 $!
431 $! Compile The DES Program.
432 $!
433 $ CC/OBJECT='OBJ_DIR'DES.OBJ SYS$DISK:[]DES.C
434 $ CC/OBJECT='OBJ_DIR'DES.OBJ SYS$DISK:[]CBC3_ENC.C
435 $!
436 $! Link The DES Program.
437 $!
438 $ LINK/'DEBUGGER'/'TRACEBACK'/CONTIGUOUS/EXE='EXE_DIR'DES.EXE -
439 'OBJ_DIR'DES.OBJ,'OBJ_DIR'CBC3_ENC.OBJ,-
440 'LIB_NAME'/LIBRARY,'OPT_FILE'/OPTION
441 $!
442 $! All Done, Time To Return.
443 $!
444 $ RETURN
445 $!
446 $! Compile The DES_OPTS Program.
447 $!
448 $ DES_OPTS:
449 $!
450 $! Check To See If We Have The Proper Libraries.
451 $!
452 $ GOSUB LIB_CHECK
453 $!
454 $! Check To See If We Have A Linker Option File.
455 $!
456 $ GOSUB CHECK_OPT_FILE
457 $!
458 $! Check To See If The File We Want To Compile Actually Exists.
459 $!
460 $ IF (F$SEARCH("SYS$DISK:[]DES_OPTS.C").EQS."")
461 $ THEN
462 $!
463 $! Tell The User That The File Dosen't Exist.
464 $!
465 $ WRITE SYS$OUTPUT ""
466 $ WRITE SYS$OUTPUT "The File DES_OPTS.C Dosen't Exist."
467 $ WRITE SYS$OUTPUT ""
468 $!
469 $! Exit The Build.
470 $!
471 $ EXIT
472 $!
473 $! End The DES_OPTS.C File Check.
474 $!
475 $ ENDIF
476 $!
477 $! Tell The User What We Are Building.
478 $!
479 $ WRITE SYS$OUTPUT "Building ",EXE_DIR,"DES_OPTS.EXE"
480 $!
481 $! Compile The DES_OPTS Program.
482 $!
483 $ CC/OBJECT='OBJ_DIR'DES_OPTS.OBJ SYS$DISK:[]DES_OPTS.C
484 $!
485 $! Link The DES_OPTS Program.
486 $!
487 $ LINK/'DEBUGGER'/'TRACEBACK'/CONTIGUOUS/EXE='EXE_DIR'DES_OPTS.EXE -
488 'OBJ_DIR'DES_OPTS.OBJ,'LIB_NAME'/LIBRARY,'OPT_FILE'/OPTION
489 $!
490 $! All Done, Time To Return.
491 $!
492 $ RETURN
493 $ EXIT
494 $!
495 $! Check For The Link Option FIle.
496 $!
497 $ CHECK_OPT_FILE:
498 $!
499 $! Check To See If We Need To Make A VAX C Option File.
500 $!
501 $ IF (COMPILER.EQS."VAXC")
502 $ THEN
503 $!
504 $! Check To See If We Already Have A VAX C Linker Option File.
505 $!
506 $ IF (F$SEARCH(OPT_FILE).EQS."")
507 $ THEN
508 $!
509 $! We Need A VAX C Linker Option File.
510 $!
511 $ CREATE 'OPT_FILE'
512 $DECK
513 !
514 ! Default System Options File To Link Agianst
515 ! The Sharable VAX C Runtime Library.
516 !
517 SYS$SHARE:VAXCRTL.EXE/SHARE
518 $EOD
519 $!
520 $! End The Option File Check.
521 $!
522 $ ENDIF
523 $!
524 $! End The VAXC Check.
525 $!
526 $ ENDIF
527 $!
528 $! Check To See If We Need A GNU C Option File.
529 $!
530 $ IF (COMPILER.EQS."GNUC")
531 $ THEN
532 $!
533 $! Check To See If We Already Have A GNU C Linker Option File.
534 $!
535 $ IF (F$SEARCH(OPT_FILE).EQS."")
536 $ THEN
537 $!
538 $! We Need A GNU C Linker Option File.
539 $!
540 $ CREATE 'OPT_FILE'
541 $DECK
542 !
543 ! Default System Options File To Link Agianst
544 ! The Sharable C Runtime Library.
545 !
546 GNU_CC:[000000]GCCLIB/LIBRARY
547 SYS$SHARE:VAXCRTL/SHARE
548 $EOD
549 $!
550 $! End The Option File Check.
551 $!
552 $ ENDIF
553 $!
554 $! End The GNU C Check.
555 $!
556 $ ENDIF
557 $!
558 $! Check To See If We Need A DEC C Option File.
559 $!
560 $ IF (COMPILER.EQS."DECC")
561 $ THEN
562 $!
563 $! Check To See If We Already Have A DEC C Linker Option File.
564 $!
565 $ IF (F$SEARCH(OPT_FILE).EQS."")
566 $ THEN
567 $!
568 $! Figure Out If We Need An non-VAX Or A VAX Linker Option File.
569 $!
570 $ IF (F$GETSYI("CPU").LT.128)
571 $ THEN
572 $!
573 $! We Need A DEC C Linker Option File For VAX.
574 $!
575 $ CREATE 'OPT_FILE'
576 $DECK
577 !
578 ! Default System Options File To Link Agianst
579 ! The Sharable DEC C Runtime Library.
580 !
581 SYS$SHARE:DECC$SHR.EXE/SHARE
582 $EOD
583 $!
584 $! Else...
585 $!
586 $ ELSE
587 $!
588 $! Create The non-VAX Linker Option File.
589 $!
590 $ CREATE 'OPT_FILE'
591 $DECK
592 !
593 ! Default System Options File For non-VAX To Link Agianst
594 ! The Sharable C Runtime Library.
595 !
596 SYS$SHARE:CMA$OPEN_LIB_SHR/SHARE
597 SYS$SHARE:CMA$OPEN_RTL/SHARE
598 $EOD
599 $!
600 $! End The DEC C Option File Check.
601 $!
602 $ ENDIF
603 $!
604 $! End The Option File Search.
605 $!
606 $ ENDIF
607 $!
608 $! End The DEC C Check.
609 $!
610 $ ENDIF
611 $!
612 $! Tell The User What Linker Option File We Are Using.
613 $!
614 $ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"."
615 $!
616 $! Time To RETURN.
617 $!
618 $ RETURN
619 $!
620 $! Library Check.
621 $!
622 $ LIB_CHECK:
623 $!
624 $! Look For The Library LIBDES.OLB.
625 $!
626 $ IF (F$SEARCH(LIB_NAME).EQS."")
627 $ THEN
628 $!
629 $! Tell The User We Can't Find The [.xxx.CRYPTO.DES]LIBDES.OLB Library.
630 $!
631 $ WRITE SYS$OUTPUT ""
632 $ WRITE SYS$OUTPUT "Can't Find The Library ",LIB_NAME,"."
633 $ WRITE SYS$OUTPUT "We Can't Link Without It."
634 $ WRITE SYS$OUTPUT ""
635 $!
636 $! Since We Can't Link Without It, Exit.
637 $!
638 $ EXIT
639 $ ENDIF
640 $!
641 $! Time To Return.
642 $!
643 $ RETURN
644 $!
645 $! Check The User's Options.
646 $!
647 $ CHECK_OPTIONS:
648 $!
649 $! Check To See If We Are To "Just Build Everything".
650 $!
651 $ IF (P1.EQS."ALL")
652 $ THEN
653 $!
654 $! P1 Is "ALL", So Build Everything.
655 $!
656 $ BUILDALL = "TRUE"
657 $!
658 $! Else...
659 $!
660 $ ELSE
661 $!
662 $! Else, Check To See If P1 Has A Valid Argument.
663 $!
664 $ IF (P1.EQS."LIBRARY").OR.(P1.EQS."DESTEST").OR.(P1.EQS."SPEED") -
665 .OR.(P1.EQS."RPW").OR.(P1.EQS."DES").OR.(P1.EQS."DES_OPTS")
666 $ THEN
667 $!
668 $! A Valid Argument.
669 $!
670 $ BUILDALL = P1
671 $!
672 $! Else...
673 $!
674 $ ELSE
675 $!
676 $! Tell The User We Don't Know What They Want.
677 $!
678 $ WRITE SYS$OUTPUT ""
679 $ WRITE SYS$OUTPUT "The Option ",P1," Is Invalid. The Valid Options Are:"
680 $ WRITE SYS$OUTPUT ""
681 $ WRITE SYS$OUTPUT " ALL : Just Build Everything."
682 $ WRITE SYS$OUTPUT " LIBRARY : To Compile Just The [.xxx.EXE.CRYPTO.DES]LIBDES.OLB Library."
683 $ WRITE SYS$OUTPUT " DESTEST : To Compile Just The [.xxx.EXE.CRYPTO.DES]DESTEST.EXE Program."
684 $ WRITE SYS$OUTPUT " SPEED : To Compile Just The [.xxx.EXE.CRYPTO.DES]SPEED.EXE Program."
685 $ WRITE SYS$OUTPUT " RPW : To Compile Just The [.xxx.EXE.CRYPTO.DES]RPW.EXE Program."
686 $ WRITE SYS$OUTPUT " DES : To Compile Just The [.xxx.EXE.CRYPTO.DES]DES.EXE Program."
687 $ WRITE SYS$OUTPUT " DES_OPTS : To Compile Just The [.xxx.EXE.CRYTPO.DES]DES_OPTS.EXE Program."
688 $ WRITE SYS$OUTPUT ""
689 $ WRITE SYS$OUTPUT " Where 'xxx' Stands For: "
690 $ WRITE SYS$OUTPUT ""
691 $ WRITE SYS$OUTPUT " ALPHA : Alpha Architecture."
692 $ WRITE SYS$OUTPUT " IA64 : IA64 Architecture."
693 $ WRITE SYS$OUTPUT " VAX : VAX Architecture."
694 $ WRITE SYS$OUTPUT ""
695 $!
696 $! Time To EXIT.
697 $!
698 $ EXIT
699 $!
700 $! End The Valid Argument Check.
701 $!
702 $ ENDIF
703 $!
704 $! End The P1 Check.
705 $!
706 $ ENDIF
707 $!
708 $! Check To See If We Are To Compile Without Debugger Information.
709 $!
710 $ IF (P2.EQS."NODEBUG")
711 $ THEN
712 $!
713 $! P2 Is Blank, So Compile Without Debugger Information.
714 $!
715 $ DEBUGGER = "NODEBUG"
716 $ TRACEBACK = "NOTRACEBACK"
717 $ GCC_OPTIMIZE = "OPTIMIZE"
718 $ CC_OPTIMIZE = "OPTIMIZE"
719 $ WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile."
720 $ WRITE SYS$OUTPUT "Compiling With Compiler Optimization."
721 $!
722 $! Else...
723 $!
724 $ ELSE
725 $!
726 $! Check To See If We Are To Compile With Debugger Information.
727 $!
728 $ IF (P2.EQS."DEBUG")
729 $ THEN
730 $!
731 $! Compile With Debugger Information.
732 $!
733 $ DEBUGGER = "DEBUG"
734 $ TRACEBACK = "TRACEBACK"
735 $ GCC_OPTIMIZE = "NOOPTIMIZE"
736 $ CC_OPTIMIZE = "NOOPTIMIZE"
737 $ WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile."
738 $ WRITE SYS$OUTPUT "Compiling Without Compiler Optimization."
739 $!
740 $! Else...
741 $!
742 $ ELSE
743 $!
744 $! Tell The User Entered An Invalid Option..
745 $!
746 $ WRITE SYS$OUTPUT ""
747 $ WRITE SYS$OUTPUT "The Option ",P2," Is Invalid. The Valid Options Are:"
748 $ WRITE SYS$OUTPUT ""
749 $ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information."
750 $ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information."
751 $ WRITE SYS$OUTPUT ""
752 $!
753 $! Time To EXIT.
754 $!
755 $ EXIT
756 $!
757 $! End The Valid Argument Check.
758 $!
759 $ ENDIF
760 $!
761 $! End The P2 Check.
762 $!
763 $ ENDIF
764 $!
765 $! Special Threads For OpenVMS v7.1 Or Later.
766 $!
767 $! Written By: Richard Levitte
768 $! richard@levitte.org
769 $!
770 $!
771 $! Check To See If We Have A Option For P4.
772 $!
773 $ IF (P4.EQS."")
774 $ THEN
775 $!
776 $! Get The Version Of VMS We Are Using.
777 $!
778 $ ISSEVEN := ""
779 $ TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
780 $ TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
781 $!
782 $! Check To See If The VMS Version Is v7.1 Or Later.
783 $!
784 $ IF (TMP.GE.71)
785 $ THEN
786 $!
787 $! We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
788 $!
789 $ ISSEVEN := ,PTHREAD_USE_D4
790 $!
791 $! End The VMS Version Check.
792 $!
793 $ ENDIF
794 $!
795 $! End The P4 Check.
796 $!
797 $ ENDIF
798 $!
799 $! Check To See If P3 Is Blank.
800 $!
801 $ IF (P3.EQS."")
802 $ THEN
803 $!
804 $! O.K., The User Didn't Specify A Compiler, Let's Try To
805 $! Find Out Which One To Use.
806 $!
807 $! Check To See If We Have GNU C.
808 $!
809 $ IF (F$TRNLNM("GNU_CC").NES."")
810 $ THEN
811 $!
812 $! Looks Like GNUC, Set To Use GNUC.
813 $!
814 $ P3 = "GNUC"
815 $!
816 $! Else...
817 $!
818 $ ELSE
819 $!
820 $! Check To See If We Have VAXC Or DECC.
821 $!
822 $ IF (ARCH.NES."VAX").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."")
823 $ THEN
824 $!
825 $! Looks Like DECC, Set To Use DECC.
826 $!
827 $ P3 = "DECC"
828 $!
829 $! Else...
830 $!
831 $ ELSE
832 $!
833 $! Looks Like VAXC, Set To Use VAXC.
834 $!
835 $ P3 = "VAXC"
836 $!
837 $! End The VAXC Compiler Check.
838 $!
839 $ ENDIF
840 $!
841 $! End The DECC & VAXC Compiler Check.
842 $!
843 $ ENDIF
844 $!
845 $! End The Compiler Check.
846 $!
847 $ ENDIF
848 $!
849 $! Set Up Initial CC Definitions, Possibly With User Ones
850 $!
851 $ CCDEFS = ""
852 $ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = USER_CCDEFS
853 $ CCEXTRAFLAGS = ""
854 $ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS
855 $ CCDISABLEWARNINGS = ""
856 $ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN -
857 CCDISABLEWARNINGS = USER_CCDISABLEWARNINGS
858 $!
859 $! Check To See If The User Entered A Valid Paramter.
860 $!
861 $ IF (P3.EQS."VAXC").OR.(P3.EQS."DECC").OR.(P3.EQS."GNUC")
862 $ THEN
863 $!
864 $! Check To See If The User Wanted DECC.
865 $!
866 $ IF (P3.EQS."DECC")
867 $ THEN
868 $!
869 $! Looks Like DECC, Set To Use DECC.
870 $!
871 $ COMPILER = "DECC"
872 $!
873 $! Tell The User We Are Using DECC.
874 $!
875 $ WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
876 $!
877 $! Use DECC...
878 $!
879 $ CC = "CC"
880 $ IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" -
881 THEN CC = "CC/DECC"
882 $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/STANDARD=ANSI89" + -
883 "/NOLIST/PREFIX=ALL" + CCEXTRAFLAGS
884 $!
885 $! Define The Linker Options File Name.
886 $!
887 $ OPT_FILE = "''EXE_DIR'VAX_DECC_OPTIONS.OPT"
888 $!
889 $! End DECC Check.
890 $!
891 $ ENDIF
892 $!
893 $! Check To See If We Are To Use VAXC.
894 $!
895 $ IF (P3.EQS."VAXC")
896 $ THEN
897 $!
898 $! Looks Like VAXC, Set To Use VAXC.
899 $!
900 $ COMPILER = "VAXC"
901 $!
902 $! Tell The User We Are Using VAX C.
903 $!
904 $ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
905 $!
906 $! Compile Using VAXC.
907 $!
908 $ CC = "CC"
909 $ IF ARCH.NES."VAX"
910 $ THEN
911 $ WRITE SYS$OUTPUT "There is no VAX C on ''ARCH'!"
912 $ EXIT
913 $ ENDIF
914 $ IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC/VAXC"
915 $ CC = CC + "/''CC_OPTIMIZE'/''DEBUGGER'/NOLIST" + CCEXTRAFLAGS
916 $ CCDEFS = """VAXC""," + CCDEFS
917 $!
918 $! Define <sys> As SYS$COMMON:[SYSLIB]
919 $!
920 $ DEFINE/NOLOG SYS SYS$COMMON:[SYSLIB]
921 $!
922 $! Define The Linker Options File Name.
923 $!
924 $ OPT_FILE = "''EXE_DIR'VAX_VAXC_OPTIONS.OPT"
925 $!
926 $! End VAXC Check
927 $!
928 $ ENDIF
929 $!
930 $! Check To See If We Are To Use GNU C.
931 $!
932 $ IF (P3.EQS."GNUC")
933 $ THEN
934 $!
935 $! Looks Like GNUC, Set To Use GNUC.
936 $!
937 $ COMPILER = "GNUC"
938 $!
939 $! Tell The User We Are Using GNUC.
940 $!
941 $ WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
942 $!
943 $! Use GNU C...
944 $!
945 $ CC = "GCC/NOCASE_HACK/''GCC_OPTIMIZE'/''DEBUGGER'/NOLIST" + CCEXTRAFLAGS
946 $!
947 $! Define The Linker Options File Name.
948 $!
949 $ OPT_FILE = "''EXE_DIR'VAX_GNUC_OPTIONS.OPT"
950 $!
951 $! End The GNU C Check.
952 $!
953 $ ENDIF
954 $!
955 $! Set up default defines
956 $!
957 $ CCDEFS = """FLAT_INC=1""," + CCDEFS
958 $!
959 $! Finish up the definition of CC.
960 $!
961 $ IF COMPILER .EQS. "DECC"
962 $ THEN
963 $ IF CCDISABLEWARNINGS .EQS. ""
964 $ THEN
965 $ CC4DISABLEWARNINGS = "DOLLARID"
966 $ ELSE
967 $ CC4DISABLEWARNINGS = CCDISABLEWARNINGS + ",DOLLARID"
968 $ CCDISABLEWARNINGS = "/WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))"
969 $ ENDIF
970 $ CC4DISABLEWARNINGS = "/WARNING=(DISABLE=(" + CC4DISABLEWARNINGS + "))"
971 $ ELSE
972 $ CCDISABLEWARNINGS = ""
973 $ CC4DISABLEWARNINGS = ""
974 $ ENDIF
975 $ CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS
976 $!
977 $! Show user the result
978 $!
979 $ WRITE SYS$OUTPUT "Main Compiling Command: ",CC
980 $!
981 $! Else The User Entered An Invalid Argument.
982 $!
983 $ ELSE
984 $!
985 $! Tell The User We Don't Know What They Want.
986 $!
987 $ WRITE SYS$OUTPUT ""
988 $ WRITE SYS$OUTPUT "The Option ",P3," Is Invalid. The Valid Options Are:"
989 $ WRITE SYS$OUTPUT ""
990 $ WRITE SYS$OUTPUT " VAXC : To Compile With VAX C."
991 $ WRITE SYS$OUTPUT " DECC : To Compile With DEC C."
992 $ WRITE SYS$OUTPUT " GNUC : To Compile With GNU C."
993 $ WRITE SYS$OUTPUT ""
994 $!
995 $! Time To EXIT.
996 $!
997 $ EXIT
998 $!
999 $! End The P3 Check.
1000 $!
1001 $ ENDIF
1002 $!
1003 $! Time To RETURN...
1004 $!
1005 $ RETURN