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