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"
  13 $! The "xxx" denotes the machine architecture of ALPHA, IA64 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 $!      CONFIG    Just build the "[.CRYPTO.<ARCH>]OPENSSLCONF.H" file.
  21 $!      BUILDINF  Just build the "[.CRYPTO.<ARCH>]BUILDINF.H" file.
  22 $!      SOFTLINKS Just fix the Unix soft links.
  23 $!      BUILDALL  Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done.
  24 $!      CRYPTO    Just build the "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
  25 $!      CRYPTO/x  Just build the x part of the
  26 $!                "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
  27 $!      SSL       Just build the "[.xxx.EXE.SSL]LIBSSL.OLB" library.
  28 $!      SSL_TASK  Just build the "[.xxx.EXE.SSL]SSL_TASK.EXE" program.
  29 $!      TEST      Just build the "[.xxx.EXE.TEST]" test programs for OpenSSL.
  30 $!      APPS      Just build the "[.xxx.EXE.APPS]" application programs for OpenSSL.
  31 $!      ENGINES   Just build the "[.xxx.EXE.ENGINES]" application programs for OpenSSL.
  32 $!
  33 $!
  34 $! P2 is ignored (it was used to denote if RSAref should be used or not,
  35 $! and is simply kept so surrounding scripts don't get confused)
  36 $!
  37 $! Speficy DEBUG or NODEBUG as P3 to compile with or without debugging
  38 $! information.
  39 $!
  40 $! Specify which compiler at P4 to try to compile under.
  41 $!
  42 $!        VAXC   For VAX C.
  43 $!        DECC   For DEC C.
  44 $!        GNUC   For GNU C.
  45 $!        LINK   To only link the programs from existing object files.
  46 $!               (not yet implemented)
  47 $!
  48 $! If you don't speficy a compiler, it will try to determine which
  49 $! "C" compiler to use.
  50 $!
  51 $! P5, if defined, sets a TCP/IP library to use, through one of the following
  52 $! keywords:
  53 $!
  54 $!      UCX             for UCX or UCX emulation
  55 $!      TCPIP           for TCP/IP Services or TCP/IP Services emulation
  56 $!                      (this is prefered over UCX)
  57 $!      SOCKETSHR       for SOCKETSHR+NETLIB
  58 $!      NONE            to avoid specifying which TCP/IP implementation to
  59 $!                      use at build time (this works with DEC C).  This is
  60 $!                      the default.
  61 $!
  62 $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
  63 $!
  64 $!
  65 $ DEF_ORIG = F$ENVIRONMENT( "DEFAULT")
  66 $ ON ERROR THEN GOTO TIDY
  67 $ ON CONTROL_C THEN GOTO TIDY
  68 $!
  69 $! Check if we're in a batch job, and make sure we get to
  70 $! the directory this script is in
  71 $!
  72 $ IF F$MODE() .EQS. "BATCH"
  73 $ THEN
  74 $   COMNAME=F$ENVIRONMENT("PROCEDURE")
  75 $   COMPATH=F$PARSE("A.;",COMNAME) - "A.;"
  76 $   SET DEF 'COMPATH'
  77 $ ENDIF
  78 $!
  79 $! Check What Architecture We Are Using.
  80 $!
  81 $ IF (F$GETSYI("CPU").LT.128)
  82 $ THEN
  83 $!
  84 $!  The Architecture Is VAX.
  85 $!
  86 $   ARCH := VAX
  87 $!
  88 $! Else...
  89 $!
  90 $ ELSE
  91 $!
  92 $!  The Architecture Is Alpha, IA64 or whatever comes in the future.
  93 $!
  94 $   ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
  95 $   IF (ARCH .EQS. "") THEN ARCH = "UNK"
  96 $!
  97 $! End The Architecture Check.
  98 $!
  99 $ ENDIF
 100 $!
 101 $! Check To Make Sure We Have Valid Command Line Parameters.
 102 $!
 103 $ GOSUB CHECK_OPTIONS
 104 $!
 105 $! Check To See What We Are To Do.
 106 $!
 107 $ IF (BUILDCOMMAND.EQS."ALL")
 108 $ THEN
 109 $!
 110 $!  Start with building the OpenSSL configuration file.
 111 $!
 112 $   GOSUB CONFIG
 113 $!
 114 $!  Create The "BUILDINF.H" Include File.
 115 $!
 116 $   GOSUB BUILDINF
 117 $!
 118 $!  Fix The Unix Softlinks.
 119 $!
 120 $   GOSUB SOFTLINKS
 121 $!
 122 $ ENDIF
 123 $!
 124 $ IF (BUILDCOMMAND.EQS."ALL".OR.BUILDCOMMAND.EQS."BUILDALL")
 125 $ THEN
 126 $!
 127 $!  Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
 128 $!
 129 $   GOSUB CRYPTO
 130 $!
 131 $!  Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
 132 $!
 133 $   GOSUB SSL
 134 $!
 135 $!  Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine.
 136 $!
 137 $   GOSUB SSL_TASK
 138 $!
 139 $!  Build The [.xxx.EXE.TEST] OpenSSL Test Utilities.
 140 $!
 141 $   GOSUB TEST
 142 $!
 143 $!  Build The [.xxx.EXE.APPS] OpenSSL Application Utilities.
 144 $!
 145 $   GOSUB APPS
 146 $!
 147 $!  Build The [.xxx.EXE.ENGINES] OpenSSL Shareable Engines.
 148 $!
 149 $   GOSUB ENGINES
 150 $!
 151 $! Else...
 152 $!
 153 $ ELSE
 154 $!
 155 $!    Build Just What The User Wants Us To Build.
 156 $!
 157 $     GOSUB 'BUILDCOMMAND'
 158 $!
 159 $ ENDIF
 160 $!
 161 $! Time To EXIT.
 162 $!
 163 $ GOTO TIDY
 164 $!
 165 $! Rebuild The "[.CRYPTO.''ARCH']OPENSSLCONF.H" file.
 166 $!
 167 $ CONFIG:
 168 $!
 169 $! Tell The User We Are Creating The [.CRYPTO.<ARCH>]OPENSSLCONF.H File.
 170 $!
 171 $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCH']OPENSSLCONF.H Include File."
 172 $!
 173 $! First, make sure the directory exists.
 174 $!
 175 $ IF F$PARSE("SYS$DISK:[.CRYPTO.''ARCH']") .EQS. "" THEN -
 176      CREATE/DIRECTORY SYS$DISK:[.CRYPTO.'ARCH']
 177 $!
 178 $! Create The [.CRYPTO.<ARCH>]OPENSSLCONF.H File.
 179 $! Make sure it has the right format.
 180 $!
 181 $ OSCH_NAME = "SYS$DISK:[.CRYPTO.''ARCH']OPENSSLCONF.H"
 182 $ CREATE /FDL=SYS$INPUT: 'OSCH_NAME'
 183 RECORD
 184         FORMAT stream_lf
 185 $ OPEN /APPEND H_FILE 'OSCH_NAME'
 186 $!
 187 $! Write The [.CRYPTO.<ARCH>]OPENSSLCONF.H File.
 188 $!
 189 $ WRITE H_FILE "/* This file was automatically built using makevms.com */"
 190 $ WRITE H_FILE "/* and [.CRYPTO.''ARCH']OPENSSLCONF.H_IN */"
 191 $!
 192 $! Write a few macros that indicate how this system was built.
 193 $!
 194 $ WRITE H_FILE ""
 195 $ WRITE H_FILE "#ifndef OPENSSL_SYS_VMS"
 196 $ WRITE H_FILE "# define OPENSSL_SYS_VMS"
 197 $ WRITE H_FILE "#endif"
 198 $ CONFIG_LOGICALS := NO_ASM,NO_RSA,NO_DSA,NO_DH,NO_MD2,NO_MD5,NO_RIPEMD,WHRLPOOL,-
 199         NO_SHA,NO_SHA0,NO_SHA1,NO_DES/NO_MDC2;NO_MDC2,NO_RC2,NO_RC4,NO_RC5,-
 200         NO_IDEA,NO_BF,NO_CAST,NO_CAMELLIA,NO_SEED,NO_HMAC,NO_SSL2
 201 $ CONFIG_LOG_I = 0
 202 $ CONFIG_LOG_LOOP:
 203 $   CONFIG_LOG_E1 = F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS)
 204 $   CONFIG_LOG_I = CONFIG_LOG_I + 1
 205 $   IF CONFIG_LOG_E1 .EQS. "" THEN GOTO CONFIG_LOG_LOOP
 206 $   IF CONFIG_LOG_E1 .EQS. "," THEN GOTO CONFIG_LOG_LOOP_END
 207 $   CONFIG_LOG_E2 = F$EDIT(CONFIG_LOG_E1,"TRIM")
 208 $   CONFIG_LOG_E1 = F$ELEMENT(0,";",CONFIG_LOG_E2)
 209 $   CONFIG_LOG_E2 = F$ELEMENT(1,";",CONFIG_LOG_E2)
 210 $   CONFIG_LOG_E0 = F$ELEMENT(0,"/",CONFIG_LOG_E1)
 211 $   CONFIG_LOG_E1 = F$ELEMENT(1,"/",CONFIG_LOG_E1)
 212 $   IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E0)
 213 $   THEN
 214 $     WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E0
 215 $     WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E0
 216 $     WRITE H_FILE "#endif"
 217 $     IF CONFIG_LOG_E1 .NES. "/"
 218 $     THEN
 219 $       WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E1
 220 $       WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E1
 221 $       WRITE H_FILE "#endif"
 222 $     ENDIF
 223 $   ELSE
 224 $     IF CONFIG_LOG_E2 .NES. ";"
 225 $     THEN
 226 $       IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E2)
 227 $       THEN
 228 $         WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E2
 229 $         WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E2
 230 $         WRITE H_FILE "#endif"
 231 $       ENDIF
 232 $     ENDIF
 233 $   ENDIF
 234 $   GOTO CONFIG_LOG_LOOP
 235 $ CONFIG_LOG_LOOP_END:
 236 $ WRITE H_FILE "#ifndef OPENSSL_NO_STATIC_ENGINE"
 237 $ WRITE H_FILE "# define OPENSSL_NO_STATIC_ENGINE"
 238 $ WRITE H_FILE "#endif"
 239 $ WRITE H_FILE "#ifndef OPENSSL_THREADS"
 240 $ WRITE H_FILE "# define OPENSSL_THREADS"
 241 $ WRITE H_FILE "#endif"
 242 $ WRITE H_FILE "#ifndef OPENSSL_NO_KRB5"
 243 $ WRITE H_FILE "# define OPENSSL_NO_KRB5"
 244 $ WRITE H_FILE "#endif"
 245 $ WRITE H_FILE ""
 246 $!
 247 $! Different tar version may have named the file differently
 248 $ IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H_IN") .NES. ""
 249 $ THEN
 250 $   TYPE [.CRYPTO]OPENSSLCONF.H_IN /OUTPUT=H_FILE:
 251 $ ELSE
 252 $   IF F$SEARCH("[.CRYPTO]OPENSSLCONF_H.IN") .NES. ""
 253 $   THEN
 254 $     TYPE [.CRYPTO]OPENSSLCONF_H.IN /OUTPUT=H_FILE:
 255 $   ELSE
 256 $     ! For ODS-5
 257 $     IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H.IN") .NES. ""
 258 $     THEN
 259 $       TYPE [.CRYPTO]OPENSSLCONF.H.IN /OUTPUT=H_FILE:
 260 $     ELSE
 261 $       WRITE SYS$ERROR "Couldn't find a [.CRYPTO]OPENSSLCONF.H_IN.  Exiting!"
 262 $       $STATUS = %X00018294 ! "%RMS-F-FNF, file not found".
 263 $       GOTO TIDY
 264 $     ENDIF
 265 $   ENDIF
 266 $ ENDIF
 267 $ IF ARCH .EQS. "AXP"
 268 $ THEN
 269 $!
 270 $!  Write the Alpha specific data
 271 $!
 272 $   WRITE H_FILE "#if defined(HEADER_RC4_H)"
 273 $   WRITE H_FILE "#undef RC4_INT"
 274 $   WRITE H_FILE "#define RC4_INT unsigned int"
 275 $   WRITE H_FILE "#undef RC4_CHUNK"
 276 $   WRITE H_FILE "#define RC4_CHUNK unsigned long long"
 277 $   WRITE H_FILE "#endif"
 278 $!
 279 $   WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
 280 $   WRITE H_FILE "#undef DES_LONG"
 281 $   WRITE H_FILE "#define DES_LONG unsigned int"
 282 $   WRITE H_FILE "#undef DES_PTR"
 283 $   WRITE H_FILE "#define DES_PTR"
 284 $   WRITE H_FILE "#undef DES_RISC1"
 285 $   WRITE H_FILE "#undef DES_RISC2"
 286 $   WRITE H_FILE "#define DES_RISC1"
 287 $   WRITE H_FILE "#undef DES_UNROLL"
 288 $   WRITE H_FILE "#define DES_UNROLL"
 289 $   WRITE H_FILE "#endif"
 290 $!
 291 $   WRITE H_FILE "#if defined(HEADER_BN_H)"
 292 $   WRITE H_FILE "#undef BN_LLONG"      ! Never define with SIXTY_FOUR_BIT
 293 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
 294 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT"
 295 $   WRITE H_FILE "#define SIXTY_FOUR_BIT"
 296 $   WRITE H_FILE "#undef THIRTY_TWO_BIT"
 297 $   WRITE H_FILE "#undef SIXTEEN_BIT"
 298 $   WRITE H_FILE "#undef EIGHT_BIT"
 299 $   WRITE H_FILE "#endif"
 300 $
 301 $   WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
 302 $!
 303 $!  Else...
 304 $!
 305 $ ELSE
 306 $!
 307 $!  Write the VAX specific data
 308 $!
 309 $   WRITE H_FILE "#if defined(HEADER_RC4_H)"
 310 $   WRITE H_FILE "#undef RC4_INT"
 311 $   WRITE H_FILE "#define RC4_INT unsigned char"
 312 $   WRITE H_FILE "#undef RC4_CHUNK"
 313 $   WRITE H_FILE "#define RC4_CHUNK unsigned long"
 314 $   WRITE H_FILE "#endif"
 315 $!
 316 $   WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
 317 $   WRITE H_FILE "#undef DES_LONG"
 318 $   WRITE H_FILE "#define DES_LONG unsigned long"
 319 $   WRITE H_FILE "#undef DES_PTR"
 320 $   WRITE H_FILE "#define DES_PTR"
 321 $   WRITE H_FILE "#undef DES_RISC1"
 322 $   WRITE H_FILE "#undef DES_RISC2"
 323 $   WRITE H_FILE "#undef DES_UNROLL"
 324 $   WRITE H_FILE "#endif"
 325 $!
 326 $   WRITE H_FILE "#if defined(HEADER_BN_H)"
 327 $   WRITE H_FILE "#undef BN_LLONG"      ! VAX C/DEC C doesn't have long long
 328 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
 329 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT"
 330 $   WRITE H_FILE "#undef THIRTY_TWO_BIT"
 331 $   WRITE H_FILE "#define THIRTY_TWO_BIT"
 332 $   WRITE H_FILE "#undef SIXTEEN_BIT"
 333 $   WRITE H_FILE "#undef EIGHT_BIT"
 334 $   WRITE H_FILE "#endif"
 335 $!
 336 $! Oddly enough, the following symbol is tested in crypto/sha/sha512.c
 337 $! before sha.h gets included (and HEADER_SHA_H defined), so we will not
 338 $! protect this one...
 339 $   WRITE H_FILE "#undef OPENSSL_NO_SHA512"
 340 $   WRITE H_FILE "#define OPENSSL_NO_SHA512"
 341 $!
 342 $   WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
 343 $   WRITE H_FILE "#define OPENSSL_EXPORT_VAR_AS_FUNCTION"
 344 $!
 345 $!  End
 346 $!
 347 $ ENDIF
 348 $!
 349 $! Close the [.CRYPTO.<ARCH>]OPENSSLCONF.H file
 350 $!
 351 $ CLOSE H_FILE
 352 $!
 353 $! Purge The [.CRYPTO.<ARCH>]OPENSSLCONF.H file
 354 $!
 355 $ PURGE SYS$DISK:[.CRYPTO.'ARCH']OPENSSLCONF.H
 356 $!
 357 $! That's All, Time To RETURN.
 358 $!
 359 $ RETURN
 360 $!
 361 $! Rebuild The "[.CRYPTO.<ARCH>]BUILDINF.H" file.
 362 $!
 363 $ BUILDINF:
 364 $!
 365 $! Tell The User We Are Creating The [.CRYPTO.<ARCH>]BUILDINF.H File.
 366 $!
 367 $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCH']BUILDINF.H Include File."
 368 $!
 369 $! Create The [.CRYPTO.<ARCH>]BUILDINF.H File.
 370 $!
 371 $ BIH_NAME = "SYS$DISK:[.CRYPTO.''ARCH']BUILDINF.H"
 372 $ CREATE /FDL=SYS$INPUT: 'BIH_NAME'
 373 RECORD
 374         FORMAT stream_lf
 375 $!
 376 $ OPEN /APPEND H_FILE 'bih_name'
 377 $!
 378 $! Get The Current Date & Time.
 379 $!
 380 $ TIME = F$TIME()
 381 $!
 382 $! Write The [.CRYPTO.<ARCH>]BUILDINF.H File.
 383 $!
 384 $ WRITE H_FILE "#define CFLAGS """" /* Not filled in for now */"
 385 $ WRITE H_FILE "#define PLATFORM ""VMS ''ARCH' ''VMS_VER'"""
 386 $ WRITE H_FILE "#define DATE ""''TIME'"" "
 387 $!
 388 $! Close The [.CRYPTO.<ARCH>]BUILDINF.H File.
 389 $!
 390 $ CLOSE H_FILE
 391 $!
 392 $! Purge The [.CRYPTO.<ARCH>]BUILDINF.H File.
 393 $!
 394 $ PURGE SYS$DISK:[.CRYPTO.'ARCH']BUILDINF.H
 395 $!
 396 $! That's All, Time To RETURN.
 397 $!
 398 $ RETURN
 399 $!
 400 $! Copy a lot of files around.
 401 $!
 402 $ SOFTLINKS:
 403 $!
 404 $! Tell The User We Are Partly Rebuilding The [.APPS] Directory.
 405 $!
 406 $ WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD4.C', '[.APPS]MD5.C' And '[.APPS]RMD160.C' Files."
 407 $!
 408 $ DELETE SYS$DISK:[.APPS]MD4.C;*,MD5.C;*,RMD160.C;*
 409 $!
 410 $! Copy MD4.C from [.CRYPTO.MD4] into [.APPS]
 411 $!
 412 $ COPY SYS$DISK:[.CRYPTO.MD4]MD4.C SYS$DISK:[.APPS]
 413 $!
 414 $! Copy MD5.C from [.CRYPTO.MD5] into [.APPS]
 415 $!
 416 $ COPY SYS$DISK:[.CRYPTO.MD5]MD5.C SYS$DISK:[.APPS]
 417 $!
 418 $! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS]
 419 $!
 420 $ COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS]
 421 $!
 422 $! Tell The User We Are Partly Rebuilding The [.TEST] Directory.
 423 $!
 424 $ WRITE SYS$OUTPUT "Rebuilding The '[.TEST]*.C' Files."
 425 $!
 426 $! First, We Have To "Rebuild" The "[.TEST]" Directory, So Delete
 427 $! All The "C" Files That Are Currently There Now.
 428 $!
 429 $ DELETE SYS$DISK:[.TEST]*.C;*
 430 $ DELETE SYS$DISK:[.TEST]EVPTESTS.TXT;*
 431 $!
 432 $! Copy all the *TEST.C files from [.CRYPTO...] into [.TEST]
 433 $!
 434 $ COPY SYS$DISK:[.CRYPTO.*]%*TEST.C SYS$DISK:[.TEST]
 435 $ COPY SYS$DISK:[.CRYPTO.SHA]SHA%%%T.C SYS$DISK:[.TEST]
 436 $ COPY SYS$DISK:[.CRYPTO.EVP]EVPTESTS.TXT SYS$DISK:[.TEST]
 437 $!
 438 $! Copy all the *TEST.C files from [.SSL...] into [.TEST]
 439 $!
 440 $ COPY SYS$DISK:[.SSL]%*TEST.C SYS$DISK:[.TEST]
 441 $!
 442 $! Tell The User We Are Rebuilding The [.INCLUDE.OPENSSL] Directory.
 443 $!
 444 $ WRITE SYS$OUTPUT "Rebuilding The '[.INCLUDE.OPENSSL]' Directory."
 445 $!
 446 $! First, make sure the directory exists
 447 $!
 448 $ IF F$PARSE("SYS$DISK:[.INCLUDE.OPENSSL]") .EQS. "" THEN -
 449      CREATE/DIRECTORY SYS$DISK:[.INCLUDE.OPENSSL]
 450 $!
 451 $! Copy All The ".H" Files From The Main Directory.
 452 $!
 453 $ EXHEADER := e_os2.h
 454 $ COPY 'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
 455 $!
 456 $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
 457 $!
 458 $ SDIRS := ,-
 459    'ARCH',-
 460    OBJECTS,-
 461    MD2,MD4,MD5,SHA,MDC2,HMAC,RIPEMD,WHRLPOOL,-
 462    DES,AES,RC2,RC4,RC5,IDEA,BF,CAST,CAMELLIA,SEED,MODES,-
 463    BN,EC,RSA,DSA,ECDSA,DH,ECDH,DSO,ENGINE,-
 464    BUFFER,BIO,STACK,LHASH,RAND,ERR,-
 465    EVP,ASN1,PEM,X509,X509V3,CONF,TXT_DB,PKCS7,PKCS12,COMP,OCSP,UI,KRB5,-
 466    STORE,CMS,PQUEUE,TS,JPAKE
 467 $ EXHEADER_ := crypto.h,opensslv.h,ebcdic.h,symhacks.h,ossl_typ.h
 468 $ EXHEADER_'ARCH' := opensslconf.h
 469 $ EXHEADER_OBJECTS := objects.h,obj_mac.h
 470 $ EXHEADER_MD2 := md2.h
 471 $ EXHEADER_MD4 := md4.h
 472 $ EXHEADER_MD5 := md5.h
 473 $ EXHEADER_SHA := sha.h
 474 $ EXHEADER_MDC2 := mdc2.h
 475 $ EXHEADER_HMAC := hmac.h
 476 $ EXHEADER_RIPEMD := ripemd.h
 477 $ EXHEADER_WHRLPOOL := whrlpool.h
 478 $ EXHEADER_DES := des.h,des_old.h
 479 $ EXHEADER_AES := aes.h
 480 $ EXHEADER_RC2 := rc2.h
 481 $ EXHEADER_RC4 := rc4.h
 482 $ EXHEADER_RC5 := rc5.h
 483 $ EXHEADER_IDEA := idea.h
 484 $ EXHEADER_BF := blowfish.h
 485 $ EXHEADER_CAST := cast.h
 486 $ EXHEADER_CAMELLIA := camellia.h
 487 $ EXHEADER_SEED := seed.h
 488 $ EXHEADER_MODES := modes.h
 489 $ EXHEADER_BN := bn.h
 490 $ EXHEADER_EC := ec.h
 491 $ EXHEADER_RSA := rsa.h
 492 $ EXHEADER_DSA := dsa.h
 493 $ EXHEADER_ECDSA := ecdsa.h
 494 $ EXHEADER_DH := dh.h
 495 $ EXHEADER_ECDH := ecdh.h
 496 $ EXHEADER_DSO := dso.h
 497 $ EXHEADER_ENGINE := engine.h
 498 $ EXHEADER_BUFFER := buffer.h
 499 $ EXHEADER_BIO := bio.h
 500 $ EXHEADER_STACK := stack.h,safestack.h
 501 $ EXHEADER_LHASH := lhash.h
 502 $ EXHEADER_RAND := rand.h
 503 $ EXHEADER_ERR := err.h
 504 $ EXHEADER_EVP := evp.h
 505 $ EXHEADER_ASN1 := asn1.h,asn1_mac.h,asn1t.h
 506 $ EXHEADER_PEM := pem.h,pem2.h
 507 $ EXHEADER_X509 := x509.h,x509_vfy.h
 508 $ EXHEADER_X509V3 := x509v3.h
 509 $ EXHEADER_CONF := conf.h,conf_api.h
 510 $ EXHEADER_TXT_DB := txt_db.h
 511 $ EXHEADER_PKCS7 := pkcs7.h
 512 $ EXHEADER_PKCS12 := pkcs12.h
 513 $ EXHEADER_COMP := comp.h
 514 $ EXHEADER_OCSP := ocsp.h
 515 $ EXHEADER_UI := ui.h,ui_compat.h
 516 $ EXHEADER_KRB5 := krb5_asn.h
 517 $!EXHEADER_STORE := store.h,str_compat.h
 518 $ EXHEADER_STORE := store.h
 519 $ EXHEADER_CMS := cms.h
 520 $ EXHEADER_PQUEUE := pqueue.h
 521 $ EXHEADER_TS := ts.h
 522 $ EXHEADER_JPAKE := jpake.h
 523 $
 524 $ I = 0
 525 $ LOOP_SDIRS:
 526 $ D = F$EDIT(F$ELEMENT(I, ",", SDIRS),"TRIM")
 527 $ I = I + 1
 528 $ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
 529 $ tmp = EXHEADER_'D'
 530 $ IF D .EQS. ""
 531 $ THEN
 532 $   COPY [.CRYPTO]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
 533 $ ELSE
 534 $   COPY [.CRYPTO.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
 535 $ ENDIF
 536 $ GOTO LOOP_SDIRS
 537 $ LOOP_SDIRS_END:
 538 $!
 539 $! Copy All The ".H" Files From The [.SSL] Directory.
 540 $!
 541 $ EXHEADER := ssl.h,ssl2.h,ssl3.h,ssl23.h,tls1.h,dtls1.h,kssl.h
 542 $ COPY SYS$DISK:[.SSL]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
 543 $!
 544 $! Purge all doubles
 545 $!
 546 $ PURGE SYS$DISK:[.INCLUDE.OPENSSL]*.H
 547 $!
 548 $! That's All, Time To RETURN.
 549 $!
 550 $ RETURN
 551 $!
 552 $! Build The "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" Library.
 553 $!
 554 $ CRYPTO:
 555 $!
 556 $! Tell The User What We Are Doing.
 557 $!
 558 $ WRITE SYS$OUTPUT ""
 559 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.CRYPTO]LIBCRYPTO.OLB Library."
 560 $!
 561 $! Go To The [.CRYPTO] Directory.
 562 $!
 563 $ SET DEFAULT SYS$DISK:[.CRYPTO]
 564 $!
 565 $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
 566 $!
 567 $ @CRYPTO-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'"
 568 $!
 569 $! Build The [.xxx.EXE.CRYPTO]*.EXE Test Applications.
 570 $!
 571 $ @CRYPTO-LIB APPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' "''BUILDPART'"
 572 $!
 573 $! Go Back To The Main Directory.
 574 $!
 575 $ SET DEFAULT [-]
 576 $!
 577 $! Time To RETURN.
 578 $!
 579 $ RETURN
 580 $!
 581 $! Build The "[.xxx.EXE.SSL]LIBSSL.OLB" Library.
 582 $!
 583 $ SSL:
 584 $!
 585 $! Tell The User What We Are Doing.
 586 $!
 587 $ WRITE SYS$OUTPUT ""
 588 $ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.SSL]LIBSSL.OLB Library."
 589 $!
 590 $! Go To The [.SSL] Directory.
 591 $!
 592 $ SET DEFAULT SYS$DISK:[.SSL]
 593 $!
 594 $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
 595 $!
 596 $ @SSL-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 597 $!
 598 $! Go Back To The Main Directory.
 599 $!
 600 $ SET DEFAULT [-]
 601 $!
 602 $! Time To Return.
 603 $!
 604 $ RETURN
 605 $!
 606 $! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program.
 607 $!
 608 $ SSL_TASK:
 609 $!
 610 $! Tell The User What We Are Doing.
 611 $!
 612 $ WRITE SYS$OUTPUT ""
 613 $ WRITE SYS$OUTPUT "Building DECNet Based SSL Engine, [.",ARCH,".EXE.SSL]SSL_TASK.EXE"
 614 $!
 615 $! Go To The [.SSL] Directory.
 616 $!
 617 $ SET DEFAULT SYS$DISK:[.SSL]
 618 $!
 619 $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE
 620 $!
 621 $ @SSL-LIB SSL_TASK 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 622 $!
 623 $! Go Back To The Main Directory.
 624 $!
 625 $ SET DEFAULT [-]
 626 $!
 627 $! That's All, Time To RETURN.
 628 $!
 629 $ RETURN
 630 $!
 631 $! Build The OpenSSL Test Programs.
 632 $!
 633 $ TEST:
 634 $!
 635 $! Tell The User What We Are Doing.
 636 $!
 637 $ WRITE SYS$OUTPUT ""
 638 $ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCH,".EXE.TEST] Test Utilities."
 639 $!
 640 $! Go To The [.TEST] Directory.
 641 $!
 642 $ SET DEFAULT SYS$DISK:[.TEST]
 643 $!
 644 $! Build The Test Programs.
 645 $!
 646 $ @MAKETESTS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 647 $!
 648 $! Go Back To The Main Directory.
 649 $!
 650 $ SET DEFAULT [-]
 651 $!
 652 $! That's All, Time To RETURN.
 653 $!
 654 $ RETURN
 655 $!
 656 $! Build The OpenSSL Application Programs.
 657 $!
 658 $ APPS:
 659 $!
 660 $! Tell The User What We Are Doing.
 661 $!
 662 $ WRITE SYS$OUTPUT ""
 663 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.APPS] Applications."
 664 $!
 665 $! Go To The [.APPS] Directory.
 666 $!
 667 $ SET DEFAULT SYS$DISK:[.APPS]
 668 $!
 669 $! Build The Application Programs.
 670 $!
 671 $ @MAKEAPPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
 672 $!
 673 $! Go Back To The Main Directory.
 674 $!
 675 $ SET DEFAULT [-]
 676 $!
 677 $! That's All, Time To RETURN.
 678 $!
 679 $ RETURN
 680 $!
 681 $! Build The OpenSSL Application Programs.
 682 $!
 683 $ ENGINES:
 684 $!
 685 $! Tell The User What We Are Doing.
 686 $!
 687 $ WRITE SYS$OUTPUT ""
 688 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.ENGINES] Engines."
 689 $!
 690 $! Go To The [.ENGINES] Directory.
 691 $!
 692 $ SET DEFAULT SYS$DISK:[.ENGINES]
 693 $!
 694 $! Build The Application Programs.
 695 $!
 696 $ @MAKEENGINES ENGINES 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' "''BUILDPART'"
 697 $!
 698 $! Go Back To The Main Directory.
 699 $!
 700 $ SET DEFAULT [-]
 701 $!
 702 $! That's All, Time To RETURN.
 703 $!
 704 $ RETURN
 705 $!
 706 $! Check The User's Options.
 707 $!
 708 $ CHECK_OPTIONS:
 709 $!
 710 $! Check if there's a "part", and separate it out
 711 $!
 712 $ BUILDPART = F$ELEMENT(1,"/",P1)
 713 $ IF BUILDPART .EQS. "/"
 714 $ THEN
 715 $   BUILDPART = ""
 716 $ ELSE
 717 $   P1 = F$EXTRACT(0,F$LENGTH(P1) - F$LENGTH(BUILDPART) - 1, P1)
 718 $ ENDIF
 719 $!
 720 $! Check To See If P1 Is Blank.
 721 $!
 722 $ IF (P1.EQS."ALL")
 723 $ THEN
 724 $!
 725 $!   P1 Is ALL, So Build Everything.
 726 $!
 727 $    BUILDCOMMAND = "ALL"
 728 $!
 729 $! Else...
 730 $!
 731 $ ELSE
 732 $!
 733 $!  Else, Check To See If P1 Has A Valid Arguement.
 734 $!
 735 $   IF (P1.EQS."CONFIG").OR.(P1.EQS."BUILDINF").OR.(P1.EQS."SOFTLINKS") -
 736        .OR.(P1.EQS."BUILDALL") -
 737        .OR.(P1.EQS."CRYPTO").OR.(P1.EQS."SSL") -
 738        .OR.(P1.EQS."SSL_TASK").OR.(P1.EQS."TEST").OR.(P1.EQS."APPS")
 739 $   THEN
 740 $!
 741 $!    A Valid Arguement.
 742 $!
 743 $     BUILDCOMMAND = P1
 744 $!
 745 $!  Else...
 746 $!
 747 $   ELSE
 748 $!
 749 $!    Tell The User We Don't Know What They Want.
 750 $!
 751 $     WRITE SYS$OUTPUT ""
 752 $     WRITE SYS$OUTPUT "The Option ",P1," Is Invalid.  The Valid Options Are:"
 753 $     WRITE SYS$OUTPUT ""
 754 $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything."
 755 $     WRITE SYS$OUTPUT "    CONFIG   :  Just build the [.CRYPTO.''ARCH']OPENSSLCONF.H file."
 756 $     WRITE SYS$OUTPUT "    BUILDINF :  Just build the [.CRYPTO.''ARCH']BUILDINF.H file."
 757 $     WRITE SYS$OUTPUT "    SOFTLINKS:  Just Fix The Unix soft links."
 758 $     WRITE SYS$OUTPUT "    BUILDALL :  Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done."
 759 $     WRITE SYS$OUTPUT "    CRYPTO   :  To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
 760 $     WRITE SYS$OUTPUT "    CRYPTO/x :  To Build Just The x Part Of The"
 761 $     WRITE SYS$OUTPUT "                [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
 762 $     WRITE SYS$OUTPUT "    SSL      :  To Build Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
 763 $     WRITE SYS$OUTPUT "    SSL_TASK :  To Build Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
 764 $     WRITE SYS$OUTPUT "    TEST     :  To Build Just The OpenSSL Test Programs."
 765 $     WRITE SYS$OUTPUT "    APPS     :  To Build Just The OpenSSL Application Programs."
 766 $     WRITE SYS$OUTPUT ""
 767 $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
 768 $     WRITE SYS$OUTPUT ""
 769 $     WRITE SYS$OUTPUT "    ALPHA    :  Alpha Architecture."
 770 $     WRITE SYS$OUTPUT "    IA64     :  IA64 Architecture."
 771 $     WRITE SYS$OUTPUT "    VAX      :  VAX Architecture."
 772 $     WRITE SYS$OUTPUT ""
 773 $!
 774 $!    Time To EXIT.
 775 $!
 776 $     GOTO TIDY
 777 $!
 778 $!  End The Valid Argument Check.
 779 $!
 780 $   ENDIF
 781 $!
 782 $! End The P1 Check.
 783 $!
 784 $ ENDIF
 785 $!
 786 $! Check To See If P3 Is Blank.
 787 $!
 788 $ IF (P3.EQS."NODEBUG")
 789 $ THEN
 790 $!
 791 $!   P3 Is NODEBUG, So Compile Without Debugger Information.
 792 $!
 793 $    DEBUGGER = "NODEBUG"
 794 $!
 795 $! Else...
 796 $!
 797 $ ELSE
 798 $!
 799 $!  Check To See If We Are To Compile With Debugger Information.
 800 $!
 801 $   IF (P3.EQS."DEBUG")
 802 $   THEN
 803 $!
 804 $!    Compile With Debugger Information.
 805 $!
 806 $     DEBUGGER = "DEBUG"
 807 $!
 808 $!  Else...
 809 $!
 810 $   ELSE
 811 $!
 812 $!    Tell The User Entered An Invalid Option..
 813 $!
 814 $     WRITE SYS$OUTPUT ""
 815 $     WRITE SYS$OUTPUT "The Option ",P3," Is Invalid.  The Valid Options Are:"
 816 $     WRITE SYS$OUTPUT ""
 817 $     WRITE SYS$OUTPUT "    DEBUG    :  Compile With The Debugger Information."
 818 $     WRITE SYS$OUTPUT "    NODEBUG  :  Compile Without The Debugger Information."
 819 $     WRITE SYS$OUTPUT ""
 820 $!
 821 $!    Time To EXIT.
 822 $!
 823 $     GOTO TIDY
 824 $!
 825 $!  End The Valid Arguement Check.
 826 $!
 827 $   ENDIF
 828 $!
 829 $! End The P3 Check.
 830 $!
 831 $ ENDIF
 832 $!
 833 $! Check To See If P4 Is Blank.
 834 $!
 835 $ IF (P4.EQS."")
 836 $ THEN
 837 $!
 838 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
 839 $!  Find Out Which One To Use.
 840 $!
 841 $!  Check To See If We Have GNU C.
 842 $!
 843 $   IF (F$TRNLNM("GNU_CC").NES."")
 844 $   THEN
 845 $!
 846 $!    Looks Like GNUC, Set To Use GNUC.
 847 $!
 848 $     COMPILER = "GNUC"
 849 $!
 850 $!    Tell The User We Are Using GNUC.
 851 $!
 852 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
 853 $!
 854 $!  End The GNU C Compiler Check.
 855 $!
 856 $   ENDIF
 857 $!
 858 $!  Check To See If We Have VAXC Or DECC.
 859 $!
 860 $   IF (F$GETSYI("CPU").GE.128).OR.(F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC")
 861 $   THEN
 862 $!
 863 $!    Looks Like DECC, Set To Use DECC.
 864 $!
 865 $     COMPILER = "DECC"
 866 $!
 867 $!    Tell The User We Are Using DECC.
 868 $!
 869 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
 870 $!
 871 $!  Else...
 872 $!
 873 $   ELSE
 874 $!
 875 $!    Looks Like VAXC, Set To Use VAXC.
 876 $!
 877 $     COMPILER = "VAXC"
 878 $!
 879 $!    Tell The User We Are Using VAX C.
 880 $!
 881 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
 882 $!
 883 $!  End The DECC & VAXC Compiler Check.
 884 $!
 885 $   ENDIF
 886 $!
 887 $! Else...
 888 $!
 889 $ ELSE
 890 $!
 891 $!  Check To See If The User Entered A Valid Paramter.
 892 $!
 893 $   IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")!.OR.(P4.EQS."LINK")
 894 $   THEN
 895 $!
 896 $!    Check To See If The User Wanted To Just LINK.
 897 $!
 898 $     IF (P4.EQS."LINK")
 899 $     THEN
 900 $!
 901 $!      Looks Like LINK-only
 902 $!
 903 $       COMPILER = "LINK"
 904 $!
 905 $!      Tell The User We Are Only Linking.
 906 $!
 907 $       WRITE SYS$OUTPUT "LINK Only.  This actually NOT YET SUPPORTED!"
 908 $!
 909 $!    End LINK Check.
 910 $!
 911 $     ENDIF
 912 $!
 913 $!    Check To See If The User Wanted DECC.
 914 $!
 915 $     IF (P4.EQS."DECC")
 916 $     THEN
 917 $!
 918 $!      Looks Like DECC, Set To Use DECC.
 919 $!
 920 $       COMPILER = "DECC"
 921 $!
 922 $!      Tell The User We Are Using DECC.
 923 $!
 924 $       WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
 925 $!
 926 $!    End DECC Check.
 927 $!
 928 $     ENDIF
 929 $!
 930 $!    Check To See If We Are To Use VAXC.
 931 $!
 932 $     IF (P4.EQS."VAXC")
 933 $     THEN
 934 $!
 935 $!      Looks Like VAXC, Set To Use VAXC.
 936 $!
 937 $       COMPILER = "VAXC"
 938 $!
 939 $!      Tell The User We Are Using VAX C.
 940 $!
 941 $       WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
 942 $!
 943 $!    End VAXC Check
 944 $!
 945 $     ENDIF
 946 $!
 947 $!    Check To See If We Are To Use GNU C.
 948 $!
 949 $     IF (P4.EQS."GNUC")
 950 $     THEN
 951 $!
 952 $!      Looks Like GNUC, Set To Use GNUC.
 953 $!
 954 $       COMPILER = "GNUC"
 955 $!
 956 $!      Tell The User We Are Using GNUC.
 957 $!
 958 $       WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
 959 $!
 960 $!    End The GNU C Check.
 961 $!
 962 $     ENDIF
 963 $!
 964 $!  Else The User Entered An Invalid Arguement.
 965 $!
 966 $   ELSE
 967 $!
 968 $!    Tell The User We Don't Know What They Want.
 969 $!
 970 $     WRITE SYS$OUTPUT ""
 971 $     WRITE SYS$OUTPUT "The Option ",P4," Is Invalid.  The Valid Options Are:"
 972 $     WRITE SYS$OUTPUT ""
 973 $     WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
 974 $     WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
 975 $     WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
 976 $     WRITE SYS$OUTPUT ""
 977 $!
 978 $!    Time To EXIT.
 979 $!
 980 $     GOTO TIDY
 981 $!
 982 $!  End The Valid Arguement Check.
 983 $!
 984 $   ENDIF
 985 $!
 986 $! End The P4 Check.
 987 $!
 988 $ ENDIF
 989 $!
 990 $! Time to check the contents of P5, and to make sure we get the correct library.
 991 $!
 992 $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" -
 993      .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE"
 994 $ THEN
 995 $!
 996 $!  Check to see if SOCKETSHR was chosen
 997 $!
 998 $   IF P5.EQS."SOCKETSHR"
 999 $   THEN
1000 $!
1001 $!    Set the library to use SOCKETSHR
1002 $!
1003 $     TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
1004 $!
1005 $!    Tell the user
1006 $!
1007 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
1008 $!
1009 $!    Done with SOCKETSHR
1010 $!
1011 $   ENDIF
1012 $!
1013 $!  Check to see if MULTINET was chosen
1014 $!
1015 $   IF P5.EQS."MULTINET"
1016 $   THEN
1017 $!
1018 $!    Set the library to use UCX emulation.
1019 $!
1020 $     P5 = "UCX"
1021 $!
1022 $!    Tell the user
1023 $!
1024 $     WRITE SYS$OUTPUT "Using MultiNet via UCX emulation for TCP/IP"
1025 $!
1026 $!    Done with MULTINET
1027 $!
1028 $   ENDIF
1029 $!
1030 $!  Check to see if UCX was chosen
1031 $!
1032 $   IF P5.EQS."UCX"
1033 $   THEN
1034 $!
1035 $!    Set the library to use UCX.
1036 $!
1037 $     TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
1038 $!
1039 $!    Tell the user
1040 $!
1041 $     WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
1042 $!
1043 $!    Done with UCX
1044 $!
1045 $   ENDIF
1046 $!
1047 $!  Check to see if TCPIP was chosen
1048 $!
1049 $   IF P5.EQS."TCPIP"
1050 $   THEN
1051 $!
1052 $!    Set the library to use TCPIP (post UCX).
1053 $!
1054 $     TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT/OPT"
1055 $!
1056 $!    Tell the user
1057 $!
1058 $     WRITE SYS$OUTPUT "Using TCPIP (post UCX) for TCP/IP"
1059 $!
1060 $!    Done with TCPIP
1061 $!
1062 $   ENDIF
1063 $!
1064 $!  Check to see if NONE was chosen
1065 $!
1066 $   IF P5.EQS."NONE"
1067 $   THEN
1068 $!
1069 $!    Do not use a TCPIP library.
1070 $!
1071 $     TCPIP_LIB = ""
1072 $!
1073 $!    Tell the user
1074 $!
1075 $     WRITE SYS$OUTPUT "A specific TCPIP library will not be used."
1076 $!
1077 $!    Done with NONE.
1078 $!
1079 $   ENDIF
1080 $!
1081 $!  Set the TCPIP_TYPE symbol
1082 $!
1083 $   TCPIP_TYPE = P5
1084 $!
1085 $!  Print info
1086 $!
1087 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
1088 $!
1089 $!  Else The User Entered An Invalid Arguement.
1090 $!
1091 $ ELSE
1092 $   IF P5 .NES. ""
1093 $   THEN
1094 $!
1095 $!    Tell The User We Don't Know What They Want.
1096 $!
1097 $     WRITE SYS$OUTPUT ""
1098 $     WRITE SYS$OUTPUT "The Option ",P5," Is Invalid.  The Valid Options Are:"
1099 $     WRITE SYS$OUTPUT ""
1100 $     WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
1101 $     WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
1102 $     WRITE SYS$OUTPUT "    TCPIP      :  To link with TCPIP TCP/IP (post UCX) library."
1103 $     WRITE SYS$OUTPUT "    NONE       :  To not link with a specific TCP/IP library."
1104 $     WRITE SYS$OUTPUT ""
1105 $!
1106 $!    Time To EXIT.
1107 $!
1108 $     GOTO TIDY
1109 $   ELSE
1110 $!
1111 $! If TCPIP is not defined, then hardcode it to make
1112 $! it clear that no TCPIP is desired.
1113 $!
1114 $     IF P5 .EQS. ""
1115 $     THEN
1116 $       TCPIP_LIB = ""
1117 $       TCPIP_TYPE = "NONE"
1118 $     ELSE
1119 $!
1120 $!    Set the TCPIP_TYPE symbol
1121 $!
1122 $       TCPIP_TYPE = P5
1123 $     ENDIF
1124 $   ENDIF
1125 $!
1126 $!  Done with TCP/IP libraries
1127 $!
1128 $ ENDIF
1129 $!
1130 $! Special Threads For OpenVMS v7.1 Or Later
1131 $!
1132 $! Written By:  Richard Levitte
1133 $!              richard@levitte.org
1134 $!
1135 $!
1136 $! Check To See If We Have A Option For P6.
1137 $!
1138 $ IF (P6.EQS."")
1139 $ THEN
1140 $!
1141 $!  Get The Version Of VMS We Are Using.
1142 $!
1143 $   ISSEVEN :=
1144 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,F$GETSYI("VERSION")))
1145 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
1146 $!
1147 $!  Check To See If The VMS Version Is v7.1 Or Later.
1148 $!
1149 $   IF (TMP.GE.71)
1150 $   THEN
1151 $!
1152 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
1153 $!
1154 $     ISSEVEN := ,PTHREAD_USE_D4
1155 $!
1156 $!  End The VMS Version Check.
1157 $!
1158 $   ENDIF
1159 $!
1160 $! End The P6 Check.
1161 $!
1162 $ ENDIF
1163 $!
1164 $!  Time To RETURN...
1165 $!
1166 $ RETURN
1167 $!
1168 $ TIDY:
1169 $ SET DEFAULT 'DEF_ORIG'
1170 $ EXIT
1171 $!