correct multiple internal spaces

svn:r3004

1 files changed, 12 insertions, 12 deletions

diff --git a/contrib/checkSpace.pl b/contrib/checkSpace.pl
index f64a22fb9b..8724250bc2 100755
--- a/contrib/checkSpace.pl
+++ b/contrib/checkSpace.pl
@@ -40,13 +40,13 @@ for $fn (@ARGV) {
 	    }
 	}
 	if (m!/\*.*?\*/!) {
-	    s!/\*.*?\*/!!;
+	    s!\s*/\*.*?\*/!!;
 	} elsif (m!/\*!) {
-	    s!/\*!!;
+	    s!\s*/\*!!;
 	    $incomment = 1;
 	    next;
 	}
-	s!"(?:[^\"]+|\\.)*"!!g;
+	s!"(?:[^\"]+|\\.)*"!"X"!g;
 	next if /^\#/;
 	## Warn about C++-style comments.
 	if (m!//!) {
@@ -57,16 +57,8 @@ for $fn (@ARGV) {
 	if (/([^\s])\{/) {
 	    print "       $1\{:$fn:$.\n";
 	}
-	## Warn about function calls with space before parens.
-	if (/(\w+)\s\(/) {
-	    if ($1 ne "if" and $1 ne "while" and $1 ne "for" and 
-		$1 ne "switch" and $1 ne "return" and $1 ne "int" and 
-                $1 ne "void" and $1 ne "__attribute__") {
-		print "     fn ():$fn:$.\n";
-	    }
-	}
 	## Warn about multiple internal spaces.
-	#if (/\S\s{2,}[^\s\\]/) {
+	#if (/[^\s,:]\s{2,}[^\s\\=]/) {
 	#    print "     X  X:$fn:$.\n";
 	#}
 	## Warn about { with stuff after.
@@ -74,6 +66,14 @@ for $fn (@ARGV) {
 	#if (/\{[^\}\\]+$/) {
 	#    print "     {X:$fn:$.\n";
 	#}
+	## Warn about function calls with space before parens.
+	if (/(\w+)\s\(/) {
+	    if ($1 ne "if" and $1 ne "while" and $1 ne "for" and 
+		$1 ne "switch" and $1 ne "return" and $1 ne "int" and 
+                $1 ne "void" and $1 ne "__attribute__") {
+		print "     fn ():$fn:$.\n";
+	    }
+	}
     }
     close(F);
 }