ghc/interpreter/test/runtime/fix

   1 #! /usr/bin/perl -i.bak
   2
   3 while (<>) {
   4     # Insert header line
   5     if ($ARGV ne $oldargv) {
   6         $ARGV =~ /\d+/;
   7         $filenum = $&;
   8         print <<EOTXT;
   9 Reading file "test/runtime/r$filenum.hs":
  10 EOTXT
  11         $oldargv = $ARGV;
  12     }
  13
  14     # Make this script idempotent
  15     next if /^Reading file "test\/runtime\/r\d+\.hs":/;
  16
  17     # Fix error messages
  18     s#test/[A-Za-z]+\d+\.hs#test/runtime/r$filenum.hs#g;
  19
  20     # Delete trailing line
  21     s/^Hugs:\[Leaving Hugs\]\n//;
  22
  23     print;
  24 }