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",
53 "plan9/config_sh.sample",
64 open my $fh, '<', $MASTER_CFG;
66 while (/[^\\]\$([a-z]\w+)/g) {
68 next if $v =~ /^(CONFIG_H|CONFIG_SH)$/;
73 @MASTER_CFG = sort keys %seen;
79 open my $fh, '<', 'MANIFEST';
81 $MANIFEST{$1}++ if /^(.+?)\t/;
86 printf "1..%d\n", 2 * @CFG if $tap;
88 for my $cfg (sort @CFG) {
89 unless (exists $MANIFEST{$cfg}) {
90 print STDERR "[skipping not-expected '$cfg']\n";
97 open my $fh, '<', $cfg;
99 if ($cfg eq 'configure.com') {
100 ++$cfg{startperl}; # Cheat.
103 next if /^\#/ || /^\s*$/ || /^\:/;
104 s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
105 ++$cfg{$1} if /^\$\s+WC "(\w+)='(?:.*)'"$/;
110 die "$cfg:$.:section=$section:$_" unless $section == 0;
113 push @{$lines[$section]}, $_;
114 next if /^\#/ || /^\s*$/ || /^\:/;
116 die "$cfg:$.:section=$section:$_" unless $section == 1;
121 # (optionally with a trailing comment)
122 if (/^(\w+)=(?:'.*'|[^'].*)(?: #.*)?$/) {
133 if ($cfg eq 'configure.com') {
134 print "ok $test # skip $cfg doesn't need to be sorted\n"
136 } elsif (join("", @{$lines[1]}) eq join("", sort @{$lines[1]})) {
137 print "ok $test - $cfg sorted\n"
140 print "not ok $test - $cfg is not sorted\n";
141 } elsif ($opt_r || $opt_l) {
142 # A reference to an empty array is true, hence this flags the
143 # file for later attention by --regen and --list, even if
144 # nothing is missing. Actual sort and output are done later.
147 print "$cfg: unsorted\n"
150 for my $v (@MASTER_CFG) {
151 # This only creates a reference in $missing if something is missing:
152 push @$missing, $v unless exists $cfg{$v};
158 print "not ok $test - $cfg missing keys @$missing\n";
160 # print the name once, however many problems
162 } elsif ($opt_r && $cfg ne 'configure.com') {
163 if (defined $default) {
164 push @{$lines[1]}, map {"$_='$default'\n"} @$missing;
166 print "$cfg: missing '$_', use --default to add it\n"
170 @{$lines[1]} = sort @{$lines[1]};
171 my $fh = open_new($cfg);
172 print $fh @{$_} foreach @lines;
173 close_and_rename($fh);
175 print "$cfg: missing '$_'\n" foreach @$missing;
178 print "ok $test - $cfg has no missing keys\n";