|
@@ -9,6 +9,7 @@ if ($ARGV[0] =~ /^-/) {
|
|
|
for $fn (@ARGV) {
|
|
|
open(F, "$fn");
|
|
|
$lastnil = 0;
|
|
|
+ $lastline = "";
|
|
|
$incomment = 0;
|
|
|
while (<F>) {
|
|
|
## Warn about windows-style newlines.
|
|
@@ -27,6 +28,11 @@ 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/)) {
|
|
|
+ print " #else#if:$fn:$.\n";
|
|
|
+ }
|
|
|
+ $lastline = $_;
|
|
|
## Warn about multiple empty lines.
|
|
|
if ($lastnil && /^$/) {
|
|
|
print " DoubleNL:$fn:$.\n";
|