makevms.com

   1 $!
   2 $! MAKEVMS.COM
   3 $! Original Author:  UNKNOWN
   4 $! Rewritten By:  Robert Byer
   5 $!                Vice-President
   6 $!                A-Com Computing, Inc.
   7 $!                byer@mail.all-net.net
   8 $!
   9 $! Changes by Richard Levitte <richard@levitte.org>
  10 $!
  11 $! This procedure creates the SSL libraries of "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB"
  12 $! "[.xxx.EXE.SSL]LIBSSL.OLB" and if specified "[.xxx.EXE.RSAREF]LIBRSAGLUE.OLB".
  13 $! The "xxx" denotes the machine architecture of AXP or VAX.
  14 $!
  15 $! This procedures accepts two command line options listed below.
  16 $!
  17 $! Specify one of the following build options for P1.
  18 $!
  19 $!      ALL       Just build "everything".
  20 $!      DATE      Just build the "[.INCLUDE.OPENSSL]DATE.H" file.
  21 $!      SOFTLINKS Just fix the Unix soft links.
  22 $!      RSAREF    Just build the "[.xxx.EXE.RSAREF]LIBRSAGLUE.OLB" library.
  23 $!      CRYPTO    Just build the "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
  24 $!      SSL       Just build the "[.xxx.EXE.SSL]LIBSSL.OLB" library.
  25 $!      SSL_TASK  Just build the "[.xxx.EXE.SSL]SSL_TASK.EXE" program.
  26 $!      TEST      Just build the "[.xxx.EXE.TEST]" test programs for OpenSSL.
  27 $!      APPS      Just build the "[.xxx.EXE.APPS]" application programs for OpenSSL.
  28 $!
  29 $!
  30 $! Specify RSAREF as P2 to compile using the RSAREF Library.
  31 $! If you specify NORSAREF, it will compile without using RSAREF.
  32 $! (If in the United States, You Must Compile Using RSAREF).
  33 $!
  34 $! Note: The RSAREF libraries are NOT INCLUDED and you have to
  35 $!       download it from "ftp://ftp.rsa.com/rsaref".  You have to
  36 $!       get the ".tar-Z" file as the ".zip" file dosen't have the
  37 $!       directory structure stored.  You have to extract the file
  38 $!       into the [.RSAREF] directory as that is where the scripts
  39 $!       will look for the files.
  40 $!
  41 $! Speficy DEBUG or NODEBUG as P3 to compile with or without debugging
  42 $! information.
  43 $!
  44 $! Specify which compiler at P4 to try to compile under.
  45 $!
  46 $!        VAXC   For VAX C.
  47 $!        DECC   For DEC C.
  48 $!        GNUC   For GNU C.
  49 $!        LINK   To only link the programs from existing object files.
  50 $!
  51 $! If you don't speficy a compiler, it will try to determine which
  52 $! "C" compiler to use.
  53 $!
  54 $!  P5, if defined, sets a TCP/IP library to use, through one of the following
  55 $!  keywords:
  56 $!
  57 $!      UCX             for UCX or UCX emulation
  58 $!      SOCKETSHR       for SOCKETSHR+NETLIB
  59 $!
  60 $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
  61 $!
  62 $!
  63 $! Check Which Architecture We Are Using.
  64 $!
  65 $ IF (F$GETSYI("CPU").GE.128)
  66 $ THEN
  67 $!
  68 $!  The Architecture Is AXP.
  69 $!
  70 $   ARCH := AXP
  71 $!
  72 $! Else...
  73 $!
  74 $ ELSE
  75 $!
  76 $!  The Architecture Is VAX.
  77 $!
  78 $   ARCH := VAX
  79 $!
  80 $! End The Architecture Check.
  81 $!
  82 $ ENDIF
  83 $!
  84 $! Check To Make Sure We Have Valid Command Line Parameters.
  85 $!
  86 $ GOSUB CHECK_OPTIONS
  87 $!
  88 $! Check To See What We Are To Do.
  89 $!
  90 $ IF (BUILDALL.EQS."TRUE")
  91 $ THEN
  92 $!
  93 $!  Since Nothing Special Was Specified, Do Everything.
  94 $!  First, Fix The Unix Softlinks.
  95 $!
  96 $   GOSUB SOFTLINKS
  97 $!
  98 $!  Create The "DATE.H" Include File.
  99 $!
 100 $   GOSUB DATE
 101 $!
 102 $!  Check To See If We Are Going To Be Building The
 103 $!  [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library.
 104 $!
 105 $   IF (RSAREF.EQS."RSAREF")
 106 $   THEN
 107 $!
 108 $!    Build The [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library.
 109 $!
 110 $     GOSUB RSAREF
 111 $!
 112 $!  End The RSAREF Check.
 113 $!
 114 $   ENDIF
 115 $!
 116 $!  Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
 117 $!
 118 $   GOSUB CRYPTO
 119 $!
 120 $!  Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
 121 $!
 122 $   GOSUB SSL
 123 $!
 124 $!  Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine.
 125 $!
 126 $   GOSUB SSL_TASK
 127 $!
 128 $!  Build The [.xxx.EXE.TEST] OpenSSL Test Utilities.
 129 $!
 130 $   GOSUB TEST
 131 $!
 132 $!  Build The [.xxx.EXE.APPS] OpenSSL Application Utilities.
 133 $!
 134 $   GOSUB APPS
 135 $!
 136 $! Else...
 137 $!
 138 $ ELSE
 139 $!
 140 $!    Build Just What The User Wants Us To Build.
 141 $!
 142 $     GOSUB 'BUILDALL'
 143 $ ENDIF
 144 $!
 145 $! Time To EXIT.
 146 $!
 147 $ EXIT
 148 $!
 149 $! Rebuild The "[.INCLUDE.OPENSSL]DATE.H" file.
 150 $!
 151 $ DATE:
 152 $!
 153 $! Tell The User We Are Creating The [.CRYPTO]DATE.H File.
 154 $!
 155 $ WRITE SYS$OUTPUT "Creating [.CRYPTO]DATE.H Include File."
 156 $!
 157 $! Create The [.CRYPTO]DATE.H File.
 158 $!
 159 $ OPEN/WRITE H_FILE SYS$DISK:[.CRYPTO]DATE.H
 160 $!
 161 $! Get The Current Date & Time.
 162 $!
 163 $ TIME = F$TIME()
 164 $!
 165 $! Write The [.CRYPTO]DATE.H File.
 166 $!
 167 $ WRITE H_FILE "#define DATE ""''TIME'"" "
 168 $!
 169 $! Close The [.CRYPTO]DATE.H File.
 170 $!
 171 $ CLOSE H_FILE
 172 $!
 173 $! That's All, Time To RETURN.
 174 $!
 175 $ RETURN
 176 $!
 177 $! Copy a lot of files around.
 178 $!
 179 $ SOFTLINKS:
 180 $!
 181 $! Tell The User We Are Partly Rebuilding The [.TEST] Directory.
 182 $!
 183 $ WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD5.C' And '[.APPS]RMD160.C' Files."
 184 $!
 185 $ DELETE SYS$DISK:[.APPS]MD5.C;*,RMD160.C;*
 186 $!
 187 $! Copy MD5.C from [.CRYPTO.MD5] into [.APPS]
 188 $!
 189 $ COPY SYS$DISK:[.CRYPTO.MD5]MD5.C SYS$DISK:[.APPS]
 190 $!
 191 $! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS]
 192 $!
 193 $ COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS]
 194 $!
 195 $! Tell The User We Are Partly Rebuilding The [.TEST] Directory.
 196 $!
 197 $ WRITE SYS$OUTPUT "Rebuilding The '[.TEST]*.C' Files."
 198 $!
 199 $! First, We Have To "Rebuild" The "[.TEST]" Directory, So Delete
 200 $! All The "C" Files That Are Currently There Now.
 201 $!
 202 $ DELETE SYS$DISK:[.TEST]*.C;*
 203 $!
 204 $! Copy all the *TEST.C files from [.CRYPTO...] into [.TEST]
 205 $!
 206 $ COPY SYS$DISK:[.CRYPTO.*]%*TEST.C SYS$DISK:[.TEST]
 207 $!
 208 $! Copy all the *TEST.C files from [.SSL...] into [.TEST]
 209 $!
 210 $ COPY SYS$DISK:[.SSL]%*TEST.C SYS$DISK:[.TEST]
 211 $!
 212 $! Tell The User We Are Rebuilding The [.INCLUDE.OPENSSL] Directory.
 213 $!
 214 $ WRITE SYS$OUTPUT "Rebuilding The '[.INCLUDE.OPENSSL]' Directory."
 215 $!
 216 $! First, make sure the directory exists
 217 $!
 218 $ IF F$PARSE("SYS$DISK:[.INCLUDE.OPENSSL]") .EQS. "" THEN -
 219      CREATE/DIRECTORY SYS$DISK:[.INCLUDE.OPENSSL]
 220 $!
 221 $! Copy All The ".H" Files From The Main Directory.
 222 $!
 223 $ EXHEADER := e_os.h
 224 $ COPY 'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
 225 $!
 226 $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
 227 $!
 228 $ SDIRS := ,MD2,MD5,SHA,MDC2,HMAC,RIPEMD,-
 229    DES,RC2,RC4,RC5,IDEA,BF,CAST,-
 230    BN,RSA,DSA,DH,-
 231    BUFFER,BIO,STACK,LHASH,RAND,ERR,OBJECTS,-
 232    EVP,ASN1,PEM,X509,X509V3,-
 233    CONF,TXT_DB,PKCS7,PKCS12,COMP
 234 $ EXHEADER_ := crypto.h,tmdiff.h,opensslv.h,opensslconf.h
 235 $ EXHEADER_MD2 := md2.h
 236 $ EXHEADER_MD5 := md5.h
 237 $ EXHEADER_SHA := sha.h
 238 $ EXHEADER_MDC2 := mdc2.h
 239 $ EXHEADER_HMAC := hmac.h
 240 $ EXHEADER_RIPEMD := ripemd.h
 241 $ EXHEADER_DES := des.h
 242 $ EXHEADER_RC2 := rc2.h
 243 $ EXHEADER_RC4 := rc4.h
 244 $ EXHEADER_RC5 := rc5.h
 245 $ EXHEADER_IDEA := idea.h
 246 $ EXHEADER_BF := blowfish.h
 247 $ EXHEADER_CAST := cast.h
 248 $ EXHEADER_BN := bn.h
 249 $ EXHEADER_RSA := rsa.h
 250 $ EXHEADER_DSA := dsa.h
 251 $ EXHEADER_DH := dh.h
 252 $ EXHEADER_BUFFER := buffer.h
 253 $ EXHEADER_BIO := bio.h
 254 $ EXHEADER_STACK := stack.h,safestack.h
 255 $ EXHEADER_LHASH := lhash.h
 256 $ EXHEADER_RAND := rand.h
 257 $ EXHEADER_ERR := err.h
 258 $ EXHEADER_OBJECTS := objects.h
 259 $ EXHEADER_EVP := evp.h
 260 $ EXHEADER_ASN1 := asn1.h,asn1_mac.h
 261 $ EXHEADER_PEM := pem.h,pem2.h
 262 $ EXHEADER_X509 := x509.h,x509_vfy.h
 263 $ EXHEADER_X509V3 := x509v3.h
 264 $ EXHEADER_CONF := conf.h
 265 $ EXHEADER_TXT_DB := txt_db.h
 266 $ EXHEADER_PKCS7 := pkcs7.h
 267 $ EXHEADER_PKCS12 := pkcs12.h
 268 $ EXHEADER_COMP := comp.h
 269 $
 270 $ I = 0
 271 $ LOOP_SDIRS:
 272 $ D = F$EDIT(F$ELEMENT(I, ",", SDIRS),"TRIM")
 273 $ I = I + 1
 274 $ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
 275 $ tmp = EXHEADER_'D'
 276 $ IF D .EQS. ""
 277 $ THEN
 278 $   COPY [.CRYPTO]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] /LOG
 279 $ ELSE
 280 $   COPY [.CRYPTO.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] /LOG
 281 $ ENDIF
 282 $ GOTO LOOP_SDIRS
 283 $ LOOP_SDIRS_END:
 284 $!
 285 $! Copy All The ".H" Files From The [.RSAREF] Directory.
 286 $!
 287 $ EXHEADER := rsaref.h
 288 $ COPY SYS$DISK:[.RSAREF]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
 289 $!
 290 $! Copy All The ".H" Files From The [.SSL] Directory.
 291 $!
 292 $ EXHEADER := ssl.h,ssl2.h,ssl3.h,ssl23.h,tls1.h
 293 $ COPY SYS$DISK:[.SSL]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
 294 $!
 295 $! Purge all doubles
 296 $!
 297 $ PURGE SYS$DISK:[.INCLUDE.OPENSSL]*.H
 298 $!
 299 $! That's All, Time To RETURN.
 300 $!
 301 $ RETURN
 302 $!
 303 $! Build The "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" Library.
 304 $!
 305 $ CRYPTO:
 306 $!
 307 $! Tell The User What We Are Doing.
 308 $!
 309 $ WRITE SYS$OUTPUT ""
 310 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.CRYPTO]LIBCRYPTO.OLB Library."
 311 $!
 312 $! Go To The [.CRYPTO] Directory.
 313 $!
 314 $ SET DEFAULT SYS$DISK:[.CRYPTO]
 315 $!
 316 $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
 317 $!
 318 $ @CRYPTO-LIB 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 319 $!
 320 $! Go Back To The Main Directory.
 321 $!
 322 $ SET DEFAULT [-]
 323 $!
 324 $! Time To RETURN.
 325 $!
 326 $ RETURN
 327 $!
 328 $! Build The [.xxx.EXE.RSAREF]LIBRSAGLUE Library.
 329 $!
 330 $ RSAREF:
 331 $!
 332 $! Tell The User What We Are Doing.
 333 $!
 334 $ WRITE SYS$OUTPUT ""
 335 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.RSAREF]LIBRSAGLUE.OLB Library."
 336 $!
 337 $! Go To The [.RSAREF] Directory.
 338 $!
 339 $ SET DEFAULT SYS$DISK:[.RSAREF]
 340 $!
 341 $! Build The [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library.
 342 $!
 343 $ @RSAREF-LIB LIBRARY 'DEBUGGER' "''COMPILER'" 'ISSEVEN'
 344 $!
 345 $! Go Back To The Main Directory.
 346 $!
 347 $ SET DEFAULT [-]
 348 $!
 349 $! Time To Return.
 350 $!
 351 $ RETURN
 352 $!
 353 $! Build The "[.xxx.EXE.SSL]LIBSSL.OLB" Library.
 354 $!
 355 $ SSL:
 356 $!
 357 $! Tell The User What We Are Doing.
 358 $!
 359 $ WRITE SYS$OUTPUT ""
 360 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.SSL]LIBSSL.OLB Library."
 361 $!
 362 $! Go To The [.SSL] Directory.
 363 $!
 364 $ SET DEFAULT SYS$DISK:[.SSL]
 365 $!
 366 $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
 367 $!
 368 $ @SSL-LIB LIBRARY 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 369 $!
 370 $! Go Back To The Main Directory.
 371 $!
 372 $ SET DEFAULT [-]
 373 $!
 374 $! Time To Return.
 375 $!
 376 $ RETURN
 377 $!
 378 $! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program.
 379 $!
 380 $ SSL_TASK:
 381 $!
 382 $! Tell The User What We Are Doing.
 383 $!
 384 $ WRITE SYS$OUTPUT ""
 385 $ WRITE SYS$OUTPUT "Building DECNet Based SSL Engine, [.",ARCH,".EXE.SSL]SSL_TASK.EXE"
 386 $!
 387 $! Go To The [.SSL] Directory.
 388 $!
 389 $ SET DEFAULT SYS$DISK:[.SSL]
 390 $!
 391 $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE
 392 $!
 393 $ @SSL-LIB SSL_TASK 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 394 $!
 395 $! Go Back To The Main Directory.
 396 $!
 397 $ SET DEFAULT [-]
 398 $!
 399 $! That's All, Time To RETURN.
 400 $!
 401 $ RETURN
 402 $!
 403 $! Build The OpenSSL Test Programs.
 404 $!
 405 $ TEST:
 406 $!
 407 $! Tell The User What We Are Doing.
 408 $!
 409 $ WRITE SYS$OUTPUT ""
 410 $ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCH,".EXE.TEST] Test Utilities."
 411 $!
 412 $! Go To The [.TEST] Directory.
 413 $!
 414 $ SET DEFAULT SYS$DISK:[.TEST]
 415 $!
 416 $! Build The Test Programs.
 417 $!
 418 $ @MAKETESTS 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 419 $!
 420 $! Go Back To The Main Directory.
 421 $!
 422 $ SET DEFAULT [-]
 423 $!
 424 $! That's All, Time To RETURN.
 425 $!
 426 $ RETURN
 427 $!
 428 $! Build The OpenSSL Application Programs.
 429 $!
 430 $ APPS:
 431 $!
 432 $! Tell The User What We Are Doing.
 433 $!
 434 $ WRITE SYS$OUTPUT ""
 435 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.APPS] Applications."
 436 $!
 437 $! Go To The [.APPS] Directory.
 438 $!
 439 $ SET DEFAULT SYS$DISK:[.APPS]
 440 $!
 441 $! Build The Application Programs.
 442 $!
 443 $ @MAKEAPPS 'RSAREF' 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 444 $!
 445 $! Go Back To The Main Directory.
 446 $!
 447 $ SET DEFAULT [-]
 448 $!
 449 $! That's All, Time To RETURN.
 450 $!
 451 $ RETURN
 452 $!
 453 $! Check The User's Options.
 454 $!
 455 $ CHECK_OPTIONS:
 456 $!
 457 $! Check To See If P1 Is Blank.
 458 $!
 459 $ IF (P1.EQS."ALL")
 460 $ THEN
 461 $!
 462 $!   P1 Is ALL, So Build Everything.
 463 $!
 464 $    BUILDALL = "TRUE"
 465 $!
 466 $! Else...
 467 $!
 468 $ ELSE
 469 $!
 470 $!  Else, Check To See If P1 Has A Valid Arguement.
 471 $!
 472 $   IF (P1.EQS."DATE").OR.(P1.EQS."SOFTLINKS").OR.(P1.EQS."CRYPTO") -
 473        .OR.(P1.EQS."SSL").OR.(P1.EQS."RSAREF").OR.(P1.EQS."SSL_TASK") -
 474        .OR.(P1.EQS."TEST").OR.(P1.EQS."APPS")
 475 $   THEN
 476 $!
 477 $!    A Valid Arguement.
 478 $!
 479 $     BUILDALL = P1
 480 $!
 481 $!  Else...
 482 $!
 483 $   ELSE
 484 $!
 485 $!    Tell The User We Don't Know What They Want.
 486 $!
 487 $     WRITE SYS$OUTPUT ""
 488 $     WRITE SYS$OUTPUT "The Option ",P1," Is Invalid.  The Valid Options Are:"
 489 $     WRITE SYS$OUTPUT ""
 490 $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything."
 491 $     WRITE SYS$OUTPUT "    DATE     :  Just build the [.INCLUDE.OPENSSL]DATE.H file."
 492 $     WRITE SYS$OUTPUT "    SOFTLINKS:  Just Fix The Unix soft links."
 493 $     WRITE SYS$OUTPUT "    RSAREF   :  To Build Just The [.xxx.EXE.RSAREF]LIBRSAGLUE.OLB Library."
 494 $     WRITE SYS$OUTPUT "    CRYPTO   :  To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
 495 $     WRITE SYS$OUTPUT "    SSL      :  To Build Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
 496 $     WRITE SYS$OUTPUT "    SSL_TASK :  To Build Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
 497 $     WRITE SYS$OUTPUT "    TEST     :  To Build Just The OpenSSL Test Programs."
 498 $     WRITE SYS$OUTPUT "    APPS     :  To Build Just The OpenSSL Application Programs."
 499 $     WRITE SYS$OUTPUT ""
 500 $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
 501 $     WRITE SYS$OUTPUT ""
 502 $     WRITE SYS$OUTPUT "        AXP  :  Alpha Architecture."
 503 $     WRITE SYS$OUTPUT "        VAX  :  VAX Architecture."
 504 $     WRITE SYS$OUTPUT ""
 505 $!
 506 $!    Time To EXIT.
 507 $!
 508 $     EXIT
 509 $!
 510 $!  End The Valid Argument Check.
 511 $!
 512 $   ENDIF
 513 $!
 514 $! End The P1 Check.
 515 $!
 516 $ ENDIF
 517 $!
 518 $! Check To See If P2 Is Blank.
 519 $!
 520 $ IF (P2.EQS."NORSAREF")
 521 $ THEN
 522 $!
 523 $!   P2 Is NORSAREF, So Compile Without RSAREF.
 524 $!
 525 $    RSAREF = "NORSAREF"
 526 $!
 527 $! Else...
 528 $!
 529 $ ELSE
 530 $!
 531 $!  Check To See If We Are To Compile Using The RSAREF Library.
 532 $!
 533 $   IF (P2.EQS."RSAREF")
 534 $   THEN
 535 $!
 536 $!    Compile With RSAREF Library.
 537 $!
 538 $     RSAREF = "RSAREF"
 539 $!
 540 $!  Else...
 541 $!
 542 $   ELSE
 543 $!
 544 $!    Tell The User Entered An Invalid Option..
 545 $!
 546 $     WRITE SYS$OUTPUT ""
 547 $     WRITE SYS$OUTPUT "The Option ",P2," Is Invalid.  The Valid Options Are:"
 548 $     WRITE SYS$OUTPUT ""
 549 $     WRITE SYS$OUTPUT "    RSAREF   :  To Compile With The RSAREF Library."
 550 $     WRITE SYS$OUTPUT "    NORSAREF :  To Compile With The Regular RSA Library."
 551 $     WRITE SYS$OUTPUT ""
 552 $!
 553 $!    Time To EXIT.
 554 $!
 555 $     EXIT
 556 $!
 557 $!  End The Valid Arguemnt Check.
 558 $!
 559 $   ENDIF
 560 $!
 561 $! End The P2 Check.
 562 $!
 563 $ ENDIF
 564 $!
 565 $! Check To See If P3 Is Blank.
 566 $!
 567 $ IF (P3.EQS."NODEBUG")
 568 $ THEN
 569 $!
 570 $!   P3 Is NODEBUG, So Compile Without Debugger Information.
 571 $!
 572 $    DEBUGGER = "NODEBUG"
 573 $!
 574 $! Else...
 575 $!
 576 $ ELSE
 577 $!
 578 $!  Check To See If We Are To Compile With Debugger Information.
 579 $!
 580 $   IF (P3.EQS."DEBUG")
 581 $   THEN
 582 $!
 583 $!    Compile With Debugger Information.
 584 $!
 585 $     DEBUGGER = "DEBUG"
 586 $!
 587 $!  Else...
 588 $!
 589 $   ELSE
 590 $!
 591 $!    Tell The User Entered An Invalid Option..
 592 $!
 593 $     WRITE SYS$OUTPUT ""
 594 $     WRITE SYS$OUTPUT "The Option ",P3," Is Invalid.  The Valid Options Are:"
 595 $     WRITE SYS$OUTPUT ""
 596 $     WRITE SYS$OUTPUT "    DEBUG    :  Compile With The Debugger Information."
 597 $     WRITE SYS$OUTPUT "    NODEBUG  :  Compile Without The Debugger Information."
 598 $     WRITE SYS$OUTPUT ""
 599 $!
 600 $!    Time To EXIT.
 601 $!
 602 $     EXIT
 603 $!
 604 $!  End The Valid Arguement Check.
 605 $!
 606 $   ENDIF
 607 $!
 608 $! End The P3 Check.
 609 $!
 610 $ ENDIF
 611 $!
 612 $! Check To See If P4 Is Blank.
 613 $!
 614 $ IF (P4.EQS."")
 615 $ THEN
 616 $!
 617 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
 618 $!  Find Out Which One To Use.
 619 $!
 620 $!  Check To See If We Have GNU C.
 621 $!
 622 $   IF (F$TRNLNM("GNU_CC").NES."")
 623 $   THEN
 624 $!
 625 $!    Looks Like GNUC, Set To Use GNUC.
 626 $!
 627 $     COMPILER = "GNUC"
 628 $!
 629 $!    Tell The User We Are Using GNUC.
 630 $!
 631 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
 632 $!
 633 $!  End The GNU C Compiler Check.
 634 $!
 635 $   ENDIF
 636 $!
 637 $!  Check To See If We Have VAXC Or DECC.
 638 $!
 639 $   IF (F$GETSYI("CPU").GE.128).OR.(F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC")
 640 $   THEN
 641 $!
 642 $!    Looks Like DECC, Set To Use DECC.
 643 $!
 644 $     COMPILER = "DECC"
 645 $!
 646 $!    Tell The User We Are Using DECC.
 647 $!
 648 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
 649 $!
 650 $!  Else...
 651 $!
 652 $   ELSE
 653 $!
 654 $!    Looks Like VAXC, Set To Use VAXC.
 655 $!
 656 $     COMPILER = "VAXC"
 657 $!
 658 $!    Tell The User We Are Using VAX C.
 659 $!
 660 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
 661 $!
 662 $!  End The DECC & VAXC Compiler Check.
 663 $!
 664 $   ENDIF
 665 $!
 666 $! Else...
 667 $!
 668 $ ELSE
 669 $!
 670 $!  Check To See If The User Entered A Valid Paramter.
 671 $!
 672 $   IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC").OR.(P4.EQS."LINK")
 673 $   THEN
 674 $!
 675 $!    Check To See If The User Wanted To Just LINK.
 676 $!
 677 $     IF (P4.EQS."LINK")
 678 $     THEN
 679 $!
 680 $!      Looks Like LINK-only
 681 $!
 682 $       COMPILER = "LINK"
 683 $!
 684 $!      Tell The User We Are Only Linking.
 685 $!
 686 $       WRITE SYS$OUTPUT "LINK Only.  This actually NOT YET SUPPORTED!"
 687 $!
 688 $!    End LINK Check.
 689 $!
 690 $     ENDIF
 691 $!
 692 $!    Check To See If The User Wanted DECC.
 693 $!
 694 $     IF (P4.EQS."DECC")
 695 $     THEN
 696 $!
 697 $!      Looks Like DECC, Set To Use DECC.
 698 $!
 699 $       COMPILER = "DECC"
 700 $!
 701 $!      Tell The User We Are Using DECC.
 702 $!
 703 $       WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
 704 $!
 705 $!    End DECC Check.
 706 $!
 707 $     ENDIF
 708 $!
 709 $!    Check To See If We Are To Use VAXC.
 710 $!
 711 $     IF (P4.EQS."VAXC")
 712 $     THEN
 713 $!
 714 $!      Looks Like VAXC, Set To Use VAXC.
 715 $!
 716 $       COMPILER = "VAXC"
 717 $!
 718 $!      Tell The User We Are Using VAX C.
 719 $!
 720 $       WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
 721 $!
 722 $!    End VAXC Check
 723 $!
 724 $     ENDIF
 725 $!
 726 $!    Check To See If We Are To Use GNU C.
 727 $!
 728 $     IF (P4.EQS."GNUC")
 729 $     THEN
 730 $!
 731 $!      Looks Like GNUC, Set To Use GNUC.
 732 $!
 733 $       COMPILER = "GNUC"
 734 $!
 735 $!      Tell The User We Are Using GNUC.
 736 $!
 737 $       WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
 738 $!
 739 $!    End The GNU C Check.
 740 $!
 741 $     ENDIF
 742 $!
 743 $!  Else The User Entered An Invalid Arguement.
 744 $!
 745 $   ELSE
 746 $!
 747 $!    Tell The User We Don't Know What They Want.
 748 $!
 749 $     WRITE SYS$OUTPUT ""
 750 $     WRITE SYS$OUTPUT "The Option ",P4," Is Invalid.  The Valid Options Are:"
 751 $     WRITE SYS$OUTPUT ""
 752 $     WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
 753 $     WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
 754 $     WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
 755 $     WRITE SYS$OUTPUT ""
 756 $!
 757 $!    Time To EXIT.
 758 $!
 759 $     EXIT
 760 $!
 761 $!  End The Valid Arguement Check.
 762 $!
 763 $   ENDIF
 764 $!
 765 $! End The P4 Check.
 766 $!
 767 $ ENDIF
 768 $!
 769 $! Time to check the contents of P5, and to make sure we get the correct library.
 770 $!
 771 $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX"
 772 $ THEN
 773 $!
 774 $!  Check to see if SOCKETSHR was chosen
 775 $!
 776 $   IF P5.EQS."SOCKETSHR"
 777 $   THEN
 778 $!
 779 $!    Set the library to use SOCKETSHR
 780 $!
 781 $     TCPIP_LIB = "[-.VMS]SOCKETSHR_SHR.OPT/OPT"
 782 $!
 783 $!    Tell the user
 784 $!
 785 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
 786 $!
 787 $!    Done with SOCKETSHR
 788 $!
 789 $   ENDIF
 790 $!
 791 $!  Check to see if MULTINET was chosen
 792 $!
 793 $   IF P5.EQS."MULTINET"
 794 $   THEN
 795 $!
 796 $!    Set the library to use UCX emulation.
 797 $!
 798 $     P5 = "UCX"
 799 $!
 800 $!    Tell the user
 801 $!
 802 $     WRITE SYS$OUTPUT "Using MultiNet via UCX emulation for TCP/IP"
 803 $!
 804 $!    Done with MULTINET
 805 $!
 806 $   ENDIF
 807 $!
 808 $!  Check to see if UCX was chosen
 809 $!
 810 $   IF P5.EQS."UCX"
 811 $   THEN
 812 $!
 813 $!    Set the library to use UCX.
 814 $!
 815 $     TCPIP_LIB = "[-.VMS]UCX_SHR_DECC.OPT/OPT"
 816 $!
 817 $!    Tell the user
 818 $!
 819 $     WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
 820 $!
 821 $!    Done with UCX
 822 $!
 823 $   ENDIF
 824 $!
 825 $!  Set the TCPIP_TYPE symbol
 826 $!
 827 $   TCPIP_TYPE = P5
 828 $!
 829 $!  Print info
 830 $!
 831 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
 832 $!
 833 $!  Else The User Entered An Invalid Arguement.
 834 $!
 835 $ ELSE
 836 $   IF P5 .NES. ""
 837 $   THEN
 838 $!
 839 $!    Tell The User We Don't Know What They Want.
 840 $!
 841 $     WRITE SYS$OUTPUT ""
 842 $     WRITE SYS$OUTPUT "The Option ",P5," Is Invalid.  The Valid Options Are:"
 843 $     WRITE SYS$OUTPUT ""
 844 $     WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
 845 $     WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
 846 $     WRITE SYS$OUTPUT ""
 847 $!
 848 $!    Time To EXIT.
 849 $!
 850 $     EXIT
 851 $   ELSE
 852 $!
 853 $!    Set the TCPIP_TYPE symbol
 854 $!
 855 $     TCPIP_TYPE = P5
 856 $   ENDIF
 857 $!
 858 $!  Done with TCP/IP libraries
 859 $!
 860 $ ENDIF
 861 $!
 862 $! Special Threads For OpenVMS v7.1 Or Later
 863 $!
 864 $! Written By:  Richard Levitte
 865 $!              richard@levitte.org
 866 $!
 867 $!
 868 $! Check To See If We Have A Option For P6.
 869 $!
 870 $ IF (P6.EQS."")
 871 $ THEN
 872 $!
 873 $!  Get The Version Of VMS We Are Using.
 874 $!
 875 $   ISSEVEN :=
 876 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
 877 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
 878 $!
 879 $!  Check To See If The VMS Version Is v7.1 Or Later.
 880 $!
 881 $   IF (TMP.GE.71)
 882 $   THEN
 883 $!
 884 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
 885 $!
 886 $     ISSEVEN := ,PTHREAD_USE_D4
 887 $!
 888 $!  End The VMS Version Check.
 889 $!
 890 $   ENDIF
 891 $!
 892 $! End The P6 Check.
 893 $!
 894 $ ENDIF
 895 $!
 896 $!  Time To RETURN...
 897 $!
 898 $ RETURN