#!/usr/bin/perl

$err=0;

while (<mp/*.mp>) {
  $fname=$_;
  open(MP,$_);

  $csc_blank=0;
  $lineno=0;
  $ferr=0;

  while (<MP>) {
    $lineno++;
    if (/[\x80-\xFF]/) {
      $err++;
      $ferr++;
      print "non-ASCII at $fname:$lineno:\n$_";
    }
  }

  print "\n" if $ferr;

  close(MP);
}

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