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 1039