Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
GitUtils.pm	2.38 KB	-r--r--r--	2014-12-27 11:48
Glossary	205.51 KB	-r--r--r--	2014-12-27 11:49
Maintainers	194 B	-r--r--r--	2014-12-27 11:48
Maintainers.pl	45.95 KB	-r-xr-xr-x	2015-01-31 21:59
Maintainers.pm	8.68 KB	-r--r--r--	2014-12-27 11:48
README.pod	10.3 KB	-r--r--r--	2014-12-27 11:49
README.y2038	3.46 KB	-r--r--r--	2014-12-27 11:48
acknowledgements.pl	5.05 KB	-r--r--r--	2014-12-27 11:48
add-package.pl	17.12 KB	-r-xr-xr-x	2014-12-27 11:49
bisect-example.sh	1.25 KB	-r-xr-xr-x	2014-12-27 11:48
bisect-runner.pl	116.34 KB	-r-xr-xr-x	2014-12-27 11:49
bisect.pl	7.44 KB	-r-xr-xr-x	2014-12-27 11:49
bump-perl-version	9.93 KB	-r--r--r--	2014-12-27 11:49
check-cpan-pollution	6.24 KB	-r--r--r--	2014-12-27 11:48
check83.pl	2.22 KB	-r-xr-xr-x	2014-12-27 11:48
checkAUTHORS.pl	44.08 KB	-r-xr-xr-x	2014-12-27 11:49
checkURL.pl	15.01 KB	-r-xr-xr-x	2014-12-27 11:48
checkVERSION.pl	975 B	-r-xr-xr-x	2014-12-27 11:48
checkansi.pl	2 KB	-r-xr-xr-x	2014-12-27 11:48
checkcfgvar.pl	4.21 KB	-r-xr-xr-x	2014-12-27 11:49
checkpodencoding.pl	1.41 KB	-r-xr-xr-x	2014-12-27 11:48
cherrymaint	2.46 KB	-r--r--r--	2014-12-27 11:48
cmpVERSION.pl	6.84 KB	-r-xr-xr-x	2015-01-31 22:11
config.sh	36.38 KB	-r--r--r--	2015-01-28 21:08
config_H	142.35 KB	-r--r--r--	2015-01-28 21:08
config_h.pl	1.85 KB	-r-xr-xr-x	2014-12-27 11:48
core-cpan-diff	23.37 KB	-r--r--r--	2014-12-27 11:48
corecpan.pl	4.52 KB	-r-xr-xr-x	2014-12-27 11:48
corelist-diff	644 B	-r--r--r--	2014-12-27 11:48
corelist-perldelta.pl	30.44 KB	-r-xr-xr-x	2014-12-27 11:49
corelist.pl	15.51 KB	-r-xr-xr-x	2015-01-31 13:38
epigraphs.pod	128.86 KB	-r--r--r--	2015-02-01 03:54
exec-bit.txt	1.28 KB	-r--r--r--	2014-12-27 11:49
exercise_makedef.pl	2.27 KB	-r--r--r--	2014-12-27 11:48
expand-macro.pl	3.68 KB	-r-xr-xr-x	2014-12-27 11:48
findrfuncs	3.07 KB	-r-xr-xr-x	2014-12-27 11:48
git-deltatool	21.11 KB	-r--r--r--	2014-12-27 11:48
git-find-p4-change	905 B	-r--r--r--	2014-12-27 11:48
git-make-p4-refs	405 B	-r--r--r--	2014-12-27 11:48
how_to_write_a_perldelta.pod	7.83 KB	-r--r--r--	2014-12-27 11:48
leakfinder.pl	6.06 KB	-r--r--r--	2014-12-27 11:48
make-rmg-checklist	2.82 KB	-r--r--r--	2014-12-27 11:48
make_dot_patch.pl	1022 B	-r-xr-xr-x	2014-12-27 11:48
make_modlib_cpan.pl	1.93 KB	-r--r--r--	2014-12-27 11:48
make_snapshot.pl	2.33 KB	-r-xr-xr-x	2014-12-27 11:48
makemeta	3.29 KB	-r--r--r--	2014-12-27 11:49
makerel	6.88 KB	-r-xr-xr-x	2014-12-27 11:49
manicheck	644 B	-r--r--r--	2014-12-27 11:48
manisort	1.71 KB	-r--r--r--	2014-12-27 11:48
new-perldelta.pl	3.23 KB	-r--r--r--	2014-12-27 11:48
newtests-perldelta.pl	1.78 KB	-r-xr-xr-x	2014-12-27 11:48
perldelta_template.pod	9.35 KB	-r--r--r--	2015-01-28 21:08
perlhist_calculate.pl	2.65 KB	-r-xr-xr-x	2014-12-27 11:49
pod_lib.pl	17.62 KB	-r--r--r--	2014-12-27 11:49
pod_rules.pl	7.27 KB	-r--r--r--	2014-12-27 11:48
podtidy	303 B	-r--r--r--	2014-12-27 11:48
pumpkin.pod	51.48 KB	-r--r--r--	2014-12-27 11:49
release_announcement_template.txt	845 B	-r--r--r--	2015-01-15 22:12
release_managers_guide.pod	47.51 KB	-r--r--r--	2015-02-01 00:05
release_schedule.pod	3.39 KB	-r--r--r--	2015-01-31 17:19
rt_list_patches	678 B	-r--r--r--	2014-12-27 11:48
sort_perldiag.pl	1.38 KB	-r-xr-xr-x	2014-12-27 11:48
sync-with-cpan	11.7 KB	-r-xr-xr-x	2014-12-27 11:49
timecheck.c	3.52 KB	-r--r--r--	2014-12-27 11:48
timecheck2.c	2.69 KB	-r--r--r--	2014-12-27 11:48
todo.pod	47.26 KB	-r--r--r--	2015-01-28 21:08
valgrindpp.pl	9.44 KB	-r-xr-xr-x	2014-12-27 11:48

