#!/usr/bin/perl

$err=0;

while (<mp/*.mp>) {
  $fname=$_;
  open(MP,$_);
  while (<MP>) {
    if (/^\s*perl_structure\s*:=/) {
      # skip

    } elsif ($expecting ne '') {
      if ($_ ne "  push_pbox_toexpand(\"$expecting\");\n") {
        print "$fname:\n$prev_line$_\n";
        $err=1;
      }
      undef $expecting;

    } elsif (/^\s*vardef\s+(kanji\.\S+)\s*=/) {
      $prev_line=$_;
      $expecting=$1;
    }
  }
  close(MP);
}

if ($err) {
  exit(1);
}
