1$! 2$! MAKETESTS.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$! Zoltan Arpadffy <arpadffy@polarhome.com> 10$! 11$! This command files compiles and creates all the various different 12$! "test" programs for the different types of encryption for OpenSSL. 13$! It was written so it would try to determine what "C" compiler to 14$! use or you can specify which "C" compiler to use. 15$! 16$! The test "executables" will be placed in a directory called 17$! [.xxx.EXE.TEST] where "xxx" denotes ALPHA, IA64, or VAX, depending 18$! on your machine architecture. 19$! 20$! Specify DEBUG or NODEBUG P1 to compile with or without debugger 21$! information. 22$! 23$! Specify which compiler at P2 to try to compile under. 24$! 25$! VAXC For VAX C. 26$! DECC For DEC C. 27$! GNUC For GNU C. 28$! 29$! If you don't specify a compiler, it will try to determine which 30$! "C" compiler to use. 31$! 32$! P3, if defined, sets a TCP/IP library to use, through one of the following 33$! keywords: 34$! 35$! UCX for UCX 36$! SOCKETSHR for SOCKETSHR+NETLIB 37$! 38$! P4, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up) 39$! 40$! 41$! P5, if defined, specifies the C pointer size. Ignored on VAX. 42$! ("64=ARGV" gives more efficient code with HP C V7.3 or newer.) 43$! Supported values are: 44$! 45$! "" Compile with default (/NOPOINTER_SIZE) 46$! 32 Compile with /POINTER_SIZE=32 (SHORT) 47$! 64 Compile with /POINTER_SIZE=64[=ARGV] (LONG[=ARGV]) 48$! (Automatically select ARGV if compiler supports it.) 49$! 64= Compile with /POINTER_SIZE=64 (LONG). 50$! 64=ARGV Compile with /POINTER_SIZE=64=ARGV (LONG=ARGV). 51$! 52$! P6, if defined, specifies a directory where ZLIB files (zlib.h, 53$! libz.olb) may be found. Optionally, a non-default object library 54$! name may be included ("dev:[dir]libz_64.olb", for example). 55$! 56$! 57$! Announce/identify. 58$! 59$ proc = f$environment( "procedure") 60$ write sys$output "@@@ "+ - 61 f$parse( proc, , , "name")+ f$parse( proc, , , "type") 62$! 63$! Define A TCP/IP Library That We Will Need To Link To. 64$! (That is, If We Need To Link To One.) 65$! 66$ TCPIP_LIB = "" 67$ ZLIB_LIB = "" 68$! 69$! Check Which Architecture We Are Using. 70$! 71$ if (f$getsyi( "cpu") .lt. 128) 72$ then 73$ ARCH = "VAX" 74$ else 75$ ARCH = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") 76$ if (ARCH .eqs. "") then ARCH = "UNK" 77$ endif 78$! 79$ ARCHD = ARCH 80$ LIB32 = "32" 81$ OPT_FILE = "" 82$ POINTER_SIZE = "" 83$! 84$! Check To Make Sure We Have Valid Command Line Parameters. 85$! 86$ GOSUB CHECK_OPTIONS 87$! 88$! Define The OBJ and EXE Directories. 89$! 90$ OBJ_DIR := SYS$DISK:[-.'ARCHD'.OBJ.TEST] 91$ EXE_DIR := SYS$DISK:[-.'ARCHD'.EXE.TEST] 92$! 93$! Specify the destination directory in any /MAP option. 94$! 95$ if (LINKMAP .eqs. "MAP") 96$ then 97$ LINKMAP = LINKMAP+ "=''EXE_DIR'" 98$ endif 99$! 100$! Add the location prefix to the linker options file name. 101$! 102$ if (OPT_FILE .nes. "") 103$ then 104$ OPT_FILE = EXE_DIR+ OPT_FILE 105$ endif 106$! 107$! Initialise logical names and such 108$! 109$ GOSUB INITIALISE 110$! 111$! Tell The User What Kind of Machine We Run On. 112$! 113$ WRITE SYS$OUTPUT "Host system architecture: ''ARCHD'" 114$! 115$! Define The CRYPTO-LIB We Are To Use. 116$! 117$ CRYPTO_LIB := SYS$DISK:[-.'ARCHD'.EXE.CRYPTO]SSL_LIBCRYPTO'LIB32'.OLB 118$! 119$! Define The SSL We Are To Use. 120$! 121$ SSL_LIB := SYS$DISK:[-.'ARCHD'.EXE.SSL]SSL_LIBSSL'LIB32'.OLB 122$! 123$! Create the OBJ and EXE Directories, if needed. 124$! 125$ IF (F$PARSE(OBJ_DIR).EQS."") THEN - 126 CREATE /DIRECTORY 'OBJ_DIR' 127$ IF (F$PARSE(EXE_DIR).EQS."") THEN - 128 CREATE /DIRECTORY 'EXE_DIR' 129$! 130$! Check To See If We Have The Proper Libraries. 131$! 132$ GOSUB LIB_CHECK 133$! 134$! Check To See If We Have A Linker Option File. 135$! 136$ GOSUB CHECK_OPT_FILE 137$! 138$! Define The TEST Files. 139$! NOTE: Some might think this list ugly. However, it's made this way to 140$! reflect the EXE variable in Makefile as closely as possible, 141$! thereby making it fairly easy to verify that the lists are the same. 142$! 143$ TEST_FILES = "BNTEST,ECTEST,ECDSATEST,ECDHTEST,IDEATEST,"+ - 144 "MD2TEST,MD4TEST,MD5TEST,HMACTEST,WP_TEST,"+ - 145 "RC2TEST,RC4TEST,RC5TEST,"+ - 146 "DESTEST,SHATEST,SHA1TEST,SHA256T,SHA512T,"+ - 147 "MDC2TEST,RMDTEST,"+ - 148 "RANDTEST,DHTEST,ENGINETEST,"+ - 149 "BFTEST,CASTTEST,SSLTEST,EXPTEST,DSATEST,RSA_TEST,"+ - 150 "EVP_TEST,IGETEST,JPAKETEST,SRPTEST,"+ - 151 "ASN1TEST,HEARTBEAT_TEST,CONSTANT_TIME_TEST" 152$! Should we add MTTEST,PQ_TEST,LH_TEST,DIVTEST,TABTEST as well? 153$! 154$! Additional directory information. 155$ T_D_BNTEST := [-.crypto.bn] 156$ T_D_ECTEST := [-.crypto.ec] 157$ T_D_ECDSATEST := [-.crypto.ecdsa] 158$ T_D_ECDHTEST := [-.crypto.ecdh] 159$ T_D_IDEATEST := [-.crypto.idea] 160$ T_D_MD2TEST := [-.crypto.md2] 161$ T_D_MD4TEST := [-.crypto.md4] 162$ T_D_MD5TEST := [-.crypto.md5] 163$ T_D_HMACTEST := [-.crypto.hmac] 164$ T_D_WP_TEST := [-.crypto.whrlpool] 165$ T_D_RC2TEST := [-.crypto.rc2] 166$ T_D_RC4TEST := [-.crypto.rc4] 167$ T_D_RC5TEST := [-.crypto.rc5] 168$ T_D_DESTEST := [-.crypto.des] 169$ T_D_SHATEST := [-.crypto.sha] 170$ T_D_SHA1TEST := [-.crypto.sha] 171$ T_D_SHA256T := [-.crypto.sha] 172$ T_D_SHA512T := [-.crypto.sha] 173$ T_D_MDC2TEST := [-.crypto.mdc2] 174$ T_D_RMDTEST := [-.crypto.ripemd] 175$ T_D_RANDTEST := [-.crypto.rand] 176$ T_D_DHTEST := [-.crypto.dh] 177$ T_D_ENGINETEST := [-.crypto.engine] 178$ T_D_BFTEST := [-.crypto.bf] 179$ T_D_CASTTEST := [-.crypto.cast] 180$ T_D_SSLTEST := [-.ssl] 181$ T_D_EXPTEST := [-.crypto.bn] 182$ T_D_DSATEST := [-.crypto.dsa] 183$ T_D_RSA_TEST := [-.crypto.rsa] 184$ T_D_EVP_TEST := [-.crypto.evp] 185$ T_D_IGETEST := [-.test] 186$ T_D_JPAKETEST := [-.crypto.jpake] 187$ T_D_SRPTEST := [-.crypto.srp] 188$ T_D_ASN1TEST := [-.test] 189$ T_D_HEARTBEAT_TEST := [-.ssl] 190$ T_D_CONSTANT_TIME_TEST := [-.crypto] 191$! 192$ TCPIP_PROGRAMS = ",," 193$ IF COMPILER .EQS. "VAXC" THEN - 194 TCPIP_PROGRAMS = ",SSLTEST," 195$! 196$! Define A File Counter And Set It To "0". 197$! 198$ FILE_COUNTER = 0 199$! 200$! Top Of The File Loop. 201$! 202$ NEXT_FILE: 203$! 204$! O.K, Extract The File Name From The File List. 205$! 206$ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",TEST_FILES) 207$! 208$! Check To See If We Are At The End Of The File List. 209$! 210$ IF (FILE_NAME.EQS.",") THEN GOTO FILE_DONE 211$! 212$! Increment The Counter. 213$! 214$ FILE_COUNTER = FILE_COUNTER + 1 215$! 216$! Create The Source File Name. 217$! 218$ SOURCE_FILE = "SYS$DISK:" + T_D_'FILE_NAME' + FILE_NAME + ".C" 219$! 220$! Create The Object File Name. 221$! 222$ OBJECT_FILE = OBJ_DIR + FILE_NAME + ".OBJ" 223$! 224$! Create The Executable File Name. 225$! 226$ EXE_FILE = EXE_DIR + FILE_NAME + ".EXE" 227$ ON WARNING THEN GOTO NEXT_FILE 228$! 229$! Check To See If The File We Want To Compile Actually Exists. 230$! 231$ IF (F$SEARCH(SOURCE_FILE).EQS."") 232$ THEN 233$! 234$! Tell The User That The File Dosen't Exist. 235$! 236$ WRITE SYS$OUTPUT "" 237$ WRITE SYS$OUTPUT "The File ",SOURCE_FILE," Dosen't Exist." 238$ WRITE SYS$OUTPUT "" 239$! 240$! Exit The Build. 241$! 242$ GOTO EXIT 243$ ENDIF 244$! 245$! Tell The User What We Are Building. 246$! 247$ WRITE SYS$OUTPUT "Building The ",FILE_NAME," Test Program." 248$! 249$! Compile The File. 250$! 251$ ON ERROR THEN GOTO NEXT_FILE 252$ CC /OBJECT='OBJECT_FILE' 'SOURCE_FILE' 253$ ON WARNING THEN GOTO NEXT_FILE 254$! 255$! Check If What We Are About To Compile Works Without A TCP/IP Library. 256$! 257$ IF ((TCPIP_LIB.EQS."").AND.((TCPIP_PROGRAMS-FILE_NAME).NES.TCPIP_PROGRAMS)) 258$ THEN 259$! 260$! Inform The User That A TCP/IP Library Is Needed To Compile This Program. 261$! 262$ WRITE SYS$OUTPUT - 263 FILE_NAME," Needs A TCP/IP Library. Can't Link. Skipping..." 264$ GOTO NEXT_FILE 265$! 266$! End The TCP/IP Library Check. 267$! 268$ ENDIF 269$! 270$! Link The Program, Check To See If We Need To Link With RSAREF Or Not. 271$! Check To See If We Are To Link With A Specific TCP/IP Library. 272$! 273$! Don't Link With The RSAREF Routines And TCP/IP Library. 274$! 275$ LINK /'DEBUGGER' /'LINKMAP' /'TRACEBACK' /EXECTABLE = 'EXE_FILE' - 276 'OBJECT_FILE', - 277 'SSL_LIB' /LIBRARY, - 278 'CRYPTO_LIB' /LIBRARY - 279 'TCPIP_LIB' - 280 'ZLIB_LIB' - 281 ,'OPT_FILE' /OPTIONS 282$! 283$! Go Back And Do It Again. 284$! 285$ GOTO NEXT_FILE 286$! 287$! All Done With This Library Part. 288$! 289$ FILE_DONE: 290$! 291$! All Done, Time To Exit. 292$! 293$ EXIT: 294$ GOSUB CLEANUP 295$ EXIT 296$! 297$! Check For The Link Option FIle. 298$! 299$ CHECK_OPT_FILE: 300$! 301$! Check To See If We Need To Make A VAX C Option File. 302$! 303$ IF (COMPILER.EQS."VAXC") 304$ THEN 305$! 306$! Check To See If We Already Have A VAX C Linker Option File. 307$! 308$ IF (F$SEARCH(OPT_FILE).EQS."") 309$ THEN 310$! 311$! We Need A VAX C Linker Option File. 312$! 313$ CREATE 'OPT_FILE' 314$DECK 315! 316! Default System Options File To Link Against 317! The Sharable VAX C Runtime Library. 318! 319SYS$SHARE:VAXCRTL.EXE /SHAREABLE 320$EOD 321$! 322$! End The Option File Check. 323$! 324$ ENDIF 325$! 326$! End The VAXC Check. 327$! 328$ ENDIF 329$! 330$! Check To See If We Need A GNU C Option File. 331$! 332$ IF (COMPILER.EQS."GNUC") 333$ THEN 334$! 335$! Check To See If We Already Have A GNU C Linker Option File. 336$! 337$ IF (F$SEARCH(OPT_FILE).EQS."") 338$ THEN 339$! 340$! We Need A GNU C Linker Option File. 341$! 342$ CREATE 'OPT_FILE' 343$DECK 344! 345! Default System Options File To Link Against 346! The Sharable C Runtime Library. 347! 348GNU_CC:[000000]GCCLIB.OLB /LIBRARY 349SYS$SHARE:VAXCRTL.EXE /SHAREABLE 350$EOD 351$! 352$! End The Option File Check. 353$! 354$ ENDIF 355$! 356$! End The GNU C Check. 357$! 358$ ENDIF 359$! 360$! Check To See If We Need A DEC C Option File. 361$! 362$ IF (COMPILER.EQS."DECC") 363$ THEN 364$! 365$! Check To See If We Already Have A DEC C Linker Option File. 366$! 367$ IF (F$SEARCH(OPT_FILE).EQS."") 368$ THEN 369$! 370$! Figure Out If We Need A non-VAX Or A VAX Linker Option File. 371$! 372$ IF (ARCH.EQS."VAX") 373$ THEN 374$! 375$! We Need A DEC C Linker Option File For VAX. 376$! 377$ CREATE 'OPT_FILE' 378$DECK 379! 380! Default System Options File To Link Against 381! The Sharable DEC C Runtime Library. 382! 383SYS$SHARE:DECC$SHR.EXE /SHAREABLE 384$EOD 385$! 386$! Else... 387$! 388$ ELSE 389$! 390$! Create The non-VAX Linker Option File. 391$! 392$ CREATE 'OPT_FILE' 393$DECK 394! 395! Default System Options File For non-VAX To Link Against 396! The Sharable C Runtime Library. 397! 398SYS$SHARE:CMA$OPEN_LIB_SHR.EXE /SHAREABLE 399SYS$SHARE:CMA$OPEN_RTL.EXE /SHAREABLE 400$EOD 401$! 402$! End The DEC C Option File Check. 403$! 404$ ENDIF 405$! 406$! End The Option File Search. 407$! 408$ ENDIF 409$! 410$! End The DEC C Check. 411$! 412$ ENDIF 413$! 414$! Tell The User What Linker Option File We Are Using. 415$! 416$ WRITE SYS$OUTPUT "Using Linker Option File ",OPT_FILE,"." 417$! 418$! Time To RETURN. 419$! 420$ RETURN 421$! 422$! Check To See If We Have The Appropiate Libraries. 423$! 424$ LIB_CHECK: 425$! 426$! Look For The Library LIBCRYPTO.OLB. 427$! 428$ IF (F$SEARCH(CRYPTO_LIB).EQS."") 429$ THEN 430$! 431$! Tell The User We Can't Find The LIBCRYPTO.OLB Library. 432$! 433$ WRITE SYS$OUTPUT "" 434$ WRITE SYS$OUTPUT "Can't Find The Library ",CRYPTO_LIB,"." 435$ WRITE SYS$OUTPUT "We Can't Link Without It." 436$ WRITE SYS$OUTPUT "" 437$! 438$! Since We Can't Link Without It, Exit. 439$! 440$ EXIT 441$! 442$! End The Crypto Library Check. 443$! 444$ ENDIF 445$! 446$! Look For The Library LIBSSL.OLB. 447$! 448$ IF (F$SEARCH(SSL_LIB).EQS."") 449$ THEN 450$! 451$! Tell The User We Can't Find The LIBSSL.OLB Library. 452$! 453$ WRITE SYS$OUTPUT "" 454$ WRITE SYS$OUTPUT "Can't Find The Library ",SSL_LIB,"." 455$ WRITE SYS$OUTPUT "Some Of The Test Programs Need To Link To It." 456$ WRITE SYS$OUTPUT "" 457$! 458$! Since We Can't Link Without It, Exit. 459$! 460$ EXIT 461$! 462$! End The SSL Library Check. 463$! 464$ ENDIF 465$! 466$! Time To Return. 467$! 468$ RETURN 469$! 470$! Check The User's Options. 471$! 472$ CHECK_OPTIONS: 473$! 474$! Set basic C compiler /INCLUDE directories. 475$! 476$ CC_INCLUDES = "SYS$DISK:[-],SYS$DISK:[-.CRYPTO]" 477$! 478$! Check To See If P1 Is Blank. 479$! 480$ IF (P1.EQS."NODEBUG") 481$ THEN 482$! 483$! P1 Is NODEBUG, So Compile Without Debugger Information. 484$! 485$ DEBUGGER = "NODEBUG" 486$ LINKMAP = "NOMAP" 487$ TRACEBACK = "NOTRACEBACK" 488$ GCC_OPTIMIZE = "OPTIMIZE" 489$ CC_OPTIMIZE = "OPTIMIZE" 490$ WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile." 491$ WRITE SYS$OUTPUT "Compiling With Compiler Optimization." 492$! 493$! Else... 494$! 495$ ELSE 496$! 497$! Check To See If We Are To Compile With Debugger Information. 498$! 499$ IF (P1.EQS."DEBUG") 500$ THEN 501$! 502$! Compile With Debugger Information. 503$! 504$ DEBUGGER = "DEBUG" 505$ LINKMAP = "MAP" 506$ TRACEBACK = "TRACEBACK" 507$ GCC_OPTIMIZE = "NOOPTIMIZE" 508$ CC_OPTIMIZE = "NOOPTIMIZE" 509$ WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile." 510$ WRITE SYS$OUTPUT "Compiling Without Compiler Optimization." 511$! 512$! Else... 513$! 514$ ELSE 515$! 516$! Tell The User Entered An Invalid Option. 517$! 518$ WRITE SYS$OUTPUT "" 519$ WRITE SYS$OUTPUT "The Option ",P1," Is Invalid. The Valid Options Are:" 520$ WRITE SYS$OUTPUT "" 521$ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information." 522$ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information." 523$ WRITE SYS$OUTPUT "" 524$! 525$! Time To EXIT. 526$! 527$ EXIT 528$! 529$! End The Valid Argument Check. 530$! 531$ ENDIF 532$! 533$! End The P1 Check. 534$! 535$ ENDIF 536$! 537$! Check P5 (POINTER_SIZE). 538$! 539$ IF (P5 .NES. "") .AND. (ARCH .NES. "VAX") 540$ THEN 541$! 542$ IF (P5 .EQS. "32") 543$ THEN 544$ POINTER_SIZE = " /POINTER_SIZE=32" 545$ ELSE 546$ POINTER_SIZE = F$EDIT( P5, "COLLAPSE, UPCASE") 547$ IF ((POINTER_SIZE .EQS. "64") .OR. - 548 (POINTER_SIZE .EQS. "64=") .OR. - 549 (POINTER_SIZE .EQS. "64=ARGV")) 550$ THEN 551$ ARCHD = ARCH+ "_64" 552$ LIB32 = "" 553$ IF (F$EXTRACT( 2, 1, POINTER_SIZE) .EQS. "=") 554$ THEN 555$! Explicit user choice: "64" or "64=ARGV". 556$ IF (POINTER_SIZE .EQS. "64=") THEN POINTER_SIZE = "64" 557$ ELSE 558$ SET NOON 559$ DEFINE /USER_MODE SYS$OUTPUT NL: 560$ DEFINE /USER_MODE SYS$ERROR NL: 561$ CC /NOLIST /NOOBJECT /POINTER_SIZE=64=ARGV NL: 562$ IF ($STATUS .AND. %X0FFF0000) .EQ. %X00030000 563$ THEN 564$ ! If we got here, it means DCL complained like this: 565$ ! %DCL-W-NOVALU, value not allowed - remove value specification 566$ ! \64=\ 567$ ! 568$ ! If the compiler was run, logicals defined in /USER would 569$ ! have been deassigned automatically. However, when DCL 570$ ! complains, they aren't, so we do it here (it might be 571$ ! unnecessary, but just in case there will be another error 572$ ! message further on that we don't want to miss) 573$ DEASSIGN /USER_MODE SYS$ERROR 574$ DEASSIGN /USER_MODE SYS$OUTPUT 575$ ELSE 576$ POINTER_SIZE = POINTER_SIZE + "=ARGV" 577$ ENDIF 578$ SET ON 579$ ENDIF 580$ POINTER_SIZE = " /POINTER_SIZE=''POINTER_SIZE'" 581$ ELSE 582$! 583$! Tell The User Entered An Invalid Option. 584$! 585$ WRITE SYS$OUTPUT "" 586$ WRITE SYS$OUTPUT "The Option ", P5, - 587 " Is Invalid. The Valid Options Are:" 588$ WRITE SYS$OUTPUT "" 589$ WRITE SYS$OUTPUT - 590 " """" : Compile with default (short) pointers." 591$ WRITE SYS$OUTPUT - 592 " 32 : Compile with 32-bit (short) pointers." 593$ WRITE SYS$OUTPUT - 594 " 64 : Compile with 64-bit (long) pointers (auto ARGV)." 595$ WRITE SYS$OUTPUT - 596 " 64= : Compile with 64-bit (long) pointers (no ARGV)." 597$ WRITE SYS$OUTPUT - 598 " 64=ARGV : Compile with 64-bit (long) pointers (ARGV)." 599$ WRITE SYS$OUTPUT "" 600$! 601$! Time To EXIT. 602$! 603$ EXIT 604$! 605$ ENDIF 606$! 607$ ENDIF 608$! 609$! End The P5 (POINTER_SIZE) Check. 610$! 611$ ENDIF 612$! 613$! Check To See If P2 Is Blank. 614$! 615$ IF (P2.EQS."") 616$ THEN 617$! 618$! O.K., The User Didn't Specify A Compiler, Let's Try To 619$! Find Out Which One To Use. 620$! 621$! Check To See If We Have GNU C. 622$! 623$ IF (F$TRNLNM("GNU_CC").NES."") 624$ THEN 625$! 626$! Looks Like GNUC, Set To Use GNUC. 627$! 628$ P2 = "GNUC" 629$! 630$! End The GNU C Compiler Check. 631$! 632$ ELSE 633$! 634$! Check To See If We Have VAXC Or DECC. 635$! 636$ IF (ARCH.NES."VAX").OR.(F$TRNLNM("DECC$CC_DEFAULT").NES."") 637$ THEN 638$! 639$! Looks Like DECC, Set To Use DECC. 640$! 641$ P2 = "DECC" 642$! 643$! Else... 644$! 645$ ELSE 646$! 647$! Looks Like VAXC, Set To Use VAXC. 648$! 649$ P2 = "VAXC" 650$! 651$! End The VAXC Compiler Check. 652$! 653$ ENDIF 654$! 655$! End The DECC & VAXC Compiler Check. 656$! 657$ ENDIF 658$! 659$! End The Compiler Check. 660$! 661$ ENDIF 662$! 663$! Check To See If We Have A Option For P3. 664$! 665$ IF (P3.EQS."") 666$ THEN 667$! 668$! Find out what socket library we have available 669$! 670$ IF F$PARSE("SOCKETSHR:") .NES. "" 671$ THEN 672$! 673$! We have SOCKETSHR, and it is my opinion that it's the best to use. 674$! 675$ P3 = "SOCKETSHR" 676$! 677$! Tell the user 678$! 679$ WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP" 680$! 681$! Else, let's look for something else 682$! 683$ ELSE 684$! 685$! Like UCX (the reason to do this before Multinet is that the UCX 686$! emulation is easier to use...) 687$! 688$ IF F$TRNLNM("UCX$IPC_SHR") .NES. "" - 689 .OR. F$PARSE("SYS$SHARE:UCX$IPC_SHR.EXE") .NES. "" - 690 .OR. F$PARSE("SYS$LIBRARY:UCX$IPC.OLB") .NES. "" 691$ THEN 692$! 693$! Last resort: a UCX or UCX-compatible library 694$! 695$ P3 = "UCX" 696$! 697$! Tell the user 698$! 699$ WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP" 700$! 701$! That was all... 702$! 703$ ENDIF 704$ ENDIF 705$ ENDIF 706$! 707$! Set Up Initial CC Definitions, Possibly With User Ones 708$! 709$ CCDEFS = "TCPIP_TYPE_''P3'" 710$ IF F$TYPE(USER_CCDEFS) .NES. "" THEN CCDEFS = CCDEFS + "," + USER_CCDEFS 711$ CCEXTRAFLAGS = "" 712$ IF F$TYPE(USER_CCFLAGS) .NES. "" THEN CCEXTRAFLAGS = USER_CCFLAGS 713$ CCDISABLEWARNINGS = "" !!! "LONGLONGTYPE,LONGLONGSUFX,FOUNDCR" 714$ IF F$TYPE(USER_CCDISABLEWARNINGS) .NES. "" THEN - 715 CCDISABLEWARNINGS = CCDISABLEWARNINGS + "," + USER_CCDISABLEWARNINGS 716$! 717$! Check To See If We Have A ZLIB Option. 718$! 719$ ZLIB = P6 720$ IF (ZLIB .NES. "") 721$ THEN 722$! 723$! Check for expected ZLIB files. 724$! 725$ err = 0 726$ file1 = f$parse( "zlib.h", ZLIB, , , "SYNTAX_ONLY") 727$ if (f$search( file1) .eqs. "") 728$ then 729$ WRITE SYS$OUTPUT "" 730$ WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid." 731$ WRITE SYS$OUTPUT " Can't find header: ''file1'" 732$ err = 1 733$ endif 734$ file1 = f$parse( "A.;", ZLIB)- "A.;" 735$! 736$ file2 = f$parse( ZLIB, "libz.olb", , , "SYNTAX_ONLY") 737$ if (f$search( file2) .eqs. "") 738$ then 739$ if (err .eq. 0) 740$ then 741$ WRITE SYS$OUTPUT "" 742$ WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid." 743$ endif 744$ WRITE SYS$OUTPUT " Can't find library: ''file2'" 745$ WRITE SYS$OUTPUT "" 746$ err = err+ 2 747$ endif 748$ if (err .eq. 1) 749$ then 750$ WRITE SYS$OUTPUT "" 751$ endif 752$! 753$ if (err .ne. 0) 754$ then 755$ GOTO EXIT 756$ endif 757$! 758$ CCDEFS = """ZLIB=1"", "+ CCDEFS 759$ CC_INCLUDES = CC_INCLUDES+ ", "+ file1 760$ ZLIB_LIB = ", ''file2' /library" 761$! 762$! Print info 763$! 764$ WRITE SYS$OUTPUT "ZLIB library spec: ", file2 765$! 766$! End The P8 Check. 767$! 768$ ENDIF 769$! 770$! Check To See If The User Entered A Valid Parameter. 771$! 772$ IF (P2.EQS."VAXC").OR.(P2.EQS."DECC").OR.(P2.EQS."GNUC") 773$ THEN 774$! 775$! Check To See If The User Wanted DECC. 776$! 777$ IF (P2.EQS."DECC") 778$ THEN 779$! 780$! Looks Like DECC, Set To Use DECC. 781$! 782$ COMPILER = "DECC" 783$! 784$! Tell The User We Are Using DECC. 785$! 786$ WRITE SYS$OUTPUT "Using DECC 'C' Compiler." 787$! 788$! Use DECC... 789$! 790$ CC = "CC" 791$ IF ARCH.EQS."VAX" .AND. F$TRNLNM("DECC$CC_DEFAULT").NES."/DECC" - 792 THEN CC = "CC /DECC" 793$ CC = CC + " /''CC_OPTIMIZE' /''DEBUGGER' /STANDARD=RELAXED"+ - 794 "''POINTER_SIZE' /NOLIST /PREFIX=ALL" + - 795 " /INCLUDE=(''CC_INCLUDES') " + CCEXTRAFLAGS 796$! 797$! Define The Linker Options File Name. 798$! 799$ OPT_FILE = "VAX_DECC_OPTIONS.OPT" 800$! 801$! End DECC Check. 802$! 803$ ENDIF 804$! 805$! Check To See If We Are To Use VAXC. 806$! 807$ IF (P2.EQS."VAXC") 808$ THEN 809$! 810$! Looks Like VAXC, Set To Use VAXC. 811$! 812$ COMPILER = "VAXC" 813$! 814$! Tell The User We Are Using VAX C. 815$! 816$ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler." 817$! 818$! Compile Using VAXC. 819$! 820$ CC = "CC" 821$ IF ARCH.NES."VAX" 822$ THEN 823$ WRITE SYS$OUTPUT "There is no VAX C on ''ARCH'!" 824$ EXIT 825$ ENDIF 826$ IF F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC" THEN CC = "CC /VAXC" 827$ CC = CC + "/''CC_OPTIMIZE' /''DEBUGGER' /NOLIST" + - 828 "/INCLUDE=(''CC_INCLUDES')" + CCEXTRAFLAGS 829$ CCDEFS = CCDEFS + ",""VAXC""" 830$! 831$! Define <sys> As SYS$COMMON:[SYSLIB] 832$! 833$ DEFINE /NOLOG SYS SYS$COMMON:[SYSLIB] 834$! 835$! Define The Linker Options File Name. 836$! 837$ OPT_FILE = "VAX_VAXC_OPTIONS.OPT" 838$! 839$! End VAXC Check 840$! 841$ ENDIF 842$! 843$! Check To See If We Are To Use GNU C. 844$! 845$ IF (P2.EQS."GNUC") 846$ THEN 847$! 848$! Looks Like GNUC, Set To Use GNUC. 849$! 850$ COMPILER = "GNUC" 851$! 852$! Tell The User We Are Using GNUC. 853$! 854$ WRITE SYS$OUTPUT "Using GNU 'C' Compiler." 855$! 856$! Use GNU C... 857$! 858$ CC = "GCC /NOCASE_HACK /''GCC_OPTIMIZE' /''DEBUGGER' /NOLIST" + - 859 "/INCLUDE=(''CC_INCLUDES')" + CCEXTRAFLAGS 860$! 861$! Define The Linker Options File Name. 862$! 863$ OPT_FILE = "VAX_GNUC_OPTIONS.OPT" 864$! 865$! End The GNU C Check. 866$! 867$ ENDIF 868$! 869$! Set up default defines 870$! 871$ CCDEFS = """FLAT_INC=1""," + CCDEFS 872$! 873$! Finish up the definition of CC. 874$! 875$ IF COMPILER .EQS. "DECC" 876$ THEN 877$ IF CCDISABLEWARNINGS .EQS. "" 878$ THEN 879$ CC4DISABLEWARNINGS = "DOLLARID" 880$ ELSE 881$ CC4DISABLEWARNINGS = CCDISABLEWARNINGS + ",DOLLARID" 882$ CCDISABLEWARNINGS = " /WARNING=(DISABLE=(" + CCDISABLEWARNINGS + "))" 883$ ENDIF 884$ CC4DISABLEWARNINGS = " /WARNING=(DISABLE=(" + CC4DISABLEWARNINGS + "))" 885$ ELSE 886$ CCDISABLEWARNINGS = "" 887$ CC4DISABLEWARNINGS = "" 888$ ENDIF 889$ CC = CC + " /DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS 890$! 891$! Show user the result 892$! 893$ WRITE /SYMBOL SYS$OUTPUT "Main Compiling Command: ", CC 894$! 895$! Else The User Entered An Invalid Argument. 896$! 897$ ELSE 898$! 899$! Tell The User We Don't Know What They Want. 900$! 901$ WRITE SYS$OUTPUT "" 902$ WRITE SYS$OUTPUT "The Option ",P2," Is Invalid. The Valid Options Are:" 903$ WRITE SYS$OUTPUT "" 904$ WRITE SYS$OUTPUT " VAXC : To Compile With VAX C." 905$ WRITE SYS$OUTPUT " DECC : To Compile With DEC C." 906$ WRITE SYS$OUTPUT " GNUC : To Compile With GNU C." 907$ WRITE SYS$OUTPUT "" 908$! 909$! Time To EXIT. 910$! 911$ EXIT 912$ ENDIF 913$! 914$! Time to check the contents, and to make sure we get the correct library. 915$! 916$ IF P3.EQS."SOCKETSHR" .OR. P3.EQS."MULTINET" .OR. P3.EQS."UCX" - 917 .OR. P3.EQS."TCPIP" .OR. P3.EQS."NONE" 918$ THEN 919$! 920$! Check to see if SOCKETSHR was chosen 921$! 922$ IF P3.EQS."SOCKETSHR" 923$ THEN 924$! 925$! Set the library to use SOCKETSHR 926$! 927$ TCPIP_LIB = ",SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT /OPTIONS" 928$! 929$! Done with SOCKETSHR 930$! 931$ ENDIF 932$! 933$! Check to see if MULTINET was chosen 934$! 935$ IF P3.EQS."MULTINET" 936$ THEN 937$! 938$! Set the library to use UCX emulation. 939$! 940$ P3 = "UCX" 941$! 942$! Done with MULTINET 943$! 944$ ENDIF 945$! 946$! Check to see if UCX was chosen 947$! 948$ IF P3.EQS."UCX" 949$ THEN 950$! 951$! Set the library to use UCX. 952$! 953$ TCPIP_LIB = ",SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT /OPTIONS" 954$ IF F$TRNLNM("UCX$IPC_SHR") .NES. "" 955$ THEN 956$ TCPIP_LIB = ",SYS$DISK:[-.VMS]UCX_SHR_DECC_LOG.OPT /OPTIONS" 957$ ELSE 958$ IF COMPILER .NES. "DECC" .AND. ARCH .EQS. "VAX" THEN - 959 TCPIP_LIB = ",SYS$DISK:[-.VMS]UCX_SHR_VAXC.OPT /OPTIONS" 960$ ENDIF 961$! 962$! Done with UCX 963$! 964$ ENDIF 965$! 966$! Check to see if TCPIP was chosen 967$! 968$ IF P3.EQS."TCPIP" 969$ THEN 970$! 971$! Set the library to use TCPIP (post UCX). 972$! 973$ TCPIP_LIB = ",SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT /OPTIONS" 974$! 975$! Done with TCPIP 976$! 977$ ENDIF 978$! 979$! Check to see if NONE was chosen 980$! 981$ IF P3.EQS."NONE" 982$ THEN 983$! 984$! Do not use a TCPIP library. 985$! 986$ TCPIP_LIB = "" 987$! 988$! Done with NONE 989$! 990$ ENDIF 991$! 992$! Print info 993$! 994$ WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB- "," 995$! 996$! Else The User Entered An Invalid Argument. 997$! 998$ ELSE 999$! 1000$! Tell The User We Don't Know What They Want. 1001$! 1002$ WRITE SYS$OUTPUT "" 1003$ WRITE SYS$OUTPUT "The Option ",P3," Is Invalid. The Valid Options Are:" 1004$ WRITE SYS$OUTPUT "" 1005$ WRITE SYS$OUTPUT " SOCKETSHR : To link with SOCKETSHR TCP/IP library." 1006$ WRITE SYS$OUTPUT " UCX : To link with UCX TCP/IP library." 1007$ WRITE SYS$OUTPUT " TCPIP : To link with TCPIP (post UCX) TCP/IP library." 1008$ WRITE SYS$OUTPUT "" 1009$! 1010$! Time To EXIT. 1011$! 1012$ EXIT 1013$! 1014$! Done with TCP/IP libraries 1015$! 1016$ ENDIF 1017$! 1018$! Special Threads For OpenVMS v7.1 Or Later 1019$! 1020$! Written By: Richard Levitte 1021$! richard@levitte.org 1022$! 1023$! 1024$! Check To See If We Have A Option For P4. 1025$! 1026$ IF (P4.EQS."") 1027$ THEN 1028$! 1029$! Get The Version Of VMS We Are Using. 1030$! 1031$ ISSEVEN := 1032$ TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION"))) 1033$ TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP)) 1034$! 1035$! Check To See If The VMS Version Is v7.1 Or Later. 1036$! 1037$ IF (TMP.GE.71) 1038$ THEN 1039$! 1040$! We Have OpenVMS v7.1 Or Later, So Use The Special Threads. 1041$! 1042$ ISSEVEN := ,PTHREAD_USE_D4 1043$! 1044$! End The VMS Version Check. 1045$! 1046$ ENDIF 1047$! 1048$! End The P4 Check. 1049$! 1050$ ENDIF 1051$! 1052$! Time To RETURN... 1053$! 1054$ RETURN 1055$! 1056$ INITIALISE: 1057$! 1058$! Save old value of the logical name OPENSSL 1059$! 1060$ __SAVE_OPENSSL = F$TRNLNM("OPENSSL","LNM$PROCESS_TABLE") 1061$! 1062$! Save directory information 1063$! 1064$ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;" 1065$ __HERE = F$EDIT(__HERE,"UPCASE") 1066$ __TOP = __HERE - "TEST]" 1067$ __INCLUDE = __TOP + "INCLUDE.OPENSSL]" 1068$! 1069$! Set up the logical name OPENSSL to point at the include directory 1070$! 1071$ DEFINE OPENSSL /NOLOG '__INCLUDE' 1072$! 1073$! Done 1074$! 1075$ RETURN 1076$! 1077$ CLEANUP: 1078$! 1079$! Restore the logical name OPENSSL if it had a value 1080$! 1081$ IF __SAVE_OPENSSL .EQS. "" 1082$ THEN 1083$ DEASSIGN OPENSSL 1084$ ELSE 1085$ DEFINE /NOLOG OPENSSL '__SAVE_OPENSSL' 1086$ ENDIF 1087$! 1088$! Done 1089$! 1090$ RETURN 1091