3 $! Original Author: UNKNOWN
4 $! Rewritten By: Robert Byer
6 $! A-Com Computing, Inc.
7 $! byer@mail.all-net.net
9 $! Changes by Richard Levitte <richard@levitte.org>
10 $! Zoltan Arpadffy <zoli@polarhome.com>
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.
16 $! This procedures accepts two command line options listed below.
18 $! P1 specifies one of the following build options:
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.
34 $! P2, if defined, specifies the C pointer size. Ignored on VAX.
35 $! Supported values are:
37 $! "" Compile with default (/NOPOINTER_SIZE)
38 $! 32 Compile with /POINTER_SIZE=32 (SHORT)
39 $! 64 Compile with /POINTER_SIZE=64[=ARGV] (LONG[=ARGV])
41 $! P3 specifies DEBUG or NODEBUG, to compile with or without debugging
44 $! P4 specifies which compiler to try to compile under.
49 $! LINK To only link the programs from existing object files.
50 $! (not yet implemented)
52 $! If you don't specify a compiler, it will try to determine which
53 $! "C" compiler to use.
55 $! P5, if defined, sets a TCP/IP library to use, through one of the following
58 $! UCX for UCX or UCX emulation
59 $! TCPIP for TCP/IP Services or TCP/IP Services emulation
60 $! (this is prefered over UCX)
61 $! SOCKETSHR for SOCKETSHR+NETLIB
62 $! NONE to avoid specifying which TCP/IP implementation to
63 $! use at build time (this works with DEC C). This is
66 $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up).
68 $! P7, if defined, specifies a directory where ZLIB files (zlib.h,
69 $! libz.olb) may be found. Optionally, a non-default object library
70 $! name may be included ("dev:[dir]libz_64.olb", for example).
75 $ proc = f$environment( "procedure")
76 $ write sys$output "@@@ "+ -
77 f$parse( proc, , , "name")+ f$parse( proc, , , "type")
79 $ DEF_ORIG = F$ENVIRONMENT( "DEFAULT")
80 $ ON ERROR THEN GOTO TIDY
81 $ ON CONTROL_C THEN GOTO TIDY
83 $! Check if we're in a batch job, and make sure we get to
84 $! the directory this script is in
86 $ IF F$MODE() .EQS. "BATCH"
88 $ COMNAME=F$ENVIRONMENT("PROCEDURE")
89 $ COMPATH=F$PARSE("A.;",COMNAME) - "A.;"
93 $! Check What Architecture We Are Using.
95 $ IF (F$GETSYI("CPU").LT.128)
98 $! The Architecture Is VAX.
106 $! The Architecture Is Alpha, IA64 or whatever comes in the future.
108 $ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
109 $ IF (ARCH .EQS. "") THEN ARCH = "UNK"
111 $! End The Architecture Check.
121 $ VMS_VERSION = f$edit( f$getsyi( "VERSION"), "TRIM")
123 $! Check To Make Sure We Have Valid Command Line Parameters.
125 $ GOSUB CHECK_OPTIONS
127 $! Check To See What We Are To Do.
129 $ IF (BUILDCOMMAND.EQS."ALL")
132 $! Start with building the OpenSSL configuration file.
136 $! Create The "BUILDINF.H" Include File.
140 $! Fix The Unix Softlinks.
146 $ IF (BUILDCOMMAND.EQS."ALL".OR.BUILDCOMMAND.EQS."BUILDALL")
149 $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
153 $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
157 $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine.
161 $! Build The [.xxx.EXE.TEST] OpenSSL Test Utilities.
165 $! Build The [.xxx.EXE.APPS] OpenSSL Application Utilities.
169 $! Build The [.xxx.EXE.ENGINES] OpenSSL Shareable Engines.
177 $! Build Just What The User Wants Us To Build.
179 $ GOSUB 'BUILDCOMMAND'
187 $! Rebuild The [.CRYPTO._xxx]OPENSSLCONF.H" file.
191 $! Tell The User We Are Creating The [.CRYPTO._xxx]OPENSSLCONF.H File.
193 $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCHD']OPENSSLCONF.H Include File."
195 $! First, make sure the directory exists.
197 $ IF F$PARSE("SYS$DISK:[.CRYPTO.''ARCHD']") .EQS. "" THEN -
198 CREATE/DIRECTORY SYS$DISK:[.CRYPTO.'ARCHD']
200 $! Different tar/UnZip versions/option may have named the file differently
201 $ IF F$SEARCH("[.crypto]opensslconf.h_in") .NES. ""
203 $ OPENSSLCONF_H_IN = "[.crypto]opensslconf.h_in"
205 $ IF F$SEARCH( "[.crypto]opensslconf_h.in") .NES. ""
207 $ OPENSSLCONF_H_IN = "[.crypto]opensslconf_h.in"
210 $ IF F$SEARCH( "[.crypto]opensslconf.h.in") .NES. ""
212 $ OPENSSLCONF_H_IN = "[.crypto]opensslconf.h.in"
214 $ WRITE SYS$ERROR "Couldn't find a [.crypto]opensslconf.h.in. Exiting!"
215 $ $STATUS = %X00018294 ! "%RMS-F-FNF, file not found".
221 $! Create The [.CRYPTO._xxx]OPENSSLCONF.H File.
222 $! Make sure it has the right format.
224 $ OSCH_NAME = "SYS$DISK:[.CRYPTO.''ARCHD']OPENSSLCONF.H"
225 $ CREATE /FDL=SYS$INPUT: 'OSCH_NAME'
228 $ OPEN /APPEND H_FILE 'OSCH_NAME'
230 $! Write The [.CRYPTO._xxx]OPENSSLCONF.H File.
232 $ WRITE H_FILE "/* This file was automatically built using makevms.com */"
233 $ WRITE H_FILE "/* and ''OPENSSLCONF_H_IN' */"
235 $! Write a few macros that indicate how this system was built.
238 $ WRITE H_FILE "#ifndef OPENSSL_SYS_VMS"
239 $ WRITE H_FILE "# define OPENSSL_SYS_VMS"
240 $ WRITE H_FILE "#endif"
242 $! One of the best way to figure out what the list should be is to do
243 $! the following on a Unix system:
244 $! grep OPENSSL_NO_ crypto/*/*.h ssl/*.h engines/*.h engines/*/*.h|grep ':# *if'|sed -e 's/^.*def //'|sort|uniq
245 $! For that reason, the list will also always end up in alphabetical order
246 $ CONFIG_LOGICALS := AES,-
304 $! Add a few that we know about
305 $ CONFIG_LOGICALS := 'CONFIG_LOGICALS',-
307 $! The following rules, which dictate how some algorithm choices affect
308 $! others, are picked from Configure.
310 $! list = item[ ; list]
311 $! item = algos / dependents
312 $! algos = algo [, algos]
313 $! dependents = dependent [, dependents]
314 $! When a list of algos is specified in one item, it means that they must
315 $! all be disabled for the rule to apply.
316 $! When a list of dependents is specified in one item, it means that they
317 $! will all be disabled if the rule applies.
318 $! Rules are checked sequentially. If a rule disables an algorithm, it will
319 $! affect all following rules that depend on that algorithm being disabled.
320 $! To force something to be enabled or disabled, have no algorithms in the
322 $ CONFIG_DISABLE_RULES := RIJNDAEL/AES;-
336 $ CONFIG_ENABLE_RULES := ZLIB_DYNAMIC/ZLIB;-
339 $! Architecture specific rule addtions
340 $ IF ARCH .EQS. "VAX"
342 $ ! Disable algorithms that require 64-bit integers in C
343 $ CONFIG_DISABLE_RULES = CONFIG_DISABLE_RULES + -
350 $ CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS),"TRIM")
351 $ CONFIG_LOG_I = CONFIG_LOG_I + 1
352 $ IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP1
353 $ IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP1_END
354 $ IF F$TRNLNM("OPENSSL_NO_"+CONFIG_LOG_E)
356 $ CONFIG_DISABLED_'CONFIG_LOG_E' := YES
357 $ CONFIG_ENABLED_'CONFIG_LOG_E' := NO
358 $ CONFIG_CHANGED_'CONFIG_LOG_E' := YES
360 $ CONFIG_DISABLED_'CONFIG_LOG_E' := NO
361 $ CONFIG_ENABLED_'CONFIG_LOG_E' := YES
362 $ ! Because all algorithms are assumed enabled by default
363 $ CONFIG_CHANGED_'CONFIG_LOG_E' := NO
365 $ GOTO CONFIG_LOG_LOOP1
366 $ CONFIG_LOG_LOOP1_END:
368 $! Apply cascading disable rules
369 $ CONFIG_DISABLE_I = 0
370 $ CONFIG_DISABLE_LOOP0:
371 $ CONFIG_DISABLE_E = F$EDIT(F$ELEMENT(CONFIG_DISABLE_I,";", -
372 CONFIG_DISABLE_RULES),"TRIM")
373 $ CONFIG_DISABLE_I = CONFIG_DISABLE_I + 1
374 $ IF CONFIG_DISABLE_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP0
375 $ IF CONFIG_DISABLE_E .EQS. ";" THEN GOTO CONFIG_DISABLE_LOOP0_END
377 $ CONFIG_DISABLE_ALGOS = F$EDIT(F$ELEMENT(0,"/",CONFIG_DISABLE_E),"TRIM")
378 $ CONFIG_DISABLE_DEPENDENTS = F$EDIT(F$ELEMENT(1,"/",CONFIG_DISABLE_E),"TRIM")
381 $ CONFIG_DISABLE_LOOP1:
382 $ CONFIG_ALGO_E = F$EDIT(F$ELEMENT(CONFIG_ALGO_I,",", -
383 CONFIG_DISABLE_ALGOS),"TRIM")
384 $ CONFIG_ALGO_I = CONFIG_ALGO_I + 1
385 $ IF CONFIG_ALGO_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP1
386 $ IF CONFIG_ALGO_E .EQS. "," THEN GOTO CONFIG_DISABLE_LOOP1_END
387 $ IF F$TYPE(CONFIG_DISABLED_'CONFIG_ALGO_E') .EQS. ""
391 $ IF .NOT. CONFIG_DISABLED_'CONFIG_ALGO_E' THEN TO_DISABLE := NO
393 $ GOTO CONFIG_DISABLE_LOOP1
394 $ CONFIG_DISABLE_LOOP1_END:
398 $ CONFIG_DEPENDENT_I = 0
399 $ CONFIG_DISABLE_LOOP2:
400 $ CONFIG_DEPENDENT_E = F$EDIT(F$ELEMENT(CONFIG_DEPENDENT_I,",", -
401 CONFIG_DISABLE_DEPENDENTS),"TRIM")
402 $ CONFIG_DEPENDENT_I = CONFIG_DEPENDENT_I + 1
403 $ IF CONFIG_DEPENDENT_E .EQS. "" THEN GOTO CONFIG_DISABLE_LOOP2
404 $ IF CONFIG_DEPENDENT_E .EQS. "," THEN GOTO CONFIG_DISABLE_LOOP2_END
405 $ CONFIG_DISABLED_'CONFIG_DEPENDENT_E' := YES
406 $ CONFIG_ENABLED_'CONFIG_DEPENDENT_E' := NO
407 $ ! Better not to assume defaults at this point...
408 $ CONFIG_CHANGED_'CONFIG_DEPENDENT_E' := YES
410 "''CONFIG_DEPENDENT_E' disabled by rule ''CONFIG_DISABLE_E'"
411 $ GOTO CONFIG_DISABLE_LOOP2
412 $ CONFIG_DISABLE_LOOP2_END:
414 $ GOTO CONFIG_DISABLE_LOOP0
415 $ CONFIG_DISABLE_LOOP0_END:
417 $! Apply cascading enable rules
418 $ CONFIG_ENABLE_I = 0
419 $ CONFIG_ENABLE_LOOP0:
420 $ CONFIG_ENABLE_E = F$EDIT(F$ELEMENT(CONFIG_ENABLE_I,";", -
421 CONFIG_ENABLE_RULES),"TRIM")
422 $ CONFIG_ENABLE_I = CONFIG_ENABLE_I + 1
423 $ IF CONFIG_ENABLE_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP0
424 $ IF CONFIG_ENABLE_E .EQS. ";" THEN GOTO CONFIG_ENABLE_LOOP0_END
426 $ CONFIG_ENABLE_ALGOS = F$EDIT(F$ELEMENT(0,"/",CONFIG_ENABLE_E),"TRIM")
427 $ CONFIG_ENABLE_DEPENDENTS = F$EDIT(F$ELEMENT(1,"/",CONFIG_ENABLE_E),"TRIM")
430 $ CONFIG_ENABLE_LOOP1:
431 $ CONFIG_ALGO_E = F$EDIT(F$ELEMENT(CONFIG_ALGO_I,",", -
432 CONFIG_ENABLE_ALGOS),"TRIM")
433 $ CONFIG_ALGO_I = CONFIG_ALGO_I + 1
434 $ IF CONFIG_ALGO_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP1
435 $ IF CONFIG_ALGO_E .EQS. "," THEN GOTO CONFIG_ENABLE_LOOP1_END
436 $ IF F$TYPE(CONFIG_ENABLED_'CONFIG_ALGO_E') .EQS. ""
440 $ IF .NOT. CONFIG_ENABLED_'CONFIG_ALGO_E' THEN TO_ENABLE := NO
442 $ GOTO CONFIG_ENABLE_LOOP1
443 $ CONFIG_ENABLE_LOOP1_END:
447 $ CONFIG_DEPENDENT_I = 0
448 $ CONFIG_ENABLE_LOOP2:
449 $ CONFIG_DEPENDENT_E = F$EDIT(F$ELEMENT(CONFIG_DEPENDENT_I,",", -
450 CONFIG_ENABLE_DEPENDENTS),"TRIM")
451 $ CONFIG_DEPENDENT_I = CONFIG_DEPENDENT_I + 1
452 $ IF CONFIG_DEPENDENT_E .EQS. "" THEN GOTO CONFIG_ENABLE_LOOP2
453 $ IF CONFIG_DEPENDENT_E .EQS. "," THEN GOTO CONFIG_ENABLE_LOOP2_END
454 $ CONFIG_DISABLED_'CONFIG_DEPENDENT_E' := NO
455 $ CONFIG_ENABLED_'CONFIG_DEPENDENT_E' := YES
456 $ ! Better not to assume defaults at this point...
457 $ CONFIG_CHANGED_'CONFIG_DEPENDENT_E' := YES
459 "''CONFIG_DEPENDENT_E' enabled by rule ''CONFIG_ENABLE_E'"
460 $ GOTO CONFIG_ENABLE_LOOP2
461 $ CONFIG_ENABLE_LOOP2_END:
463 $ GOTO CONFIG_ENABLE_LOOP0
464 $ CONFIG_ENABLE_LOOP0_END:
466 $! Write to the configuration
469 $ CONFIG_LOG_E = F$EDIT(F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS),"TRIM")
470 $ CONFIG_LOG_I = CONFIG_LOG_I + 1
471 $ IF CONFIG_LOG_E .EQS. "" THEN GOTO CONFIG_LOG_LOOP2
472 $ IF CONFIG_LOG_E .EQS. "," THEN GOTO CONFIG_LOG_LOOP2_END
473 $ IF CONFIG_CHANGED_'CONFIG_LOG_E'
475 $ IF CONFIG_DISABLED_'CONFIG_LOG_E'
477 $ WRITE H_FILE "#ifndef OPENSSL_NO_",CONFIG_LOG_E
478 $ WRITE H_FILE "# define OPENSSL_NO_",CONFIG_LOG_E
479 $ WRITE H_FILE "#endif"
481 $ WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E
482 $ WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E
483 $ WRITE H_FILE "#endif"
486 $ GOTO CONFIG_LOG_LOOP2
487 $ CONFIG_LOG_LOOP2_END:
490 $ WRITE H_FILE "/* 2011-02-23 SMS."
491 $ WRITE H_FILE " * On VMS (V8.3), setvbuf() doesn't support a 64-bit"
492 $ WRITE H_FILE " * ""in"" pointer, and the help says:"
493 $ WRITE H_FILE " * Please note that the previously documented"
494 $ WRITE H_FILE " * value _IONBF is not supported."
495 $ WRITE H_FILE " * So, skip it on VMS."
497 $ WRITE H_FILE "#define OPENSSL_NO_SETVBUF_IONBF"
500 $! Add in the common "crypto/opensslconf.h.in".
502 $ TYPE 'OPENSSLCONF_H_IN' /OUTPUT=H_FILE:
504 $ IF ARCH .NES. "VAX"
507 $! Write the non-VAX specific data
509 $ WRITE H_FILE "#if defined(HEADER_RC4_H)"
510 $ WRITE H_FILE "#undef RC4_INT"
511 $ WRITE H_FILE "#define RC4_INT unsigned int"
512 $ WRITE H_FILE "#undef RC4_CHUNK"
513 $ WRITE H_FILE "#define RC4_CHUNK unsigned long long"
514 $ WRITE H_FILE "#endif"
516 $ WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
517 $ WRITE H_FILE "#undef DES_LONG"
518 $ WRITE H_FILE "#define DES_LONG unsigned int"
519 $ WRITE H_FILE "#undef DES_PTR"
520 $ WRITE H_FILE "#define DES_PTR"
521 $ WRITE H_FILE "#undef DES_RISC1"
522 $ WRITE H_FILE "#undef DES_RISC2"
523 $ WRITE H_FILE "#define DES_RISC1"
524 $ WRITE H_FILE "#undef DES_UNROLL"
525 $ WRITE H_FILE "#define DES_UNROLL"
526 $ WRITE H_FILE "#endif"
528 $ WRITE H_FILE "#if defined(HEADER_BN_H)"
529 $ WRITE H_FILE "#undef BN_LLONG" ! Never define with SIXTY_FOUR_BIT
530 $ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
531 $ WRITE H_FILE "#undef SIXTY_FOUR_BIT"
532 $ WRITE H_FILE "#define SIXTY_FOUR_BIT"
533 $ WRITE H_FILE "#undef THIRTY_TWO_BIT"
534 $ WRITE H_FILE "#undef SIXTEEN_BIT"
535 $ WRITE H_FILE "#undef EIGHT_BIT"
536 $ WRITE H_FILE "#endif"
538 $ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
544 $! Write the VAX specific data
546 $ WRITE H_FILE "#if defined(HEADER_RC4_H)"
547 $ WRITE H_FILE "#undef RC4_INT"
548 $ WRITE H_FILE "#define RC4_INT unsigned char"
549 $ WRITE H_FILE "#undef RC4_CHUNK"
550 $ WRITE H_FILE "#define RC4_CHUNK unsigned long"
551 $ WRITE H_FILE "#endif"
553 $ WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
554 $ WRITE H_FILE "#undef DES_LONG"
555 $ WRITE H_FILE "#define DES_LONG unsigned long"
556 $ WRITE H_FILE "#undef DES_PTR"
557 $ WRITE H_FILE "#define DES_PTR"
558 $ WRITE H_FILE "#undef DES_RISC1"
559 $ WRITE H_FILE "#undef DES_RISC2"
560 $ WRITE H_FILE "#undef DES_UNROLL"
561 $ WRITE H_FILE "#endif"
563 $ WRITE H_FILE "#if defined(HEADER_BN_H)"
564 $ WRITE H_FILE "#undef BN_LLONG" ! VAX C/DEC C doesn't have long long
565 $ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
566 $ WRITE H_FILE "#undef SIXTY_FOUR_BIT"
567 $ WRITE H_FILE "#undef THIRTY_TWO_BIT"
568 $ WRITE H_FILE "#define THIRTY_TWO_BIT"
569 $ WRITE H_FILE "#undef SIXTEEN_BIT"
570 $ WRITE H_FILE "#undef EIGHT_BIT"
571 $ WRITE H_FILE "#endif"
573 $! Oddly enough, the following symbol is tested in crypto/sha/sha512.c
574 $! before sha.h gets included (and HEADER_SHA_H defined), so we will not
575 $! protect this one...
576 $ WRITE H_FILE "#undef OPENSSL_NO_SHA512"
577 $ WRITE H_FILE "#define OPENSSL_NO_SHA512"
579 $ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
580 $ WRITE H_FILE "#define OPENSSL_EXPORT_VAR_AS_FUNCTION"
586 $! Close the [.CRYPTO._xxx]OPENSSLCONF.H file
590 $! Purge The [.CRYPTO._xxx]OPENSSLCONF.H file
592 $ PURGE SYS$DISK:[.CRYPTO.'ARCHD']OPENSSLCONF.H
594 $! That's All, Time To RETURN.
598 $! Rebuild The "[.CRYPTO._xxx]BUILDINF.H" file.
602 $! Tell The User We Are Creating The [.CRYPTO._xxx]BUILDINF.H File.
604 $ WRITE SYS$OUTPUT "Creating [.CRYPTO.''ARCHD']BUILDINF.H Include File."
606 $! Create The [.CRYPTO._xxx]BUILDINF.H File.
608 $ BIH_NAME = "SYS$DISK:[.CRYPTO.''ARCHD']BUILDINF.H"
609 $ CREATE /FDL=SYS$INPUT: 'BIH_NAME'
613 $ OPEN /APPEND H_FILE 'bih_name'
615 $! Get The Current Date & Time.
619 $! Write The [.CRYPTO._xxx]BUILDINF.H File.
622 $ if (POINTER_SIZE .nes. "")
624 $ CFLAGS = CFLAGS+ "/POINTER_SIZE=''POINTER_SIZE'"
628 $ if (CFLAGS .nes. "") then CFLAGS = CFLAGS+ " "
629 $ CFLAGS = CFLAGS+ "/DEFINE=ZLIB"
632 $ WRITE H_FILE "#define CFLAGS ""''CFLAGS'"""
633 $ WRITE H_FILE "#define PLATFORM ""VMS ''ARCHD' ''VMS_VERSION'"""
634 $ WRITE H_FILE "#define DATE ""''TIME'"" "
636 $! Close The [.CRYPTO._xxx]BUILDINF.H File.
640 $! Purge The [.CRYPTO._xxx]BUILDINF.H File.
642 $ PURGE SYS$DISK:[.CRYPTO.'ARCHD']BUILDINF.H
644 $! Delete [.CRYPTO]BUILDINF.H File, as there might be some residue from Unix.
646 $ IF F$SEARCH("[.CRYPTO]BUILDINF.H") .NES. "" THEN -
647 DELETE SYS$DISK:[.CRYPTO]BUILDINF.H;*
649 $! That's All, Time To RETURN.
653 $! Copy a lot of files around.
657 $!!!! Tell The User We Are Partly Rebuilding The [.APPS] Directory.
659 $!!! WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD4.C' File."
661 $!!! DELETE SYS$DISK:[.APPS]MD4.C;*
663 $!!!! Copy MD4.C from [.CRYPTO.MD4] into [.APPS]
665 $!!! COPY SYS$DISK:[.CRYPTO.MD4]MD4.C SYS$DISK:[.APPS]
667 $! Ensure that the [.include.openssl] directory contains a full set of
668 $! real header files. The distribution kit may have left real or fake
669 $! symlinks there. Rather than think about what's there, simply delete
670 $! the destination files (fake or real symlinks) before copying the real
671 $! header files in. (Copying a real header file onto a real symlink
672 $! merely duplicates the real header file at its source.)
674 $! Tell The User We Are Rebuilding The [.include.openssl] Directory.
676 $ WRITE SYS$OUTPUT "Rebuilding The '[.include.openssl]' Directory."
678 $! First, make sure the directory exists. If it did exist, delete all
679 $! the existing header files (or fake or real symlinks).
681 $ if f$parse( "sys$disk:[.include.openssl]") .eqs. ""
683 $ create /directory sys$disk:[.include.openssl]
685 $ delete sys$disk:[.include.openssl]*.h;*
688 $! Copy All The ".H" Files From The Main Directory.
690 $ EXHEADER := e_os2.h
691 $ copy 'exheader' sys$disk:[.include.openssl]
693 $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
698 MD2, MD4, MD5, SHA, MDC2, HMAC, RIPEMD, WHRLPOOL, -
699 DES, AES, RC2, RC4, RC5, IDEA, BF, CAST, CAMELLIA, SEED, MODES, -
700 BN, EC, RSA, DSA, ECDSA, DH, ECDH, DSO, ENGINE, -
701 BUFFER, BIO, STACK, LHASH, RAND, ERR, -
702 EVP, ASN1, PEM, X509, X509V3, CONF, TXT_DB, PKCS7, PKCS12, -
703 COMP, OCSP, UI, KRB5, -
704 CMS, PQUEUE, TS, JPAKE, SRP, STORE
706 $ EXHEADER_ := crypto.h, opensslv.h, ebcdic.h, symhacks.h, ossl_typ.h
707 $ EXHEADER_'ARCHD' := opensslconf.h
708 $ EXHEADER_OBJECTS := objects.h, obj_mac.h
709 $ EXHEADER_MD2 := md2.h
710 $ EXHEADER_MD4 := md4.h
711 $ EXHEADER_MD5 := md5.h
712 $ EXHEADER_SHA := sha.h
713 $ EXHEADER_MDC2 := mdc2.h
714 $ EXHEADER_HMAC := hmac.h
715 $ EXHEADER_RIPEMD := ripemd.h
716 $ EXHEADER_WHRLPOOL := whrlpool.h
717 $ EXHEADER_DES := des.h, des_old.h
718 $ EXHEADER_AES := aes.h
719 $ EXHEADER_RC2 := rc2.h
720 $ EXHEADER_RC4 := rc4.h
721 $ EXHEADER_RC5 := rc5.h
722 $ EXHEADER_IDEA := idea.h
723 $ EXHEADER_BF := blowfish.h
724 $ EXHEADER_CAST := cast.h
725 $ EXHEADER_CAMELLIA := camellia.h
726 $ EXHEADER_SEED := seed.h
727 $ EXHEADER_MODES := modes.h
728 $ EXHEADER_BN := bn.h
729 $ EXHEADER_EC := ec.h
730 $ EXHEADER_RSA := rsa.h
731 $ EXHEADER_DSA := dsa.h
732 $ EXHEADER_ECDSA := ecdsa.h
733 $ EXHEADER_DH := dh.h
734 $ EXHEADER_ECDH := ecdh.h
735 $ EXHEADER_DSO := dso.h
736 $ EXHEADER_ENGINE := engine.h
737 $ EXHEADER_BUFFER := buffer.h
738 $ EXHEADER_BIO := bio.h
739 $ EXHEADER_STACK := stack.h, safestack.h
740 $ EXHEADER_LHASH := lhash.h
741 $ EXHEADER_RAND := rand.h
742 $ EXHEADER_ERR := err.h
743 $ EXHEADER_EVP := evp.h
744 $ EXHEADER_ASN1 := asn1.h, asn1_mac.h, asn1t.h
745 $ EXHEADER_PEM := pem.h, pem2.h
746 $ EXHEADER_X509 := x509.h, x509_vfy.h
747 $ EXHEADER_X509V3 := x509v3.h
748 $ EXHEADER_CONF := conf.h, conf_api.h
749 $ EXHEADER_TXT_DB := txt_db.h
750 $ EXHEADER_PKCS7 := pkcs7.h
751 $ EXHEADER_PKCS12 := pkcs12.h
752 $ EXHEADER_COMP := comp.h
753 $ EXHEADER_OCSP := ocsp.h
754 $ EXHEADER_UI := ui.h, ui_compat.h
755 $ EXHEADER_KRB5 := krb5_asn.h
756 $ EXHEADER_CMS := cms.h
757 $ EXHEADER_PQUEUE := pqueue.h
758 $ EXHEADER_TS := ts.h
759 $ EXHEADER_JPAKE := jpake.h
760 $ EXHEADER_SRP := srp.h
761 $!!! EXHEADER_STORE := store.h, str_compat.h
762 $ EXHEADER_STORE := store.h
766 $ sdir = f$edit( f$element( i, ",", sdirs), "trim")
768 $ if (sdir .eqs. ",") then goto loop_sdirs_end
769 $ hdr_list = exheader_'sdir'
770 $ if (sdir .nes. "") then sdir = "."+ sdir
771 $ copy [.crypto'sdir']'hdr_list' sys$disk:[.include.openssl]
775 $! Copy All The ".H" Files From The [.SSL] Directory.
777 $! (keep these in the same order as ssl/Makefile)
778 $ EXHEADER := ssl.h, ssl2.h, ssl3.h, ssl23.h, tls1.h, dtls1.h, kssl.h
779 $ copy sys$disk:[.ssl]'exheader' sys$disk:[.include.openssl]
781 $! Purge the [.include.openssl] header files.
783 $ purge sys$disk:[.include.openssl]*.h
785 $! That's All, Time To RETURN.
789 $! Build The "[.xxx.EXE.CRYPTO]SSL_LIBCRYPTO''LIB32'.OLB" Library.
793 $! Tell The User What We Are Doing.
795 $ WRITE SYS$OUTPUT ""
797 "Building The [.",ARCHD,".EXE.CRYPTO]SSL_LIBCRYPTO''LIB32'.OLB Library."
799 $! Go To The [.CRYPTO] Directory.
801 $ SET DEFAULT SYS$DISK:[.CRYPTO]
803 $! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
805 $ @CRYPTO-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
806 "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'" "''ZLIB'"
808 $! Build The [.xxx.EXE.CRYPTO]*.EXE Test Applications.
810 $ @CRYPTO-LIB APPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
811 "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'" "''ZLIB'"
813 $! Go Back To The Main Directory.
821 $! Build The "[.xxx.EXE.SSL]SSL_LIBSSL''LIB32'.OLB" Library.
825 $! Tell The User What We Are Doing.
827 $ WRITE SYS$OUTPUT ""
829 "Building The [.",ARCHD,".EXE.SSL]SSL_LIBSSL''LIB32'.OLB Library."
831 $! Go To The [.SSL] Directory.
833 $ SET DEFAULT SYS$DISK:[.SSL]
835 $! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
837 $ @SSL-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
838 "''ISSEVEN'" "''POINTER_SIZE'" "''ZLIB'"
840 $! Go Back To The Main Directory.
848 $! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program.
852 $! Tell The User What We Are Doing.
854 $ WRITE SYS$OUTPUT ""
856 "Building DECNet Based SSL Engine, [.",ARCHD,".EXE.SSL]SSL_TASK.EXE"
858 $! Go To The [.SSL] Directory.
860 $ SET DEFAULT SYS$DISK:[.SSL]
862 $! Build The [.xxx.EXE.SSL]SSL_TASK.EXE
864 $ @SSL-LIB SSL_TASK 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
865 "''ISSEVEN'" "''POINTER_SIZE'" "''ZLIB'"
867 $! Go Back To The Main Directory.
871 $! That's All, Time To RETURN.
875 $! Build The OpenSSL Test Programs.
879 $! Tell The User What We Are Doing.
881 $ WRITE SYS$OUTPUT ""
882 $ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCHD,".EXE.TEST] Test Utilities."
884 $! Go To The [.TEST] Directory.
886 $ SET DEFAULT SYS$DISK:[.TEST]
888 $! Build The Test Programs.
890 $ @MAKETESTS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" -
891 "''POINTER_SIZE'" "''ZLIB'"
893 $! Go Back To The Main Directory.
897 $! That's All, Time To RETURN.
901 $! Build The OpenSSL Application Programs.
905 $! Tell The User What We Are Doing.
907 $ WRITE SYS$OUTPUT ""
908 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCHD,".EXE.APPS] Applications."
910 $! Go To The [.APPS] Directory.
912 $ SET DEFAULT SYS$DISK:[.APPS]
914 $! Build The Application Programs.
916 $ @MAKEAPPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" -
917 "" "''POINTER_SIZE'" "''ZLIB'"
919 $! Go Back To The Main Directory.
923 $! That's All, Time To RETURN.
927 $! Build The OpenSSL Application Programs.
931 $! Tell The User What We Are Doing.
933 $ WRITE SYS$OUTPUT ""
934 $ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCHD,".EXE.ENGINES] Engines."
936 $! Go To The [.ENGINES] Directory.
938 $ SET DEFAULT SYS$DISK:[.ENGINES]
940 $! Build The Application Programs.
942 $ @MAKEENGINES ENGINES 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" -
943 "''ISSEVEN'" "''BUILDPART'" "''POINTER_SIZE'" "''ZLIB'"
945 $! Go Back To The Main Directory.
949 $! That's All, Time To RETURN.
953 $! Check The User's Options.
957 $! Check if there's a "part", and separate it out
959 $ BUILDPART = F$ELEMENT(1,"/",P1)
960 $ IF BUILDPART .EQS. "/"
964 $ P1 = F$EXTRACT(0,F$LENGTH(P1) - F$LENGTH(BUILDPART) - 1, P1)
967 $! Check To See If P1 Is Blank.
972 $! P1 Is ALL, So Build Everything.
974 $ BUILDCOMMAND = "ALL"
980 $! Else, Check To See If P1 Has A Valid Argument.
982 $ IF (P1.EQS."CONFIG").OR.(P1.EQS."BUILDINF").OR.(P1.EQS."SOFTLINKS") -
983 .OR.(P1.EQS."BUILDALL") -
984 .OR.(P1.EQS."CRYPTO").OR.(P1.EQS."SSL") -
985 .OR.(P1.EQS."SSL_TASK").OR.(P1.EQS."TEST").OR.(P1.EQS."APPS") -
986 .OR.(P1.EQS."ENGINES")
997 $! Tell The User We Don't Know What They Want.
999 $ WRITE SYS$OUTPUT ""
1000 $ WRITE SYS$OUTPUT "USAGE: @MAKEVMS.COM [Target] [Pointer size] [Debug option] <Compiler>"
1001 $ WRITE SYS$OUTPUT ""
1002 $ WRITE SYS$OUTPUT "Example: @MAKEVMS.COM ALL """" NODEBUG "
1003 $ WRITE SYS$OUTPUT ""
1004 $ WRITE SYS$OUTPUT "The Target ",P1," Is Invalid. The Valid Target Options Are:"
1005 $ WRITE SYS$OUTPUT ""
1006 $ WRITE SYS$OUTPUT " ALL : Just Build Everything."
1007 $ WRITE SYS$OUTPUT " CONFIG : Just build the [.CRYPTO._xxx]OPENSSLCONF.H file."
1008 $ WRITE SYS$OUTPUT " BUILDINF : Just build the [.CRYPTO._xxx]BUILDINF.H file."
1009 $ WRITE SYS$OUTPUT " SOFTLINKS: Just Fix The Unix soft links."
1010 $ WRITE SYS$OUTPUT " BUILDALL : Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done."
1011 $ WRITE SYS$OUTPUT " CRYPTO : To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
1012 $ WRITE SYS$OUTPUT " CRYPTO/x : To Build Just The x Part Of The"
1013 $ WRITE SYS$OUTPUT " [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
1014 $ WRITE SYS$OUTPUT " SSL : To Build Just The [.xxx.EXE.SSL]LIBSSL.OLB Library."
1015 $ WRITE SYS$OUTPUT " SSL_TASK : To Build Just The [.xxx.EXE.SSL]SSL_TASK.EXE Program."
1016 $ WRITE SYS$OUTPUT " TEST : To Build Just The OpenSSL Test Programs."
1017 $ WRITE SYS$OUTPUT " APPS : To Build Just The OpenSSL Application Programs."
1018 $ WRITE SYS$OUTPUT " ENGINES : To Build Just The ENGINES"
1019 $ WRITE SYS$OUTPUT ""
1020 $ WRITE SYS$OUTPUT " Where 'xxx' Stands For:"
1021 $ WRITE SYS$OUTPUT ""
1022 $ WRITE SYS$OUTPUT " ALPHA[64]: Alpha Architecture."
1023 $ WRITE SYS$OUTPUT " IA64[64] : IA64 Architecture."
1024 $ WRITE SYS$OUTPUT " VAX : VAX Architecture."
1025 $ WRITE SYS$OUTPUT ""
1031 $! End The Valid Argument Check.
1035 $! End The P1 Check.
1039 $! Check P2 (POINTER_SIZE).
1041 $ IF (P2 .NES. "") .AND. (ARCH .NES. "VAX")
1044 $ IF (P2 .EQS. "32")
1046 $ POINTER_SIZE = "32"
1048 $ IF (P2 .EQS. "64")
1050 $ POINTER_SIZE = "64"
1051 $ ARCHD = ARCH+ "_64"
1055 $! Tell The User Entered An Invalid Option.
1057 $ WRITE SYS$OUTPUT ""
1058 $ WRITE SYS$OUTPUT "The Option ", P2, -
1059 " Is Invalid. The Valid Options Are:"
1060 $ WRITE SYS$OUTPUT ""
1061 $ WRITE SYS$OUTPUT " """" : Compile with default (short) pointers."
1062 $ WRITE SYS$OUTPUT " 32 : Compile with 32-bit (short) pointers."
1063 $ WRITE SYS$OUTPUT " 64 : Compile with 64-bit (long) pointers."
1064 $ WRITE SYS$OUTPUT ""
1074 $! End The P2 (POINTER_SIZE) Check.
1078 $! Check To See If P3 Is Blank.
1080 $ IF (P3.EQS."NODEBUG")
1083 $! P3 Is NODEBUG, So Compile Without Debugger Information.
1085 $ DEBUGGER = "NODEBUG"
1091 $! Check To See If We Are To Compile With Debugger Information.
1093 $ IF (P3.EQS."DEBUG")
1096 $! Compile With Debugger Information.
1098 $ DEBUGGER = "DEBUG"
1104 $! Tell The User Entered An Invalid Option.
1106 $ WRITE SYS$OUTPUT ""
1107 $ WRITE SYS$OUTPUT "The Option ",P3," Is Invalid. The Valid Options Are:"
1108 $ WRITE SYS$OUTPUT ""
1109 $ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information."
1110 $ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information."
1111 $ WRITE SYS$OUTPUT ""
1117 $! End The Valid Argument Check.
1121 $! End The P3 Check.
1125 $! Check To See If P4 Is Blank.
1130 $! O.K., The User Didn't Specify A Compiler, Let's Try To
1131 $! Find Out Which One To Use.
1133 $! Check To See If We Have GNU C.
1135 $ IF (F$TRNLNM("GNU_CC").NES."")
1138 $! Looks Like GNUC, Set To Use GNUC.
1142 $! Tell The User We Are Using GNUC.
1144 $ WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
1146 $! End The GNU C Compiler Check.
1150 $! Check To See If We Have VAXC Or DECC.
1152 $ IF (F$GETSYI("CPU").GE.128).OR.(F$TRNLNM("DECC$CC_DEFAULT").EQS."/DECC")
1155 $! Looks Like DECC, Set To Use DECC.
1159 $! Tell The User We Are Using DECC.
1161 $ WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
1167 $! Looks Like VAXC, Set To Use VAXC.
1171 $! Tell The User We Are Using VAX C.
1173 $ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
1175 $! End The DECC & VAXC Compiler Check.
1183 $! Check To See If The User Entered A Valid Parameter.
1185 $ IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")!.OR.(P4.EQS."LINK")
1188 $! Check To See If The User Wanted To Just LINK.
1190 $ IF (P4.EQS."LINK")
1193 $! Looks Like LINK-only
1197 $! Tell The User We Are Only Linking.
1199 $ WRITE SYS$OUTPUT "LINK Only. This actually NOT YET SUPPORTED!"
1205 $! Check To See If The User Wanted DECC.
1207 $ IF (P4.EQS."DECC")
1210 $! Looks Like DECC, Set To Use DECC.
1214 $! Tell The User We Are Using DECC.
1216 $ WRITE SYS$OUTPUT "Using DECC 'C' Compiler."
1222 $! Check To See If We Are To Use VAXC.
1224 $ IF (P4.EQS."VAXC")
1227 $! Looks Like VAXC, Set To Use VAXC.
1231 $! Tell The User We Are Using VAX C.
1233 $ WRITE SYS$OUTPUT "Using VAXC 'C' Compiler."
1239 $! Check To See If We Are To Use GNU C.
1241 $ IF (P4.EQS."GNUC")
1244 $! Looks Like GNUC, Set To Use GNUC.
1248 $! Tell The User We Are Using GNUC.
1250 $ WRITE SYS$OUTPUT "Using GNU 'C' Compiler."
1252 $! End The GNU C Check.
1256 $! Else The User Entered An Invalid Argument.
1260 $! Tell The User We Don't Know What They Want.
1262 $ WRITE SYS$OUTPUT ""
1263 $ WRITE SYS$OUTPUT "The Option ",P4," Is Invalid. The Valid Options Are:"
1264 $ WRITE SYS$OUTPUT ""
1265 $ WRITE SYS$OUTPUT " VAXC : To Compile With VAX C."
1266 $ WRITE SYS$OUTPUT " DECC : To Compile With DEC C."
1267 $ WRITE SYS$OUTPUT " GNUC : To Compile With GNU C."
1268 $ WRITE SYS$OUTPUT ""
1274 $! End The Valid Argument Check.
1278 $! End The P4 Check.
1282 $! Time to check the contents of P5, and to make sure we get the correct
1285 $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" -
1286 .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE"
1289 $! Check to see if SOCKETSHR was chosen
1291 $ IF P5.EQS."SOCKETSHR"
1294 $! Set the library to use SOCKETSHR
1296 $ TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT /OPTIONS"
1300 $ WRITE SYS$OUTPUT "Using SOCKETSHR for TCP/IP"
1302 $! Done with SOCKETSHR
1306 $! Check to see if MULTINET was chosen
1308 $ IF P5.EQS."MULTINET"
1311 $! Set the library to use UCX emulation.
1317 $ WRITE SYS$OUTPUT "Using MultiNet via UCX emulation for TCP/IP"
1319 $! Done with MULTINET
1323 $! Check to see if UCX was chosen
1328 $! Set the library to use UCX.
1330 $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT /OPTIONS"
1334 $ WRITE SYS$OUTPUT "Using UCX or an emulation thereof for TCP/IP"
1340 $! Check to see if TCPIP was chosen
1345 $! Set the library to use TCPIP (post UCX).
1347 $ TCPIP_LIB = "SYS$DISK:[-.VMS]TCPIP_SHR_DECC.OPT /OPTIONS"
1351 $ WRITE SYS$OUTPUT "Using TCPIP (post UCX) for TCP/IP"
1357 $! Check to see if NONE was chosen
1362 $! Do not use a TCPIP library.
1368 $ WRITE SYS$OUTPUT "A specific TCPIP library will not be used."
1374 $! Set the TCPIP_TYPE symbol
1380 $ WRITE SYS$OUTPUT "TCP/IP library spec: ", TCPIP_LIB
1382 $! Else The User Entered An Invalid Argument.
1388 $! Tell The User We Don't Know What They Want.
1390 $ WRITE SYS$OUTPUT ""
1391 $ WRITE SYS$OUTPUT "The Option ",P5," Is Invalid. The Valid Options Are:"
1392 $ WRITE SYS$OUTPUT ""
1393 $ WRITE SYS$OUTPUT " SOCKETSHR : To link with SOCKETSHR TCP/IP library."
1394 $ WRITE SYS$OUTPUT " UCX : To link with UCX TCP/IP library."
1395 $ WRITE SYS$OUTPUT " TCPIP : To link with TCPIP TCP/IP (post UCX) library."
1396 $ WRITE SYS$OUTPUT " NONE : To not link with a specific TCP/IP library."
1397 $ WRITE SYS$OUTPUT ""
1404 $! If TCPIP is not defined, then hardcode it to make
1405 $! it clear that no TCPIP is desired.
1410 $ TCPIP_TYPE = "NONE"
1413 $! Set the TCPIP_TYPE symbol
1419 $! Done with TCP/IP libraries
1423 $! Special Threads For OpenVMS v7.1 Or Later
1425 $! Written By: Richard Levitte
1426 $! richard@levitte.org
1429 $! Check To See If We Have A Option For P6.
1434 $! Get The Version Of VMS We Are Using.
1437 $ TMP = F$ELEMENT(0,"-",F$EXTRACT(1,4,VMS_VERSION))
1438 $ TMP = F$INTEGER(F$ELEMENT(0,".",TMP)+F$ELEMENT(1,".",TMP))
1440 $! Check To See If The VMS Version Is v7.1 Or Later.
1445 $! We Have OpenVMS v7.1 Or Later, So Use The Special Threads.
1447 $ ISSEVEN := ,PTHREAD_USE_D4
1449 $! End The VMS Version Check.
1453 $! End The P6 Check.
1458 $! Check To See If We Have A ZLIB Option.
1461 $ IF (ZLIB .NES. "")
1464 $! Check for expected ZLIB files.
1467 $ file1 = f$parse( "zlib.h", ZLIB, , , "SYNTAX_ONLY")
1468 $ if (f$search( file1) .eqs. "")
1470 $ WRITE SYS$OUTPUT ""
1471 $ WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid."
1472 $ WRITE SYS$OUTPUT " Can't find header: ''file1'"
1476 $ file2 = f$parse( ZLIB, "libz.olb", , , "SYNTAX_ONLY")
1477 $ if (f$search( file2) .eqs. "")
1481 $ WRITE SYS$OUTPUT ""
1482 $ WRITE SYS$OUTPUT "The Option ", ZLIB, " Is Invalid."
1484 $ WRITE SYS$OUTPUT " Can't find library: ''file2'"
1485 $ WRITE SYS$OUTPUT ""
1490 $ WRITE SYS$OUTPUT ""
1500 $ WRITE SYS$OUTPUT "ZLIB library spec: ", file2
1502 $! End The ZLIB Check.
1506 $! Time To RETURN...
1512 $! Close any open files.
1514 $ if (f$trnlnm( "h_file", "LNM$PROCESS", 0, "SUPERVISOR") .nes. "") then -
1517 $! Restore the original default device:[directory].
1519 $ SET DEFAULT 'DEF_ORIG'