[PATCH 01] source4: Remove script to find unused makefile variables.

Jelmer Vernooij jelmer at samba.org
Fri Aug 29 17:50:35 MDT 2014


Signed-Off-By: Jelmer Vernooij <jelmer at samba.org>

---
 source4/script/find_unused_makefilevars.pl | 55 ------------------------------
 1 file changed, 55 deletions(-)
 delete mode 100755 source4/script/find_unused_makefilevars.pl

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



More information about the samba-technical mailing list