diff options
Diffstat (limited to 'make_vms.com')
-rw-r--r-- | make_vms.com | 36 |
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 | ||
399 | OBJS = adler32.obj, compress.obj, crc32.obj, gzclose.obj, gzio.obj, gzlib.obj\ | 399 | OBJS = 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 |