[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / interpreter / test / typechecker / fix

diff --git a/ghc/interpreter/test/typechecker/fix b/ghc/interpreter/test/typechecker/fix
new file mode 100644 (file)
index 0000000..a182498
--- /dev/null
+++ b/ghc/interpreter/test/typechecker/fix
@@ -0,0 +1,24 @@
+#! /usr/bin/perl -i.bak
+
+while (<>) {
+    # Insert header line
+    if ($ARGV ne $oldargv) {
+       $ARGV =~ /\d+/;
+       $filenum = $&;
+       print <<EOTXT;
+Reading file "test/typechecker/t$filenum.hs":
+EOTXT
+        $oldargv = $ARGV;
+    }
+
+    # Make this script idempotent
+    next if /^Reading file "test\/typechecker\/t\d+\.hs":/;
+
+    # Fix error messages
+    s#test/T[A-Za-z0-9]*\.hs#test/typechecker/t$filenum.hs#g;
+
+    # Delete trailing line
+    s/^Hugs:\[Leaving Hugs\]\n//;
+
+    print;
+}