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