test/maketests.com

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