wmi-1.3.16 from opsview.com

2019-02-16 00:16:52 +01:00
parent 163fdd3d1b
commit 17b3af2911
2146 changed files with 678824 additions and 0 deletions
@@ -0,0 +1,46 @@
+#!/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;
+
+open(IN, $in);
+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;
+	}
+}
+close 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";
+		}
+	} 
+}