From a80e0cb4c231d44d218cc3964debf70c74b6032a Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 24 Jun 2005 22:49:14 +0000
Subject: r7891: Improve output of unused macro find script Remove duplicate
 find-missing-doc script (already in samba-docs repository) (This used to be
 commit aa5ade43427eaa38e0d0a1d3d7880246b7f8152d)

---
 source4/script/find_unused_macros.pl | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

(limited to 'source4/script/find_unused_macros.pl')

diff --git a/source4/script/find_unused_macros.pl b/source4/script/find_unused_macros.pl
index 5c04b1fd88..697afcd1a9 100755
--- a/source4/script/find_unused_macros.pl
+++ b/source4/script/find_unused_macros.pl
@@ -3,30 +3,36 @@
 # it defines that are used nowhere in the code
 
 # Arguments: C and H files
+# Copyright Jelmer Vernooij <jelmer@samba.org>, GPL
 
-my %defined,%used,%files;
+use strict;
 
-$in = shift;
+my %defined;
+my %used;
+my %files;
 
+my $tmp;
 while($tmp = shift) { 
 	$files{$tmp} = $tmp;
 	open(FI, $tmp);
+	my $ln = 0;
 	while(<FI>) { 
-		$line = $_;
-		$cur = "";
+		$ln++;
+		my $line = $_;
+		my $cur = "";
 		if(/^#define ([A-Za-z0-9_]+)/) {
-			$defined{$1} = $tmp;
+			$defined{$1} = "$tmp:$ln";
 			$cur = $1;
 		}
 
 		$_ = $line;
 		while(/([A-Za-z0-9_]+)/sgm) { 
-			if($cur cmp $1) { $used{$1} = $tmp; }
+			if($cur ne $1) { $used{$1} = "$tmp:$ln"; }
 		}
 	}
 	close FI;
 }
 
 foreach(keys %defined) {
-	if(!$used{$_}) { print "$_\n"; }
+	if(!$used{$_}) { print "$defined{$_}: Macro `$_' is unused\n"; }
 }
-- 
cgit