Moving some files from support into packaging.

[rsync/rsync.git] / support / extern-squish

diff --git a/support/extern-squish b/support/extern-squish
deleted file mode 100755 (executable)
index eb8b32e..0000000
--- a/support/extern-squish
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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;
-    }
-}