From 18011f2e9d699e37c6da8bec2d02de2b84a96a85 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Mar 2000 14:35:23 +0000
Subject: no_comment

---
 tools/Makefile  |  3 +++
 tools/gencompss | 14 ++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100755 tools/gencompss

(limited to 'tools')

diff --git a/tools/Makefile b/tools/Makefile
index 7c6281459..bece8e754 100644
--- a/tools/Makefile
+++ b/tools/Makefile
@@ -24,6 +24,9 @@ xhost+: %: %.c
 ddcprobe/ddcxinfos:
 	$(MAKE) -C ddcprobe ddcxinfos
 
+$(BASE)/compss: $(BASE)/hdlists $(BASE)/hdlist.cz2
+	./gencompss `cat $< | perl -pe 's|(.*)|'$(BASE)'/$$1|' ` > $@ 
+
 $(BASE)/depslist: $(BASE)/hdlists $(BASE)/hdlist.cz2
 	gendepslist2 -o $@ `cat $< | perl -pe 's|(.*)|'$(BASE)'/$$1|' `
 
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";
+}
-- 
cgit v1.2.1