[p5sagit/p5-mst-13.2.git] / Porting / checkARGS_ASSERT.pl

#!/usr/bin/perl -w
use strict;

# Print out any PERL_ARGS_ASSERT* macro that was declared but not used.

my %declared;
my %used;

open my $fh, '<', 'proto.h' or die "Can't open proto.h: $!";
while (<$fh>) {
    $declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z_]+)\s+/;
}

if (!@ARGV) {
    open my $fh, '<', 'MANIFEST' or die "Can't open MANIFEST: $!";
    while (<$fh>) {
	# *.c or */*.c
	push @ARGV, $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
    }
}

while (<>) {
    $used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z_]+);$/;
}

my %unused;

foreach (keys %declared) {
    $unused{$_}++ unless $used{$_};
}

print $_, "\n" foreach sort keys %unused;
Commit	Line	Data
7918f24d	1	#!/usr/bin/perl -w
	2	use strict;
	3
	4	# Print out any PERL_ARGS_ASSERT* macro that was declared but not used.
	5
	6	my %declared;
	7	my %used;
	8
	9	open my $fh, '<', 'proto.h' or die "Can't open proto.h: $!";
	10	while (<$fh>) {
	11	$declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z_]+)\s+/;
	12	}
	13
	14	if (!@ARGV) {
	15	open my $fh, '<', 'MANIFEST' or die "Can't open MANIFEST: $!";
	16	while (<$fh>) {
	17	# .c or /*.c
	18	push @ARGV, $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
	19	}
	20	}
	21
	22	while (<>) {
	23	$used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z_]+);$/;
	24	}
	25
	26	my %unused;
	27
	28	foreach (keys %declared) {
	29	$unused{$_}++ unless $used{$_};
	30	}
	31
	32	print $_, "\n" foreach sort keys %unused;