makevms.com 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125
  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. $!
  11. $! This procedure creates the SSL libraries of "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB"
  12. $! "[.xxx.EXE.SSL]LIBSSL.OLB"
  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".
  20. $! CONFIG Just build the "[.CRYPTO]OPENSSLCONF.H" file.
  21. $! BUILDINF Just build the "[.CRYPTO]BUILDINF.H" file.
  22. $! SOFTLINKS Just fix the Unix soft links.
  23. $! BUILDALL Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done.
  24. $! CRYPTO Just build the "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
  25. $! CRYPTO/x Just build the x part of the
  26. $! "[.xxx.EXE.CRYPTO]LIBCRYPTO.OLB" library.
  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. $! ENGINES Just build the "[.xxx.EXE.ENGINES]" application programs for OpenSSL.
  32. $!
  33. $!
  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)
  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.
  46. $! (not yet implemented)
  47. $!
  48. $! If you don't speficy a compiler, it will try to determine which
  49. $! "C" compiler to use.
  50. $!
  51. $! P5, if defined, sets a TCP/IP library to use, through one of the following
  52. $! keywords:
  53. $!
  54. $! UCX for UCX or UCX emulation
  55. $! TCPIP for TCP/IP Services or TCP/IP Services emulation
  56. $! (this is prefered over UCX)
  57. $! SOCKETSHR for SOCKETSHR+NETLIB
  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.
  61. $!
  62. $! P6, if defined, sets a compiler thread NOT needed on OpenVMS 7.1 (and up)
  63. $!
  64. $!
  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. $!
  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. $!
  102. $ IF (BUILDCOMMAND.EQS."ALL")
  103. $ THEN
  104. $!
  105. $! Start with building the OpenSSL configuration file.
  106. $!
  107. $ GOSUB CONFIG
  108. $!
  109. $! Create The "BUILDINF.H" Include File.
  110. $!
  111. $ GOSUB BUILDINF
  112. $!
  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. $!
  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. $!
  142. $! Build The [.xxx.EXE.ENGINES] OpenSSL Shareable Engines.
  143. $!
  144. $ GOSUB ENGINES
  145. $!
  146. $! Else...
  147. $!
  148. $ ELSE
  149. $!
  150. $! Build Just What The User Wants Us To Build.
  151. $!
  152. $ GOSUB 'BUILDCOMMAND'
  153. $!
  154. $ ENDIF
  155. $!
  156. $! Time To EXIT.
  157. $!
  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. $
  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,-
  186. NO_IDEA,NO_BF,NO_CAST,NO_CAMELLIA,NO_SEED,NO_HMAC,NO_SSL2
  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:
  222. $ WRITE H_FILE "#ifndef OPENSSL_NO_STATIC_ENGINE"
  223. $ WRITE H_FILE "# define OPENSSL_NO_STATIC_ENGINE"
  224. $ WRITE H_FILE "#endif"
  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. $!
  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
  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
  250. $ ENDIF
  251. $ ENDIF
  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)"
  277. $ WRITE H_FILE "#undef BN_LLONG" ! Never define with SIXTY_FOUR_BIT
  278. $ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
  279. $ WRITE H_FILE "#undef SIXTY_FOUR_BIT"
  280. $ WRITE H_FILE "#define SIXTY_FOUR_BIT"
  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"
  285. $
  286. $ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
  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)"
  312. $ WRITE H_FILE "#undef BN_LLONG" ! VAX C/DEC C doesn't have long long
  313. $ WRITE H_FILE "#undef SIXTY_FOUR_BIT_LONG"
  314. $ WRITE H_FILE "#undef SIXTY_FOUR_BIT"
  315. $ WRITE H_FILE "#undef THIRTY_TWO_BIT"
  316. $ WRITE H_FILE "#define THIRTY_TWO_BIT"
  317. $ WRITE H_FILE "#undef SIXTEEN_BIT"
  318. $ WRITE H_FILE "#undef EIGHT_BIT"
  319. $ WRITE H_FILE "#endif"
  320. $
  321. $ WRITE H_FILE "#undef OPENSSL_EXPORT_VAR_AS_FUNCTION"
  322. $ WRITE H_FILE "#define OPENSSL_EXPORT_VAR_AS_FUNCTION"
  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
  335. $!
  336. $! Rebuild The "[.CRYPTO]BUILDINF.H" file.
  337. $!
  338. $ BUILDINF:
  339. $!
  340. $! Tell The User We Are Creating The [.CRYPTO]BUILDINF.H File.
  341. $!
  342. $ WRITE SYS$OUTPUT "Creating [.CRYPTO]BUILDINF.H Include File."
  343. $!
  344. $! Create The [.CRYPTO]BUILDINF.H File.
  345. $!
  346. $ OPEN/WRITE H_FILE SYS$DISK:[.CRYPTO]BUILDINF.H
  347. $!
  348. $! Get The Current Date & Time.
  349. $!
  350. $ TIME = F$TIME()
  351. $!
  352. $! Write The [.CRYPTO]BUILDINF.H File.
  353. $!
  354. $ WRITE H_FILE "#define CFLAGS """" /* Not filled in for now */"
  355. $ WRITE H_FILE "#define PLATFORM ""VMS"""
  356. $ WRITE H_FILE "#define DATE ""''TIME'"" "
  357. $!
  358. $! Close The [.CRYPTO]BUILDINF.H File.
  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. $!
  370. $! Tell The User We Are Partly Rebuilding The [.APPS] Directory.
  371. $!
  372. $ WRITE SYS$OUTPUT "Rebuilding The '[.APPS]MD4.C', '[.APPS]MD5.C' And '[.APPS]RMD160.C' Files."
  373. $!
  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]
  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;*
  396. $ DELETE SYS$DISK:[.TEST]EVPTESTS.TXT;*
  397. $!
  398. $! Copy all the *TEST.C files from [.CRYPTO...] into [.TEST]
  399. $!
  400. $ COPY SYS$DISK:[.CRYPTO.*]%*TEST.C SYS$DISK:[.TEST]
  401. $ COPY SYS$DISK:[.CRYPTO.SHA]SHA%%%T.C SYS$DISK:[.TEST]
  402. $ COPY SYS$DISK:[.CRYPTO.EVP]EVPTESTS.TXT SYS$DISK:[.TEST]
  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. $!
  419. $ EXHEADER := e_os2.h
  420. $ COPY 'EXHEADER' SYS$DISK:[.INCLUDE.OPENSSL]
  421. $!
  422. $! Copy All The ".H" Files From The [.CRYPTO] Directory Tree.
  423. $!
  424. $ SDIRS := ,-
  425. OBJECTS,-
  426. MD2,MD4,MD5,SHA,MDC2,HMAC,RIPEMD,-
  427. DES,RC2,RC4,RC5,IDEA,BF,CAST,CAMELLIA,SEED,-
  428. BN,EC,RSA,DSA,ECDSA,DH,ECDH,DSO,ENGINE,AES,-
  429. BUFFER,BIO,STACK,LHASH,RAND,ERR,-
  430. EVP,ASN1,PEM,X509,X509V3,CONF,TXT_DB,PKCS7,PKCS12,COMP,OCSP,UI,KRB5,-
  431. STORE,PQUEUE
  432. $ EXHEADER_ := crypto.h,tmdiff.h,opensslv.h,opensslconf.h,ebcdic.h,symhacks.h,-
  433. ossl_typ.h
  434. $ EXHEADER_OBJECTS := objects.h,obj_mac.h
  435. $ EXHEADER_MD2 := md2.h
  436. $ EXHEADER_MD4 := md4.h
  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
  442. $ EXHEADER_DES := des.h,des_old.h
  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
  449. $ EXHEADER_CAMELLIA := camellia.h
  450. $ EXHEADER_SEED := seed.h
  451. $ EXHEADER_BN := bn.h
  452. $ EXHEADER_EC := ec.h
  453. $ EXHEADER_RSA := rsa.h
  454. $ EXHEADER_DSA := dsa.h
  455. $ EXHEADER_ECDSA := ecdsa.h
  456. $ EXHEADER_DH := dh.h
  457. $ EXHEADER_ECDH := ecdh.h
  458. $ EXHEADER_DSO := dso.h
  459. $ EXHEADER_ENGINE := engine.h
  460. $ EXHEADER_AES := aes.h
  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
  467. $ EXHEADER_EVP := evp.h
  468. $ EXHEADER_ASN1 := asn1.h,asn1_mac.h,asn1t.h
  469. $ EXHEADER_PEM := pem.h,pem2.h
  470. $ EXHEADER_X509 := x509.h,x509_vfy.h
  471. $ EXHEADER_X509V3 := x509v3.h
  472. $ EXHEADER_CONF := conf.h,conf_api.h
  473. $ EXHEADER_TXT_DB := txt_db.h
  474. $ EXHEADER_PKCS7 := pkcs7.h
  475. $ EXHEADER_PKCS12 := pkcs12.h
  476. $ EXHEADER_COMP := comp.h
  477. $ EXHEADER_OCSP := ocsp.h
  478. $ EXHEADER_UI := ui.h,ui_compat.h
  479. $ EXHEADER_KRB5 := krb5_asn.h
  480. $!EXHEADER_STORE := store.h,str_compat.h
  481. $ EXHEADER_STORE := store.h
  482. $ EXHEADER_PQUEUE := pqueue.h,pq_compat.h
  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
  492. $ COPY [.CRYPTO]'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
  493. $ ELSE
  494. $ COPY [.CRYPTO.'D']'tmp' SYS$DISK:[.INCLUDE.OPENSSL] !/LOG
  495. $ ENDIF
  496. $ GOTO LOOP_SDIRS
  497. $ LOOP_SDIRS_END:
  498. $!
  499. $! Copy All The ".H" Files From The [.SSL] Directory.
  500. $!
  501. $ EXHEADER := ssl.h,ssl2.h,ssl3.h,ssl23.h,tls1.h,dtls1.h,kssl.h
  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. $!
  527. $ @CRYPTO-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" "''ISSEVEN'" "''BUILDPART'"
  528. $!
  529. $! Build The [.xxx.EXE.CRYPTO]*.EXE Test Applications.
  530. $!
  531. $ @CRYPTO-LIB APPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN' "''BUILDPART'"
  532. $!
  533. $! Go Back To The Main Directory.
  534. $!
  535. $ SET DEFAULT [-]
  536. $!
  537. $! Time To RETURN.
  538. $!
  539. $ RETURN
  540. $!
  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. $!
  556. $ @SSL-LIB LIBRARY 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
  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. $!
  581. $ @SSL-LIB SSL_TASK 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
  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. $!
  606. $ @MAKETESTS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
  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. $!
  631. $ @MAKEAPPS 'DEBUGGER' "''COMPILER'" "''TCPIP_TYPE'" 'ISSEVEN'
  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. $ 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. $!
  666. $! Check The User's Options.
  667. $!
  668. $ CHECK_OPTIONS:
  669. $!
  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. $!
  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. $!
  687. $ BUILDCOMMAND = "ALL"
  688. $!
  689. $! Else...
  690. $!
  691. $ ELSE
  692. $!
  693. $! Else, Check To See If P1 Has A Valid Arguement.
  694. $!
  695. $ IF (P1.EQS."CONFIG").OR.(P1.EQS."BUILDINF").OR.(P1.EQS."SOFTLINKS") -
  696. .OR.(P1.EQS."BUILDALL") -
  697. .OR.(P1.EQS."CRYPTO").OR.(P1.EQS."SSL") -
  698. .OR.(P1.EQS."SSL_TASK").OR.(P1.EQS."TEST").OR.(P1.EQS."APPS")
  699. $ THEN
  700. $!
  701. $! A Valid Arguement.
  702. $!
  703. $ BUILDCOMMAND = P1
  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."
  715. $ WRITE SYS$OUTPUT " CONFIG : Just build the [.CRYPTO]OPENSSLCONF.H file."
  716. $ WRITE SYS$OUTPUT " BUILDINF : Just build the [.CRYPTO]BUILDINF.H file."
  717. $ WRITE SYS$OUTPUT " SOFTLINKS: Just Fix The Unix soft links."
  718. $ WRITE SYS$OUTPUT " BUILDALL : Same as ALL, except CONFIG, BUILDINF and SOFTILNKS aren't done."
  719. $ WRITE SYS$OUTPUT " CRYPTO : To Build Just The [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
  720. $ WRITE SYS$OUTPUT " CRYPTO/x : To Build Just The x Part Of The"
  721. $ WRITE SYS$OUTPUT " [.xxx.EXE.CRYPTO]LIBCRYPTO.OLB Library."
  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. $!
  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. $!
  852. $ IF (P4.EQS."VAXC").OR.(P4.EQS."DECC").OR.(P4.EQS."GNUC")!.OR.(P4.EQS."LINK")
  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. $!
  951. $ IF P5.EQS."SOCKETSHR" .OR. P5.EQS."MULTINET" .OR. P5.EQS."UCX" -
  952. .OR. P5.EQS."TCPIP" .OR. P5.EQS."NONE"
  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. $!
  962. $ TCPIP_LIB = "SYS$DISK:[-.VMS]SOCKETSHR_SHR.OPT/OPT"
  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. $!
  996. $ TCPIP_LIB = "SYS$DISK:[-.VMS]UCX_SHR_DECC.OPT/OPT"
  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. $!
  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. $!
  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."
  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."
  1063. $ WRITE SYS$OUTPUT ""
  1064. $!
  1065. $! Time To EXIT.
  1066. $!
  1067. $ EXIT
  1068. $ ELSE
  1069. $!
  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. $!
  1079. $! Set the TCPIP_TYPE symbol
  1080. $!
  1081. $ TCPIP_TYPE = P5
  1082. $ ENDIF
  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