diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2014-08-30 01:50:35 +0200 |
---|---|---|
committer | David Disseldorp <ddiss@samba.org> | 2014-08-31 21:21:13 +0200 |
commit | b97248297c332aa15c9d30393ee498782241259e (patch) | |
tree | f5a591e74e22f17c78119370839274945c5795e8 /source4/script | |
parent | f8ec0f98072e6646e204b4c90f5f6ad250b5dd5d (diff) | |
download | samba-b97248297c332aa15c9d30393ee498782241259e.tar.gz |
source4: Remove script to find unused makefile variables.
Signed-Off-By: Jelmer Vernooij <jelmer@samba.org>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Diffstat (limited to 'source4/script')
-rwxr-xr-x | source4/script/find_unused_makefilevars.pl | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/source4/script/find_unused_makefilevars.pl b/source4/script/find_unused_makefilevars.pl deleted file mode 100755 index 23fc36ef6a5..00000000000 --- a/source4/script/find_unused_makefilevars.pl +++ /dev/null @@ -1,55 +0,0 @@ -#!/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 -# Copyright Jelmer Vernooij <jelmer@samba.org> - -# Arguments: -# 1: Makefile.in -# - -my %references; -my %defines; - -# First, make a list of defines in configure -$in = shift; - -sub process_file($) -{ - my ($fn) = @_; - open(IN, $fn); - 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; - } - while ($line =~ /^include (.*)/sgm) { - process_file($1); - } - } - close IN; -} - -process_file($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"; - } - } -} |