diff options
author | Wayne Davison <wayned@samba.org> | 2007-11-11 22:51:50 -0800 |
---|---|---|
committer | Wayne Davison <wayned@samba.org> | 2007-11-11 22:51:50 -0800 |
commit | c5d77e9659bb40db09376beb31ba9d23396ae601 (patch) | |
tree | 54631317f9176999857c1b2c5326ca22f4b043d7 | |
parent | 2909586ede1934c36e43e176909c36998279b2a2 (diff) | |
download | android_external_rsync-c5d77e9659bb40db09376beb31ba9d23396ae601.tar.gz android_external_rsync-c5d77e9659bb40db09376beb31ba9d23396ae601.tar.bz2 android_external_rsync-c5d77e9659bb40db09376beb31ba9d23396ae601.zip |
Including my extern-squishing script, which just found an
extraneous extern in exclude.c.
-rw-r--r-- | exclude.c | 1 | ||||
-rwxr-xr-x | support/extern-squish | 18 |
2 files changed, 18 insertions, 1 deletions
@@ -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; + } +} |