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