source4: Remove script to find unused makefile variables.
authorJelmer Vernooij <jelmer@samba.org>
Fri, 29 Aug 2014 23:50:35 +0000 (01:50 +0200)
committerDavid Disseldorp <ddiss@samba.org>
Sun, 31 Aug 2014 19:21:13 +0000 (21:21 +0200)
Signed-Off-By: Jelmer Vernooij <jelmer@samba.org>
Reviewed-by: David Disseldorp <ddiss@samba.org>
source4/script/find_unused_makefilevars.pl [deleted file]

diff --git a/source4/script/find_unused_makefilevars.pl b/source4/script/find_unused_makefilevars.pl
deleted file mode 100755 (executable)
index 23fc36e..0000000
+++ /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";
-               }
-       } 
-}