1 files changed, 14 insertions, 0 deletions
diff --git a/tools/gencompss b/tools/gencompss
new file mode 100755
index 000000000..b26ef7c2c
--- /dev/null
+++ b/tools/gencompss
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+open F, "bzip2 -dc @ARGV 2>/dev/null | hdlist2groups - |";
+foreach (<F>) {
+    chop;
+    /(.*):(.*)/;
+    push @{$l{$2}}, $1;
+}
+close F or die;
+foreach (sort keys %l) {
+    print "$_\n";
+    print "\t$_\n" foreach sort @{$l{$_}};
+    print "\n";
+}