$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) {
}
}
## 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;