This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Even better configure.com handling for checkcfgvar.pl
[perl5.git] / Porting / checkcfgvar.pl
CommitLineData
522c08cc
RGS
1#!/usr/bin/perl -w
2
3#
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
7# is laid out.
8#
a0e39d89
AT
9# VMS is probably not handled properly here, due to their own
10# rather elaborate DCL scripting.
522c08cc
RGS
11#
12
13use strict;
14
15my $MASTER_CFG = "config_h.SH";
16my %MASTER_CFG;
17
18my @CFG = (
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 "Cross/config.sh-arm-linux",
22 "epoc/config.sh",
23 "NetWare/config.wc",
24 "symbian/config.sh",
25 "uconfig.sh",
26 "plan9/config_sh.sample",
27 "vos/config.alpha.def",
28 "vos/config.ga.def",
29 "win32/config.bc",
30 "win32/config.gc",
31 "win32/config.vc",
6ab0e26e 32 "win32/config.vc64",
26d21fa1 33 "win32/config.ce",
522c08cc 34 "wince/config.ce",
a0e39d89 35 "configure.com",
522c08cc
RGS
36 );
37
38sub read_file {
39 my ($fn, $sub) = @_;
40 if (open(my $fh, $fn)) {
41 local $_;
42 while (<$fh>) {
43 &$sub;
44 }
45 } else {
46 die "$0: Failed to open '$fn' for reading: $!\n";
47 }
48}
49
50sub config_h_SH_reader {
51 my $cfg = shift;
52 return sub {
53 return if 1../^echo \"Extracting \$CONFIG_H/;
54 while (/[^\\]\$(\w+)/g) {
55 my $v = $1;
56 next if $v =~ /^(CONFIG_H|CONFIG_SH)$/;
57 $cfg->{$v}++;
58 }
59 }
60}
61
62read_file($MASTER_CFG,
63 config_h_SH_reader(\%MASTER_CFG));
64
65my %MANIFEST;
66
67read_file("MANIFEST",
68 sub {
69 $MANIFEST{$1}++ if /^(.+?)\t/;
70 });
71
72my @MASTER_CFG = sort keys %MASTER_CFG;
73
74sub check_cfg {
75 my ($fn, $cfg) = @_;
76 for my $v (@MASTER_CFG) {
77 print "$fn: missing '$v'\n" unless exists $cfg->{$v};
78 }
79}
80
81for my $cfg (@CFG) {
82 unless (exists $MANIFEST{$cfg}) {
83 print "[skipping not-expected '$cfg']\n";
84 next;
85 }
86 my %cfg;
87 read_file($cfg,
88 sub {
89 return if /^\#/ || /^\s*$/;
0ae3ae8f 90 if ($cfg eq 'configure.com') {
c526aa63 91 s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
0ae3ae8f
CB
92 return if ! /^\$\s+WC "(\w+)='(.*)'"$/;
93 }
522c08cc
RGS
94 # foo='bar'
95 # foo=bar
96 # $foo='bar' # VOS 5.8.x specialty
97 # $foo=bar # VOS 5.8.x specialty
98 if (/^\$?(\w+)='(.*)'$/) {
99 $cfg{$1}++;
100 }
101 elsif (/^\$?(\w+)=(.*)$/) {
102 $cfg{$1}++;
a0e39d89 103 }
b89d399a 104 elsif (/^\$\s+WC "(\w+)='(.*)'"$/) {
a0e39d89 105 $cfg{$1}++;
522c08cc
RGS
106 } else {
107 warn "$cfg:$.:$_";
108 }
109 });
110 check_cfg($cfg, \%cfg);
111}