3 # Check that the various config.sh-clones have (at least) all the
4 # same symbols as the top-level config_h.SH so that the (potentially)
5 # needed symbols are not lagging after how Configure thinks the world
8 # VMS is probably not handled properly here, due to their own
9 # rather elaborate DCL scripting.
18 my $err = shift and select STDERR;
19 print "usage: $0 [--list] [--regen] [--default=value]\n";
30 "help|?" => sub { usage (0); },
33 "default=s" => \$default,
37 require 'regen/regen_lib.pl' if $opt_r;
39 my $MASTER_CFG = "config_h.SH";
40 # Inclusive bounds on the main part of the file, $section == 1 below:
41 my $first = qr/^Author=/;
45 # we check from MANIFEST whether they are expected to be present.
46 # We can't base our check on $], because that's the version of the
47 # perl that we are running, not the version of the source tree.
48 "Cross/config.sh-arm-linux",
54 "plan9/config_sh.sample",
67 open my $fh, '<', $MASTER_CFG;
69 while (/[^\\]\$([a-z]\w+)/g) {
71 next if $v =~ /^(CONFIG_H|CONFIG_SH)$/;
76 @MASTER_CFG = sort keys %seen;
82 open my $fh, '<', 'MANIFEST';
84 $MANIFEST{$1}++ if /^(.+?)\t/;
89 printf "1..%d\n", 2 * @CFG if $tap;
91 for my $cfg (sort @CFG) {
92 unless (exists $MANIFEST{$cfg}) {
93 print STDERR "[skipping not-expected '$cfg']\n";
100 open my $fh, '<', $cfg;
102 if ($cfg eq 'configure.com') {
103 ++$cfg{startperl}; # Cheat.
106 next if /^\#/ || /^\s*$/ || /^\:/;
107 s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
108 ++$cfg{$1} if /^\$\s+WC "(\w+)='(?:.*)'"$/;
113 die "$cfg:$.:section=$section:$_" unless $section == 0;
116 push @{$lines[$section]}, $_;
117 next if /^\#/ || /^\s*$/ || /^\:/;
119 die "$cfg:$.:section=$section:$_" unless $section == 1;
124 # (optionally with a trailing comment)
125 if (/^(\w+)=(?:'.*'|[^'].*)(?: #.*)?$/) {
136 if ($cfg eq 'configure.com') {
137 print "ok $test # skip $cfg doesn't need to be sorted\n"
139 } elsif (join("", @{$lines[1]}) eq join("", sort @{$lines[1]})) {
140 print "ok $test - $cfg sorted\n"
143 print "not ok $test - $cfg is not sorted\n";
144 } elsif ($opt_r || $opt_l) {
145 # A reference to an empty array is true, hence this flags the
146 # file for later attention by --regen and --list, even if
147 # nothing is missing. Actual sort and output are done later.
150 print "$cfg: unsorted\n"
153 for my $v (@MASTER_CFG) {
154 # This only creates a reference in $missing if something is missing:
155 push @$missing, $v unless exists $cfg{$v};
161 print "not ok $test - $cfg missing keys @$missing\n";
163 # print the name once, however many problems
165 } elsif ($opt_r && $cfg ne 'configure.com') {
166 if (defined $default) {
167 push @{$lines[1]}, map {"$_='$default'\n"} @$missing;
169 print "$cfg: missing '$_', use --default to add it\n"
173 @{$lines[1]} = sort @{$lines[1]};
174 my $fh = open_new($cfg);
175 print $fh @{$_} foreach @lines;
176 close_and_rename($fh);
178 print "$cfg: missing '$_'\n" foreach @$missing;
181 print "ok $test - $cfg has no missing keys\n";