makevms.com

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