packages/vms/build_vms.com

   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