From c5d77e9659bb40db09376beb31ba9d23396ae601 Mon Sep 17 00:00:00 2001
From: Wayne Davison <wayned@samba.org>
Date: Sun, 11 Nov 2007 22:51:50 -0800
Subject: [PATCH 1/1] Including my extern-squishing script, which just found an
 extraneous extern in exclude.c.

---
 exclude.c             |  1 -
 support/extern-squish | 18 ++++++++++++++++++
 2 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100755 support/extern-squish

diff --git a/exclude.c b/exclude.c
index f1c4fdf2..467731c4 100644
--- a/exclude.c
+++ b/exclude.c
@@ -26,7 +26,6 @@ extern int verbose;
 extern int am_server;
 extern int am_sender;
 extern int eol_nulls;
-extern int recurse;
 extern int io_error;
 extern int local_server;
 extern int prune_empty_dirs;
diff --git a/support/extern-squish b/support/extern-squish
new file mode 100755
index 00000000..eb8b32e1
--- /dev/null
+++ b/support/extern-squish
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+# This script finds extraneous "extern" variables in the *.c files.
+# Run it from inside the main rsync directory.
+
+use strict;
+
+my @files = glob('*.c');
+
+foreach my $fn (@files) {
+    open(IN, '<', $fn) or die;
+    undef $/; $_ = <IN>; $/ = "\n";
+    close IN;
+    my @externs = /^extern .*?([^[\s(*;&.]+)(?:\[.*?\])?;/mg;
+    foreach my $find (@externs) {
+	my @matches = /(?<!\sstruct )\b(\Q$find\E)\b/g;
+	print $fn, ': ', $find, "\n" if @matches == 1;
+    }
+}
-- 
2.34.1