From 6a6981503e509a2bfcec0763535c0f667e23ce38 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 25 Apr 2011 22:43:02 +0200
Subject: 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.
---
 lib/checksrc.pl | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/lib/checksrc.pl b/lib/checksrc.pl
index aa06e84c5..c1056d26c 100755
--- 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);
-- 
cgit v1.2.3