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 $! P1 specifies one of the following build options:
  19 $!
  20 $!      ALL       Just build "everything".
  21 $!      CONFIG    Just build the "[.CRYPTO._xxx]OPENSSLCONF.H" file.
  22 $!      BUILDINF  Just build the "[.CRYPTO._xxx]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 $! P2, if defined, specifies the C pointer size.  Ignored on VAX.
  35 $!      ("64=ARGV" gives more efficient code with HP C V7.3 or newer.)
  36 $!      Supported values are:
  37 $!
  38 $!      ""       Compile with default (/NOPOINTER_SIZE).
  39 $!      32       Compile with /POINTER_SIZE=32 (SHORT).
  40 $!      64       Compile with /POINTER_SIZE=64[=ARGV] (LONG[=ARGV]).
  41 $!               (Automatically select ARGV if compiler supports it.)
  42 $!      64=      Compile with /POINTER_SIZE=64 (LONG).
  43 $!      64=ARGV  Compile with /POINTER_SIZE=64=ARGV (LONG=ARGV).
  44 $!
  45 $! P3 specifies DEBUG or NODEBUG, to compile with or without debugging
  46 $!    information.
  47 $!
  48 $! P4 specifies which compiler 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 specify 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 $!      TCPIP           for TCP/IP Services or TCP/IP Services emulation
  64 $!                      (this is prefered over UCX)
  65 $!      SOCKETSHR       for SOCKETSHR+NETLIB
  66 $!      NONE            to avoid specifying which TCP/IP implementation to
  67 $!                      use at build time (this works with DEC C).  This is
  68 $!                      the default.
  69 $!
  70 $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up).
  71 $!
  72 $! P7, if defined, specifies a directory where ZLIB files (zlib.h,
  73 $! libz.olb) may be found.  Optionally, a non-default object library
  74 $! name may be included ("dev:[dir]libz_64.olb", for example).
  75 $!
  76 $!
  77 $! Announce/identify.
  78 $!
  79 $ proc = f$environment( "procedure")
  80 $ write sys$output "@@@ "+ -
  81    f$parse( proc, , , "name")+ f$parse( proc, , , "type")
  82 $!
  83 $ DEF_ORIG = F$ENVIRONMENT( "DEFAULT")
  84 $ ON ERROR THEN GOTO TIDY
  85 $ ON CONTROL_C THEN GOTO TIDY
  86 $!
  87 $! Check if we're in a batch job, and make sure we get to
  88 $! the directory this script is in
  89 $!
  90 $ IF F$MODE() .EQS. "BATCH"
  91 $ THEN
  92 $   COMNAME=F$ENVIRONMENT("PROCEDURE")
  93 $   COMPATH=F$PARSE("A.;",COMNAME) - "A.;"
  94 $   SET DEF 'COMPATH'
  95 $ ENDIF
  96 $!
  97 $! Check What Architecture We Are Using.
  98 $!
  99 $ IF (F$GETSYI("CPU").LT.128)
 100 $ THEN
 101 $!
 102 $!  The Architecture Is VAX.
 103 $!
 104 $   ARCH = "VAX"
 105 $!
 106 $! Else...
 107 $!
 108 $ ELSE
 109 $!
 110 $!  The Architecture Is Alpha, IA64 or whatever comes in the future.
 111 $!
 112 $   ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
 113 $   IF (ARCH .EQS. "") THEN ARCH = "UNK"
 114 $!
 115 $! End The Architecture Check.
 116 $!
 117 $ ENDIF
 118 $!
 119 $ ARCHD = ARCH
 120 $ LIB32 = "32"
 121 $ POINTER_SIZE = ""
 122 $!
 123 $! Get VMS version.
 124 $!
 125 $ VMS_VERSION = f$edit( f$getsyi( "VERSION"), "TRIM")
 126 $!
 127 $! Check To Make Sure We Have Valid Command Line Parameters.
 128 $!
 129 $ GOSUB CHECK_OPTIONS
 130 $!
 131 $! Check To See What We Are To Do.
 132 $!
 133 $ IF (BUILDCOMMAND.EQS."ALL")
 134 $ THEN
 135 $!
 136 $!  Start with building the OpenSSL configuration file.
 137 $!
 138 $   GOSUB CONFIG
 139 $!
 140 $!  Create The "BUILDINF.H" Include File.
 141 $!
 142 $   GOSUB BUILDINF
 143 $!
 144 $!  Fix The Unix Softlinks.
 145 $!
 146 $   GOSUB SOFTLINKS
 147 $!
 148 $ ENDIF
 149 $!
 150 $ IF (BUILDCOMMAND.EQS."ALL".OR.BUILDCOMMAND.EQS."BUILDALL")
 151 $ THEN
 152 $!
 153 $!  Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
 154 $!
 155 $   GOSUB CRYPTO
 156 $!
 157 $!  Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
 158 $!
 159 $   GOSUB SSL
 160 $!
 161 $!  Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine.
 162 $!
 163 $   GOSUB SSL_TASK
 164 $!
 165 $!  Build The [.xxx.EXE.TEST] OpenSSL Test Utilities.
 166 $!
 167 $   GOSUB TEST
 168 $!
 169 $!  Build The [.xxx.EXE.APPS] OpenSSL Application Utilities.
 170 $!
 171 $   GOSUB APPS
 172 $!
 173 $!  Build The [.xxx.EXE.ENGINES] OpenSSL Shareable Engines.
 174 $!
 175 $   GOSUB ENGINES
 176 $!
 177 $! Else...
 178 $!
 179 $ ELSE
 180 $!
 181 $!    Build Just What The User Wants Us To Build.
 182 $!
 183 $     GOSUB 'BUILDCOMMAND'
 184 $!
 185 $ ENDIF
 186 $!
 187 $! Time To EXIT.
 188 $!
 189 $ GOTO TIDY
 190 $!
 191 $! Rebuild The [.CRYPTO._xxx]OPENSSLCONF.H" file.
 192 $!
 193 $ CONFIG:
 194 $!
 195 $! Tell The User We Are Creating The [.CRYPTO._xxx]OPENSSLCONF.H File.
 196 $!
 197 $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCHD']OPENSSLCONF.H Include File."
 198 $!
 199 $! First, make sure the directory exists.
 200 $!
 201 $ IF F$PARSE("SYS$DISK:[.CRYPTO.''ARCHD']") .EQS. "" THEN -
 202      CREATE/DIRECTORY SYS$DISK:[.CRYPTO.'ARCHD']
 203 $!
 204 $! Different tar/UnZip versions/option may have named the file differently
 205 $ IF F$SEARCH("[.crypto]opensslconf.h_in") .NES. ""
 206 $ THEN
 207 $   OPENSSLCONF_H_IN = "[.crypto]opensslconf.h_in"
 208 $ ELSE
 209 $   IF F$SEARCH( "[.crypto]opensslconf_h.in") .NES. ""
 210 $   THEN
 211 $     OPENSSLCONF_H_IN = "[.crypto]opensslconf_h.in"
 212 $   ELSE
 213 $     ! For ODS-5
 214 $     IF F$SEARCH( "[.crypto]opensslconf.h.in") .NES. ""
 215 $     THEN
 216 $       OPENSSLCONF_H_IN = "[.crypto]opensslconf.h.in"
 217 $     ELSE
 218 $       WRITE SYS$ERROR "Couldn't find a [.crypto]opensslconf.h.in.  Exiting!"
 219 $       $STATUS = %X00018294 ! "%RMS-F-FNF, file not found".
 220 $       GOTO TIDY
 221 $     ENDIF
 222 $   ENDIF
 223 $ ENDIF
 224 $!
 225 $! Create The [.CRYPTO._xxx]OPENSSLCONF.H File.
 226 $! Make sure it has the right format.
 227 $!
 228 $ OSCH_NAME = "SYS$DISK:[.CRYPTO.''ARCHD']OPENSSLCONF.H"
 229 $ CREATE /FDL=SYS$INPUT: 'OSCH_NAME'
 230 RECORD
 231         FORMAT stream_lf
 232 $ OPEN /APPEND H_FILE 'OSCH_NAME'
 233 $!
 234 $! Write The [.CRYPTO._xxx]OPENSSLCONF.H File.
 235 $!
 236 $ WRITE H_FILE "/* This file was automatically built using makevms.com */"
 237 $ WRITE H_FILE "/* and ''OPENSSLCONF_H_IN' */"
 238 $!
 239 $! Write a few macros that indicate how this system was built.
 240 $!
 241 $ WRITE H_FILE ""
 242 $ WRITE H_FILE "#ifndef OPENSSL_SYS_VMS"
 243 $ WRITE H_FILE "# define OPENSSL_SYS_VMS"
 244 $ WRITE H_FILE "#endif"
 245 $
 246 $!
 247 $! Defined the full SDIRS here.  It will be pruned depending on configuration.
 248 $! This is an exact copy of what's found in Makefile.org, with spaces replaced
 249 $! with commas.
 250 $!
 251 $ SDIRS := -
 252         objects,-
 253         md2,md4,md5,sha,mdc2,hmac,ripemd,whrlpool,-
 254         des,aes,rc2,rc4,rc5,idea,bf,cast,camellia,seed,modes,-
 255         bn,ec,rsa,dsa,ecdsa,dh,ecdh,dso,engine,-
 256         buffer,bio,stack,lhash,rand,err,-
 257         evp,asn1,pem,x509,x509v3,conf,txt_db,pkcs7,pkcs12,comp,ocsp,ui,krb5,-
 258         cms,pqueue,ts,jpake,srp,store,cmac
 259 $
 260 $! One of the best way to figure out what the list should be is to do
 261 $! the following on a Unix system:
 262 $!   grep OPENSSL_NO_ crypto/include/internal/*.h crypto/*/*.h ssl/*.h engines/*.h engines/*/*.h|grep ':# *if'|sed -e 's/^.*def //'|sort|uniq
 263 $! For that reason, the list will also always end up in alphabetical order
 264 $ CONFIG_LOGICALS := AES,-
 265                      ASM,INLINE_ASM,-
 266                      BF,-
 267                      CAMELLIA,-
 268                      CAST,-
 269                      CMS,-
 270                      COMP,-
 271                      DEPRECATED,-
 272                      DES,-
 273                      DGRAM,-
 274                      DH,-
 275                      DSA,-
 276                      EC,-
 277                      EC2M,-
 278                      ECDH,-
 279                      ECDSA,-
 280                      EC_NISTP_64_GCC_128,-
 281                      ENGINE,-
 282                      ERR,-
 283                      GMP,-
 284                      GOST,-
 285                      HEARTBEATS,-
 286                      HMAC,-
 287                      IDEA,-
 288                      JPAKE,-
 289                      KRB5,-
 290                      MD2,-
 291                      MD4,-
 292                      MD5,-
 293                      MDC2,-
 294                      NEXTPROTONEG,-
 295                      OCB,-
 296                      OCSP,-
 297                      PSK,-
 298                      RC2,-
 299                      RC4,-
 300                      RC5,-
 301                      RMD160,-
 302                      RSA,-
 303                      SCTP,-
 304                      SEED,-
 305                      SOCK,-
 306                      SRP,-
 307                      SRTP,-
 308                      SSL3_METHOD,-
 309                      SSL_INTERN,-
 310                      SSL_TRACE,-
 311                      STATIC_ENGINE,-
 312                      STDIO,-
 313                      STORE,-
 314                      TLSEXT,-
 315                      UNIT_TEST,-
 316                      WHIRLPOOL
 317 $ CONFIG_EXPERIMENTAL := JPAKE,-
 318                          STORE
 319 $! The following rules, which dictate how some algorithm choices affect
 320 $! others, are picked from Configure.
 321 $! Quick syntax:
 322 $!  list = item[ ; list]
 323 $!  item = algos / dependents
 324 $!  algos = algo [, algos]
 325 $!  dependents = dependent [, dependents]
 326 $! When a list of algos is specified in one item, it means that they must
 327 $! all be disabled for the rule to apply.
 328 $! When a list of dependents is specified in one item, it means that they
 329 $! will all be disabled if the rule applies.
 330 $! Rules are checked sequentially.  If a rule disables an algorithm, it will
 331 $! affect all following rules that depend on that algorithm being disabled.
 332 $! To force something to be enabled or disabled, have no algorithms in the
 333 $! algos part.
 334 $ CONFIG_DISABLE_RULES := RIJNDAEL/AES;-
 335                           RMD160/RIPEMD;-
 336                           DES/MDC2;-
 337                           EC/ECDSA,ECDH;-
 338                           MD5/SSL3,TLS1;-
 339                           SHA/SSL3,TLS1;-
 340                           RSA,DSA/SSL3,TLS1;-
 341                           DH/SSL3,TLS1;-
 342                           TLS1/TLSEXT;-
 343                           EC/GOST;-
 344                           DSA/GOST;-
 345                           DH/GOST;-
 346                           TLSEXT/SRP,HEARTBEAT;-
 347                           /STATIC_ENGINE;-
 348                           /KRB5;-
 349                           /DEPRECATED;-
 350                           /EC_NISTP_64_GCC_128;-
 351                           /GMP;-
 352                           /MD2;-
 353                           /RC5;-
 354                           /RFC3779;-
 355                           /SCTP;-
 356                           /SSL_TRACE;-
 357                           /UNIT_TEST
 358 $ CONFIG_ENABLE_RULES := ZLIB_DYNAMIC/ZLIB;-
 359                          /THREADS
 360 $
 361 $! Architecture specific rule addtions
 362 $ IF ARCH .EQS. "VAX"
 363 $ THEN
 364 $   ! Disable algorithms that require 64-bit integers in C
 365 $   CONFIG_DISABLE_RULES = CONFIG_DISABLE_RULES + -
 366                            ";/GOST" + -
 367                            ";/WHIRLPOOL"
 368 $ ENDIF
 369 $
 370 $! Keep track of things to remove from SDIRS, have the items surrounded
 371 $! with commas
 372 $ SKIP_SDIRS = ","
 373 $
 374 $ CONFIG_LOG_I = 0
 375 $ CONFIG_LOG_LOOP11:
 376 $   CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS),"TRIM")
 377 $   CONFIG_LOG_I = CONFIG_LOG_I + 1
 378 $   IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP11
 379 $   IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP11_END
 380 $   IF F$TRNLNM("OPENSSL_NO_"+CONFIG_LOG_E)
 381 $   THEN
 382 $       CONFIG_DISABLED_'CONFIG_LOG_E' := YES
 383 $       CONFIG_ENABLED_'CONFIG_LOG_E' := NO
 384 $       CONFIG_CHANGED_'CONFIG_LOG_E' := YES
 385 $       IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .EQS. SKIP_SDIRS THEN -
 386             SKIP_SDIRS = SKIP_SDIRS + CONFIG_LOG_E + ","
 387 $   ELSE
 388 $       CONFIG_DISABLED_'CONFIG_LOG_E' := NO
 389 $       CONFIG_ENABLED_'CONFIG_LOG_E' := YES
 390 $       ! Because all non-experimental algorithms are assumed
 391 $       ! enabled by default
 392 $       CONFIG_CHANGED_'CONFIG_LOG_E' := NO
 393 $       IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .NES. SKIP_SDIRS THEN -
 394             SKIP_SDIRS = SKIP_SDIRS - (CONFIG_LOG_E + ",")
 395 $   ENDIF
 396 $   GOTO CONFIG_LOG_LOOP11
 397 $ CONFIG_LOG_LOOP11_END:
 398 $
 399 $ CONFIG_LOG_I = 0
 400 $ CONFIG_LOG_LOOP12:
 401 $   CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_EXPERIMENTAL),"TRIM")
 402 $   CONFIG_LOG_I = CONFIG_LOG_I + 1
 403 $   IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP12
 404 $   IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP12_END
 405 $   IF F$TRNLNM("OPENSSL_EXPERIMENTAL_"+CONFIG_LOG_E)
 406 $   THEN
 407 $       CONFIG_DISABLED_'CONFIG_LOG_E' := NO
 408 $       CONFIG_ENABLED_'CONFIG_LOG_E' := YES
 409 $       CONFIG_CHANGED_'CONFIG_LOG_E' := YES
 410 $       IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .NES. SKIP_SDIRS THEN -
 411             SKIP_SDIRS = SKIP_SDIRS - (CONFIG_LOG_E + ",")
 412 $   ELSE
 413 $       CONFIG_DISABLED_'CONFIG_LOG_E' := YES
 414 $       CONFIG_ENABLED_'CONFIG_LOG_E' := NO
 415 $       ! Because all experimental algorithms are assumed
 416 $       ! disabled by default
 417 $       CONFIG_CHANGED_'CONFIG_LOG_E' := NO
 418 $       IF (SKIP_SDIRS - (","+CONFIG_LOG_E+",")) .EQS. SKIP_SDIRS THEN -
 419             SKIP_SDIRS = SKIP_SDIRS + CONFIG_LOG_E + ","
 420 $   ENDIF
 421 $   GOTO CONFIG_LOG_LOOP12
 422 $ CONFIG_LOG_LOOP12_END:
 423 $
 424 $! Apply cascading disable rules
 425 $ CONFIG_DISABLE_I = 0
 426 $ CONFIG_DISABLE_LOOP0:
 427 $   CONFIG_DISABLE_E = F$EDIT(F$ELEMENT(CONFIG_DISABLE_I,";", -
 428      CONFIG_DISABLE_RULES),"TRIM")
 429 $   CONFIG_DISABLE_I = CONFIG_DISABLE_I + 1
 430 $   IF CONFIG_DISABLE_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP0
 431 $   IF CONFIG_DISABLE_E .EQS. ";" THEN GOTO CONFIG_DISABLE_LOOP0_END
 432 $
 433 $   CONFIG_DISABLE_ALGOS = F$EDIT(F$ELEMENT(0,"/",CONFIG_DISABLE_E),"TRIM")
 434 $   CONFIG_DISABLE_DEPENDENTS = F$EDIT(F$ELEMENT(1,"/",CONFIG_DISABLE_E),"TRIM")
 435 $   TO_DISABLE := YES
 436 $   CONFIG_ALGO_I = 0
 437 $   CONFIG_DISABLE_LOOP1:
 438 $     CONFIG_ALGO_E = F$EDIT(F$ELEMENT(CONFIG_ALGO_I,",", -
 439        CONFIG_DISABLE_ALGOS),"TRIM")
 440 $     CONFIG_ALGO_I = CONFIG_ALGO_I + 1
 441 $     IF CONFIG_ALGO_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP1
 442 $     IF CONFIG_ALGO_E .EQS. "," THEN GOTO CONFIG_DISABLE_LOOP1_END
 443 $     IF F$TYPE(CONFIG_DISABLED_'CONFIG_ALGO_E') .EQS. ""
 444 $     THEN
 445 $       TO_DISABLE := NO
 446 $     ELSE
 447 $       IF .NOT. CONFIG_DISABLED_'CONFIG_ALGO_E' THEN TO_DISABLE := NO
 448 $     ENDIF
 449 $     GOTO CONFIG_DISABLE_LOOP1
 450 $   CONFIG_DISABLE_LOOP1_END:
 451 $
 452 $   IF TO_DISABLE
 453 $   THEN
 454 $     CONFIG_DEPENDENT_I = 0
 455 $     CONFIG_DISABLE_LOOP2:
 456 $       CONFIG_DEPENDENT_E = F$EDIT(F$ELEMENT(CONFIG_DEPENDENT_I,",", -
 457          CONFIG_DISABLE_DEPENDENTS),"TRIM")
 458 $       CONFIG_DEPENDENT_I = CONFIG_DEPENDENT_I + 1
 459 $       IF CONFIG_DEPENDENT_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP2
 460 $       IF CONFIG_DEPENDENT_E .EQS. "," THEN GOTO CONFIG_DISABLE_LOOP2_END
 461 $       CONFIG_DISABLED_'CONFIG_DEPENDENT_E' := YES
 462 $       CONFIG_ENABLED_'CONFIG_DEPENDENT_E' := NO
 463 $       ! Better not to assume defaults at this point...
 464 $       CONFIG_CHANGED_'CONFIG_DEPENDENT_E' := YES
 465 $       IF (SKIP_SDIRS - (","+CONFIG_DEPENDENT_E+",")) .EQS. SKIP_SDIRS THEN -
 466             SKIP_SDIRS = SKIP_SDIRS + CONFIG_DEPENDENT_E + ","
 467 $       WRITE SYS$ERROR -
 468          "''CONFIG_DEPENDENT_E' disabled by rule ''CONFIG_DISABLE_E'"
 469 $       GOTO CONFIG_DISABLE_LOOP2
 470 $     CONFIG_DISABLE_LOOP2_END:
 471 $   ENDIF
 472 $   GOTO CONFIG_DISABLE_LOOP0
 473 $ CONFIG_DISABLE_LOOP0_END:
 474 $
 475 $! Apply cascading enable rules
 476 $ CONFIG_ENABLE_I = 0
 477 $ CONFIG_ENABLE_LOOP0:
 478 $   CONFIG_ENABLE_E = F$EDIT(F$ELEMENT(CONFIG_ENABLE_I,";", -
 479      CONFIG_ENABLE_RULES),"TRIM")
 480 $   CONFIG_ENABLE_I = CONFIG_ENABLE_I + 1
 481 $   IF CONFIG_ENABLE_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP0
 482 $   IF CONFIG_ENABLE_E .EQS. ";" THEN GOTO CONFIG_ENABLE_LOOP0_END
 483 $
 484 $   CONFIG_ENABLE_ALGOS = F$EDIT(F$ELEMENT(0,"/",CONFIG_ENABLE_E),"TRIM")
 485 $   CONFIG_ENABLE_DEPENDENTS = F$EDIT(F$ELEMENT(1,"/",CONFIG_ENABLE_E),"TRIM")
 486 $   TO_ENABLE := YES
 487 $   CONFIG_ALGO_I = 0
 488 $   CONFIG_ENABLE_LOOP1:
 489 $     CONFIG_ALGO_E = F$EDIT(F$ELEMENT(CONFIG_ALGO_I,",", -
 490        CONFIG_ENABLE_ALGOS),"TRIM")
 491 $     CONFIG_ALGO_I = CONFIG_ALGO_I + 1
 492 $     IF CONFIG_ALGO_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP1
 493 $     IF CONFIG_ALGO_E .EQS. "," THEN GOTO CONFIG_ENABLE_LOOP1_END
 494 $     IF F$TYPE(CONFIG_ENABLED_'CONFIG_ALGO_E') .EQS. ""
 495 $     THEN
 496 $       TO_ENABLE := NO
 497 $     ELSE
 498 $       IF .NOT. CONFIG_ENABLED_'CONFIG_ALGO_E' THEN TO_ENABLE := NO
 499 $     ENDIF
 500 $     GOTO CONFIG_ENABLE_LOOP1
 501 $   CONFIG_ENABLE_LOOP1_END:
 502 $
 503 $   IF TO_ENABLE
 504 $   THEN
 505 $     CONFIG_DEPENDENT_I = 0
 506 $     CONFIG_ENABLE_LOOP2:
 507 $       CONFIG_DEPENDENT_E = F$EDIT(F$ELEMENT(CONFIG_DEPENDENT_I,",", -
 508          CONFIG_ENABLE_DEPENDENTS),"TRIM")
 509 $       CONFIG_DEPENDENT_I = CONFIG_DEPENDENT_I + 1
 510 $       IF CONFIG_DEPENDENT_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP2
 511 $       IF CONFIG_DEPENDENT_E .EQS. "," THEN GOTO CONFIG_ENABLE_LOOP2_END
 512 $       CONFIG_DISABLED_'CONFIG_DEPENDENT_E' := NO
 513 $       CONFIG_ENABLED_'CONFIG_DEPENDENT_E' := YES
 514 $       ! Better not to assume defaults at this point...
 515 $       CONFIG_CHANGED_'CONFIG_DEPENDENT_E' := YES
 516 $       IF (SKIP_SDIRS - (","+CONFIG_DEPENDENT_E+",")) .NES. SKIP_SDIRS THEN -
 517             SKIP_SDIRS = SKIP_SDIRS - (CONFIG_DEPENDENT_E + ",")
 518 $       WRITE SYS$ERROR -
 519          "''CONFIG_DEPENDENT_E' enabled by rule ''CONFIG_ENABLE_E'"
 520 $       GOTO CONFIG_ENABLE_LOOP2
 521 $     CONFIG_ENABLE_LOOP2_END:
 522 $   ENDIF
 523 $   GOTO CONFIG_ENABLE_LOOP0
 524 $ CONFIG_ENABLE_LOOP0_END:
 525 $
 526 $! Fix SDIRS
 527 $ SDIRS = ","+F$EDIT(SDIRS,"COLLAPSE")+","
 528 $ CONFIG_SKIP_I = 0
 529 $ CONFIG_SDIRS_LOOP1:
 530 $   CONFIG_SKIP_E = F$EDIT(F$ELEMENT(CONFIG_SKIP_I,",",SKIP_SDIRS),"TRIM")
 531 $   CONFIG_SKIP_I = CONFIG_SKIP_I + 1
 532 $   IF CONFIG_SKIP_E .EQS. "" THEN GOTO CONFIG_SDIRS_LOOP1
 533 $   IF CONFIG_SKIP_E .EQS. "," THEN GOTO CONFIG_SDIRS_LOOP1_END
 534 $   IF (SDIRS - (","+CONFIG_SKIP_E+",")) .NES. SDIRS THEN -
 535        SDIRS = SDIRS - (CONFIG_SKIP_E+",")
 536 $   GOTO CONFIG_SDIRS_LOOP1
 537 $ CONFIG_SDIRS_LOOP1_END:
 538 $
 539 $! Write to the configuration
 540 $ CONFIG_LOG_I = 0
 541 $ CONFIG_LOG_LOOP2:
 542 $   CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS),"TRIM")
 543 $   CONFIG_LOG_I = CONFIG_LOG_I + 1
 544 $   IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP2
 545 $   IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP2_END
 546 $   IF CONFIG_DISABLED_'CONFIG_LOG_E'
 547 $   THEN
 548 $     WRITE H_FILE "#ifndef OPENSSL_NO_",CONFIG_LOG_E
 549 $     WRITE H_FILE "# define OPENSSL_NO_",CONFIG_LOG_E
 550 $     WRITE H_FILE "#endif"
 551 $   ELSE
 552 $     IF CONFIG_CHANGED_'CONFIG_LOG_E'
 553 $     THEN
 554 $       WRITE H_FILE "#ifndef OPENSSL_EXPERIMENTAL_",CONFIG_LOG_E
 555 $       WRITE H_FILE "# ifndef OPENSSL_NO_",CONFIG_LOG_E
 556 $       WRITE H_FILE "#  define OPENSSL_NO_",CONFIG_LOG_E
 557 $       WRITE H_FILE "# endif"
 558 $       WRITE H_FILE "#endif"
 559 $
 560 $       IF F$TYPE(USER_CCDEFS) .NES. ""
 561 $       THEN
 562 $         USER_CCDEFS = USER_CCDEFS + ",OPENSSL_EXPERIMENTAL_" + CONFIG_LOG_E
 563 $       ELSE
 564 $         USER_CCDEFS = "OPENSSL_EXPERIMENTAL_" + CONFIG_LOG_E
 565 $       ENDIF
 566 $     ENDIF
 567 $   ENDIF
 568 $   GOTO CONFIG_LOG_LOOP2
 569 $ CONFIG_LOG_LOOP2_END:
 570 $
 571 $ WRITE/SYMBOL SYS$ERROR "SDIRS = """,SDIRS,""""
 572 $!
 573 $ WRITE H_FILE ""
 574 $ WRITE H_FILE "/* STCP support comes with TCPIP 5.7 ECO 2 "
 575 $ WRITE H_FILE " * enable on newer systems / 2012-02-24 arpadffy */"
 576 $ WRITE H_FILE "#define OPENSSL_NO_SCTP"
 577 $ WRITE H_FILE ""
 578 $!
 579 $! Add in the common "crypto/opensslconf.h.in".
 580 $!
 581 $ TYPE 'OPENSSLCONF_H_IN' /OUTPUT=H_FILE:
 582 $!
 583 $ IF ARCH .NES. "VAX"
 584 $ THEN
 585 $!
 586 $!  Write the non-VAX specific data
 587 $!
 588 $   WRITE H_FILE "#if defined(HEADER_RC4_H)"
 589 $   WRITE H_FILE "#undef RC4_INT"
 590 $   WRITE H_FILE "#define RC4_INT unsigned int"
 591 $   WRITE H_FILE "#undef RC4_CHUNK"
 592 $   WRITE H_FILE "#define RC4_CHUNK unsigned long long"
 593 $   WRITE H_FILE "#endif"
 594 $!
 595 $   WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
 596 $   WRITE H_FILE "#undef DES_LONG"
 597 $   WRITE H_FILE "#define DES_LONG unsigned int"
 598 $   WRITE H_FILE "#undef DES_PTR"
 599 $   WRITE H_FILE "#define DES_PTR"
 600 $   WRITE H_FILE "#undef DES_RISC1"
 601 $   WRITE H_FILE "#undef DES_RISC2"
 602 $   WRITE H_FILE "#define DES_RISC1"
 603 $   WRITE H_FILE "#undef DES_UNROLL"
 604 $   WRITE H_FILE "#define DES_UNROLL"
 605 $   WRITE H_FILE "#endif"
 606 $!
 607 $   WRITE H_FILE "#if defined(HEADER_BN_H)"
 608 $   WRITE H_FILE "#undef BN_LLONG"      ! Never define with SIXTY_FOUR_BIT
 609 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
 610 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT"
 611 $   WRITE H_FILE "#define SIXTY_FOUR_BIT"
 612 $   WRITE H_FILE "#undef THIRTY_TWO_BIT"
 613 $   WRITE H_FILE "#undef SIXTEEN_BIT"
 614 $   WRITE H_FILE "#undef EIGHT_BIT"
 615 $   WRITE H_FILE "#endif"
 616 $
 617 $   WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
 618 $!
 619 $!  Else...
 620 $!
 621 $ ELSE
 622 $!
 623 $!  Write the VAX specific data
 624 $!
 625 $   WRITE H_FILE "#if defined(HEADER_RC4_H)"
 626 $   WRITE H_FILE "#undef RC4_INT"
 627 $   WRITE H_FILE "#define RC4_INT unsigned char"
 628 $   WRITE H_FILE "#undef RC4_CHUNK"
 629 $   WRITE H_FILE "#define RC4_CHUNK unsigned long"
 630 $   WRITE H_FILE "#endif"
 631 $!
 632 $   WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
 633 $   WRITE H_FILE "#undef DES_LONG"
 634 $   WRITE H_FILE "#define DES_LONG unsigned long"
 635 $   WRITE H_FILE "#undef DES_PTR"
 636 $   WRITE H_FILE "#define DES_PTR"
 637 $   WRITE H_FILE "#undef DES_RISC1"
 638 $   WRITE H_FILE "#undef DES_RISC2"
 639 $   WRITE H_FILE "#undef DES_UNROLL"
 640 $   WRITE H_FILE "#endif"
 641 $!
 642 $   WRITE H_FILE "#if defined(HEADER_BN_H)"
 643 $   WRITE H_FILE "#undef BN_LLONG"      ! VAX C/DEC C doesn't have long long
 644 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
 645 $   WRITE H_FILE "#undef SIXTY_FOUR_BIT"
 646 $   WRITE H_FILE "#undef THIRTY_TWO_BIT"
 647 $   WRITE H_FILE "#define THIRTY_TWO_BIT"
 648 $   WRITE H_FILE "#undef SIXTEEN_BIT"
 649 $   WRITE H_FILE "#undef EIGHT_BIT"
 650 $   WRITE H_FILE "#endif"
 651 $!
 652 $   WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
 653 $   WRITE H_FILE "#define OPENSSL_EXPORT_VAR_AS_FUNCTION"
 654 $!
 655 $!  End
 656 $!
 657 $ ENDIF
 658 $!
 659 $! Close the [.CRYPTO._xxx]OPENSSLCONF.H file
 660 $!
 661 $ CLOSE H_FILE
 662 $!
 663 $! Purge The [.CRYPTO._xxx]OPENSSLCONF.H file
 664 $!
 665 $ PURGE SYS$DISK:[.CRYPTO.'ARCHD']OPENSSLCONF.H
 666 $!
 667 $! That's All, Time To RETURN.
 668 $!
 669 $ RETURN
 670 $!
 671 $! Rebuild The "[.CRYPTO._xxx]BUILDINF.H" file.
 672 $!
 673 $ BUILDINF:
 674 $!
 675 $! Tell The User We Are Creating The [.CRYPTO._xxx]BUILDINF.H File.
 676 $!
 677 $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCHD']BUILDINF.H Include File."
 678 $!
 679 $! Create The [.CRYPTO._xxx]BUILDINF.H File.
 680 $!
 681 $ BIH_NAME = "SYS$DISK:[.CRYPTO.''ARCHD']BUILDINF.H"
 682 $ CREATE /FDL=SYS$INPUT: 'BIH_NAME'
 683 RECORD
 684         FORMAT stream_lf
 685 $!
 686 $ OPEN /APPEND H_FILE 'bih_name'
 687 $!
 688 $! Get The Current Date & Time.
 689 $!
 690 $ TIME = F$TIME()
 691 $!
 692 $! Write The [.CRYPTO._xxx]BUILDINF.H File.
 693 $!
 694 $ CFLAGS = ""
 695 $ if (POINTER_SIZE .nes. "")
 696 $ then
 697 $   CFLAGS = CFLAGS+ "/POINTER_SIZE=''POINTER_SIZE'"
 698 $ endif
 699 $ if (ZLIB .nes. "")
 700 $ then
 701 $   if (CFLAGS .nes. "") then CFLAGS = CFLAGS+ " "
 702 $   CFLAGS = CFLAGS+ "/DEFINE=ZLIB"
 703 $ endif
 704 $!
 705 $ WRITE H_FILE "#define CFLAGS ""''CFLAGS'"""
 706 $ WRITE H_FILE "#define PLATFORM ""VMS ''ARCHD' ''VMS_VERSION'"""
 707 $ WRITE H_FILE "#define DATE ""''TIME'"" "
 708 $!
 709 $! Close The [.CRYPTO._xxx]BUILDINF.H File.
 710 $!
 711 $ CLOSE H_FILE
 712 $!
 713 $! Purge The [.CRYPTO._xxx]BUILDINF.H File.
 714 $!
 715 $ PURGE SYS$DISK:[.CRYPTO.'ARCHD']BUILDINF.H
 716 $!
 717 $! Delete [.CRYPTO]BUILDINF.H File, as there might be some residue from Unix.
 718 $!
 719 $ IF F$SEARCH("[.CRYPTO]BUILDINF.H") .NES. "" THEN -
 720      DELETE SYS$DISK:[.CRYPTO]BUILDINF.H;*
 721 $!
 722 $! That's All, Time To RETURN.
 723 $!
 724 $ RETURN
 725 $!
 726 $! Copy a lot of files around.
 727 $!
 728 $ SOFTLINKS:
 729 $!
 730 $!!!! Tell The User We Are Partly Rebuilding The [.APPS] Directory.
 731 $!!!!
 732 $!!! WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD4.C', '[.APPS]MD5.C' And '[.APPS]RD160.C' Files."
 733 $!!!!
 734 $!!! DELETE SYS$DISK:[.APPS]MD4.C;*,MD5.C;*,RMD160.C;*
 735 $!!!!
 736 $!!!! Copy MD4.C from [.CRYPTO.MD4] into [.APPS]
 737 $!!!!
 738 $!!! COPY SYS$DISK:[.CRYPTO.MD4]MD4.C SYS$DISK:[.APPS]
 739 $!!!!
 740 $!!!! Copy MD5.C from [.CRYPTO.MD5] into [.APPS]
 741 $!!!! Tell The User We Are Rebuilding The [.include.openssl] Directory.
 742 $!!!!
 743 $!!!! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS]
 744 $!!!!
 745 $!!! COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS]
 746 $!
 747 $! Ensure that the [.include.openssl] directory contains a full set of
 748 $! real header files.  The distribution kit may have left real or fake
 749 $! symlinks there.  Rather than think about what's there, simply delete
 750 $! the destination files (fake or real symlinks) before copying the real
 751 $! header files in.  (Copying a real header file onto a real symlink
 752 $! merely duplicates the real header file at its source.)
 753 $!
 754 $! Tell The User We Are Rebuilding The [.include.openssl] Directory.
 755 $!
 756 $ WRITE SYS$OUTPUT "Rebuilding The '[.include.openssl]' Directory."
 757 $!
 758 $! First, make sure the directory exists.  If it did exist, delete all
 759 $! the existing header files (or fake or real symlinks).
 760 $!
 761 $ if f$parse( "sys$disk:[.include.openssl]") .eqs. ""
 762 $ then
 763 $   create /directory sys$disk:[.include.openssl]
 764 $ else
 765 $   delete sys$disk:[.include.openssl]*.h;*
 766 $ endif
 767 $!
 768 $! Copy All The ".H" Files From The Main Directory.
 769 $!
 770 $ EXHEADER := e_os2.h
 771 $ copy 'exheader' sys$disk:[.include.openssl]
 772 $!
 773 $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
 774 $!
 775 $ HEADER_SDIRS := , -
 776    'ARCHD', -
 777    OBJECTS, -
 778    MD2, MD4, MD5, SHA, MDC2, HMAC, RIPEMD, WHRLPOOL, -
 779    DES, AES, RC2, RC4, RC5, IDEA, BF, CAST, CAMELLIA, SEED, MODES, -
 780    BN, EC, RSA, DSA, ECDSA, DH, ECDH, DSO, ENGINE, -
 781    BUFFER, BIO, STACK, LHASH, RAND, ERR, -
 782    EVP, ASN1, PEM, X509, X509V3, CONF, TXT_DB, PKCS7, PKCS12, -
 783    COMP, OCSP, UI, KRB5, -
 784    CMS, PQUEUE, TS, JPAKE, SRP, STORE, CMAC
 785 $!
 786 $ EXHEADER_ := crypto.h, opensslv.h, ebcdic.h, symhacks.h, ossl_typ.h
 787 $ EXHEADER_'ARCHD' := opensslconf.h
 788 $ EXHEADER_OBJECTS := objects.h, obj_mac.h
 789 $ EXHEADER_MD2 := md2.h
 790 $ EXHEADER_MD4 := md4.h
 791 $ EXHEADER_MD5 := md5.h
 792 $ EXHEADER_SHA := sha.h
 793 $ EXHEADER_MDC2 := mdc2.h
 794 $ EXHEADER_HMAC := hmac.h
 795 $ EXHEADER_RIPEMD := ripemd.h
 796 $ EXHEADER_WHRLPOOL := whrlpool.h
 797 $ EXHEADER_DES := des.h, des_old.h
 798 $ EXHEADER_AES := aes.h
 799 $ EXHEADER_RC2 := rc2.h
 800 $ EXHEADER_RC4 := rc4.h
 801 $ EXHEADER_RC5 := rc5.h
 802 $ EXHEADER_IDEA := idea.h
 803 $ EXHEADER_BF := blowfish.h
 804 $ EXHEADER_CAST := cast.h
 805 $ EXHEADER_CAMELLIA := camellia.h
 806 $ EXHEADER_SEED := seed.h
 807 $ EXHEADER_MODES := modes.h
 808 $ EXHEADER_BN := bn.h
 809 $ EXHEADER_EC := ec.h
 810 $ EXHEADER_RSA := rsa.h
 811 $ EXHEADER_DSA := dsa.h
 812 $ EXHEADER_ECDSA := ecdsa.h
 813 $ EXHEADER_DH := dh.h
 814 $ EXHEADER_ECDH := ecdh.h
 815 $ EXHEADER_DSO := dso.h
 816 $ EXHEADER_ENGINE := engine.h
 817 $ EXHEADER_BUFFER := buffer.h
 818 $ EXHEADER_BIO := bio.h
 819 $ EXHEADER_STACK := stack.h, safestack.h
 820 $ EXHEADER_LHASH := lhash.h
 821 $ EXHEADER_RAND := rand.h
 822 $ EXHEADER_ERR := err.h
 823 $ EXHEADER_EVP := evp.h
 824 $ EXHEADER_ASN1 := asn1.h, asn1_mac.h, asn1t.h
 825 $ EXHEADER_PEM := pem.h, pem2.h
 826 $ EXHEADER_X509 := x509.h, x509_vfy.h
 827 $ EXHEADER_X509V3 := x509v3.h
 828 $ EXHEADER_CONF := conf.h, conf_api.h
 829 $ EXHEADER_TXT_DB := txt_db.h
 830 $ EXHEADER_PKCS7 := pkcs7.h
 831 $ EXHEADER_PKCS12 := pkcs12.h
 832 $ EXHEADER_COMP := comp.h
 833 $ EXHEADER_OCSP := ocsp.h
 834 $ EXHEADER_UI := ui.h, ui_compat.h
 835 $ EXHEADER_KRB5 := krb5_asn.h
 836 $ EXHEADER_CMS := cms.h
 837 $ EXHEADER_PQUEUE := pqueue.h
 838 $ EXHEADER_TS := ts.h
 839 $ EXHEADER_JPAKE := jpake.h
 840 $ EXHEADER_SRP := srp.h
 841 $!!! EXHEADER_STORE := store.h, str_compat.h
 842 $ EXHEADER_STORE := store.h
 843 $ EXHEADER_CMAC := cmac.h
 844 $!
 845 $ i = 0
 846 $ loop_header_sdirs:
 847 $   sdir = f$edit( f$element( i, ",", header_sdirs), "trim")
 848 $   i = i + 1
 849 $   if (sdir .eqs. ",") then goto loop_header_sdirs_end
 850 $   hdr_list = exheader_'sdir'
 851 $   if (sdir .nes. "") then sdir = "."+ sdir
 852 $   copy [.crypto'sdir']'hdr_list' sys$disk:[.include.openssl]
 853 $ goto loop_header_sdirs
 854 $ loop_header_sdirs_end:
 855 $!
 856 $! Copy All The ".H" Files From The [.SSL] Directory.
 857 $!
 858 $! (keep these in the same order as ssl/Makefile)
 859 $ EXHEADER := ssl.h, ssl2.h, ssl3.h, ssl23.h, tls1.h, dtls1.h, kssl.h, srtp.h
 860 $ copy sys$disk:[.ssl]'exheader' sys$disk:[.include.openssl]
 861 $!
 862 $! Purge the [.include.openssl] header files.
 863 $!
 864 $ purge sys$disk:[.include.openssl]*.h
 865 $!
 866 $! That's All, Time To RETURN.
 867 $!
 868 $ RETURN
 869 $!
 870 $! Build The "[.xxx.EXE.CRYPTO]SSL_LIBCRYPTO''LIB32'.OLB" Library.
 871 $!
 872 $ CRYPTO:
 873 $!
 874 $! Tell The User What We Are Doing.
 875 $!
 876 $ WRITE SYS$OUTPUT ""
 877 $ WRITE SYS$OUTPUT -
 878    "Building The [.",ARCHD,".EXE.CRYPTO]SSL_LIBCRYPTO''LIB32'.OLB Library."
 879 $!
 880 $! Go To The [.CRYPTO] Directory.
 881 $!
 882 $ SET DEFAULT SYS$DISK:[.CRYPTO]
 883 $!
 884 $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
 885 $!
 886 $ @CRYPTO-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
 887    "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'" "''ZLIB'"
 888 $!
 889 $! Go Back To The Main Directory.
 890 $!
 891 $ SET DEFAULT [-]
 892 $!
 893 $! Time To RETURN.
 894 $!
 895 $ RETURN
 896 $!
 897 $! Build The "[.xxx.EXE.SSL]SSL_LIBSSL''LIB32'.OLB" Library.
 898 $!
 899 $ SSL:
 900 $!
 901 $! Tell The User What We Are Doing.
 902 $!
 903 $ WRITE SYS$OUTPUT ""
 904 $ WRITE SYS$OUTPUT -
 905    "Building The [.",ARCHD,".EXE.SSL]SSL_LIBSSL''LIB32'.OLB Library."
 906 $!
 907 $! Go To The [.SSL] Directory.
 908 $!
 909 $ SET DEFAULT SYS$DISK:[.SSL]
 910 $!
 911 $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
 912 $!
 913 $ @SSL-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
 914    "''ISSEVEN'" "''POINTER_SIZE'" "''ZLIB'"
 915 $!
 916 $! Go Back To The Main Directory.
 917 $!
 918 $ SET DEFAULT [-]
 919 $!
 920 $! Time To Return.
 921 $!
 922 $ RETURN
 923 $!
 924 $! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program.
 925 $!
 926 $ SSL_TASK:
 927 $!
 928 $! Tell The User What We Are Doing.
 929 $!
 930 $ WRITE SYS$OUTPUT ""
 931 $ WRITE SYS$OUTPUT -
 932    "Building DECNet Based SSL Engine, [.",ARCHD,".EXE.SSL]SSL_TASK.EXE"
 933 $!
 934 $! Go To The [.SSL] Directory.
 935 $!
 936 $ SET DEFAULT SYS$DISK:[.SSL]
 937 $!
 938 $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE
 939 $!
 940 $ @SSL-LIB SSL_TASK 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
 941    "''ISSEVEN'" "''POINTER_SIZE'" "''ZLIB'"
 942 $!
 943 $! Go Back To The Main Directory.
 944 $!
 945 $ SET DEFAULT [-]
 946 $!
 947 $! That's All, Time To RETURN.
 948 $!
 949 $ RETURN
 950 $!
 951 $! Build The OpenSSL Test Programs.
 952 $!
 953 $ TEST:
 954 $!
 955 $! Tell The User What We Are Doing.
 956 $!
 957 $ WRITE SYS$OUTPUT ""
 958 $ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCHD,".EXE.TEST] Test Utilities."
 959 $!
 960 $! Go To The [.TEST] Directory.
 961 $!
 962 $ SET DEFAULT SYS$DISK:[.TEST]
 963 $!
 964 $! Build The Test Programs.
 965 $!
 966 $ @MAKETESTS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" -
 967    "''POINTER_SIZE'" "''ZLIB'"
 968 $!
 969 $! Go Back To The Main Directory.
 970 $!
 971 $ SET DEFAULT [-]
 972 $!
 973 $! That's All, Time To RETURN.
 974 $!
 975 $ RETURN
 976 $!
 977 $! Build The OpenSSL Application Programs.
 978 $!
 979 $ APPS:
 980 $!
 981 $! Tell The User What We Are Doing.
 982 $!
 983 $ WRITE SYS$OUTPUT ""
 984 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCHD,".EXE.APPS] Applications."
 985 $!
 986 $! Go To The [.APPS] Directory.
 987 $!
 988 $ SET DEFAULT SYS$DISK:[.APPS]
 989 $!
 990 $! Build The Application Programs.
 991 $!
 992 $ @MAKEAPPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" -
 993    "" "''POINTER_SIZE'" "''ZLIB'"
 994 $!
 995 $! Go Back To The Main Directory.
 996 $!
 997 $ SET DEFAULT [-]
 998 $!
 999 $! That's All, Time To RETURN.
