4 # Check that the various config.sh-clones have (at least) all the
5 # same symbols as the top-level config_h.SH so that the (potentially)
6 # needed symbols are not lagging after how Configure thinks the world
9 # VMS is probably not handled properly here, due to their own
10 # rather elaborate DCL scripting.
15 my $MASTER_CFG = "config_h.SH";
19 # This list contains both 5.8.x and 5.9.x files,
20 # we check from MANIFEST whether they are expected to be present.
21 # We can't base our check on $], because that's the version of the
22 # perl that we are running, not the version of the source tree.
23 "Cross/config.sh-arm-linux",
28 "plan9/config_sh.sample",
29 "vos/config.alpha.def",
34 "win32/config.gc64nox",
44 if (open(my $fh, $fn)) {
50 die "$0: Failed to open '$fn' for reading: $!\n";
54 sub config_h_SH_reader {
57 while (/[^\\]\$([a-z]\w+)/g) {
59 next if $v =~ /^(CONFIG_H|CONFIG_SH)$/;
65 read_file($MASTER_CFG,
66 config_h_SH_reader(\%MASTER_CFG));
72 $MANIFEST{$1}++ if /^(.+?)\t/;
75 my @MASTER_CFG = sort keys %MASTER_CFG;
79 for my $v (@MASTER_CFG) {
80 print "$fn: missing '$v'\n" unless exists $cfg->{$v};
85 unless (exists $MANIFEST{$cfg}) {
86 print STDERR "[skipping not-expected '$cfg']\n";
92 return if /^\#/ || /^\s*$/ || /^\:/;
93 if ($cfg eq 'configure.com') {
94 s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
95 return if ! /^\$\s+WC "(\w+)='(.*)'"$/;
99 # $foo='bar' # VOS 5.8.x specialty
100 # $foo=bar # VOS 5.8.x specialty
101 if (/^\$?(\w+)='(.*)'$/) {
104 elsif (/^\$?(\w+)=(.*)$/) {
107 elsif (/^\$\s+WC "(\w+)='(.*)'"$/) {
113 if ($cfg eq 'configure.com') {
114 $cfg{startperl}++; # Cheat.
116 check_cfg($cfg, \%cfg);