Reorganisation of the source tree

[ghc-hetmet.git] / utils / parallel / ghc-unfool-sort.pl

diff --git a/utils/parallel/ghc-unfool-sort.pl b/utils/parallel/ghc-unfool-sort.pl
new file mode 100644 (file)
index 0000000..90da222
--- /dev/null
+++ b/utils/parallel/ghc-unfool-sort.pl
@@ -0,0 +1,16 @@
+##############################################################################
+#
+# Usage: unfool-sort 
+#
+# Reads stdin, elimininates the second field (a dummy counter that has been 
+# inserted by fool-sort) of each line and writes the result to stdout.
+# See documentation of fool-sort.
+#
+##############################################################################
+
+while (<STDIN>) {
+    ($time, $dummy, @rest) = split;
+    print join(' ',$time,@rest) . "\n";
+}
+
+exit 0;