|
@@ -28,11 +28,15 @@ for $fn (@ARGV) {
|
|
|
if ($C && /\s(?:if|while|for|switch)\(/) {
|
|
|
print " KW(:$fn:$.\n";
|
|
|
}
|
|
|
- ## Warn about #else #if instead of #elif.
|
|
|
- if (($lastline =~ /^\# *else/) and ($_ =~ /^\# *if/)) {
|
|
|
+ ## Warn about #else #if instead of #elif.
|
|
|
+ if (($lastline =~ /^\# *else/) and ($_ =~ /^\# *if/)) {
|
|
|
print " #else#if:$fn:$.\n";
|
|
|
- }
|
|
|
- $lastline = $_;
|
|
|
+ }
|
|
|
+ $lastline = $_;
|
|
|
+ ## Warn about unnecessary empty lines.
|
|
|
+ if ($lastnil && /^\s*}\n/) {
|
|
|
+ print " UnnecNL:$fn:$.\n";
|
|
|
+ }
|
|
|
## Warn about multiple empty lines.
|
|
|
if ($lastnil && /^$/) {
|
|
|
print " DoubleNL:$fn:$.\n";
|