#!/usr/bin/perl

$err=0;

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

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

  while (<MP>) {
    $lineno++;
    if (/\S/) {
      if ($csc_blank>1) {
        $err++;
        $ferr++;
        print "$csc_blank consecutive blank lines at $fname:$lineno\n";
      }
      $csc_blank=0;
    } else {
      $csc_blank=0;
    }

    if (/%{20}/ && ($_ ne ("%"x77)."\n")) {
      $err++;
      $ferr++;
      print "bad percent line at $fname:$lineno\n";
    }

    if (/[^\n]{78}/) {
      $err++;
      $ferr++;
      print "long line at $fname:$lineno:\n$_";
    }
  }
  if ($csc_blank>1) {
    $err++;
    $ferr++;
    print "$csc_blank consecutive blank lines at $fname:END\n";
  }

  print "\n" if $ferr;

  close(MP);
}

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