mirror of
https://github.com/samba-team/samba.git
synced 2025-01-08 21:18:16 +03:00
e0469838c8
call it like:
script/find_unused_makefilevars.pl Makefile
or
script/find_unused_makefilevars.pl Makefile.in
metze
(This used to be commit ebecb6d05b)
46 lines
799 B
Perl
Executable File
46 lines
799 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Script that reads in Makefile.in and outputs the names of all
|
|
# used but undefined vars and all defined but unused vars
|
|
|
|
# Arguments:
|
|
# 1: Makefile.in
|
|
#
|
|
|
|
my %references;
|
|
my %defines;
|
|
|
|
# First, make a list of defines in configure
|
|
$in = shift;
|
|
|
|
open(IN, $in);
|
|
while(<IN>) {
|
|
my $line = $_;
|
|
while($line =~ /^\b([a-zA-Z0-9_][a-zA-Z0-9_]*)\b[ \t]*=.*/sgm) {
|
|
$defines{$1} = 1;
|
|
}
|
|
while($line =~ /\$\(([a-zA-Z0-9_][a-zA-Z0-9_]*)\)/sgm) {
|
|
$references{$1} = 1;
|
|
}
|
|
}
|
|
close IN;
|
|
|
|
print "##### DEFINED BUT UNUSED: #####\n";
|
|
foreach(%defines) {
|
|
# print $_." defined\n";
|
|
|
|
if ($_ != 1) {
|
|
if ($references{$_} != 1) {
|
|
print $_."\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
print "##### USED BUT UNDEFINED: #####\n";
|
|
foreach(%references) {
|
|
if ($_ != 1) {
|
|
if ($defines{$_} != 1) {
|
|
print $_."\n";
|
|
}
|
|
}
|
|
}
|