20
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
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.
26
27
$! CCQUAL=x Add "x" to the C compiler qualifiers.
27
$! Default qualifiers are:
29
$! /names=(as_is, shortened)
30
$! /repository=[.'arch']
31
$! /nested_include_directory=none
32
$! /define=(_LARGEFILE=1,_USE_STD_STAT=1) (non-vax)
33
$! /float=ieee/ieee_mode=denorm_results (non-vax)
28
$! Default qualifiers are:
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)
34
35
$! DEBUG Compile debug and nooptimize
35
$! Alpha/IA64 always compiles /debug.
36
$! Always link a debug image.
36
$! Alpha/IA64 always compiles /debug.
37
$! Always link a debug image.
37
38
$! NOIEEE Do not use IEEE floating point. (Alpha/I64)
38
$! VAX must use DFLOAT
39
$! VAX must always use DFLOAT
39
40
$! NOLARGE Disable large-file support if large file support available.
40
$! (Non-VAX, VMS >= V7.2.)
41
$! (Non-VAX, VMS >= V7.2.)
41
42
$! NOLDAP Disable LDAP support if LDAP is available.
42
43
$! NOKERBEROS Disable Kerberos support if Kerberos is available.
43
44
$! LIST Create C compiler listings and linker maps.
44
$! /list/show=(expan,includ)/machine
45
$! /list/show=(expan,includ)/machine
45
46
$! FULLLIST Full detailed listing.
46
$! /list/show=(all, nomessages)/machine
47
$! /list/show=(all, nomessages)/machine
47
48
$! NOHPSSL Don't use HP SSL, even if available.
48
$! Note, you must match the pointer size that the OpenSSL
49
$! shared image expects. This procedure will select the
50
$! correct HP OpenSSL image.
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.
51
52
$! NOSSL Don't use any SSL, even if available.
52
53
$! OSSLOLB Use OpenSSL object libraries (.OLB), even if shared
53
54
$! images (.EXE) are available.
54
$! NOZLIB Don't use GNV$ZLIB shared image even if 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
108
111
$! line-too-long problems.
109
112
$! Changed "vo_c" messages to show the CC qualifiers
110
113
$! once, not with every compile command.
111
$! 01-Jan-2013 J. Malmberg
112
$! VMS build procedures need to be able to work with
113
$! the default set to a search list, with created or
114
$! modified files only in the first member of the search
116
$! Whitespace change to be more compatible with current
118
$! One pass option parsing instead of loop.
119
$! GNV ZLIB shared image support.
120
$! KERBEROS support where available.
121
$! LDAP default to on where available
122
$! LARGEFILE default to on where available
123
$! IEEE float default to on where available.
124
$! Generate the curl_config.h file from system inspection.
125
$! Linker finds ldap with out option file.
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
119
$! Whitespace change to be more compatible with current
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.
126
129
$! 13-Mar-2013, Tom Grace
127
130
$! Added missing slash in cc_full_list.
128
131
$! Removed unwanted extra quotes inside symbol tool_main
133
136
$! set to exended in versions of VMS greater than 7.3-1.
134
137
$! Remove curlbuild.h generation as it should be pre-built
135
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.
137
152
$!===========================================================================
297
312
$ args_len = f$length(args)
298
313
$ args_lower_len = f$length(args_lower)
300
316
$ if f$locate(",clean,", args_lower) .lt. args_lower_len
302
$ prods = "''exedir'*.*;*"
321
$ if f$locate(",clean_all,", args_lower) .lt. args_lower_len
326
$ if f$locate(",realclean,", args_lower) .lt. args_lower_len
334
$ prods = "''exedir'*.*;*"
303
335
$ if (f$search(prods) .nes. "") then delete /log 'prods'
304
336
$ prods = proc_dev_dir + arch_name + ".DIR;1"
305
337
$ if (f$search(prods) .nes. "") then set prot=o:rwed 'prods'
306
338
$ if (f$search(prods) .nes. "") then delete /log 'prods'
307
339
$ file = "[]config_vms.h"
308
340
$ if f$search(file) .nes. "" then delete/log 'file';*
341
$ file = "[]config.h"
342
$ if f$search(file) .nes. "" then delete/log 'file';*
343
$ file = "[]curl-config."
344
$ if f$search(file) .nes. "" then delete/log 'file';*
345
$ file = "[]libcurl.pc"
346
$ if f$search(file) .nes. "" then delete/log 'file';*
347
$ file = "[.lib.cxx_repository]cxx$demangler_db."
348
$ if f$search(file) .nes. "" then delete/log 'file';*
349
$ file = "[.src.cxx_repository]cxx$demangler_db."
350
$ if f$search(file) .nes. "" then delete/log 'file';*
309
351
$ file = "[.lib]config_vms.h"
310
352
$ if f$search(file) .nes. "" then delete/log 'file';*
314
$ if f$locate(",clean_all,", args_lower) .lt. args_lower_len
353
$ file = "[...]curl_crtl_init"
354
$ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
355
$ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
356
$ file = "[...]gnv$curlmsg"
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
$ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
360
$ file = "[...]curlmsg"
361
$ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
362
$ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
363
$ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
364
$ file = "[...]report_openssl_version"
365
$ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
366
$ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
367
$ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
368
$ file = "[...]hp_ssl_release_info.txt"
369
$ if f$search(file) .nes. "" then delete/log 'file';*
370
$ file = "[...]gnv_libcurl_xfer.mar_exact"
371
$ if f$search(file) .nes. "" then delete/log 'file';*
372
$ file = "[...]gnv_libcurl_xfer"
373
$ if f$search("''file'.lis") .nes. "" then delete/log 'file'.lis;*
374
$ if f$search("''file'.obj") .nes. "" then delete/log 'file'.obj;*
375
$ if f$search("''file'.opt") .nes. "" then delete/log 'file'.opt;*
376
$ file = "[...]curl-*_original_src.bck"
377
$ if f$search(file) .nes. "" then delete/log 'file';*
378
$ file = "[...]curl-*_vms_src.bck"
379
$ if f$search(file) .nes. "" then delete/log 'file';*
380
$ file = "[...]curl-*.release_notes"
381
$ if f$search(file) .nes. "" then delete/log 'file';*
382
$ file = "[...]*curl*.pcsi$desc"
383
$ if f$search(file) .nes. "" then delete/log 'file';*
384
$ file = "[...]*curl*.pcsi$text"
385
$ if f$search(file) .nes. "" then delete/log 'file';*
387
$ if clean_all .eq. 0 then goto Common_Exit
391
$ if clean_all .ne. 0
393
$ file = "[...]gnv$libcurl"
394
$ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
395
$ if f$search("''file'.map") .nes. "" then delete/log 'file'.map;*
396
$ if f$search("''file'.dsf") .nes. "" then delete/log 'file'.dsf;*
397
$ file = "[.src]curl"
398
$ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
399
$ if f$search("''file'.map") .nes. "" then delete/log 'file'.map;*
400
$ if f$search("''file'.dsf") .nes. "" then delete/log 'file'.dsf;*
316
401
$ prods = proc_dev_dir - delim + ".ALPHA" + delim + "*.*;*"
317
402
$ if (f$search(prods) .nes. "") then delete /log 'prods'
318
403
$ prods = proc_dev_dir + "ALPHA" + ".DIR;1"
328
413
$ prods = proc_dev_dir + "VAX"+ ".DIR;1"
329
414
$ if (f$search(prods) .nes. "") then set prot=o:rwed 'prods'
330
415
$ if (f$search(prods) .nes. "") then delete /log 'prods'
416
$ file = "[...]macro32_exactcase"
417
$ if f$search("''file'.exe") .nes. "" then delete/log 'file'.exe;*
418
$ if f$search("''file'.jnl") .nes. "" then delete/log 'file'.jnl;*
335
423
$ if f$locate(",64,", args_lower) .lt. args_lower_len
337
425
$ cc_qual1 = cc_qual1 + " /POINTER = 64"
341
429
$ args_loc = f$locate(",ccqual=", args_lower)
342
430
$ if args_loc .lt. args_lower_len
344
432
$ arg = f$extract(args_loc + 1, args_lower_len, args_lower)
345
433
$ arg_val = f$element(0, ",", arg)
346
434
$ cc_qual2 = f$element(1, "=", arg_val);
349
437
$! On Alpha/IA64 no size penalty for compiling /debug/optimize
351
439
$ if f$locate(",debug,", args_lower) .lt. args_lower_len
353
441
$ cc_debug = "/debug/nooptimize"
357
444
$! We normally want IEEE float if it is available. Programs that are
358
445
$! calling libcurl will typically prefer IEEE behavior, unless on the
359
446
$! VAX where we have no choice.
361
448
$ if f$locate(",noieee,", args_lower) .lt. args_lower_len
367
453
$! Normally we want large file if it is available.
368
454
$ if f$locate(",nolarge,", args_lower) .lt. args_lower_len
370
456
$ write sys$output "Handling of large files disabled."
373
459
$ if cc_large .nes. ""
375
461
$ cc_defs = cc_defs + cc_large
378
464
$ if f$locate(",noldap,", args_lower) .lt. args_lower_len
383
469
$ if f$locate(",list,", args_lower) .lt. args_lower_len
387
473
$ if f$locate(",fulllist,", args_lower) .lt. args_lower_len
393
479
$ if f$locate(",nohpssl,", args_lower) .lt. args_lower_len
398
484
$ if f$locate(",nossl,", args_lower) .lt. args_lower_len
403
489
$ if f$locate(",osslolb,", args_lower) .lt. args_lower_len
408
494
$ if f$locate(",nozlib,", args_lower) .lt. args_lower_len
448
534
$ libcryptoshr_line = ""
449
535
$ if (.not. nossl)
451
$ if (f$trnlnm("OPENSSL") .nes. "")
453
$! cc_defs = cc_defs + ", USE_SSLEAY=1"
454
$ if ((f$trnlnm("SSL$INCLUDE") .nes. "") .and. (.not. nohpssl))
537
$ if (f$trnlnm("OPENSSL") .nes. "")
539
$! cc_defs = cc_defs + ", USE_SSLEAY=1"
540
$ if ((f$trnlnm("SSL$INCLUDE") .nes. "") .and. (.not. nohpssl))
459
$! Older SSL only has lib*_shr32 images
545
$! Older SSL only has lib*_shr32 images
460
546
$!-----------------------------------------------
461
$ libsslshr = "sys$share:ssl$libssl_shr"
462
$ if (f$search("''libsslshr'.exe") .eqs. "") .or. (.not. build_64)
464
$ libsslshr = libsslshr + "32"
466
$ libcryptoshr = "sys$share:ssl$libcrypto_shr"
467
$ if (f$search("''libcryptoshr'.exe") .eqs. "") .or. (.not. build_64)
469
$ libcryptoshr = libcryptoshr + "32"
471
$ libsslshr_line = "''libsslshr'.exe/share"
472
$ libcryptoshr_line = "''libcryptoshr'.exe/share"
547
$ libsslshr = "sys$share:ssl$libssl_shr"
548
$ if (f$search("''libsslshr'.exe") .eqs. "") .or. (.not. build_64)
550
$ libsslshr = libsslshr + "32"
552
$ libcryptoshr = "sys$share:ssl$libcrypto_shr"
553
$ if (f$search("''libcryptoshr'.exe") .eqs. "") .or. (.not. build_64)
555
$ libcryptoshr = libcryptoshr + "32"
557
$ libsslshr_line = "''libsslshr'.exe/share"
558
$ libcryptoshr_line = "''libcryptoshr'.exe/share"
474
$! Use OpenSSL. Assume object libraries, unless shared images
475
$! are found (and not prohibited).
476
$! TODO: We do not know how to automatically choose based on the
560
$! Use OpenSSL. Assume object libraries, unless shared images
561
$! are found (and not prohibited).
562
$! TODO: We do not know how to automatically choose based on the
480
$ libsslshr_line = "ssllib:libssl.olb/lib"
481
$ libcryptoshr_line = "ssllib:libcrypto.olb/lib"
482
$ ssl_opt = ", ssllib:libssl.olb /library" + -
483
", ssllib:libcrypto.olb /library"
484
$ if (osslolb .eq. 0)
486
if ((f$search("ssllib:ssl_libcrypto.exe") .nes. "") .and. -
487
(f$search("ssllib:ssl_libssl.exe") .nes. ""))
489
$! OpenSSL shared images with "SSL_xxx.EXE names.
491
$ libsslshr_line = "ssllib:ssl_libssl_shr.exe/share"
492
$ libcryptoshr_line = "ssllib:ssl_libcrypto_shr.exe/share"
494
$ if ((f$search("ssllib:libcrypto.exe") .nes. "") .and. -
495
(f$search("ssllib:libssl.exe") .nes. ""))
566
$ libsslshr_line = "ssllib:libssl.olb/lib"
567
$ libcryptoshr_line = "ssllib:libcrypto.olb/lib"
568
$ ssl_opt = ", ssllib:libssl.olb /library" + -
569
", ssllib:libcrypto.olb /library"
570
$ if (osslolb .eq. 0)
572
if ((f$search("ssllib:ssl_libcrypto.exe") .nes. "") .and. -
573
(f$search("ssllib:ssl_libssl.exe") .nes. ""))
497
$! OpenSSL shared images with "xxx.EXE names.
499
$ libsslshr_line = "ssllib:libssl_shr.exe/share"
500
$ libcryptoshr_line = "ssllib:libcrypto_shr.exe/share"
575
$! OpenSSL shared images with "SSL_xxx.EXE names.
577
$ libsslshr_line = "ssllib:ssl_libssl_shr.exe/share"
578
$ libcryptoshr_line = "ssllib:ssl_libcrypto_shr.exe/share"
580
$ if ((f$search("ssllib:libcrypto.exe") .nes. "") .and. -
581
(f$search("ssllib:libssl.exe") .nes. ""))
583
$! OpenSSL shared images with "xxx.EXE names.
585
$ libsslshr_line = "ssllib:libssl_shr.exe/share"
586
$ libcryptoshr_line = "ssllib:libcrypto_shr.exe/share"
592
705
$ if (openssl .ne. 0)
594
$ ssllib = f$trnlnm("ssllib")
595
$ if (ssllib .eqs. "")
597
$ ssllib = "(undefined)"
599
$ 'vo_c' " SSLLIB = ''ssllib'"
707
$ ssllib = f$trnlnm("ssllib")
708
$ if (ssllib .eqs. "")
710
$ ssllib = "(undefined)"
712
$ 'vo_c' " SSLLIB = ''ssllib'"
601
714
$! TODO: Why are we translating the logical name?
602
715
$! The logical aname used to find the shared image should just be used
603
716
$! as translating it could result in the wrong location at run time.
604
$ if (openssl .eq. 1)
717
$ if (openssl .eq. 1)
606
719
$ ossl_lib1 = f$trnlnm("ssllib")+ "LIBSSL.OLB"
607
720
$ ossl_lib2 = f$trnlnm("ssllib")+ "LIBCRYPTO.OLB"
608
721
$ msg = "object libraries"
610
723
$ if (openssl .eq. 2)
612
$ ossl_lib1 = f$trnlnm("ssllib")+ "SSL_LIBSSL.EXE"
613
$ ossl_lib2 = f$trnlnm("ssllib")+ "SSL_LIBCRYPTO.EXE"
725
$ ossl_lib1 = f$trnlnm("ssllib")+ "SSL_LIBSSL.EXE"
726
$ ossl_lib2 = f$trnlnm("ssllib")+ "SSL_LIBCRYPTO.EXE"
615
$ ossl_lib1 = f$trnlnm("ssllib")+ "LIBSSL.EXE"
616
$ ossl_lib2 = f$trnlnm("ssllib")+ "LIBCRYPTO.EXE"
728
$ ossl_lib1 = f$trnlnm("ssllib")+ "LIBSSL.EXE"
729
$ ossl_lib2 = f$trnlnm("ssllib")+ "LIBCRYPTO.EXE"
618
731
$ msg = "shared images"
620
$ if ((f$search(ossl_lib1) .eqs. "") .or. -
621
(f$search(ossl_lib2) .eqs. ""))
733
$ if ((f$search(ossl_lib1) .eqs. "") .or. -
734
(f$search(ossl_lib2) .eqs. ""))
623
736
$ write sys$output "Can't find OpenSSL ''msg':"
624
737
$ write sys$output " ''ossl_lib1'"
625
738
$ write sys$output " ''ossl_lib2'"
626
739
$ goto Common_Exit
630
743
$! Define the "curl" (process) logical name for "#include <curl/xxx.h>".
654
767
$! call MoveIfDiff [.lib]config-vms.h 'objdir'curl_config.h
657
$if nossl .ne. 0 then conf_params = conf_params + ",nossl"
658
$if nohpssl .ne. 0 then conf_params = conf_params + ",nohpssl,"
659
$if ldap .eq. 0 then conf_params = conf_params + ",noldap,"
660
$if nozlib .ne. 0 then conf_params = conf_params + ",nozlib,"
661
$if nokerberos .ne. 0 then conf_params = conf_params + ",nokerberos"
662
$conf_params = conf_params - ","
665
$new_conf = f$search("''objdir'curl_config.h")
666
$if new_conf .eqs. ""
770
$ if nossl .ne. 0 then conf_params = conf_params + ",nossl"
771
$ if nohpssl .ne. 0 then conf_params = conf_params + ",nohpssl,"
772
$ if ldap .eq. 0 then conf_params = conf_params + ",noldap,"
773
$ if nozlib .ne. 0 then conf_params = conf_params + ",nozlib,"
774
$ if nokerberos .ne. 0 then conf_params = conf_params + ",nokerberos"
775
$ conf_params = conf_params - ","
778
$ new_conf = f$search("''objdir'curl_config.h")
779
$ if new_conf .eqs. ""
669
782
$ write sys$output "Generating curl custom config_vms.h"
670
783
$ @'proc_dev_dir'generate_config_vms_h_curl.com ''conf_params'
707
820
$ if (openssl .ne. 0)
709
$ if (openssl .eq. 1)
822
$ if (openssl .eq. 1)
711
824
$ 'vo_l' "%CURL-I-LINK_OSSL, linking with OpenSSL (object library)"
713
826
$ 'vo_l' "%CURL-I-LINK_HPSSL, linking with OpenSSL (shared image)"
718
831
$ 'vo_l' "%CURL-I-LINK_HPSSL, linking with HP SSL"
720
833
$ 'vo_l' "%CURL-I-LINK_NOSSL, linking with NO SSL support"
725
838
$! GNV helper files for building the test curl binary.
726
839
$!-----------------------------------------------
727
$create 'exedir'gnv$curl.opt
728
$open/append opt 'exedir'gnv$curl.opt
729
$if libzshr_line .nes. "" then write opt libzshr_line
730
$if gssrtlshr_line .nes. "" then write opt gssrtlshr_line
731
$if libcryptoshr_line .nes. "" then write opt libcryptoshr_line
732
$if libsslshr_line .nes. "" then write opt libsslshr_line
840
$ create 'exedir'gnv$curl.opt
841
$ open/append opt 'exedir'gnv$curl.opt
842
$ if libzshr_line .nes. "" then write opt libzshr_line
843
$ if gssrtlshr_line .nes. "" then write opt gssrtlshr_line
844
$ if libcryptoshr_line .nes. "" then write opt libcryptoshr_line
845
$ if libsslshr_line .nes. "" then write opt libsslshr_line
736
849
$! Create the libcurl
737
850
$!------------------------------------------------------
738
$create 'exedir'gnv_libcurl_linker.opt
739
$open/append opt 'exedir'gnv_libcurl_linker.opt
740
$if libzshr_line .nes. "" then write opt libzshr_line
741
$if gssrtlshr_line .nes. "" then write opt gssrtlshr_line
742
$if libcryptoshr_line .nes. "" then write opt libcryptoshr_line
743
$if libsslshr_line .nes. "" then write opt libsslshr_line
851
$ create 'exedir'gnv_libcurl_linker.opt
852
$ open/append opt 'exedir'gnv_libcurl_linker.opt
853
$ if libzshr_line .nes. "" then write opt libzshr_line
854
$ if gssrtlshr_line .nes. "" then write opt gssrtlshr_line
855
$ if libcryptoshr_line .nes. "" then write opt libcryptoshr_line
856
$ if libsslshr_line .nes. "" then write opt libsslshr_line
747
860
$! If we are not on VAX, then we want the debug symbol table in
792
905
$! via P3. Exclude items in P4.
794
907
$build: subroutine
795
$ build_def = f$environment("default")
796
$ on control_y then goto EndLoop ! SS$_CONTROLY
797
$ sts = 1 ! SS$_NORMAL.
801
$ reset = f$search("reset")
802
$ if f$search( p3) .eqs. ""
908
$ build_def = f$environment("default")
909
$ on control_y then goto EndLoop ! SS$_CONTROLY
910
$ sts = 1 ! SS$_NORMAL.
914
$ reset = f$search("reset")
915
$ if f$search( p3) .eqs. ""
804
917
$ librarian /create /object 'p3'
806
$ reject_list__ = "," + f$edit(p4, "COLLAPSE, UPCASE") + ","
807
$ reject_list___len = f$length(reject_list__)
808
$ reset = f$search( "reset", 1)
919
$ reject_list__ = "," + f$edit(p4, "COLLAPSE, UPCASE") + ","
920
$ reject_list___len = f$length(reject_list__)
921
$ reset = f$search( "reset", 1)
810
$ file = f$search( search, 1)
811
$ if file .eqs. "" then goto EndLoop
812
$! Skip a name if it's in the P4 exclusion list.
923
$ file = f$search( search, 1)
924
$ if file .eqs. "" then goto EndLoop
925
$! Skip a name if it's in the P4 exclusion list.
816
929
f$edit(f$parse(file, , , "NAME", "SYNTAX_ONLY"), "UPCASE") + -
818
$ if (f$locate(name__, reject_list__) .lt. reject_list___len)
931
$ if (f$locate(name__, reject_list__) .lt. reject_list___len)
823
$ objfile = f$parse("''objdir'.OBJ;", file)
824
$ obj = f$search(objfile, 2)
936
$ objfile = f$parse("''objdir'.OBJ;", file)
937
$ obj = f$search(objfile, 2)
940
$ if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))
827
$ if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))
829
$ call compile 'file'
835
$ librarian /object 'p3' 'objfile'
837
$ 'vo_o' "%CURL-I-OBJUTD, ", objfile, " is up to date"
942
$ call compile 'file'
948
$ librarian /object 'p3' 'objfile'
840
$ 'vo_o' "%CURL-I-OBJDNE, ", file, " does not exist"
841
$ call compile 'file'
847
$ librarian /object 'p3' 'objfile'
950
$ 'vo_o' "%CURL-I-OBJUTD, ", objfile, " is up to date"
953
$ 'vo_o' "%CURL-I-OBJDNE, ", file, " does not exist"
954
$ call compile 'file'
960
$ librarian /object 'p3' 'objfile'
852
$ set default 'build_def'
965
$ set default 'build_def'
854
967
$ endsubroutine ! Build
856
969
$! Based on the file TYPE, do the right compile command.
857
970
$! Only C and MSG supported.
859
972
$compile: subroutine
860
$ on control_y then return ctrl_y ! SS$_CONTROLY
863
$ qual = p2+ p3+ p4+ p5+ p6+ p7+ p8
864
$ typ = f$edit(f$parse(file, , , "TYPE"), "UPCASE") - "."
973
$ on control_y then return ctrl_y ! SS$_CONTROLY
976
$ qual = p2+ p3+ p4+ p5+ p6+ p7+ p8
977
$ typ = f$edit(f$parse(file, , , "TYPE"), "UPCASE") - "."
867
980
$ 'vo_c' "CC (opts) ", file
868
$ define/user curl 'curl_logical'
869
$ if curl_sys_krbinc .nes. "" then define/user gssapi 'curl_sys_krbinc'
870
$ define/user decc$system_include 'sys_inc'
981
$ define/user curl 'curl_logical'
982
$ if curl_sys_krbinc .nes. "" then define/user gssapi 'curl_sys_krbinc'
983
$ define/user decc$system_include 'sys_inc'
876
989
$ cmd_msg = "MESSAGE " + msg_qual
878
991
$ 'vo_c' x, " ", file
881
994
$ ENDSUBROUTINE ! Compile
883
996
$! Do a diff of the file specified in P1 with that in P2. If different