chop;

#!/usr/local/bin/perl

$prevline = "";
@badlines = ();
$prevbad = 0;
while (<>) {
chop;

push (@badlines, $_) if $prevbad;
$prevbad = 0;
next if /\s*#/;
next if /.*\}\s*$/;
next if /.*\{\s*$/;
next if /.*,\s*$/;
next if /^\s*$/;

if (!/.*;\s*$/) {
push (@badlines, $_);
$prevbad = 1;
}
}

$even = 0;
foreach $line (@badlines) {
if ($even) {
$ok = 0;
if ($line =~ /.*;\s*$/ && $line =~ /^\s*if/) {
$ok = 1;
}
if (! $ok) {
print "---\n";
print $prevline, "\n";
print $line, "\n";
}

$even = 0;
} else {
$even = 1;
$prevline = $line;
}
}