]> git.ipfire.org Git - thirdparty/openssl.git/blame - makevms.com
Erroneously omitted code from "jumbo framework update."
[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"
b6d0defb 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.
ad22b914 31$! ENGINES Just build the "[.xxx.EXE.ENGINES]" application programs for OpenSSL.
7d7d2cbc
UM
32$!
33$!
b6d0defb
RL
34$! P2 is ignored (it was used to denote if RSAref should be used or not,
35$! and is simply kept so surrounding scripts don't get confused)
7d7d2cbc
UM
36$!
37$! Speficy DEBUG or NODEBUG as P3 to compile with or without debugging
38$! information.
39$!
40$! Specify which compiler at P4 to try to compile under.
41$!
42$! VAXC For VAX C.
43$! DECC For DEC C.
44$! GNUC For GNU C.
45$! LINK To only link the programs from existing object files.
58dc480f 46$! (not yet implemented)
7d7d2cbc
UM
47$!
48$! If you don't speficy a compiler, it will try to determine which
49$! "C" compiler to use.
50$!
b935754c
RL
51$! P5, if defined, sets a TCP/IP library to use, through one of the following
52$! keywords:
7d7d2cbc
UM
53$!
54$! UCX for UCX or UCX emulation
b935754c
RL
55$! TCPIP for TCP/IP Services or TCP/IP Services emulation
56$! (this is prefered over UCX)
7d7d2cbc 57$! SOCKETSHR for SOCKETSHR+NETLIB
b935754c
RL
58$! NONE to avoid specifying which TCP/IP implementation to
59$! use at build time (this works with DEC C). This is
60$! the default.
7d7d2cbc
UM
61$!
62$! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
63$!
64$!
2e904727
RL
65$! Check if we're in a batch job, and make sure we get to
66$! the directory this script is in
67$!
68$ IF F$MODE() .EQS. "BATCH"
69$ THEN
70$ COMNAME=F$ENVIRONMENT("PROCEDURE")
71$ COMPATH=F$PARSE("A.;",COMNAME) - "A.;"
72$ SET DEF 'COMPATH'
73$ ENDIF
74$!
7d7d2cbc
UM
75$! Check Which Architecture We Are Using.
76$!
77$ IF (F$GETSYI("CPU").GE.128)
78$ THEN
79$!
80$! The Architecture Is AXP.
81$!
82$ ARCH := AXP
83$!
84$! Else...
85$!
86$ ELSE
87$!
88$! The Architecture Is VAX.
89$!
90$ ARCH := VAX
91$!
92$! End The Architecture Check.
93$!
94$ ENDIF
95$!
96$! Check To Make Sure We Have Valid Command Line Parameters.
97$!
98$ GOSUB CHECK_OPTIONS
99$!
100$! Check To See What We Are To Do.
101$!
2e904727 102$ IF (BUILDCOMMAND.EQS."ALL")
7d7d2cbc
UM
103$ THEN
104$!
2e904727 105$! Start with building the OpenSSL configuration file.
7d7d2cbc 106$!
2e904727 107$ GOSUB CONFIG
7d7d2cbc 108$!
8c197cc5 109$! Create The "BUILDINF.H" Include File.
7d7d2cbc 110$!
8c197cc5 111$ GOSUB BUILDINF
7d7d2cbc 112$!
2e904727
RL
113$! Fix The Unix Softlinks.
114$!
115$ GOSUB SOFTLINKS
116$!
117$ ENDIF
118$!
119$ IF (BUILDCOMMAND.EQS."ALL".OR.BUILDCOMMAND.EQS."BUILDALL")
120$ THEN
121$!
7d7d2cbc
UM
122$! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
123$!
124$ GOSUB CRYPTO
125$!
126$! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
127$!
128$ GOSUB SSL
129$!
130$! Build The [.xxx.EXE.SSL]SSL_TASK.EXE DECNet SSL Engine.
131$!
132$ GOSUB SSL_TASK
133$!
134$! Build The [.xxx.EXE.TEST] OpenSSL Test Utilities.
135$!
136$ GOSUB TEST
137$!
138$! Build The [.xxx.EXE.APPS] OpenSSL Application Utilities.
139$!
140$ GOSUB APPS
141$!
ad22b914
RL
142$! Build The [.xxx.EXE.ENGINES] OpenSSL Shareable Engines.
143$!
144$ GOSUB ENGINES
145$!
7d7d2cbc
UM
146$! Else...
147$!
148$ ELSE
149$!
150$! Build Just What The User Wants Us To Build.
151$!
2e904727
RL
152$ GOSUB 'BUILDCOMMAND'
153$!
7d7d2cbc
UM
154$ ENDIF
155$!
156$! Time To EXIT.
157$!
2e904727
RL
158$ EXIT
159$!
160$! Rebuild The "[.CRYPTO]OPENSSLCONF.H" file.
161$!
162$ CONFIG:
163$!
164$! Tell The User We Are Creating The [.CRYPTO]OPENSSLCONF.H File.
165$!
166$ WRITE SYS$OUTPUT "Creating [.CRYPTO]OPENSSLCONF.H Include File."
167$!
168$! Create The [.CRYPTO]OPENSSLCONF.H File.
169$!
170$ OPEN/WRITE H_FILE SYS$DISK:[.CRYPTO]OPENSSLCONF.H
171$!
172$! Write The [.CRYPTO]OPENSSLCONF.H File.
173$!
174$ WRITE H_FILE "/* This file was automatically built using makevms.com */"
175$ WRITE H_FILE "/* and [.CRYPTO]OPENSSLCONF.H_IN */"
176$
6525ced5
RL
177$!
178$! Write a few macros that indicate how this system was built.
179$!
180$ WRITE H_FILE ""
181$ WRITE H_FILE "#ifndef OPENSSL_SYS_VMS"
182$ WRITE H_FILE "# define OPENSSL_SYS_VMS"
183$ WRITE H_FILE "#endif"
184$ CONFIG_LOGICALS := NO_ASM,NO_RSA,NO_DSA,NO_DH,NO_MD2,NO_MD5,NO_RIPEMD,-
185 NO_SHA,NO_SHA0,NO_SHA1,NO_DES/NO_MDC2;NO_MDC2,NO_RC2,NO_RC4,NO_RC5,-
1139eeec 186 NO_IDEA,NO_BF,NO_CAST,NO_CAMELLIA,NO_SEED,NO_HMAC,NO_SSL2
6525ced5
RL
187$ CONFIG_LOG_I = 0
188$ CONFIG_LOG_LOOP:
189$ CONFIG_LOG_E1 = F$ELEMENT(CONFIG_LOG_I,",",CONFIG_LOGICALS)
190$ CONFIG_LOG_I = CONFIG_LOG_I + 1
191$ IF CONFIG_LOG_E1 .EQS. "" THEN GOTO CONFIG_LOG_LOOP
192$ IF CONFIG_LOG_E1 .EQS. "," THEN GOTO CONFIG_LOG_LOOP_END
193$ CONFIG_LOG_E2 = F$EDIT(CONFIG_LOG_E1,"TRIM")
194$ CONFIG_LOG_E1 = F$ELEMENT(0,";",CONFIG_LOG_E2)
195$ CONFIG_LOG_E2 = F$ELEMENT(1,";",CONFIG_LOG_E2)
196$ CONFIG_LOG_E0 = F$ELEMENT(0,"/",CONFIG_LOG_E1)
197$ CONFIG_LOG_E1 = F$ELEMENT(1,"/",CONFIG_LOG_E1)
198$ IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E0)
199$ THEN
200$ WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E0
201$ WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E0
202$ WRITE H_FILE "#endif"
203$ IF CONFIG_LOG_E1 .NES. "/"
204$ THEN
205$ WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E1
206$ WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E1
207$ WRITE H_FILE "#endif"
208$ ENDIF
209$ ELSE
210$ IF CONFIG_LOG_E2 .NES. ";"
211$ THEN
212$ IF F$TRNLNM("OPENSSL_"+CONFIG_LOG_E2)
213$ THEN
214$ WRITE H_FILE "#ifndef OPENSSL_",CONFIG_LOG_E2
215$ WRITE H_FILE "# define OPENSSL_",CONFIG_LOG_E2
216$ WRITE H_FILE "#endif"
217$ ENDIF
218$ ENDIF
219$ ENDIF
220$ GOTO CONFIG_LOG_LOOP
221$ CONFIG_LOG_LOOP_END:
ad22b914
RL
222$ WRITE H_FILE "#ifndef OPENSSL_NO_STATIC_ENGINE"
223$ WRITE H_FILE "# define OPENSSL_NO_STATIC_ENGINE"
224$ WRITE H_FILE "#endif"
6525ced5
RL
225$ WRITE H_FILE "#ifndef OPENSSL_THREADS"
226$ WRITE H_FILE "# define OPENSSL_THREADS"
227$ WRITE H_FILE "#endif"
228$ WRITE H_FILE "#ifndef OPENSSL_NO_KRB5"
229$ WRITE H_FILE "# define OPENSSL_NO_KRB5"
230$ WRITE H_FILE "#endif"
231$ WRITE H_FILE ""
232$!
2e904727
RL
233$! Different tar version may have named the file differently
234$ IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H_IN") .NES. ""
235$ THEN
236$ TYPE [.CRYPTO]OPENSSLCONF.H_IN /OUTPUT=H_FILE:
237$ ELSE
238$ IF F$SEARCH("[.CRYPTO]OPENSSLCONF_H.IN") .NES. ""
239$ THEN
240$ TYPE [.CRYPTO]OPENSSLCONF_H.IN /OUTPUT=H_FILE:
241$ ELSE
7b5ffd68
RL
242$ ! For ODS-5
243$ IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H.IN") .NES. ""
244$ THEN
245$ TYPE [.CRYPTO]OPENSSLCONF.H.IN /OUTPUT=H_FILE:
246$ ELSE
247$ WRITE SYS$ERROR "Couldn't find a [.CRYPTO]OPENSSLCONF.H_IN. Exiting!"
248$ EXIT 0
249$ ENDIF
2e904727
RL
250$ ENDIF
251$ ENDIF
2e904727
RL
252$ IF ARCH .EQS. "AXP"
253$ THEN
254$!
255$! Write the Alpha specific data
256$!
257$ WRITE H_FILE "#if defined(HEADER_RC4_H)"
258$ WRITE H_FILE "#undef RC4_INT"
259$ WRITE H_FILE "#define RC4_INT unsigned int"
260$ WRITE H_FILE "#undef RC4_CHUNK"
261$ WRITE H_FILE "#define RC4_CHUNK unsigned long long"
262$ WRITE H_FILE "#endif"
263$!
264$ WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
265$ WRITE H_FILE "#undef DES_LONG"
266$ WRITE H_FILE "#define DES_LONG unsigned int"
267$ WRITE H_FILE "#undef DES_PTR"
268$ WRITE H_FILE "#define DES_PTR"
269$ WRITE H_FILE "#undef DES_RISC1"
270$ WRITE H_FILE "#undef DES_RISC2"
271$ WRITE H_FILE "#define DES_RISC1"
272$ WRITE H_FILE "#undef DES_UNROLL"
273$ WRITE H_FILE "#define DES_UNROLL"
274$ WRITE H_FILE "#endif"
275$!
276$ WRITE H_FILE "#if defined(HEADER_BN_H)"
256b5d58 277$ WRITE H_FILE "#undef BN_LLONG" ! Never define with SIXTY_FOUR_BIT
2e904727
RL
278$ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
279$ WRITE H_FILE "#undef SIXTY_FOUR_BIT"
5a16d270 280$ WRITE H_FILE "#define SIXTY_FOUR_BIT"
2e904727
RL
281$ WRITE H_FILE "#undef THIRTY_TWO_BIT"
282$ WRITE H_FILE "#undef SIXTEEN_BIT"
283$ WRITE H_FILE "#undef EIGHT_BIT"
284$ WRITE H_FILE "#endif"
62dc5aad
RL
285$
286$ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
2e904727
RL
287$!
288$! Else...
289$!
290$ ELSE
291$!
292$! Write the VAX specific data
293$!
294$ WRITE H_FILE "#if defined(HEADER_RC4_H)"
295$ WRITE H_FILE "#undef RC4_INT"
296$ WRITE H_FILE "#define RC4_INT unsigned char"
297$ WRITE H_FILE "#undef RC4_CHUNK"
298$ WRITE H_FILE "#define RC4_CHUNK unsigned long"
299$ WRITE H_FILE "#endif"
300$!
301$ WRITE H_FILE "#if defined(HEADER_DES_LOCL_H)"
302$ WRITE H_FILE "#undef DES_LONG"
303$ WRITE H_FILE "#define DES_LONG unsigned long"
304$ WRITE H_FILE "#undef DES_PTR"
305$ WRITE H_FILE "#define DES_PTR"
306$ WRITE H_FILE "#undef DES_RISC1"
307$ WRITE H_FILE "#undef DES_RISC2"
308$ WRITE H_FILE "#undef DES_UNROLL"
309$ WRITE H_FILE "#endif"
310$!
311$ WRITE H_FILE "#if defined(HEADER_BN_H)"
256b5d58 312$ WRITE H_FILE "#undef BN_LLONG" ! VAX C/DEC C doesn't have long long
2e904727
RL
313$ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
314$ WRITE H_FILE "#undef SIXTY_FOUR_BIT"
2e904727 315$ WRITE H_FILE "#undef THIRTY_TWO_BIT"
4cce8244 316$ WRITE H_FILE "#define THIRTY_TWO_BIT"
2e904727
RL
317$ WRITE H_FILE "#undef SIXTEEN_BIT"
318$ WRITE H_FILE "#undef EIGHT_BIT"
319$ WRITE H_FILE "#endif"
62dc5aad
RL
320$
321$ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
322$ WRITE H_FILE "#define OPENSSL_EXPORT_VAR_AS_FUNCTION"
2e904727
RL
323$!
324$! End
325$!
326$ ENDIF
327$!
328$! Close the [.CRYPTO]OPENSSLCONF.H file
329$!
330$ CLOSE H_FILE
331$!
332$! That's All, Time To RETURN.
333$!
334$ RETURN
7d7d2cbc 335$!
8c197cc5 336$! Rebuild The "[.CRYPTO]BUILDINF.H" file.
7d7d2cbc 337$!
8c197cc5 338$ BUILDINF:
7d7d2cbc 339$!
8c197cc5 340$! Tell The User We Are Creating The [.CRYPTO]BUILDINF.H File.
7d7d2cbc 341$!
8c197cc5 342$ WRITE SYS$OUTPUT "Creating [.CRYPTO]BUILDINF.H Include File."
7d7d2cbc 343$!
8c197cc5 344$! Create The [.CRYPTO]BUILDINF.H File.
7d7d2cbc 345$!
8c197cc5 346$ OPEN/WRITE H_FILE SYS$DISK:[.CRYPTO]BUILDINF.H
7d7d2cbc
UM
347$!
348$! Get The Current Date & Time.
349$!
350$ TIME = F$TIME()
351$!
8c197cc5 352$! Write The [.CRYPTO]BUILDINF.H File.
7d7d2cbc 353$!
8c197cc5
UM
354$ WRITE H_FILE "#define CFLAGS """" /* Not filled in for now */"
355$ WRITE H_FILE "#define PLATFORM ""VMS"""
7d7d2cbc
UM
356$ WRITE H_FILE "#define DATE ""''TIME'"" "
357$!
8c197cc5 358$! Close The [.CRYPTO]BUILDINF.H File.
7d7d2cbc
UM
359$!
360$ CLOSE H_FILE
361$!
362$! That's All, Time To RETURN.
363$!
364$ RETURN
365$!
366$! Copy a lot of files around.
367$!
368$ SOFTLINKS:
369$!
2b6174c4 370$! Tell The User We Are Partly Rebuilding The [.APPS] Directory.
7d7d2cbc 371$!
b935754c 372$ WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD4.C', '[.APPS]MD5.C' And '[.APPS]RMD160.C' Files."
7d7d2cbc 373$!
eec79f9b
RL
374$ DELETE SYS$DISK:[.APPS]MD4.C;*,MD5.C;*,RMD160.C;*
375$!
376$! Copy MD4.C from [.CRYPTO.MD4] into [.APPS]
377$!
378$ COPY SYS$DISK:[.CRYPTO.MD4]MD4.C SYS$DISK:[.APPS]
7d7d2cbc
UM
379$!
380$! Copy MD5.C from [.CRYPTO.MD5] into [.APPS]
381$!
382$ COPY SYS$DISK:[.CRYPTO.MD5]MD5.C SYS$DISK:[.APPS]
383$!
384$! Copy RMD160.C from [.CRYPTO.RIPEMD] into [.APPS]
385$!
386$ COPY SYS$DISK:[.CRYPTO.RIPEMD]RMD160.C SYS$DISK:[.APPS]
387$!
388$! Tell The User We Are Partly Rebuilding The [.TEST] Directory.
389$!
390$ WRITE SYS$OUTPUT "Rebuilding The '[.TEST]*.C' Files."
391$!
392$! First, We Have To "Rebuild" The "[.TEST]" Directory, So Delete
393$! All The "C" Files That Are Currently There Now.
394$!
395$ DELETE SYS$DISK:[.TEST]*.C;*
46788970 396$ DELETE SYS$DISK:[.TEST]EVPTESTS.TXT;*
7d7d2cbc
UM
397$!
398$! Copy all the *TEST.C files from [.CRYPTO...] into [.TEST]
399$!
400$ COPY SYS$DISK:[.CRYPTO.*]%*TEST.C SYS$DISK:[.TEST]
2b6174c4 401$ COPY SYS$DISK:[.CRYPTO.SHA]SHA%%%T.C SYS$DISK:[.TEST]
46788970 402$ COPY SYS$DISK:[.CRYPTO.EVP]EVPTESTS.TXT SYS$DISK:[.TEST]
7d7d2cbc
UM
403$!
404$! Copy all the *TEST.C files from [.SSL...] into [.TEST]
405$!
406$ COPY SYS$DISK:[.SSL]%*TEST.C SYS$DISK:[.TEST]
407$!
408$! Tell The User We Are Rebuilding The [.INCLUDE.OPENSSL] Directory.
409$!
410$ WRITE SYS$OUTPUT "Rebuilding The '[.INCLUDE.OPENSSL]' Directory."
411$!
412$! First, make sure the directory exists
413$!
414$ IF F$PARSE("SYS$DISK:[.INCLUDE.OPENSSL]") .EQS. "" THEN -
415 CREATE/DIRECTORY SYS$DISK:[.INCLUDE.OPENSSL]
416$!
417$! Copy All The ".H" Files From The Main Directory.
418$!
41d2a336 419$ EXHEADER := e_os2.h
7d7d2cbc
UM
420$ COPY 'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
421$!
422$! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
423$!
a08e05d1
RL
424$ SDIRS := ,-
425 OBJECTS,-
426 MD2,MD4,MD5,SHA,MDC2,HMAC,RIPEMD,-
1139eeec 427 DES,RC2,RC4,RC5,IDEA,BF,CAST,CAMELLIA,SEED,-
4705bd9b 428 BN,EC,RSA,DSA,ECDSA,DH,ECDH,DSO,ENGINE,AES,-
a08e05d1
RL
429 BUFFER,BIO,STACK,LHASH,RAND,ERR,-
430 EVP,ASN1,PEM,X509,X509V3,CONF,TXT_DB,PKCS7,PKCS12,COMP,OCSP,UI,KRB5,-
2728a1b4 431 STORE,PQUEUE
e32587d5 432$ EXHEADER_ := crypto.h,tmdiff.h,opensslv.h,opensslconf.h,ebcdic.h,symhacks.h,-
114697be 433 ossl_typ.h
a08e05d1 434$ EXHEADER_OBJECTS := objects.h,obj_mac.h
7d7d2cbc 435$ EXHEADER_MD2 := md2.h
eec79f9b 436$ EXHEADER_MD4 := md4.h
7d7d2cbc
UM
437$ EXHEADER_MD5 := md5.h
438$ EXHEADER_SHA := sha.h
439$ EXHEADER_MDC2 := mdc2.h
440$ EXHEADER_HMAC := hmac.h
441$ EXHEADER_RIPEMD := ripemd.h
c2e4f17c 442$ EXHEADER_DES := des.h,des_old.h
7d7d2cbc
UM
443$ EXHEADER_RC2 := rc2.h
444$ EXHEADER_RC4 := rc4.h
445$ EXHEADER_RC5 := rc5.h
446$ EXHEADER_IDEA := idea.h
447$ EXHEADER_BF := blowfish.h
448$ EXHEADER_CAST := cast.h
2745ddfc 449$ EXHEADER_CAMELLIA := camellia.h
1139eeec 450$ EXHEADER_SEED := seed.h
7d7d2cbc 451$ EXHEADER_BN := bn.h
9bd35f63 452$ EXHEADER_EC := ec.h
7d7d2cbc
UM
453$ EXHEADER_RSA := rsa.h
454$ EXHEADER_DSA := dsa.h
1f4eada3 455$ EXHEADER_ECDSA := ecdsa.h
7d7d2cbc 456$ EXHEADER_DH := dh.h
4705bd9b 457$ EXHEADER_ECDH := ecdh.h
eec79f9b 458$ EXHEADER_DSO := dso.h
5270e702 459$ EXHEADER_ENGINE := engine.h
6f9079fd 460$ EXHEADER_AES := aes.h
7d7d2cbc
UM
461$ EXHEADER_BUFFER := buffer.h
462$ EXHEADER_BIO := bio.h
463$ EXHEADER_STACK := stack.h,safestack.h
464$ EXHEADER_LHASH := lhash.h
465$ EXHEADER_RAND := rand.h
466$ EXHEADER_ERR := err.h
7d7d2cbc 467$ EXHEADER_EVP := evp.h
66a0def8 468$ EXHEADER_ASN1 := asn1.h,asn1_mac.h,asn1t.h
7d7d2cbc
UM
469$ EXHEADER_PEM := pem.h,pem2.h
470$ EXHEADER_X509 := x509.h,x509_vfy.h
471$ EXHEADER_X509V3 := x509v3.h
4b88270b 472$ EXHEADER_CONF := conf.h,conf_api.h
7d7d2cbc
UM
473$ EXHEADER_TXT_DB := txt_db.h
474$ EXHEADER_PKCS7 := pkcs7.h
475$ EXHEADER_PKCS12 := pkcs12.h
476$ EXHEADER_COMP := comp.h
6525ced5 477$ EXHEADER_OCSP := ocsp.h
81b31b70 478$ EXHEADER_UI := ui.h,ui_compat.h
114697be 479$ EXHEADER_KRB5 := krb5_asn.h
a08e05d1
RL
480$!EXHEADER_STORE := store.h,str_compat.h
481$ EXHEADER_STORE := store.h
2728a1b4 482$ EXHEADER_PQUEUE := pqueue.h,pq_compat.h
7d7d2cbc
UM
483$
484$ I = 0
485$ LOOP_SDIRS:
486$ D = F$EDIT(F$ELEMENT(I, ",", SDIRS),"TRIM")
487$ I = I + 1
488$ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
489$ tmp = EXHEADER_'D'
490$ IF D .EQS. ""
491$ THEN
4f07317f 492$ COPY [.CRYPTO]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
7d7d2cbc 493$ ELSE
4f07317f 494$ COPY [.CRYPTO.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
7d7d2cbc
UM
495$ ENDIF
496$ GOTO LOOP_SDIRS
497$ LOOP_SDIRS_END:
498$!
7d7d2cbc
UM
499$! Copy All The ".H" Files From The [.SSL] Directory.
500$!
335ed972 501$ EXHEADER := ssl.h,ssl2.h,ssl3.h,ssl23.h,tls1.h,dtls1.h,kssl.h
7d7d2cbc
UM
502$ COPY SYS$DISK:[.SSL]'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
503$!
504$! Purge all doubles
505$!
506$ PURGE SYS$DISK:[.INCLUDE.OPENSSL]*.H
507$!
508$! That's All, Time To RETURN.
509$!
510$ RETURN
511$!
512$! Build The "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" Library.
513$!
514$ CRYPTO:
515$!
516$! Tell The User What We Are Doing.
517$!
518$ WRITE SYS$OUTPUT ""
519$ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.CRYPTO]LIBCRYPTO.OLB Library."
520$!
521$! Go To The [.CRYPTO] Directory.
522$!
523$ SET DEFAULT SYS$DISK:[.CRYPTO]
524$!
525$! Build The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library.
526$!
b6d0defb 527$ @CRYPTO-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'"
7be760be
RL
528$!
529$! Build The [.xxx.EXE.CRYPTO]*.EXE Test Applications.
530$!
b6d0defb 531$ @CRYPTO-LIB APPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' "''BUILDPART'"
7d7d2cbc
UM
532$!
533$! Go Back To The Main Directory.
534$!
535$ SET DEFAULT [-]
536$!
537$! Time To RETURN.
538$!
539$ RETURN
540$!
7d7d2cbc
UM
541$! Build The "[.xxx.EXE.SSL]LIBSSL.OLB" Library.
542$!
543$ SSL:
544$!
545$! Tell The User What We Are Doing.
546$!
547$ WRITE SYS$OUTPUT ""
548$ WRITE SYS$OUTPUT "Building The [.",ARCH,".EXE.SSL]LIBSSL.OLB Library."
549$!
550$! Go To The [.SSL] Directory.
551$!
552$ SET DEFAULT SYS$DISK:[.SSL]
553$!
554$! Build The [.xxx.EXE.SSL]LIBSSL.OLB Library.
555$!
b6d0defb 556$ @SSL-LIB LIBRARY '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$!
566$! Build The "[.xxx.EXE.SSL]SSL_TASK.EXE" Program.
567$!
568$ SSL_TASK:
569$!
570$! Tell The User What We Are Doing.
571$!
572$ WRITE SYS$OUTPUT ""
573$ WRITE SYS$OUTPUT "Building DECNet Based SSL Engine, [.",ARCH,".EXE.SSL]SSL_TASK.EXE"
574$!
575$! Go To The [.SSL] Directory.
576$!
577$ SET DEFAULT SYS$DISK:[.SSL]
578$!
579$! Build The [.xxx.EXE.SSL]SSL_TASK.EXE
580$!
b6d0defb 581$ @SSL-LIB SSL_TASK 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
7d7d2cbc
UM
582$!
583$! Go Back To The Main Directory.
584$!
585$ SET DEFAULT [-]
586$!
587$! That's All, Time To RETURN.
588$!
589$ RETURN
590$!
591$! Build The OpenSSL Test Programs.
592$!
593$ TEST:
594$!
595$! Tell The User What We Are Doing.
596$!
597$ WRITE SYS$OUTPUT ""
598$ WRITE SYS$OUTPUT "Building The OpenSSL [.",ARCH,".EXE.TEST] Test Utilities."
599$!
600$! Go To The [.TEST] Directory.
601$!
602$ SET DEFAULT SYS$DISK:[.TEST]
603$!
604$! Build The Test Programs.
605$!
b6d0defb 606$ @MAKETESTS '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 Application Programs.
617$!
618$ APPS:
619$!
620$! Tell The User What We Are Doing.
621$!
622$ WRITE SYS$OUTPUT ""
623$ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.APPS] Applications."
624$!
625$! Go To The [.APPS] Directory.
626$!
627$ SET DEFAULT SYS$DISK:[.APPS]
628$!
629$! Build The Application Programs.
630$!
b6d0defb 631$ @MAKEAPPS '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$!
ad22b914
RL
641$! Build The OpenSSL Application Programs.
642$!
643$ ENGINES:
644$!
645$! Tell The User What We Are Doing.
646$!
647$ WRITE SYS$OUTPUT ""
648$ WRITE SYS$OUTPUT "Building OpenSSL [.",ARCH,".EXE.ENGINES] Engines."
649$!
650$! Go To The [.ENGINES] Directory.
651$!
652$ SET DEFAULT SYS$DISK:[.ENGINES]
653$!
654$! Build The Application Programs.
655$!
656$ @MAKEENGINES ENGINES 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' "''BUILDPART'"
657$!
658$! Go Back To The Main Directory.
659$!
660$ SET DEFAULT [-]
661$!
662$! That's All, Time To RETURN.
663$!
664$ RETURN
665$!
7d7d2cbc
UM
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") -
b6d0defb 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$!
b935754c
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$!
b935754c 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$!
b935754c 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$!
b935754c
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."
b935754c
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$!
b935754c
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$!
b935754c
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