Commit f7c6ad06 authored by Nick Mathewson's avatar Nick Mathewson 🤹
Browse files

correct multiple internal spaces


svn:r3004
parent 6f5dbefa
Loading
Loading
Loading
Loading
+12 −12
Original line number Diff line number Diff line
@@ -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);
}
+2 −2

File changed.

Contains only whitespace changes.

+1 −1

File changed.

Contains only whitespace changes.