|
@@ -1269,8 +1269,8 @@ sub process {
|
|
|
$ctx_ln++;
|
|
|
}
|
|
|
|
|
|
- ##print "realcnt<$realcnt> ctx_cnt<$ctx_cnt>\n";
|
|
|
- ##print "pre<$pre_ctx>\nline<$line>\nctx<$ctx>\nnext<$lines[$ctx_ln - 1]>\n";
|
|
|
+ #print "realcnt<$realcnt> ctx_cnt<$ctx_cnt>\n";
|
|
|
+ #print "pre<$pre_ctx>\nline<$line>\nctx<$ctx>\nnext<$lines[$ctx_ln - 1]>\n";
|
|
|
|
|
|
if ($ctx !~ /{\s*/ && defined($lines[$ctx_ln -1]) && $lines[$ctx_ln - 1] =~ /^\+\s*{/) {
|
|
|
ERROR("that open brace { should be on the previous line\n" .
|
|
@@ -1713,7 +1713,7 @@ sub process {
|
|
|
}
|
|
|
|
|
|
# Check for illegal assignment in if conditional.
|
|
|
- if ($line =~ /\bif\s*\(/) {
|
|
|
+ if ($line =~ /\b(?:if|while|for)\s*\(/ && $line !~ /^.\s*#/) {
|
|
|
my ($s, $c) = ($stat, $cond);
|
|
|
|
|
|
if ($c =~ /\bif\s*\(.*[^<>!=]=[^=].*/) {
|
|
@@ -1725,8 +1725,8 @@ sub process {
|
|
|
substr($s, 0, length($c), '');
|
|
|
$s =~ s/\n.*//g;
|
|
|
$s =~ s/$;//g; # Remove any comments
|
|
|
- if (length($c) && $s !~ /^\s*({|;|)\s*\\*\s*$/ &&
|
|
|
- $c !~ /^.\s*\#\s*if/)
|
|
|
+ if (length($c) && $s !~ /^\s*{?\s*\\*\s*$/ &&
|
|
|
+ $c !~ /}\s*while\s*/)
|
|
|
{
|
|
|
ERROR("trailing statements should be on next line\n" . $herecurr);
|
|
|
}
|