#!/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;
    }
}