Rename

#!/usr/bin/perl

# Check that the various config.sh-clones have (at least) all the
# same symbols as the top-level config_h.SH so that the (potentially)
# needed symbols are not lagging after how Configure thinks the world
# is laid out.
#
# VMS is probably not handled properly here, due to their own
# rather elaborate DCL scripting.
#

use strict;
use warnings;
use autodie;

sub usage
{
    my $err = shift and select STDERR;
    print "usage: $0 [--list] [--regen] [--default=value]\n";
    exit $err;
    } # usage

use Getopt::Long;
my $opt_l = 0;
my $opt_r = 0;
my $default;
my $tap = 0;
my $test;
GetOptions (
    "help|?"	=> sub { usage (0); },
    "l|list!"	=> \$opt_l,
    "regen"	=> \$opt_r,
    "default=s" => \$default,
    "tap"	=> \$tap,
    ) or usage (1);

require 'regen/regen_lib.pl' if $opt_r;

my $MASTER_CFG = "config_h.SH";
# Inclusive bounds on the main part of the file, $section == 1 below:
my $first = qr/^Author=/;
my $last = qr/^zip=/;

my @CFG = (
	   # we check from MANIFEST whether they are expected to be present.
	   # We can't base our check on $], because that's the version of the
	   # perl that we are running, not the version of the source tree.
	   "Cross/config.sh-arm-linux",
	   "NetWare/config.wc",
	   "symbian/config.sh",
	   "uconfig.sh",
	   "uconfig64.sh",
	   "plan9/config_sh.sample",
	   "win32/config.gc",
	   "win32/config.vc",
	   "win32/config.ce",
	   "configure.com",
	   "Porting/config.sh",
	  );

my @MASTER_CFG;
{
    my %seen;
    open my $fh, '<', $MASTER_CFG;
    while (<$fh>) {
	while (/[^\\]\$([a-z]\w+)/g) {
	    my $v = $1;
	    next if $v =~ /^(CONFIG_H|CONFIG_SH)$/;
	    $seen{$v}++;
	}
    }
    close $fh;
    @MASTER_CFG = sort keys %seen;
}

my %MANIFEST;

{
    open my $fh, '<', 'MANIFEST';
    while (<$fh>) {
	$MANIFEST{$1}++ if /^(.+?)\t/;
    }
    close $fh;
}

printf "1..%d\n", 2 * @CFG if $tap;

for my $cfg (sort @CFG) {
    unless (exists $MANIFEST{$cfg}) {
	print STDERR "[skipping not-expected '$cfg']\n";
	next;
    }
    my %cfg;
    my $section = 0;
    my @lines;

open my $fh, '<', $cfg;

if ($cfg eq 'configure.com') {
	++$cfg{startperl}; # Cheat.

while (<$fh>) {
	    next if /^\#/ || /^\s*$/ || /^\:/;
	    s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
	    ++$cfg{$1} if /^\$\s+WC "(\w+)='(?:.*)'"$/;
	}
    } else {
	while (<$fh>) {
	    if ($_ =~ $first) {
		die "$cfg:$.:section=$section:$_" unless $section == 0;
		$section = 1;
	    }
	    push @{$lines[$section]}, $_;
	    next if /^\#/ || /^\s*$/ || /^\:/;
	    if ($_ =~ $last) {
		die "$cfg:$.:section=$section:$_" unless $section == 1;
		$section = 2;
	    }
	    # foo='bar'
	    # foo=bar
	    # (optionally with a trailing comment)
	    if (/^(\w+)=(?:'.*'|[^'].*)(?: #.*)?$/) {
		++$cfg{$1};
	    } else {
		warn "$cfg:$.:$_";
	    }
	}
    }
    close $fh;

++$test;
    my $missing;
    if ($cfg eq 'configure.com') {
	print "ok $test # skip $cfg doesn't need to be sorted\n"
	    if $tap;
    } elsif (join("", @{$lines[1]}) eq join("", sort @{$lines[1]})) {
	print "ok $test - $cfg sorted\n"
	    if $tap;
    } elsif ($tap) {
	print "not ok $test - $cfg is not sorted\n";
    } elsif ($opt_r || $opt_l) {
	# A reference to an empty array is true, hence this flags the
	# file for later attention by --regen and --list, even if
	# nothing is missing. Actual sort and output are done later.
	$missing = [];
    } else {
	print "$cfg: unsorted\n"
    }

for my $v (@MASTER_CFG) {
	# This only creates a reference in $missing if something is missing:
	push @$missing, $v unless exists $cfg{$v};
    }

++$test;
    if ($missing) {
	if ($tap) {
	    print "not ok $test - $cfg missing keys @$missing\n";
	} elsif ($opt_l) {
	    # print the name once, however many problems
	    print "$cfg\n";
	} elsif ($opt_r && $cfg ne 'configure.com') {
	    if (defined $default) {
		push @{$lines[1]}, map {"$_='$default'\n"} @$missing;
	    } else {
		print "$cfg: missing '$_', use --default to add it\n"
		    foreach @$missing;
	    }

@{$lines[1]} = sort @{$lines[1]};
	    my $fh = open_new($cfg);
	    print $fh @{$_} foreach @lines;
	    close_and_rename($fh);
	} else {
	    print "$cfg: missing '$_'\n" foreach @$missing;
	}
    } elsif ($tap) {
	print "ok $test - $cfg has no missing keys\n";
    }
}