summaryrefslogtreecommitdiff
path: root/source4/script/find_unused_defines.pl
diff options
context:
space:
mode:
Diffstat (limited to 'source4/script/find_unused_defines.pl')
-rwxr-xr-xsource4/script/find_unused_defines.pl30
1 files changed, 0 insertions, 30 deletions
diff --git a/source4/script/find_unused_defines.pl b/source4/script/find_unused_defines.pl
deleted file mode 100755
index def1bd159f..0000000000
--- a/source4/script/find_unused_defines.pl
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-# Script that reads in configure and outputs the names of all the defines
-# it defines that are used nowhere in the code
-
-# Arguments:
-# 1: configure.in
-# 2: C files pattern
-
-my %symbols;
-
-# First, make a list of defines in configure
-$in = shift;
-
-while($tmp = shift) {
- open(FI, $tmp);
- while(<FI>) {
- while(/([A-Za-z0-9_]+)/sgm) {
- $symbols{$1} = 1;
- }
- }
- close FI;
-}
-
-open(IN, $in) or die("Can't open $in");
-
-while(<IN>) {
- if(/AC_DEFINE\(([^,]+),/ and $symbols{$1} != 1) { print "$1\n"; }
-}
-
-close IN;