1000 $!
1001 $ RETURN
1002 $!
1003 $! Build The OpenSSL Application Programs.
1004 $!
1005 $ ENGINES:
1006 $!
1007 $! Tell The User What We Are Doing.
1008 $!
1009 $ WRITE SYS$OUTPUT ""
1010 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCHD,".EXE.ENGINES] Engines."
1011 $!
1012 $! Go To The [.ENGINES] Directory.
1013 $!
1014 $ SET DEFAULT SYS$DISK:[.ENGINES]
1015 $!
1016 $! Build The Application Programs.
1017 $!
1018 $ @MAKEENGINES ENGINES 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
1019    "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'" "''ZLIB'"
1020 $!
1021 $! Go Back To The Main Directory.
1022 $!
1023 $ SET DEFAULT [-]
1024 $!
1025 $! That's All, Time To RETURN.
1026 $!
1027 $ RETURN
1028 $!
1029 $! Check The User's Options.
1030 $!
1031 $ CHECK_OPTIONS:
1032 $!
1033 $! Check if there's a "part", and separate it out
1034 $!
1035 $ BUILDPART = F$ELEMENT(1,"/",P1)
1036 $ IF BUILDPART .EQS. "/"
1037 $ THEN
1038 $   BUILDPART = ""
1039 $ ELSE
1040 $   P1 = F$EXTRACT(0,F$LENGTH(P1) - F$LENGTH(BUILDPART) - 1, P1)
1041 $ ENDIF
1042 $!
1043 $! Check To See If P1 Is Blank.
1044 $!
1045 $ IF (P1.EQS."ALL")
1046 $ THEN
1047 $!
1048 $!   P1 Is ALL, So Build Everything.
1049 $!
1050 $    BUILDCOMMAND = "ALL"
1051 $!
1052 $! Else...
1053 $!
1054 $ ELSE
1055 $!
1056 $!  Else, Check To See If P1 Has A Valid Argument.
1057 $!
1058 $   IF (P1.EQS."CONFIG").OR.(P1.EQS."BUILDINF").OR.(P1.EQS."SOFTLINKS") -
1059        .OR.(P1.EQS."BUILDALL") -
1060        .OR.(P1.EQS."CRYPTO").OR.(P1.EQS."SSL") -
1061        .OR.(P1.EQS."SSL_TASK").OR.(P1.EQS."TEST").OR.(P1.EQS."APPS") -
1062        .OR.(P1.EQS."ENGINES")
1063 $   THEN
1064 $!
1065 $!    A Valid Argument.
1066 $!
1067 $     BUILDCOMMAND = P1
1068 $!
1069 $!  Else...
1070 $!
1071 $   ELSE
1072 $!
1073 $!    Tell The User We Don't Know What They Want.
1074 $!
1075 $     WRITE SYS$OUTPUT ""
1076 $     WRITE SYS$OUTPUT "USAGE:   @MAKEVMS.COM [Target] [Pointer size] [Debug option] <Compiler>"
1077 $     WRITE SYS$OUTPUT ""
1078 $     WRITE SYS$OUTPUT "Example: @MAKEVMS.COM ALL """" NODEBUG "
1079 $     WRITE SYS$OUTPUT ""
1080 $     WRITE SYS$OUTPUT "The Target ",P1," Is Invalid.  The Valid Target Options Are:"
1081 $     WRITE SYS$OUTPUT ""
1082 $     WRITE SYS$OUTPUT "    ALL      :  Just Build Everything."
1083 $     WRITE SYS$OUTPUT "    CONFIG   :  Just build the [.CRYPTO._xxx]OPENSSLCONF.H file."
1084 $     WRITE SYS$OUTPUT "    BUILDINF :  Just build the [.CRYPTO._xxx]BUILDINF.H file."
1085 $     WRITE SYS$OUTPUT "    SOFTLINKS:  Just Fix The Unix soft links."
1086 $     WRITE SYS$OUTPUT "    BUILDALL :  Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done."
1087 $     WRITE SYS$OUTPUT "    CRYPTO   :  To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
1088 $     WRITE SYS$OUTPUT "    CRYPTO/x :  To Build Just The x Part Of The"
1089 $     WRITE SYS$OUTPUT "                [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
1090 $     WRITE SYS$OUTPUT "    SSL      :  To Build Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
1091 $     WRITE SYS$OUTPUT "    SSL_TASK :  To Build Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
1092 $     WRITE SYS$OUTPUT "    TEST     :  To Build Just The OpenSSL Test Programs."
1093 $     WRITE SYS$OUTPUT "    APPS     :  To Build Just The OpenSSL Application Programs."
1094 $     WRITE SYS$OUTPUT "    ENGINES  :  To Build Just The ENGINES"
1095 $     WRITE SYS$OUTPUT ""
1096 $     WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
1097 $     WRITE SYS$OUTPUT ""
1098 $     WRITE SYS$OUTPUT "    ALPHA[64]:  Alpha Architecture."
1099 $     WRITE SYS$OUTPUT "    IA64[64] :  IA64 Architecture."
1100 $     WRITE SYS$OUTPUT "    VAX      :  VAX Architecture."
1101 $     WRITE SYS$OUTPUT ""
1102 $!
1103 $!    Time To EXIT.
1104 $!
1105 $     GOTO TIDY
1106 $!
1107 $!  End The Valid Argument Check.
1108 $!
1109 $   ENDIF
1110 $!
1111 $! End The P1 Check.
1112 $!
1113 $ ENDIF
1114 $!
1115 $! Check P2 (POINTER_SIZE).
1116 $!
1117 $ IF (P2 .NES. "") .AND. (ARCH .NES. "VAX")
1118 $ THEN
1119 $!
1120 $   IF (P2 .EQS. "32")
1121 $   THEN
1122 $     POINTER_SIZE = "32"
1123 $   ELSE
1124 $     POINTER_SIZE = F$EDIT( P2, "COLLAPSE, UPCASE")
1125 $     IF ((POINTER_SIZE .EQS. "64") .OR. -
1126        (POINTER_SIZE .EQS. "64=") .OR. -
1127        (POINTER_SIZE .EQS. "64=ARGV"))
1128 $     THEN
1129 $       ARCHD = ARCH+ "_64"
1130 $       LIB32 = ""
1131 $     ELSE
1132 $!
1133 $!      Tell The User Entered An Invalid Option.
1134 $!
1135 $       WRITE SYS$OUTPUT ""
1136 $       WRITE SYS$OUTPUT "The Option ", P2, -
1137          " Is Invalid.  The Valid Options Are:"
1138 $       WRITE SYS$OUTPUT ""
1139 $       WRITE SYS$OUTPUT -
1140          "    """"       :  Compile with default (short) pointers."
1141 $       WRITE SYS$OUTPUT -
1142          "    32       :  Compile with 32-bit (short) pointers."
1143 $       WRITE SYS$OUTPUT -
1144          "    64       :  Compile with 64-bit (long) pointers (auto ARGV)."
1145 $       WRITE SYS$OUTPUT -
1146          "    64=      :  Compile with 64-bit (long) pointers (no ARGV)."
1147 $       WRITE SYS$OUTPUT -
1148          "    64=ARGV  :  Compile with 64-bit (long) pointers (ARGV)."
1149 $       WRITE SYS$OUTPUT ""
1150 $!
1151 $!      Time To EXIT.
1152 $!
1153 $       GOTO TIDY
1154 $!
1155 $     ENDIF
1156 $!
1157 $   ENDIF
1158 $!
1159 $! End The P2 (POINTER_SIZE) Check.
1160 $!
1161 $ ENDIF
1162 $!
1163 $! Check To See If P3 Is Blank.
1164 $!
1165 $ IF (P3.EQS."NODEBUG")
1166 $ THEN
1167 $!
1168 $!   P3 Is NODEBUG, So Compile Without Debugger Information.
1169 $!
1170 $    DEBUGGER = "NODEBUG"
1171 $!
1172 $! Else...
1173 $!
1174 $ ELSE
1175 $!
1176 $!  Check To See If We Are To Compile With Debugger Information.
1177 $!
1178 $   IF (P3.EQS."DEBUG")
1179 $   THEN
1180 $!
1181 $!    Compile With Debugger Information.
1182 $!
1183 $     DEBUGGER = "DEBUG"
1184 $!
1185 $!  Else...
1186 $!
1187 $   ELSE
1188 $!
1189 $!    Tell The User Entered An Invalid Option.
1190 $!
1191 $     WRITE SYS$OUTPUT ""
1192 $     WRITE SYS$OUTPUT "The Option ",P3," Is Invalid.  The Valid Options Are:"
1193 $     WRITE SYS$OUTPUT ""
1194 $     WRITE SYS$OUTPUT "    DEBUG    :  Compile With The Debugger Information."
1195 $     WRITE SYS$OUTPUT "    NODEBUG  :  Compile Without The Debugger Information."
1196 $     WRITE SYS$OUTPUT ""
1197 $!
1198 $!    Time To EXIT.
1199 $!
1200 $     GOTO TIDY
1201 $!
1202 $!  End The Valid Argument Check.
1203 $!
1204 $   ENDIF
1205 $!
1206 $! End The P3 Check.
1207 $!
1208 $ ENDIF
1209 $!
1210 $! Check To See If P4 Is Blank.
1211 $!
1212 $ IF (P4.EQS."")
1213 $ THEN
1214 $!
1215 $!  O.K., The User Didn't Specify A Compiler, Let's Try To
1216 $!  Find Out Which One To Use.
1217 $!
1218 $!  Check To See If We Have GNU C.
1219 $!
1220 $   IF (F$TRNLNM("GNU_CC").NES."")
1221 $   THEN
1222 $!
1223 $!    Looks Like GNUC, Set To Use GNUC.
1224 $!
1225 $     COMPILER = "GNUC"
1226 $!
1227 $!    Tell The User We Are Using GNUC.
1228 $!
1229 $     WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
1230 $!
1231 $!  End The GNU C Compiler Check.
1232 $!
1233 $   ENDIF
1234 $!
1235 $!  Check To See If We Have VAXC Or DECC.
1236 $!
1237 $   IF (F$GETSYI("CPU").GE.128).OR.(F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC")
1238 $   THEN
1239 $!
1240 $!    Looks Like DECC, Set To Use DECC.
1241 $!
1242 $     COMPILER = "DECC"
1243 $!
1244 $!    Tell The User We Are Using DECC.
1245 $!
1246 $     WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
1247 $!
1248 $!  Else...
1249 $!
1250 $   ELSE
1251 $!
1252 $!    Looks Like VAXC, Set To Use VAXC.
1253 $!
1254 $     COMPILER = "VAXC"
1255 $!
1256 $!    Tell The User We Are Using VAX C.
1257 $!
1258 $     WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
1259 $!
1260 $!  End The DECC & VAXC Compiler Check.
1261 $!
1262 $   ENDIF
1263 $!
1264 $! Else...
1265 $!
1266 $ ELSE
1267 $!
1268 $!  Check To See If The User Entered A Valid Parameter.
1269 $!
1270 $   IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")!.OR.(P4.EQS."LINK")
1271 $   THEN
1272 $!
1273 $!    Check To See If The User Wanted To Just LINK.
1274 $!
1275 $     IF (P4.EQS."LINK")
1276 $     THEN
1277 $!
1278 $!      Looks Like LINK-only
1279 $!
1280 $       COMPILER = "LINK"
1281 $!
1282 $!      Tell The User We Are Only Linking.
1283 $!
1284 $       WRITE SYS$OUTPUT "LINK Only.  This actually NOT YET SUPPORTED!"
1285 $!
1286 $!    End LINK Check.
1287 $!
1288 $     ENDIF
1289 $!
1290 $!    Check To See If The User Wanted DECC.
1291 $!
1292 $     IF (P4.EQS."DECC")
1293 $     THEN
1294 $!
1295 $!      Looks Like DECC, Set To Use DECC.
1296 $!
1297 $       COMPILER = "DECC"
1298 $!
1299 $!      Tell The User We Are Using DECC.
1300 $!
1301 $       WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
1302 $!
1303 $!    End DECC Check.
1304 $!
1305 $     ENDIF
1306 $!
1307 $!    Check To See If We Are To Use VAXC.
1308 $!
1309 $     IF (P4.EQS."VAXC")
1310 $     THEN
1311 $!
1312 $!      Looks Like VAXC, Set To Use VAXC.
1313 $!
1314 $       COMPILER = "VAXC"
1315 $!
1316 $!      Tell The User We Are Using VAX C.
1317 $!
1318 $       WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
1319 $!
1320 $!    End VAXC Check
1321 $!
1322 $     ENDIF
1323 $!
1324 $!    Check To See If We Are To Use GNU C.
1325 $!
1326 $     IF (P4.EQS."GNUC")
1327 $     THEN
1328 $!
1329 $!      Looks Like GNUC, Set To Use GNUC.
1330 $!
1331 $       COMPILER = "GNUC"
1332 $!
1333 $!      Tell The User We Are Using GNUC.
1334 $!
1335 $       WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
1336 $!
1337 $!    End The GNU C Check.
1338 $!
1339 $     ENDIF
1340 $!
1341 $!  Else The User Entered An Invalid Argument.
1342 $!
1343 $   ELSE
1344 $!
1345 $!    Tell The User We Don't Know What They Want.
1346 $!
1347 $     WRITE SYS$OUTPUT ""
1348 $     WRITE SYS$OUTPUT "The Option ",P4," Is Invalid.  The Valid Options Are:"
1349 $     WRITE SYS$OUTPUT ""
1350 $     WRITE SYS$OUTPUT "    VAXC  :  To Compile With VAX C."
1351 $     WRITE SYS$OUTPUT "    DECC  :  To Compile With DEC C."
1352 $     WRITE SYS$OUTPUT "    GNUC  :  To Compile With GNU C."
1353 $     WRITE SYS$OUTPUT ""
1354 $!
1355 $!    Time To EXIT.
1356 $!
1357 $     GOTO TIDY
1358 $!
1359 $!  End The Valid Argument Check.
1360 $!
1361 $   ENDIF
1362 $!
1363 $! End The P4 Check.
1364 $!
1365 $ ENDIF
1366 $!
1367 $! Time to check the contents of P5, and to make sure we get the correct
1368 $! library.
1369 $!
1370 $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" -
1371      .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE"
1372 $ THEN
1373 $!
1374 $!  Check to see if SOCKETSHR was chosen
1375 $!
1376 $   IF P5.EQS."SOCKETSHR"
1377 $   THEN
1378 $!
1379 $!    Set the library to use SOCKETSHR
1380 $!
1381 $     TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT /OPTIONS"
1382 $!
1383 $!    Tell the user
1384 $!
1385 $     WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
1386 $!
1387 $!    Done with SOCKETSHR
1388 $!
1389 $   ENDIF
1390 $!
1391 $!  Check to see if MULTINET was chosen
1392 $!
1393 $   IF P5.EQS."MULTINET"
1394 $   THEN
1395 $!
1396 $!    Set the library to use UCX emulation.
1397 $!
1398 $     P5 = "UCX"
1399 $!
1400 $!    Tell the user
1401 $!
1402 $     WRITE SYS$OUTPUT "Using MultiNet via UCX emulation for TCP/IP"
1403 $!
1404 $!    Done with MULTINET
1405 $!
1406 $   ENDIF
1407 $!
1408 $!  Check to see if UCX was chosen
1409 $!
1410 $   IF P5.EQS."UCX"
1411 $   THEN
1412 $!
1413 $!    Set the library to use UCX.
1414 $!
1415 $     TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT /OPTIONS"
1416 $!
1417 $!    Tell the user
1418 $!
1419 $     WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
1420 $!
1421 $!    Done with UCX
1422 $!
1423 $   ENDIF
1424 $!
1425 $!  Check to see if TCPIP was chosen
1426 $!
1427 $   IF P5.EQS."TCPIP"
1428 $   THEN
1429 $!
1430 $!    Set the library to use TCPIP (post UCX).
1431 $!
1432 $     TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT /OPTIONS"
1433 $!
1434 $!    Tell the user
1435 $!
1436 $     WRITE SYS$OUTPUT "Using TCPIP (post UCX) for TCP/IP"
1437 $!
1438 $!    Done with TCPIP
1439 $!
1440 $   ENDIF
1441 $!
1442 $!  Check to see if NONE was chosen
1443 $!
1444 $   IF P5.EQS."NONE"
1445 $   THEN
1446 $!
1447 $!    Do not use a TCPIP library.
1448 $!
1449 $     TCPIP_LIB = ""
1450 $!
1451 $!    Tell the user
1452 $!
1453 $     WRITE SYS$OUTPUT "A specific TCPIP library will not be used."
1454 $!
1455 $!    Done with NONE.
1456 $!
1457 $   ENDIF
1458 $!
1459 $!  Set the TCPIP_TYPE symbol
1460 $!
1461 $   TCPIP_TYPE = P5
1462 $!
1463 $!  Print info
1464 $!
1465 $   WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
1466 $!
1467 $!  Else The User Entered An Invalid Argument.
1468 $!
1469 $ ELSE
1470 $   IF P5 .NES. ""
1471 $   THEN
1472 $!
1473 $!    Tell The User We Don't Know What They Want.
1474 $!
1475 $     WRITE SYS$OUTPUT ""
1476 $     WRITE SYS$OUTPUT "The Option ",P5," Is Invalid.  The Valid Options Are:"
1477 $     WRITE SYS$OUTPUT ""
1478 $     WRITE SYS$OUTPUT "    SOCKETSHR  :  To link with SOCKETSHR TCP/IP library."
1479 $     WRITE SYS$OUTPUT "    UCX        :  To link with UCX TCP/IP library."
1480 $     WRITE SYS$OUTPUT "    TCPIP      :  To link with TCPIP TCP/IP (post UCX) library."
1481 $     WRITE SYS$OUTPUT "    NONE       :  To not link with a specific TCP/IP library."
1482 $     WRITE SYS$OUTPUT ""
1483 $!
1484 $!    Time To EXIT.
1485 $!
1486 $     GOTO TIDY
1487 $   ELSE
1488 $!
1489 $! If TCPIP is not defined, then hardcode it to make
1490 $! it clear that no TCPIP is desired.
1491 $!
1492 $     IF P5 .EQS. ""
1493 $     THEN
1494 $       TCPIP_LIB = ""
1495 $       TCPIP_TYPE = "NONE"
1496 $     ELSE
1497 $!
1498 $!    Set the TCPIP_TYPE symbol
1499 $!
1500 $       TCPIP_TYPE = P5
1501 $     ENDIF
1502 $   ENDIF
1503 $!
1504 $!  Done with TCP/IP libraries
1505 $!
1506 $ ENDIF
1507 $!
1508 $! Special Threads For OpenVMS v7.1 Or Later
1509 $!
1510 $! Written By:  Richard Levitte
1511 $!              richard@levitte.org
1512 $!
1513 $!
1514 $! Check To See If We Have A Option For P6.
1515 $!
1516 $ IF (P6.EQS."")
1517 $ THEN
1518 $!
1519 $!  Get The Version Of VMS We Are Using.
1520 $!
1521 $   ISSEVEN :=
1522 $   TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,VMS_VERSION))
1523 $   TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
1524 $!
1525 $!  Check To See If The VMS Version Is v7.1 Or Later.
1526 $!
1527 $   IF (TMP.GE.71)
1528 $   THEN
1529 $!
1530 $!    We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
1531 $!
1532 $     ISSEVEN := ,PTHREAD_USE_D4
1533 $!
1534 $!  End The VMS Version Check.
1535 $!
1536 $   ENDIF
1537 $!
1538 $! End The P6 Check.
1539 $!
1540 $ ENDIF
1541 $!
1542 $!
1543 $! Check To See If We Have A ZLIB Option.
1544 $!
1545 $ ZLIB = P7
1546 $ IF (ZLIB .NES. "")
1547 $ THEN
1548 $!
1549 $!  Check for expected ZLIB files.
1550 $!
1551 $   err = 0
1552 $   file1 = f$parse( "zlib.h", ZLIB, , , "SYNTAX_ONLY")
1553 $   if (f$search( file1) .eqs. "")
1554 $   then
1555 $     WRITE SYS$OUTPUT ""
1556 $     WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid."
1557 $     WRITE SYS$OUTPUT "    Can't find header: ''file1'"
1558 $     err = 1
1559 $   endif
1560 $!
1561 $   file2 = f$parse( ZLIB, "libz.olb", , , "SYNTAX_ONLY")
1562 $   if (f$search( file2) .eqs. "")
1563 $   then
1564 $     if (err .eq. 0)
1565 $     then
1566 $       WRITE SYS$OUTPUT ""
1567 $       WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid."
1568 $     endif
1569 $     WRITE SYS$OUTPUT "    Can't find library: ''file2'"
1570 $     WRITE SYS$OUTPUT ""
1571 $     err = err+ 2
1572 $   endif
1573 $   if (err .eq. 1)
1574 $   then
1575 $     WRITE SYS$OUTPUT ""
1576 $   endif
1577 $!
1578 $   if (err .ne. 0)
1579 $   then
1580 $     GOTO TIDY
1581 $   endif
1582 $!
1583 $!  Print info
1584 $!
1585 $   WRITE SYS$OUTPUT "ZLIB library spec: ", file2
1586 $!
1587 $! End The ZLIB Check.
1588 $!
1589 $ ENDIF
1590 $!
1591 $!  Time To RETURN...
1592 $!
1593 $ RETURN
1594 $!
1595 $ TIDY:
1596 $!
1597 $! Close any open files.
1598 $!
1599 $ if (f$trnlnm( "h_file", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then -
1600    close h_file
1601 $!
1602 $! Restore the original default device:[directory].
1603 $!
1604 $ SET DEFAULT 'DEF_ORIG'
1605 $!
1606 $ EXIT
1607 $!