samba-mirror/source4/script/find_unused_macros.pl

#!/usr/bin/perl
# Script that reads in configure and outputs the names of all the defines 
# it defines that are used nowhere in the code

# Arguments: C and H files

my %defined,%used,%files;

$in = shift;

while($tmp = shift) { 
	$files{$tmp} = $tmp;
	open(FI, $tmp);
	while(<FI>) { 
		$line = $_;
		$cur = "";
		if(/^#define ([A-Za-z0-9_]+)/) {
			$defined{$1} = $tmp;
			$cur = $1;
		}

		$_ = $line;
		while(/([A-Za-z0-9_]+)/sgm) { 
			if($cur cmp $1) { $used{$1} = $tmp; }
		}
	}
	close FI;
}

foreach(keys %defined) {
	if(!$used{$_}) { print "$_\n"; }
}