2
0

build_vms.com 35 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038
  1. $! BUILD_VMS.COM
  2. $!
  3. $! I've taken the original build_vms.com, supplied by Nico Baggus, if
  4. $! memory serves me correctly, and made some modifications.
  5. $!
  6. $! SSL support is controlled by logical names. If SSL$INCLUDE is
  7. $! defined, then it is assumed that HP's SSL product has been installed.
  8. $! If OPENSSL is defined, but SSL$INCLUDE is not, then OpenSSL will be
  9. $! used. If neither logical name is defined, then SSL support will not
  10. $! be compiled/linked in. Command-line options NOHPSSL and NOSSL can be
  11. $! specified to override the automatic SSL selection.
  12. $!
  13. $! Command-line Options:
  14. $!
  15. $! CLEAN Delete product files for this host architecture. (No
  16. $! build done.)
  17. $! CLEAN_ALL Delete product files for all host architectures. (No
  18. $! build done.)
  19. $!
  20. $! 64 Compile with 64-bit pointers.
  21. $! Note, you must match the pointer size that the OpenSSL
  22. $! shared image expects.
  23. $! Currently curl is not building properly with 64-bit pointers
  24. $! on VMS because it is trying to cast pointers to 32-bit
  25. $! integers and some OpenVMS library routines called by curl
  26. $! do not yet support 64-bit pointers.
  27. $! CCQUAL=x Add "x" to the C compiler qualifiers.
  28. $! Default qualifiers are:
  29. $! /standard=relaxed
  30. $! /names=(as_is, shortened)
  31. $! /repository=[.'arch']
  32. $! /nested_include_directory=none
  33. $! /define=(_LARGEFILE=1,_USE_STD_STAT=1) (non-vax)
  34. $! /float=ieee/ieee_mode=denorm_results (non-vax)
  35. $! DEBUG Compile debug and nooptimize
  36. $! Alpha/IA64 always compiles /debug.
  37. $! Always link a debug image.
  38. $! NOIEEE Do not use IEEE floating point. (Alpha/I64)
  39. $! VAX must always use DFLOAT
  40. $! NOLARGE Disable large-file support if large file support available.
  41. $! (Non-VAX, VMS >= V7.2.)
  42. $! NOLDAP Disable LDAP support if LDAP is available.
  43. $! NOKERBEROS Disable Kerberos support if Kerberos is available.
  44. $! LIST Create C compiler listings and linker maps.
  45. $! /list/show=(expan,includ)/machine
  46. $! FULLLIST Full detailed listing.
  47. $! /list/show=(all, nomessages)/machine
  48. $! NOHPSSL Don't use HP SSL, even if available.
  49. $! Note, you must match the pointer size that the OpenSSL
  50. $! shared image expects. This procedure will select the
  51. $! correct HP OpenSSL image.
  52. $! NOSSL Don't use any SSL, even if available.
  53. $! OSSLOLB Use OpenSSL object libraries (.OLB), even if shared
  54. $! images (.EXE) are available.
  55. $! NOZLIB Don't use GNV$ZLIB shared image even if available.
  56. $! REALCLEAN Delete product files for all host architectures. (No
  57. $! build done.) Alias for CLEAN_ALL
  58. $!
  59. $! DCL Symbols:
  60. $!
  61. $! CURL_CCDEFS="c_macro_1=value1 [, c_macro_2=value2 [...]]"
  62. $! Compile with these additional C macros defined.
  63. $!
  64. $! Revisions:
  65. $!
  66. $! 2-DEC-2003, MSK, the "original" version.
  67. $! It works for me. Your mileage may vary.
  68. $! 13-JAN-2004, MSK, moved this procedure to the [.packages.vms] directory
  69. $! and updated it to do hardware dependent builds.
  70. $! 29-JAN-2004, MSK, moved logical defines into defines.com
  71. $! 6-FEB-2004, MSK, put in various SSL support bits
  72. $! 9-MAR-2004, MSK, the config-vms.h* files are now copied to the lib and
  73. $! src directories as curl_config.h.
  74. $! 15-MAR-2004, MSK, All of the curlmsg*.* files have also been moved to
  75. $! this build directory. They will be copied to the src
  76. $! directory before build. The .msg file will be compiled
  77. $! to get the .obj for messages, but the .h and .sdl files
  78. $! are not automatically created since they partly rely on
  79. $! the freeware SDL tool.
  80. $! 8-FEB-2005, MSK, merged the two config-vms.h* files into one that uses
  81. $! USE_SSLEAY to define if the target has SSL support built
  82. $! in. Changed the cc/define parameter accordingly.
  83. $! 11-FEB-2005, MSK, If [--.LIB]AMIGAOS.C and NWLIB.C are there, rename them
  84. $! 23-MAR-2005, MSK, relocated cc_qual define so that DEBUG option would work
  85. $! 25-APR-2007, STL, allow compilation in 64-bit mode.
  86. $! 13-DEC-2009. SMS, Changed to skip unwanted source files without
  87. $! renaming the original files.
  88. $! Eliminated needless, persistent logical names.
  89. $! Added CURL_CCDEFS DCL symbol for user-specified C
  90. $! macro definitions.
  91. $! Added CLEAN and CLEAN_ALL options.
  92. $! Added CCQUAL option for user-specified C compiler
  93. $! qualifiers.
  94. $! Added IEEE option for IEEE floating point (Alpha).
  95. $! Added LARGE option for large-file support.
  96. $! Added OSSLOLB option, and support for OpenSSL
  97. $! shared images.
  98. $! Changed to put listing and map files into lisdir:.
  99. $! Changed to avoid case confusion on ODS5 disks.
  100. $! Added more default dev:[dir] save+restore.
  101. $! Moved remaining "defines.com" code (back) into
  102. $! here, eliminating the hard-coded OpenSSL nonsense.
  103. $! Changed to use F$GETSYI("ARCH_NAME") (or
  104. $! equivalent) to name architecture-specific product
  105. $! file destination directory, and to create the
  106. $! directory if needed (obviating inclusion of these
  107. $! directories and dummy files in the distribution
  108. $! kit).
  109. $! Changed the "compile" subroutine to break the CC
  110. $! command across multiple lines to avoid DCL
  111. $! line-too-long problems.
  112. $! Changed "vo_c" messages to show the CC qualifiers
  113. $! once, not with every compile command.
  114. $! 01-Jan-2013 J. Malmberg
  115. $! VMS build procedures need to be able to work with
  116. $! the default set to a search list, with created or
  117. $! modified files only in the first member of the search
  118. $! list.
  119. $! Whitespace change to be more compatible with current
  120. $! practices.
  121. $! One pass option parsing instead of loop.
  122. $! GNV ZLIB shared image support.
  123. $! KERBEROS support where available.
  124. $! LDAP default to on where available
  125. $! LARGEFILE default to on where available
  126. $! IEEE float default to on where available.
  127. $! Generate the curl_config.h file from system inspection.
  128. $! Linker finds ldap with out option file.
  129. $! 13-Mar-2013, Tom Grace
  130. $! Added missing slash in cc_full_list.
  131. $! Removed unwanted extra quotes inside symbol tool_main
  132. $! for non-VAX architectures that triggered link failure.
  133. $! Replaced curl_sys_inc with sys_inc.
  134. $! 19-Mar-2013, John Malmberg
  135. $! symbol tool_main needs to be quoted when parse style is
  136. $! set to extended in versions of VMS greater than 7.3-1.
  137. $! Remove curlbuild.h generation as it should be pre-built
  138. $! in the curl release or daily tarball.
  139. $! 12-Jul-2013, John Malmberg
  140. $! Adjust to find and use ZLIB from the Jean-Francois
  141. $! Pieronne shared image and newer GNV ZLIB kit that
  142. $! is upward compatible with Jean-Francois's kit.
  143. $! Remove tabs from file.
  144. $! Fixed DCL formatting as follows:
  145. $! * Labels have no space after leading $.
  146. $! * 1 space after $ for first level.
  147. $! * 3 spaces after $ for second level. Line start + 4.
  148. $! * 7 spaces after $ for third level. Line start + 8.
  149. $! * Each level after that indents 4 characters.
  150. $! * then/else/endif same indentation as if statement.
  151. $! 17-Nov-2014, Michael Steve
  152. $! Modified build to handle new location of the VTLS lib
  153. $! source within zip archive. Not a pretty fix.
  154. $!
  155. $!===========================================================================
  156. $!
  157. $!
  158. $! Save the original default dev:[dir], and arrange for its restoration
  159. $! at exit.
  160. $!------------------------------------------------------------------------
  161. $ curl = ""
  162. $ orig_def = f$environment("DEFAULT")
  163. $ on error then goto Common_Exit
  164. $ on control_y then goto Common_Exit
  165. $!
  166. $ ctrl_y = 1556
  167. $ proc = f$environment("PROCEDURE")
  168. $ proc_fid = f$file_attributes(proc, "FID")
  169. $ proc_dev = f$parse(proc, , , "DEVICE")
  170. $ proc_dir = f$parse(proc, , , "DIRECTORY")
  171. $ proc_name = f$parse(proc, , , "NAME")
  172. $ proc_type = f$parse(proc, , , "TYPE")
  173. $ proc_dev_dir = proc_dev + proc_dir
  174. $!
  175. $! Have to manually parse the device for a search list.
  176. $! Can not use the f$parse() as it will return the first name
  177. $! in the search list.
  178. $!
  179. $ orig_def_dev = f$element(0, ":", orig_def) + ":"
  180. $ if orig_def_dev .eqs. "::" then orig_def_dev = "sys$disk:"
  181. $ test_proc = orig_def_dev + proc_dir + proc_name + proc_type
  182. $!
  183. $! If we can find this file using the default directory
  184. $! then we know that we should use the original device from the
  185. $! default directory which could be a search list.
  186. $!
  187. $ test_proc_fid = f$file_attributes(test_proc, "FID")
  188. $!
  189. $ if (test_proc_fid .eq. proc_fid)
  190. $ then
  191. $ proc_dev_dir = orig_def_dev + proc_dir
  192. $ endif
  193. $!
  194. $!
  195. $! Verbose output message stuff. Define symbol to "write sys$output" or "!".
  196. $! vo_c - verbose output for compile
  197. $! vo_l - link
  198. $! vo_o - object check
  199. $!
  200. $ vo_c := "write sys$output"
  201. $ vo_l := "write sys$output"
  202. $ vo_o := "!"
  203. $!
  204. $! Determine the main distribution directory ("[--]") in an
  205. $! ODS5-tolerant (case-insensitive) way. (We do assume that the only
  206. $! "]" or ">" is the one at the end.)
  207. $!
  208. $! Some non-US VMS installations report ">" for the directory delimiter
  209. $! so do not assume that it is "]".
  210. $!
  211. $ orig_def_len = f$length(orig_def)
  212. $ delim = f$extract(orig_def_len - 1, 1, orig_def)
  213. $!
  214. $ set default 'proc_dev_dir'
  215. $ set default [--]
  216. $ base_dev_dir = f$environment("default")
  217. $ top_dev_dir = base_dev_dir - delim
  218. $!
  219. $!
  220. $!
  221. $! Define the architecture-specific product file destination directory
  222. $! name(s).
  223. $!
  224. $ parse_style = "TRADITIONAL"
  225. $ if (f$getsyi("HW_MODEL") .lt. 1024)
  226. $ then
  227. $ arch_name = "VAX"
  228. $ else
  229. $ arch_name = ""
  230. $ arch_name = arch_name + f$edit(f$getsyi("ARCH_NAME"), "UPCASE")
  231. $ if (arch_name .eqs. "") then arch_name = "UNK"
  232. $!
  233. $! Extended parsing option starts with VMS 7.3-1.
  234. $! There is no 7.4, so that simplifies the parse a bit.
  235. $!
  236. $ node_swvers = f$getsyi("node_swvers")
  237. $ version_patch = f$extract(1, f$length(node_swvers), node_swvers)
  238. $ maj_ver = f$element(0, ".", version_patch)
  239. $ min_ver_patch = f$element(1, ".", version_patch)
  240. $ min_ver = f$element(0, "-", min_ver_patch)
  241. $ patch = f$element(1, "-", min_ver_patch)
  242. $ if patch .eqs. "-" then patch = ""
  243. $ parse_x = 0
  244. $ if maj_ver .ges. "8"
  245. $ then
  246. $ parse_x = 1
  247. $ else
  248. $ if maj_ver .eqs. "7" .and. min_ver .ges. "3" .and. patch .nes. ""
  249. $ then
  250. $ parse_x = 1
  251. $ endif
  252. $ endif
  253. $ if parse_x
  254. $ then
  255. $ parse_style = f$getjpi("", "parse_style_perm")
  256. $ endif
  257. $ endif
  258. $!
  259. $ exedir = proc_dev_dir - delim + ".''arch_name'" + delim
  260. $ lisdir = exedir
  261. $ objdir = exedir
  262. $!
  263. $! When building on a search list, need to do a create to make sure that
  264. $! the output directory exists, since the clean procedure tries to delete
  265. $! it.
  266. $ create/dir 'exedir'/prot=o:rwed
  267. $!
  268. $! Interpret command-line options.
  269. $!
  270. $ hpssl = 0
  271. $ ldap = 1
  272. $ list = 0
  273. $ full_list = 0
  274. $ nohpssl = 0
  275. $ nossl = 0
  276. $ openssl = 0
  277. $ osslolb = 0
  278. $ nozlib = 0
  279. $ nokerberos = 0
  280. $ cc_names = "/names=(shortened, as_is)/repository='exedir'
  281. $ cc_defs = "HAVE_CONFIG_H=1"
  282. $ cc_list = "/list='objdir'/show=(expan, includ)/machine
  283. $ cc_full_list = "/list='objdir'/show=(all, nomessages)/machine
  284. $ link_qual = ""
  285. $ if arch_name .eqs. "VAX"
  286. $ then
  287. $ cc_debug = "/nodebug/optimize"
  288. $ !cc_defs = cc_defs + ""
  289. $ cc_float = ""
  290. $ cc_large = ""
  291. $ else
  292. $ cc_debug = "/debug/optimize"
  293. $ cc_defs = cc_defs + ",_USE_STD_STAT"
  294. $ cc_float = "/float=ieee/ieee_mode=denorm_results"
  295. $ cc_large = ",_LARGEFILE"
  296. $ endif
  297. $ cc_qual1 = ""
  298. $ cc_qual2 = ""
  299. $ if (f$type(CURL_CCDEFS) .nes. "")
  300. $ then
  301. $ CURL_CCDEFS = f$edit(CURL_CCDEFS, "TRIM")
  302. $ cc_defs = cc_defs + ", " + CURL_CCDEFS
  303. $ endif
  304. $ msg_qual = "/object = ''objdir'"
  305. $ ssl_opt = ""
  306. $!
  307. $! Allow arguments to be grouped together with comma or separated by spaces
  308. $! Do no know if we will need more than 8.
  309. $ args = "," + p1 + "," + p2 + "," + p3 + "," + p4 + ","
  310. $ args = args + p5 + "," + p6 + "," + p7 + "," + p8 + ","
  311. $!
  312. $! Provide lower case version to simplify parsing.
  313. $ args_lower = f$edit(args, "LOWERCASE,COLLAPSE")
  314. $!
  315. $ args_len = f$length(args)
  316. $ args_lower_len = f$length(args_lower)
  317. $!
  318. $ clean = 0
  319. $ if f$locate(",clean,", args_lower) .lt. args_lower_len
  320. $ then
  321. $ clean = 1
  322. $ endif
  323. $ clean_all = 0
  324. $ if f$locate(",clean_all,", args_lower) .lt. args_lower_len
  325. $ then
  326. $ clean = 1
  327. $ clean_all = 1
  328. $ endif
  329. $ if f$locate(",realclean,", args_lower) .lt. args_lower_len
  330. $ then
  331. $ clean = 1
  332. $ clean_all = 1
  333. $ endif
  334. $!
  335. $ if clean .ne. 0
  336. $ then
  337. $ prods = "''exedir'*.*;*"
  338. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  339. $ prods = proc_dev_dir + arch_name + ".DIR;1"
  340. $ if (f$search(prods) .nes. "") then set prot=o:rwed 'prods'
  341. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  342. $ file = "[]config_vms.h"
  343. $ if f$search(file) .nes. "" then delete/log 'file';*
  344. $ file = "[]config.h"
  345. $ if f$search(file) .nes. "" then delete/log 'file';*
  346. $ file = "[]curl-config."
  347. $ if f$search(file) .nes. "" then delete/log 'file';*
  348. $ file = "[]libcurl.pc"
  349. $ if f$search(file) .nes. "" then delete/log 'file';*
  350. $ file = "[.lib.cxx_repository]cxx$demangler_db."
  351. $ if f$search(file) .nes. "" then delete/log 'file';*
  352. $ file = "[.src.cxx_repository]cxx$demangler_db."
  353. $ if f$search(file) .nes. "" then delete/log 'file';*
  354. $ file = "[.lib]config_vms.h"
  355. $ if f$search(file) .nes. "" then delete/log 'file';*
  356. $ file = "[...]curl_crtl_init"
  357. $ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
  358. $ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
  359. $ file = "[...]gnv$curlmsg"
  360. $ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
  361. $ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
  362. $ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
  363. $ file = "[...]curlmsg"
  364. $ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
  365. $ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
  366. $ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
  367. $ file = "[...]report_openssl_version"
  368. $ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
  369. $ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
  370. $ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
  371. $ file = "[...]hp_ssl_release_info.txt"
  372. $ if f$search(file) .nes. "" then delete/log 'file';*
  373. $ file = "[...]gnv_libcurl_xfer.mar_exact"
  374. $ if f$search(file) .nes. "" then delete/log 'file';*
  375. $ file = "[...]gnv_libcurl_xfer"
  376. $ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
  377. $ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
  378. $ if f$search("''file'.opt") .nes. "" then delete/log 'file'.opt;*
  379. $ file = "[...]curl-*_original_src.bck"
  380. $ if f$search(file) .nes. "" then delete/log 'file';*
  381. $ file = "[...]curl_d-*_original_src.bck"
  382. $ if f$search(file) .nes. "" then delete/log 'file';*
  383. $ file = "[...]curl-*_vms_src.bck"
  384. $ if f$search(file) .nes. "" then delete/log 'file';*
  385. $ file = "[...]curl_d-*_vms_src.bck"
  386. $ if f$search(file) .nes. "" then delete/log 'file';*
  387. $ file = "[...]curl-*.release_notes"
  388. $ if f$search(file) .nes. "" then delete/log 'file';*
  389. $ file = "[...]curl_d-*.release_notes"
  390. $ if f$search(file) .nes. "" then delete/log 'file';*
  391. $ file = "[...]*curl*.pcsi$desc"
  392. $ if f$search(file) .nes. "" then delete/log 'file';*
  393. $ file = "[...]*curl_d*.pcsi$desc"
  394. $ if f$search(file) .nes. "" then delete/log 'file';*
  395. $ file = "[...]*curl*.pcsi$text"
  396. $ if f$search(file) .nes. "" then delete/log 'file';*
  397. $ file = "[...]*curl_d*.pcsi$text"
  398. $ if f$search(file) .nes. "" then delete/log 'file';*
  399. $!
  400. $ if clean_all .eq. 0 then goto Common_Exit
  401. $ endif
  402. $!
  403. $!
  404. $ if clean_all .ne. 0
  405. $ then
  406. $ file = "[...]gnv$libcurl"
  407. $ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
  408. $ if f$search("''file'.map") .nes. "" then delete/log 'file'.map;*
  409. $ if f$search("''file'.dsf") .nes. "" then delete/log 'file'.dsf;*
  410. $ file = "[.src]curl"
  411. $ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
  412. $ if f$search("''file'.map") .nes. "" then delete/log 'file'.map;*
  413. $ if f$search("''file'.dsf") .nes. "" then delete/log 'file'.dsf;*
  414. $ prods = proc_dev_dir - delim + ".ALPHA" + delim + "*.*;*"
  415. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  416. $ prods = proc_dev_dir + "ALPHA" + ".DIR;1"
  417. $ if (f$search(prods) .nes. "") then set prot=o:rwed 'prods'
  418. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  419. $ prods = proc_dev_dir - delim + ".IA64" + delim + "*.*;*"
  420. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  421. $ prods = proc_dev_dir + "IA64" + ".DIR;1"
  422. $ if (f$search(prods) .nes. "") then set prot=o:rwed 'prods'
  423. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  424. $ prods = proc_dev_dir - delim + ".VAX" + delim + "*.*;*"
  425. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  426. $ prods = proc_dev_dir + "VAX"+ ".DIR;1"
  427. $ if (f$search(prods) .nes. "") then set prot=o:rwed 'prods'
  428. $ if (f$search(prods) .nes. "") then delete /log 'prods'
  429. $ file = "[...]macro32_exactcase"
  430. $ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
  431. $ if f$search("''file'.jnl") .nes. "" then delete/log 'file'.jnl;*
  432. $ goto Common_Exit
  433. $ endif
  434. $!
  435. $ build_64 = 0
  436. $ if f$locate(",64,", args_lower) .lt. args_lower_len
  437. $ then
  438. $ cc_qual1 = cc_qual1 + " /POINTER = 64"
  439. $ build_64 = 1
  440. $ endif
  441. $!
  442. $ args_loc = f$locate(",ccqual=", args_lower)
  443. $ if args_loc .lt. args_lower_len
  444. $ then
  445. $ arg = f$extract(args_loc + 1, args_lower_len, args_lower)
  446. $ arg_val = f$element(0, ",", arg)
  447. $ cc_qual2 = f$element(1, "=", arg_val);
  448. $ endif
  449. $!
  450. $! On Alpha/IA64 no size penalty for compiling /debug/optimize
  451. $! by default.
  452. $ if f$locate(",debug,", args_lower) .lt. args_lower_len
  453. $ then
  454. $ cc_debug = "/debug/nooptimize"
  455. $ endif
  456. $!
  457. $! We normally want IEEE float if it is available. Programs that are
  458. $! calling libcurl will typically prefer IEEE behavior, unless on the
  459. $! VAX where we have no choice.
  460. $!
  461. $ if f$locate(",noieee,", args_lower) .lt. args_lower_len
  462. $ then
  463. $ cc_float = ""
  464. $ endif
  465. $!
  466. $! Normally we want large file if it is available.
  467. $ if f$locate(",nolarge,", args_lower) .lt. args_lower_len
  468. $ then
  469. $ write sys$output "Handling of large files disabled."
  470. $ cc_large = ""
  471. $ endif
  472. $ if cc_large .nes. ""
  473. $ then
  474. $ cc_defs = cc_defs + cc_large
  475. $ endif
  476. $!
  477. $ if f$locate(",noldap,", args_lower) .lt. args_lower_len
  478. $ then
  479. $ ldap = 0
  480. $ endif
  481. $!
  482. $ if f$locate(",list,", args_lower) .lt. args_lower_len
  483. $ then
  484. $ list = 1
  485. $ endif
  486. $ if f$locate(",fulllist,", args_lower) .lt. args_lower_len
  487. $ then
  488. $ list = 1
  489. $ full_list = 1
  490. $ endif
  491. $!
  492. $ if f$locate(",nohpssl,", args_lower) .lt. args_lower_len
  493. $ then
  494. $ nohpssl = 1
  495. $ endif
  496. $!
  497. $ if f$locate(",nossl,", args_lower) .lt. args_lower_len
  498. $ then
  499. $ nossl = 1
  500. $ endif
  501. $!
  502. $ if f$locate(",osslolb,", args_lower) .lt. args_lower_len
  503. $ then
  504. $ osslolb = 1
  505. $ endif
  506. $!
  507. $ if f$locate(",nozlib,", args_lower) .lt. args_lower_len
  508. $ then
  509. $ nozlib = 1
  510. $ endif
  511. $!
  512. $ if f$locate(",nokerberos,", args_lower) .lt. args_lower_len
  513. $ then
  514. $ nokerberos = 1
  515. $ endif
  516. $!
  517. $!
  518. $! CC /LIST, LINK /MAP, and MESSAGE /LIST are defaults in batch mode,
  519. $! so be explicit when they're not desired.
  520. $!
  521. $
  522. $ if list .eq. 0
  523. $ then
  524. $ cc_qual1 = cc_qual1 + "/nolist"
  525. $ msg_qual = msg_qual + "/nolist"
  526. $ else
  527. $ msg_qual = msg_qual + "/list='objdir'"
  528. $ if (full_list .ne. 0)
  529. $ then
  530. $ cc_qual1 = cc_qual1 + cc_full_list
  531. $ else
  532. $ cc_qual1 = cc_qual1 + cc_list
  533. $ endif
  534. $ endif
  535. $ cc_qual1 = cc_qual1 + cc_names + cc_float + cc_debug
  536. $!
  537. $! Create product directory, if needed.
  538. $!
  539. $ if (f$search(proc_dev_dir + arch_name + ".DIR;1") .eqs. "")
  540. $ then
  541. $ create /directory 'exedir'
  542. $ endif
  543. $!
  544. $! Detect available (but not prohibited) SSL software.
  545. $!
  546. $ libsslshr_line = ""
  547. $ libcryptoshr_line = ""
  548. $ if (.not. nossl)
  549. $ then
  550. $ if (f$trnlnm("OPENSSL") .nes. "")
  551. $ then
  552. $! cc_defs = cc_defs + ", USE_OPENSSL=1"
  553. $ if ((f$trnlnm("SSL$INCLUDE") .nes. "") .and. (.not. nohpssl))
  554. $ then
  555. $! Use HP SSL.
  556. $ hpssl = 1
  557. $!
  558. $! Older SSL only has lib*_shr32 images
  559. $!-----------------------------------------------
  560. $ libsslshr = "sys$share:ssl$libssl_shr"
  561. $ if (f$search("''libsslshr'.exe") .eqs. "") .or. (.not. build_64)
  562. $ then
  563. $ libsslshr = libsslshr + "32"
  564. $ endif
  565. $ libcryptoshr = "sys$share:ssl$libcrypto_shr"
  566. $ if (f$search("''libcryptoshr'.exe") .eqs. "") .or. (.not. build_64)
  567. $ then
  568. $ libcryptoshr = libcryptoshr + "32"
  569. $ endif
  570. $ libsslshr_line = "''libsslshr'.exe/share"
  571. $ libcryptoshr_line = "''libcryptoshr'.exe/share"
  572. $ else
  573. $! Use OpenSSL. Assume object libraries, unless shared images
  574. $! are found (and not prohibited).
  575. $! TODO: We do not know how to automatically choose based on the
  576. $! pointer size.
  577. $!
  578. $ openssl = 1
  579. $ libsslshr_line = "ssllib:libssl.olb/lib"
  580. $ libcryptoshr_line = "ssllib:libcrypto.olb/lib"
  581. $ ssl_opt = ", ssllib:libssl.olb /library" + -
  582. ", ssllib:libcrypto.olb /library"
  583. $ if (osslolb .eq. 0)
  584. $ then
  585. if ((f$search("ssllib:ssl_libcrypto.exe") .nes. "") .and. -
  586. (f$search("ssllib:ssl_libssl.exe") .nes. ""))
  587. $ then
  588. $! OpenSSL shared images with "SSL_xxx.EXE names.
  589. $ openssl = 2
  590. $ libsslshr_line = "ssllib:ssl_libssl_shr.exe/share"
  591. $ libcryptoshr_line = "ssllib:ssl_libcrypto_shr.exe/share"
  592. $ else
  593. $ if ((f$search("ssllib:libcrypto.exe") .nes. "") .and. -
  594. (f$search("ssllib:libssl.exe") .nes. ""))
  595. $ then
  596. $! OpenSSL shared images with "xxx.EXE names.
  597. $ openssl = 3
  598. $ libsslshr_line = "ssllib:libssl_shr.exe/share"
  599. $ libcryptoshr_line = "ssllib:libcrypto_shr.exe/share"
  600. $ endif
  601. $ endif
  602. $ endif
  603. $ endif
  604. $ endif
  605. $ endif
  606. $!
  607. $! LDAP.
  608. $!
  609. $ if f$search("SYS$SHARE:LDAP$SHR.EXE") .eqs. ""
  610. $ then
  611. $ ldap = 0
  612. $ endif
  613. $ if (ldap .eq. 0)
  614. $ then
  615. $! cc_defs = cc_defs + ", CURL_DISABLE_LDAP=1"
  616. $ else
  617. $ 'vo_c' "%CURL-I-BLDHPLDAP, building with HP LDAP support"
  618. $ endif
  619. $!
  620. $! KERBEROS
  621. $ gssrtlshr_line = ""
  622. $ try_shr = "sys$share:gss$rtl"
  623. $ if f$search("''try_shr'.exe") .eqs. ""
  624. $ then
  625. $ nokerberos = 1
  626. $ endif
  627. $ curl_sys_krbinc = ""
  628. $ if nokerberos .eq. 0
  629. $ then
  630. $ 'vo_c' "%CURL-I-BLDHPKERBEROS, building with HP KERBEROS support"
  631. $ curl_sys_krbinc = "sys$sysroot:[kerberos.include]"
  632. $ gssrtlshr_line = "''try_shr'/share"
  633. $ endif
  634. $!
  635. $!
  636. $! LIBZ
  637. $ libzshr_line = ""
  638. $ try_shr = "gnv$libzshr"
  639. $ if build_64
  640. $ then
  641. $! First look for 64-bit
  642. $ if f$search("''try_shr'64") .eqs. ""
  643. $ then
  644. $! Second look for the J.F. Pieronne 64-bit shared image
  645. $ try_shr = "LIBZ_SHR64"
  646. $ if f$search(try_shr) .eqs. "" then nozlib = 1
  647. $ endif
  648. $ else
  649. $! First look for 32-bit
  650. $ if f$search("''try_shr'32") .eqs. ""
  651. $ then
  652. $! Second look for old 32-bit image
  653. $ if f$search(try_shr) .eqs. ""
  654. $ then
  655. $! Third look for the J.F. Pieronne 32-bit shared image
  656. $ try_shr = "LIBZ_SHR32"
  657. $ if f$search(try_shr) .eqs. "" then nozlib = 1
  658. $ endif
  659. $ endif
  660. $ endif
  661. $ if f$search(try_shr) .eqs. ""
  662. $ then
  663. $ nozlib = 1
  664. $ endif
  665. $ curl_sys_zlibinc = ""
  666. $ if nozlib .eq. 0
  667. $ then
  668. $ libzshr_line = "''try_shr'/share"
  669. $ if f$locate("LIBZ", try_shr) .eq. 0
  670. $ then
  671. $ 'vo_c' "%CURL-I-BLDJFPLIBZ, building with JFP LIBZ support"
  672. $ curl_sys_zlibinc = "LIBZ:"
  673. $ else
  674. $ 'vo_c' "%CURL-I-BLDGNVLIBZ, building with GNV LIBZ support"
  675. $ curl_sys_zlibinc = "GNV$ZLIB_INCLUDE:"
  676. $ endif
  677. $ endif
  678. $!
  679. $! Form CC qualifiers.
  680. $!
  681. $ cc_defs = "/define = (''cc_defs')"
  682. $ cc_qual2 = cc_qual2 + " /object = ''objdir'"
  683. $ cc_qual2 = cc_qual2 + "/nested_include_directory=none"
  684. $!
  685. $ 'vo_c' "CC opts:", -
  686. " ''cc_defs'", -
  687. " ''cc_qual1'", -
  688. " ''cc_qual2'"
  689. $!
  690. $! Inform the victim of our plans.
  691. $!
  692. $ if (hpssl)
  693. $ then
  694. $ 'vo_c' "%CURL-I-BLDHPSSL, building with HP SSL support"
  695. $ else
  696. $ if (openssl .ne. 0)
  697. $ then
  698. $ if (openssl .eq. 1)
  699. $ then
  700. $ 'vo_c' -
  701. "%CURL-I-BLDOSSL_OLB, building with OpenSSL (object library) support"
  702. $ else
  703. $ 'vo_c' -
  704. "%CURL-I-BLDOSSL_EXE, building with OpenSSL (shared image) support"
  705. $ endif
  706. $ else
  707. $ 'vo_c' "%CURL-I-BLDNOSSL, building with NO SSL support"
  708. $ endif
  709. $ endif
  710. $!
  711. $! Announce destination and SSL directories.
  712. $!
  713. $ 'vo_c' " OBJDIR = ''objdir'"
  714. $ 'vo_c' " EXEDIR = ''exedir'"
  715. $!
  716. $ if (openssl .ne. 0)
  717. $ then
  718. $ ssllib = f$trnlnm("ssllib")
  719. $ if (ssllib .eqs. "")
  720. $ then
  721. $ ssllib = "(undefined)"
  722. $ endif
  723. $ 'vo_c' " SSLLIB = ''ssllib'"
  724. $!
  725. $! TODO: Why are we translating the logical name?
  726. $! The logical aname used to find the shared image should just be used
  727. $! as translating it could result in the wrong location at run time.
  728. $ if (openssl .eq. 1)
  729. $ then
  730. $ ossl_lib1 = f$trnlnm("ssllib")+ "LIBSSL.OLB"
  731. $ ossl_lib2 = f$trnlnm("ssllib")+ "LIBCRYPTO.OLB"
  732. $ msg = "object libraries"
  733. $ else
  734. $ if (openssl .eq. 2)
  735. $ then
  736. $ ossl_lib1 = f$trnlnm("ssllib")+ "SSL_LIBSSL.EXE"
  737. $ ossl_lib2 = f$trnlnm("ssllib")+ "SSL_LIBCRYPTO.EXE"
  738. $ else
  739. $ ossl_lib1 = f$trnlnm("ssllib")+ "LIBSSL.EXE"
  740. $ ossl_lib2 = f$trnlnm("ssllib")+ "LIBCRYPTO.EXE"
  741. $ endif
  742. $ msg = "shared images"
  743. $ endif
  744. $ if ((f$search(ossl_lib1) .eqs. "") .or. -
  745. (f$search(ossl_lib2) .eqs. ""))
  746. $ then
  747. $ write sys$output "Can't find OpenSSL ''msg':"
  748. $ write sys$output " ''ossl_lib1'"
  749. $ write sys$output " ''ossl_lib2'"
  750. $ goto Common_Exit
  751. $ endif
  752. $ endif
  753. $!
  754. $! Define the "curl" (process) logical name for "#include <curl/xxx.h>".
  755. $!
  756. $ curl = f$trnlnm("curl", "LNM$PROCESS")
  757. $ if (curl .nes. "")
  758. $ then
  759. $ write sys$output ""
  760. $ write sys$output -
  761. "Process logical name ""curl"" is already defined, but this procedure"
  762. $ write sys$output -
  763. "would override that definition. Use a command like"
  764. $ write sys$output -
  765. " deassign /process curl"
  766. $ write sys$output -
  767. "to cancel that logical name definition, and then and re-run this procedure."
  768. $ write sys$output ""
  769. $ goto Common_Exit
  770. $ endif
  771. $ curl_logical = top_dev_dir + ".include.curl" + delim
  772. $ curl_sys_inc2 = curl_logical
  773. $ curl_sys_inc1 = top_dev_dir + ".include" + delim
  774. $! define curl 'top_dev_dir'.include.curl'delim'
  775. $!
  776. $! Generate config file into the product directory.
  777. $!
  778. $! call MoveIfDiff [.lib]config-vms.h 'objdir'curl_config.h
  779. $!
  780. $ conf_params = ""
  781. $ if nossl .ne. 0 then conf_params = conf_params + ",nossl"
  782. $ if nohpssl .ne. 0 then conf_params = conf_params + ",nohpssl,"
  783. $ if ldap .eq. 0 then conf_params = conf_params + ",noldap,"
  784. $ if nozlib .ne. 0 then conf_params = conf_params + ",nozlib,"
  785. $ if nokerberos .ne. 0 then conf_params = conf_params + ",nokerberos"
  786. $ conf_params = conf_params - ","
  787. $!
  788. $!
  789. $ new_conf = f$search("''objdir'curl_config.h")
  790. $ if new_conf .eqs. ""
  791. $ then
  792. $! set ver
  793. $ write sys$output "Generating curl custom config_vms.h"
  794. $ @'proc_dev_dir'generate_config_vms_h_curl.com ''conf_params'
  795. $!
  796. $ write sys$output "Generating curl_config.h"
  797. $ conf_in = f$search("[.lib]curl_config*.*in")
  798. $ if conf_in .eqs. ""
  799. $ then
  800. $ write sys$output "Can not find [.lib]curl_config*.*in file!"
  801. $ goto common_exit
  802. $ endif
  803. $ @'proc_dev_dir'config_h.com 'conf_in'
  804. $ copy config.h 'objdir'curl_config.h
  805. $ delete config.h;
  806. $! set nover
  807. $ endif
  808. $!
  809. $!
  810. $ on control_y then goto Common_Exit
  811. $!
  812. $ set default 'proc_dev_dir'
  813. $ sys_inc = "''curl_sys_inc1', ''curl_sys_inc2', ''curl_logical'"
  814. $ if curl_sys_krbinc .nes. ""
  815. $ then
  816. $ sys_inc = sys_inc + ",''curl_sys_krbinc'"
  817. $ endif
  818. $ if curl_sys_zlibinc .nes. ""
  819. $ then
  820. $ sys_inc = sys_inc + ",''curl_sys_zlibinc'"
  821. $ endif
  822. $! Build LIB
  823. $ cc_include = "/include=([-.lib],[-.lib.vtls],[-.packages.vms]"
  824. $ cc_include = cc_include + ",[-.packages.vms.''arch_name'])"
  825. $ call build "[--.lib]" "*.c" "''objdir'CURLLIB.OLB" "amigaos, nwlib, nwos"
  826. $ if ($status .eq. ctrl_y) then goto Common_Exit
  827. $! Build VTLS
  828. $ cc_include = "/include=([--.lib.vtls],[--.lib],[--.src]"
  829. $ cc_include = cc_include + ",[--.packages.vms],[--.packages.vms.''arch_name'])"
  830. $ call build "[--.lib.vtls]" "*.c" "''objdir'CURLLIB.OLB" "amigaos, nwlib, nwos"
  831. $! Build SRC
  832. $ cc_include = "/include=([-.src],[-.lib],[-.lib.vtls]"
  833. $ cc_include = cc_include + ",[-.packages.vms],[-.packages.vms.''arch_name'])"
  834. $ call build "[--.src]" "*.c" "''objdir'CURLSRC.OLB"
  835. $ if ($status .eq. ctrl_y) then goto Common_Exit
  836. $! Build MSG
  837. $ call build "[]" "*.msg" "''objdir'CURLSRC.OLB"
  838. $ if ($status .eq. ctrl_y) then goto Common_Exit
  839. $!
  840. $!
  841. $ if (openssl .ne. 0)
  842. $ then
  843. $ if (openssl .eq. 1)
  844. $ then
  845. $ 'vo_l' "%CURL-I-LINK_OSSL, linking with OpenSSL (object library)"
  846. $ else
  847. $ 'vo_l' "%CURL-I-LINK_HPSSL, linking with OpenSSL (shared image)"
  848. $ endif
  849. $ else
  850. $ if (hpssl)
  851. $ then
  852. $ 'vo_l' "%CURL-I-LINK_HPSSL, linking with HP SSL"
  853. $ else
  854. $ 'vo_l' "%CURL-I-LINK_NOSSL, linking with NO SSL support"
  855. $ endif
  856. $ endif
  857. $!
  858. $!
  859. $! GNV helper files for building the test curl binary.
  860. $!-----------------------------------------------
  861. $ create 'exedir'gnv$curl.opt
  862. $ open/append opt 'exedir'gnv$curl.opt
  863. $ if libzshr_line .nes. "" then write opt libzshr_line
  864. $ if gssrtlshr_line .nes. "" then write opt gssrtlshr_line
  865. $ if libcryptoshr_line .nes. "" then write opt libcryptoshr_line
  866. $ if libsslshr_line .nes. "" then write opt libsslshr_line
  867. $ close opt
  868. $!
  869. $!
  870. $! Create the libcurl
  871. $!------------------------------------------------------
  872. $ create 'exedir'gnv_libcurl_linker.opt
  873. $ open/append opt 'exedir'gnv_libcurl_linker.opt
  874. $ if libzshr_line .nes. "" then write opt libzshr_line
  875. $ if gssrtlshr_line .nes. "" then write opt gssrtlshr_line
  876. $ if libcryptoshr_line .nes. "" then write opt libcryptoshr_line
  877. $ if libsslshr_line .nes. "" then write opt libsslshr_line
  878. $ close opt
  879. $!
  880. $!
  881. $! If we are not on VAX, then we want the debug symbol table in
  882. $! a separate file.
  883. $! VAX needs the tool_main unquoted in uppercase,
  884. $! Alpha and IA64 need tool_main quoted in exact case when parse style is
  885. $! extended.
  886. $ link_dsf1 = ""
  887. $ link_dsf2 = ""
  888. $ tool_main = "tool_main"
  889. $ if arch_name .nes. "VAX"
  890. $ then
  891. $ if parse_style .eqs. "EXTENDED"
  892. $ then
  893. $ tool_main = """tool_main"""
  894. $ endif
  895. $ link_dsf1 = "/dsf=" + exedir + "CURL.DSF"
  896. $ link_dsf2 = "/dsf=" + exedir + "CURL_DEBUG.DSF"
  897. $ endif
  898. $ if (list .eq. 0)
  899. $ then
  900. $ link_map1 = "/nomap"
  901. $ link_map2 = "/nomap"
  902. $ else
  903. $ link_map1 = "/map=" + exedir + "CURL.MAP"
  904. $ link_map2 = "/map=" + exedir + "CURL_DEBUG.MAP"
  905. $ endif
  906. $!
  907. $!
  908. $! Make a normal image.
  909. $ set ver
  910. $ link 'link_map1' 'link_dsf1' /executable = 'exedir'CURL.EXE -
  911. 'objdir'curlsrc.olb /library /include = ('tool_main', curlmsg), -
  912. 'objdir'curllib.olb /library, -
  913. 'exedir'gnv$curl.opt/opt
  914. $!
  915. $! Also make a debug copy.
  916. $ link/debug 'link_map2' 'link_dsf2' /executable = 'exedir'CURL_DEBUG.EXE -
  917. 'objdir'curlsrc.olb /library /include = ('tool_main', curlmsg), -
  918. 'objdir'curllib.olb /library, -
  919. 'exedir'gnv$curl.opt/opt
  920. $ set nover
  921. $!
  922. $ goto Common_Exit
  923. $!
  924. $! Subroutine to build everything with a filetype passed in via P2 in
  925. $! the directory passed in via P1 and put it in the object library named
  926. $! via P3. Exclude items in P4.
  927. $!
  928. $build: subroutine
  929. $ build_def = f$environment("default")
  930. $ on control_y then goto EndLoop ! SS$_CONTROLY
  931. $ sts = 1 ! SS$_NORMAL.
  932. $! set noon
  933. $ set default 'p1'
  934. $ search = "sys$disk:" + p2
  935. $ reset = f$search("reset")
  936. $ if f$search( p3) .eqs. ""
  937. $ then
  938. $ librarian /create /object 'p3'
  939. $ endif
  940. $ reject_list__ = "," + f$edit(p4, "COLLAPSE, UPCASE") + ","
  941. $ reject_list___len = f$length(reject_list__)
  942. $ reset = f$search( "reset", 1)
  943. $Loop:
  944. $ file = f$search( search, 1)
  945. $ if file .eqs. "" then goto EndLoop
  946. $! Skip a name if it's in the P4 exclusion list.
  947. $ if (p4 .nes. "")
  948. $ then
  949. $ name__ = "," + -
  950. f$edit(f$parse(file, , , "NAME", "SYNTAX_ONLY"), "UPCASE") + -
  951. ","
  952. $ if (f$locate(name__, reject_list__) .lt. reject_list___len)
  953. $ then
  954. $ goto Loop
  955. $ endif
  956. $ endif
  957. $ objfile = f$parse("''objdir'.OBJ;", file)
  958. $ obj = f$search(objfile, 2)
  959. $ if (obj .nes. "")
  960. $ then
  961. $ if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))
  962. $ then
  963. $ call compile 'file'
  964. $ sts = $status
  965. $ if .not. sts
  966. $ then
  967. $ goto EndLoop
  968. $ endif
  969. $ librarian /object 'p3' 'objfile'
  970. $ else
  971. $ 'vo_o' "%CURL-I-OBJUTD, ", objfile, " is up to date"
  972. $ endif
  973. $ else
  974. $ 'vo_o' "%CURL-I-OBJDNE, ", file, " does not exist"
  975. $ call compile 'file'
  976. $ sts = $status
  977. $ if .not. sts
  978. $ then
  979. $ goto EndLoop
  980. $ endif
  981. $ librarian /object 'p3' 'objfile'
  982. $ endif
  983. $ goto Loop
  984. $EndLoop:
  985. $!!! purge
  986. $ set default 'build_def'
  987. $ exit 'sts'
  988. $ endsubroutine ! Build
  989. $!
  990. $! Based on the file TYPE, do the right compile command.
  991. $! Only C and MSG supported.
  992. $!
  993. $compile: subroutine
  994. $ on control_y then return ctrl_y ! SS$_CONTROLY
  995. $! set noon
  996. $ file = p1
  997. $ qual = p2+ p3+ p4+ p5+ p6+ p7+ p8
  998. $ typ = f$edit(f$parse(file, , , "TYPE"), "UPCASE") - "."
  999. $ if (typ .eqs. "C")
  1000. $ then
  1001. $ 'vo_c' "CC (opts) ", file
  1002. $ define/user curl 'curl_logical'
  1003. $ if curl_sys_krbinc .nes. "" then define/user gssapi 'curl_sys_krbinc'
  1004. $ define/user decc$system_include 'sys_inc'
  1005. $ CC 'cc_defs' -
  1006. 'cc_qual1' -
  1007. 'cc_qual2' -
  1008. 'cc_include' -
  1009. 'file'
  1010. $ else
  1011. $ cmd_msg = "MESSAGE " + msg_qual
  1012. $ x = cmd_'typ'
  1013. $ 'vo_c' x, " ", file
  1014. $ 'x' 'file'
  1015. $ endif
  1016. $ ENDSUBROUTINE ! Compile
  1017. $!
  1018. $! Do a diff of the file specified in P1 with that in P2. If different
  1019. $! copy P1 to P2. This also covers if P2 doesn't exist, but not if P2
  1020. $! is an invalid filespec.
  1021. $!
  1022. $MoveIfDiff: subroutine
  1023. $ set NoOn
  1024. $ define /user_mode sys$error nl:
  1025. $ define /user_mode sys$output nl:
  1026. $ differences 'p1' 'p2'
  1027. $ status = $status
  1028. $ if (status .ne. %X006C8009) ! if status is not "no diff"
  1029. $ then
  1030. $ copy 'p1' 'p2'
  1031. $ purge /nolog 'p2'
  1032. $ endif
  1033. $ on control_y then return ctrl_y ! SS$_CONTROLY
  1034. $ ENDSUBROUTINE ! MoveIfDiff
  1035. $!
  1036. $Common_Exit:
  1037. $ set default 'orig_def'
  1038. $ exit