← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to source4/script/find_unused_makefilevars.pl

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
source4/script/find_unused_makefilevars.pl
 
1
#!/usr/bin/perl
 
2
# Script that reads in Makefile.in and outputs the names of all 
 
3
# used but undefined vars and all defined but unused vars 
 
4
# Copyright Jelmer Vernooij <jelmer@samba.org>
 
5
 
 
6
# Arguments:
 
7
#  1: Makefile.in
 
8
#
 
9
 
 
10
my %references;
 
11
my %defines;
 
12
 
 
13
# First, make a list of defines in configure
 
14
$in = shift;
 
15
 
 
16
sub process_file($)
 
17
{
 
18
        my ($fn) = @_;
 
19
        open(IN, $fn);
 
20
        while(<IN>) {
 
21
                my $line = $_;
 
22
                while($line =~ /^\b([a-zA-Z0-9_][a-zA-Z0-9_]*)\b[ \t]*=.*/sgm) {
 
23
                        $defines{$1} = 1;
 
24
                }
 
25
                while($line =~ /\$\(([a-zA-Z0-9_][a-zA-Z0-9_]*)\)/sgm) {
 
26
                        $references{$1} = 1;
 
27
                }
 
28
                while ($line =~ /^include (.*)/sgm) {
 
29
                        process_file($1);
 
30
                }
 
31
        }
 
32
        close IN;
 
33
}
 
34
 
 
35
process_file($in);
 
36
 
 
37
print "##### DEFINED BUT UNUSED: #####\n";
 
38
foreach(%defines) {
 
39
#    print $_." defined\n";
 
40
 
 
41
        if ($_ != 1) {
 
42
                if ($references{$_} != 1) {
 
43
                        print $_."\n";
 
44
                }
 
45
        } 
 
46
}
 
47
 
 
48
print "##### USED BUT UNDEFINED: #####\n";
 
49
foreach(%references) {
 
50
        if ($_ != 1) {
 
51
                if ($defines{$_} != 1) {
 
52
                        print $_."\n";
 
53
                }
 
54
        } 
 
55
}