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",
57 "win32/config.gc64nox",
68 open my $fh, '<', $MASTER_CFG;
70 while (/[^\\]\$([a-z]\w+)/g) {
72 next if $v =~ /^(CONFIG_H|CONFIG_SH)$/;
77 @MASTER_CFG = sort keys %seen;
83 open my $fh, '<', 'MANIFEST';
85 $MANIFEST{$1}++ if /^(.+?)\t/;
90 printf "1..%d\n", 2 * @CFG if $tap;
92 for my $cfg (sort @CFG) {
93 unless (exists $MANIFEST{$cfg}) {
94 print STDERR "[skipping not-expected '$cfg']\n";
101 open my $fh, '<', $cfg;
103 if ($cfg eq 'configure.com') {
104 ++$cfg{startperl}; # Cheat.
107 next if /^\#/ || /^\s*$/ || /^\:/;
108 s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
109 ++$cfg{$1} if /^\$\s+WC "(\w+)='(?:.*)'"$/;
114 die "$cfg:$.:section=$section:$_" unless $section == 0;
117 push @{$lines[$section]}, $_;
118 next if /^\#/ || /^\s*$/ || /^\:/;
120 die "$cfg:$.:section=$section:$_" unless $section == 1;
125 # (optionally with a trailing comment)
126 if (/^(\w+)=(?:'.*'|[^'].*)(?: #.*)?$/) {
137 if ($cfg eq 'configure.com') {
138 print "ok $test # skip $cfg doesn't need to be sorted\n"
140 } elsif (join("", @{$lines[1]}) eq join("", sort @{$lines[1]})) {
141 print "ok $test - $cfg sorted\n"
144 print "not ok $test - $cfg is not sorted\n";
145 } elsif ($opt_r || $opt_l) {
146 # A reference to an empty array is true, hence this flags the
147 # file for later attention by --regen and --list, even if
148 # nothing is missing. Actual sort and output are done later.
151 print "$cfg: unsorted\n"
154 for my $v (@MASTER_CFG) {
155 # This only creates a reference in $missing if something is missing:
156 push @$missing, $v unless exists $cfg{$v};
162 print "not ok $test - $cfg missing keys @$missing\n";
164 # print the name once, however many problems
166 } elsif ($opt_r && $cfg ne 'configure.com') {
167 if (defined $default) {
168 push @{$lines[1]}, map {"$_='$default'\n"} @$missing;
170 print "$cfg: missing '$_', use --default to add it\n"
174 @{$lines[1]} = sort @{$lines[1]};
175 my $fh = open_new($cfg);
176 print $fh @{$_} foreach @lines;
177 close_and_rename($fh);
179 print "$cfg: missing '$_'\n" foreach @$missing;
182 print "ok $test - $cfg has no missing keys\n";