moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

checksrc: add -W to allow a file to be whitelisted

Browse Source 
Useful when a known file just doesn't comply and there's no intention to
make it do so.
This commit is contained in:
Daniel Stenberg 2011-04-25 22:43:02 +02:00
parent 889d1e973f
commit 6a6981503e
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/checksrc.pl
View File

@ -28,6 +28,7 @@ my $warnings;
my $errors;
my $file;
my $dir=".";
my $wlist;
sub checkwarn {
my ($num, $col, $file, $line, $msg, $error) = @_;
@ -53,21 +54,35 @@ sub checkwarn {
$file = shift @ARGV;
if($file =~ /-D(.*)/) {
while(1) {
if($file =~ /-D(.*)/) {
$dir = $1;
$file = shift @ARGV;
next;
}
elsif($file =~ /-W(.*)/) {
$wlist = $1;
$file = shift @ARGV;
next;
}
last;
}
if(!$file) {
print "checksrc.pl [option] <file1> [file2] ...\n";
print " Options:\n";
print " -D[DIR] Directory to prepend file names\n";
print " -W[file] Whitelist the given file - ignore all its flaws\n";
exit;
}
do {
scanfile("$dir/$file");
if($file ne "$wlist") {
scanfile("$dir/$file");
}
$file = shift @ARGV;
} while($file);