autobuild: send email failure if rebase fails
[samba.git] / script / configure_check_unused.pl
1 #!/usr/bin/perl
2 # Script that finds macros in a configure script that are not 
3 # used in a set of C files.
4 # Copyright Jelmer Vernooij <jelmer@samba.org>, GPL
5 #
6 # Usage: ./$ARGV[0] configure.in [c-files...]
7
8 use strict;
9
10 sub autoconf_parse($$$$)
11 {
12         my $in = shift;
13         my $defines = shift;
14         my $functions = shift;
15         my $headers = shift;
16
17         open(IN, $in) or die("Can't open $in");
18
19         my $ln = 0;
20
21         foreach(<IN>) {
22                 $ln++;
23
24                 if(/AC_DEFINE\(([^,]+),/) { 
25                         $defines->{$1} = "$in:$ln";
26                 } 
27         
28                 if(/AC_CHECK_FUNCS\(\[*(.[^],)]+)/) {
29                         foreach(split / /, $1) { 
30                                 $functions->{$_} = "$in:$ln";
31                         }
32                 }
33
34                 if(/AC_CHECK_FUNC\(([^,)]+)/) {
35                         $functions->{$1} = "$in:$ln";
36                 }
37
38                 if(/AC_CHECK_HEADERS\(\[*([^],)]+)/) {
39                         foreach(split / /, $1) { 
40                                 $headers->{$_} = "$in:$ln";
41                         }
42                 }
43
44                 if(/AC_CHECK_HEADER\(([^,)]+)/) {
45                         $headers->{$1} = "$in:$ln";
46                 }
47
48                 if(/sinclude\(([^,]+)\)/) {
49                         autoconf_parse($1, $defines, $functions, $headers);
50                 }
51         }
52
53         close IN;
54 }
55
56 # Return the symbols and headers used by a C file
57 sub cfile_parse($$$)
58 {
59         my $in = shift;
60         my $symbols = shift;
61         my $headers = shift;
62
63         open(FI, $in) or die("Can't open $in");
64         my $ln = 0;     
65         my $line;
66         while($line = <FI>) { 
67                 $ln++;
68                 $_ = $line;
69                 if (/\#([ \t]*)include ["<]([^">]+)/) { 
70                         $headers->{$2} = "$in:$ln";
71                 }
72
73                 $_ = $line;
74                 while(/([A-Za-z0-9_]+)/g) { 
75                         $symbols->{$1} = "$in:$ln";
76                 }
77         }
78         close FI;
79 }
80
81 my %ac_defines = ();
82 my %ac_func_checks = ();
83 my %ac_headers = ();
84 my %symbols = ();
85 my %headers = ();
86
87 if (scalar(@ARGV) <= 1) {
88         print("Usage: configure_find_unused.pl configure.in [CFILE...]\n");
89         exit 0;
90 }
91
92 autoconf_parse(shift(@ARGV), \%ac_defines, \%ac_func_checks, \%ac_headers);
93 cfile_parse($_, \%symbols, \%headers) foreach(@ARGV);
94
95 (keys %ac_defines) or warn("No defines found in configure.in file, parse error?");
96
97 foreach (keys %ac_defines) {
98         if (not defined($symbols{$_})) {
99                 print "$ac_defines{$_}: Autoconf-defined $_ is unused\n";
100         }
101 }
102
103 (keys %ac_func_checks) or warn("No function checks found in configure.in file, parse error?");
104
105 foreach (keys %ac_func_checks) {
106         my $def = "HAVE_".uc($_);
107         if (not defined($symbols{$_})) {
108                 print "$ac_func_checks{$_}: Autoconf-checked function `$_' is unused\n";
109         } elsif (not defined($symbols{$def})) {
110                 print "$ac_func_checks{$_}: Autoconf-define `$def' for function `$_' is unused\n";
111         }
112 }
113
114 (keys %ac_headers) or warn("No headers found in configure.in file, parse error?");
115
116 foreach (keys %ac_headers) {
117         my $def = "HAVE_".uc($_);
118         $def =~ s/[\/\.]/_/g;
119         if (not defined($headers{$_})) {
120                 print "$ac_headers{$_}: Autoconf-checked header `$_' is unused\n";
121         } elsif (not defined($symbols{$def})) {
122                 print "$ac_headers{$_}: Autoconf-define `$def' for header `$_' is unused\n"; 
123         }
124 }