[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