Mercurial > hgrepos > Python2 > PyMuPDF

comparison mupdf-source/thirdparty/curl/packages/vms/build_vms.com @ 2:b50eed0cc0ef upstream

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ADD: MuPDF v1.26.7: the MuPDF source as downloaded by a default build of PyMuPDF 1.26.4. The directory name has changed: no version number in the expanded directory now.
author Franz Glasner <fzglas.hg@dom66.de>
date Mon, 15 Sep 2025 11:43:07 +0200
parents
children
comparison
equal deleted inserted replaced
1:1d09e1dec1d9 2:b50eed0cc0ef
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 exended 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