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