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

Useful when a known file just doesn't comply and there's no intention to
make it do so.

diff --git a/lib/checksrc.pl b/lib/checksrc.pl
index aa06e84c5dd0517be36fdae572b633a2344e8009..c1056d26c1da666074444cbf3d8237403d07ddf1 100755 (executable)
--- a/lib/checksrc.pl
+++ b/lib/checksrc.pl
@@ -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(.*)/) {
-    $dir = $1;
-    $file = shift @ARGV;
+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);