aboutsummaryrefslogtreecommitdiff
path: root/make_vms.com
diff options
context:
space:
mode:
Diffstat (limited to 'make_vms.com')
-rw-r--r--make_vms.com36
1 files changed, 18 insertions, 18 deletions
diff --git a/make_vms.com b/make_vms.com
index 8e5b7b5..c7c309e 100644
--- a/make_vms.com
+++ b/make_vms.com
@@ -42,7 +42,7 @@ $ aconf_in_file = "config.hin"
42$ conf_check_string = "" 42$ conf_check_string = ""
43$ linkonly = false 43$ linkonly = false
44$ optfile = name + ".opt" 44$ optfile = name + ".opt"
45$ libdefs = "" 45$ libdefs = ""
46$ axp = f$getsyi("HW_MODEL").ge.1024 .and. f$getsyi("HW_MODEL").lt.4096 46$ axp = f$getsyi("HW_MODEL").ge.1024 .and. f$getsyi("HW_MODEL").lt.4096
47$! 47$!
48$ whoami = f$parse(f$enviornment("Procedure"),,,,"NO_CONCEAL") 48$ whoami = f$parse(f$enviornment("Procedure"),,,,"NO_CONCEAL")
@@ -87,7 +87,7 @@ $ then
87$ if f$trnlnm("SYS").eqs."" then define sys sys$library: 87$ if f$trnlnm("SYS").eqs."" then define sys sys$library:
88$ endif 88$ endif
89$! 89$!
90$! Build a fake configure input header 90$! Build a fake configure input header
91$! 91$!
92$ open/write conf_hin config.hin 92$ open/write conf_hin config.hin
93$ write conf_hin "#undef _LARGEFILE64_SOURCE" 93$ write conf_hin "#undef _LARGEFILE64_SOURCE"
@@ -99,7 +99,7 @@ $FIND_ACONF:
99$ fname = f$element(i,"#",aconf_in_file) 99$ fname = f$element(i,"#",aconf_in_file)
100$ if fname .eqs. "#" then goto AMISS_ERR 100$ if fname .eqs. "#" then goto AMISS_ERR
101$ if f$search(fname) .eqs. "" 101$ if f$search(fname) .eqs. ""
102$ then 102$ then
103$ i = i + 1 103$ i = i + 1
104$ goto find_aconf 104$ goto find_aconf
105$ endif 105$ endif
@@ -396,7 +396,7 @@ $ deck
396# written by Martin P.J. Zinser 396# written by Martin P.J. Zinser
397# <zinser@zinser.no-ip.info or zinser@sysdev.deutsche-boerse.com> 397# <zinser@zinser.no-ip.info or zinser@sysdev.deutsche-boerse.com>
398 398
399OBJS = adler32.obj, compress.obj, crc32.obj, gzclose.obj, gzio.obj, gzlib.obj\ 399OBJS = adler32.obj, compress.obj, crc32.obj, gzclose.obj, gzio.obj, gzlib.obj\
400 gzread.obj, gzwrite.obj, uncompr.obj, infback.obj\ 400 gzread.obj, gzwrite.obj, uncompr.obj, infback.obj\
401 deflate.obj, trees.obj, zutil.obj, inflate.obj, \ 401 deflate.obj, trees.obj, zutil.obj, inflate.obj, \
402 inftrees.obj, inffast.obj 402 inftrees.obj, inffast.obj
@@ -521,7 +521,7 @@ $ else
521$ if (f$type('cdef') .eqs. "INTEGER") 521$ if (f$type('cdef') .eqs. "INTEGER")
522$ then 522$ then
523$ write aconf "#define ''cdef' ", 'cdef' 523$ write aconf "#define ''cdef' ", 'cdef'
524$ else 524$ else
525$ if (f$type('cdef') .eqs. "STRING") 525$ if (f$type('cdef') .eqs. "STRING")
526$ then 526$ then
527$ write aconf "#define ''cdef' ", """", '''cdef'', """" 527$ write aconf "#define ''cdef' ", """", '''cdef'', """"
@@ -587,7 +587,7 @@ $ set message/fac/ident/sever/text
587$ on error then goto err_exit 587$ on error then goto err_exit
588$ delete/nolog 'tmpnam'.*;*/exclude='th' 588$ delete/nolog 'tmpnam'.*;*/exclude='th'
589$ if (cc_prop .and. .not. is_need) .or. - 589$ if (cc_prop .and. .not. is_need) .or. -
590 (.not. cc_prop .and. is_need) 590 (.not. cc_prop .and. is_need)
591$ then 591$ then
592$ write sys$output "Checking for ''cdef'... yes" 592$ write sys$output "Checking for ''cdef'... yes"
593$ if f$type('cdef_val'_yes) .nes. "" 593$ if f$type('cdef_val'_yes) .nes. ""
@@ -599,10 +599,10 @@ $ if f$type('cdef_val'_yes) .eqs. "STRING" -
599$ else 599$ else
600$ call write_config f$fao("#define !AS 1",cdef) 600$ call write_config f$fao("#define !AS 1",cdef)
601$ endif 601$ endif
602$ if (cdef .eqs. "HAVE_FSEEKO") .or. (cdef .eqs. "_LARGE_FILES") .or. - 602$ if (cdef .eqs. "HAVE_FSEEKO") .or. (cdef .eqs. "_LARGE_FILES") .or. -
603 (cdef .eqs. "_LARGEFILE64_SOURCE") then - 603 (cdef .eqs. "_LARGEFILE64_SOURCE") then -
604 call write_config f$string("#define _LARGEFILE 1") 604 call write_config f$string("#define _LARGEFILE 1")
605$ else 605$ else
606$ write sys$output "Checking for ''cdef'... no" 606$ write sys$output "Checking for ''cdef'... no"
607$ if (comm_h) 607$ if (comm_h)
608$ then 608$ then
@@ -645,7 +645,7 @@ $ if .not. ($status) then cc_prop = false
645$ set message/fac/ident/sever/text 645$ set message/fac/ident/sever/text
646$ on error then goto err_exit 646$ on error then goto err_exit
647$ delete/nolog 'tmpnam'_'i'.*;* 647$ delete/nolog 'tmpnam'_'i'.*;*
648$ if (cc_prop) 648$ if (cc_prop)
649$ then 649$ then
650$ write sys$output "Checking for ''cdef'... ", mdef_'i' 650$ write sys$output "Checking for ''cdef'... ", mdef_'i'
651$ if f$type(mdef_'i') .eqs. "INTEGER" - 651$ if f$type(mdef_'i') .eqs. "INTEGER" -
@@ -670,7 +670,7 @@ $ endif
670$ return 670$ return
671$!------------------------------------------------------------------------------ 671$!------------------------------------------------------------------------------
672$! 672$!
673$! Analyze Object files for OpenVMS AXP to extract Procedure and Data 673$! Analyze Object files for OpenVMS AXP to extract Procedure and Data
674$! information to build a symbol vector for a shareable image 674$! information to build a symbol vector for a shareable image
675$! All the "brains" of this logic was suggested by Hartmut Becker 675$! All the "brains" of this logic was suggested by Hartmut Becker
676$! (Hartmut.Becker@compaq.com). All the bugs were introduced by me 676$! (Hartmut.Becker@compaq.com). All the bugs were introduced by me
@@ -683,10 +683,10 @@ $! 0.02 20041109 Fix option file for shareable images with case_sensitive=YES
683$! 0.03 20050107 Skip over Identification labels in option file 683$! 0.03 20050107 Skip over Identification labels in option file
684$! 0.04 20060117 Add uppercase alias to code compiled with /name=as_is 684$! 0.04 20060117 Add uppercase alias to code compiled with /name=as_is
685$! 685$!
686$ ANAL_OBJ_AXP: Subroutine 686$ ANAL_OBJ_AXP: Subroutine
687$ V = 'F$Verify(0) 687$ V = 'F$Verify(0)
688$ SAY := "WRITE_ SYS$OUTPUT" 688$ SAY := "WRITE_ SYS$OUTPUT"
689$ 689$
690$ IF F$SEARCH("''P1'") .EQS. "" 690$ IF F$SEARCH("''P1'") .EQS. ""
691$ THEN 691$ THEN
692$ SAY "ANAL_OBJ_AXP-E-NOSUCHFILE: Error, inputfile ''p1' not available" 692$ SAY "ANAL_OBJ_AXP-E-NOSUCHFILE: Error, inputfile ''p1' not available"
@@ -765,15 +765,15 @@ $ if f$locate("=PROCEDURE)",raw_element) .lt. f$length(raw_element)
765$ then 765$ then
766$ name = f$element(1,"=",raw_element) - "(" 766$ name = f$element(1,"=",raw_element) - "("
767$ if f$edit(name,"UPCASE") .nes. name then - 767$ if f$edit(name,"UPCASE") .nes. name then -
768 write case_vector f$fao(" symbol_vector=(!AS/!AS=PROCEDURE)", - 768 write case_vector f$fao(" symbol_vector=(!AS/!AS=PROCEDURE)", -
769 f$edit(name,"UPCASE"), name) 769 f$edit(name,"UPCASE"), name)
770$ endif 770$ endif
771$ if f$locate("=DATA)",raw_element) .lt. f$length(raw_element) 771$ if f$locate("=DATA)",raw_element) .lt. f$length(raw_element)
772$ then 772$ then
773$ name = f$element(1,"=",raw_element) - "(" 773$ name = f$element(1,"=",raw_element) - "("
774$ if f$edit(name,"UPCASE") .nes. name then - 774$ if f$edit(name,"UPCASE") .nes. name then -
775 write case_vector f$fao(" symbol_vector=(!AS/!AS=DATA)", - 775 write case_vector f$fao(" symbol_vector=(!AS/!AS=DATA)", -
776 f$edit(name,"UPCASE"), name) 776 f$edit(name,"UPCASE"), name)
777$ endif 777$ endif
778$ goto rawloop 778$ goto rawloop
779$ END_RAWLOOP: 779$ END_RAWLOOP:
@@ -785,7 +785,7 @@ $ if f$search("x.tmp") .nes. "" -
785$! 785$!
786$ EXIT_AA: 786$ EXIT_AA:
787$ if V then set verify 787$ if V then set verify
788$ endsubroutine 788$ endsubroutine
789$!------------------------------------------------------------------------------ 789$!------------------------------------------------------------------------------
790$! 790$!
791$! Write configuration to both permanent and temporary config file 791$! Write configuration to both permanent and temporary config file