samba /source4/script/findstatic.pl

Language Perl Lines 71
MD5 Hash 20371234525f14ed8ed014b3b1c6adad Estimated Cost $1,212 (why?)
Repository git://github.com/ccrisan/samba.git View Raw File
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
#!/usr/bin/perl -w
# find a list of fns and variables in the code that could be static
# usually called with something like this:
#    findstatic.pl `find . -name "*.o"`
# Andrew Tridgell <tridge@samba.org>

use strict;

# use nm to find the symbols
my($saved_delim) = $/;
undef $/;
my($syms) = `nm -o @ARGV`;
$/ = $saved_delim;

my(@lines) = split(/\n/s, $syms);

my(%def);
my(%undef);
my(%stype);

my(%typemap) = (
	       "T" => "function",
	       "C" => "uninitialised variable",
	       "D" => "initialised variable"
		);


# parse the symbols into defined and undefined 
for (my($i)=0; $i <= $#{@lines}; $i++) {
	my($line) = $lines[$i];
	if ($line =~ /(.*):[a-f0-9]* ([TCD]) (.*)/) {
		my($fname) = $1;
		my($symbol) = $3;
		push(@{$def{$fname}}, $symbol);
		$stype{$symbol} = $2;
	}
	if ($line =~ /(.*):\s* U (.*)/) {
		my($fname) = $1;
		my($symbol) = $2;
		push(@{$undef{$fname}}, $symbol);
	}
}

# look for defined symbols that are never referenced outside the place they 
# are defined
foreach my $f (keys %def) {
	print "Checking $f\n";
	my($found_one) = 0;
	foreach my $s (@{$def{$f}}) {
		my($found) = 0;
		foreach my $f2 (keys %undef) {
			if ($f2 ne $f) {
				foreach my $s2 (@{$undef{$f2}}) {
					if ($s2 eq $s) {
						$found = 1;
						$found_one = 1;
					}
				}
			}
		}
		if ($found == 0) {
			my($t) = $typemap{$stype{$s}};
			print "  '$s' is unique to $f  ($t)\n";
		}
	}
	if ($found_one == 0) {
		print "  all symbols in '$f' are unused (main program?)\n";
	}
}
Back to Top