mirror of
https://github.com/RsyncProject/rsync.git
synced 2026-01-20 21:08:06 -05:00
19 lines
479 B
Perl
Executable File
19 lines
479 B
Perl
Executable File
#!/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;
|
|
}
|
|
}
|