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