|
@@ -36,11 +36,11 @@ for $fn (@ARGV) {
|
|
|
$lastnil = 0;
|
|
|
}
|
|
|
## Terminals are still 80 columns wide in my world. I refuse to
|
|
|
- ## accept double-line lines.
|
|
|
- if (/^.{80}/) {
|
|
|
+ ## accept double-line lines. Except, of course, svn Id tags
|
|
|
+ ## can make us go long.
|
|
|
+ if (/^.{80}/ && !/\$Id: /) {
|
|
|
print " Wide:$fn:$.\n";
|
|
|
}
|
|
|
-
|
|
|
### Juju to skip over comments and strings, since the tests
|
|
|
### we're about to do are okay there.
|
|
|
if ($C) {
|
|
@@ -88,11 +88,10 @@ for $fn (@ARGV) {
|
|
|
}
|
|
|
}
|
|
|
## Warn about functions not declared at start of line.
|
|
|
- if ($in_func_head ||
|
|
|
+ if ($in_func_head ||
|
|
|
($fn !~ /\.h$/ && /^[a-zA-Z0-9_]/ &&
|
|
|
! /^(?:static )?(?:typedef|struct|union)[^\(]*$/ &&
|
|
|
! /= *\{$/ && ! /;$/)) {
|
|
|
-
|
|
|
if (/.\{$/){
|
|
|
print "fn() {:$fn:$.\n";
|
|
|
$in_func_head = 0;
|