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