X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=build%2Fmergedeps;fp=build%2Fmergedeps;h=e1c467d2f12d9d0a73574fa59f3c091cdea33008;hb=6121d80a1e22dcbca7c4010772447d8a4c11fec1;hp=0000000000000000000000000000000000000000;hpb=314afcc0500a95c818dadbb68db72954cf4145b4;p=leo.git

diff --git a/build/mergedeps b/build/mergedeps
new file mode 100755
index 0000000..e1c467d
--- /dev/null
+++ b/build/mergedeps
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+@ARGV == 2 or die "Usage: mergedeps <base> <update>";
+foreach $a (@ARGV) {
+	open F, "$a" or next;
+	$t = "";
+	while (<F>) {
+		$t .= $_;
+		if (! /\\$/) {
+			($t =~ /^(.*):/) || die "Parse error at $t";
+			$rules{$1} = $t;
+			$t = "";
+		}
+	}
+	close F;
+}
+open(F,">" . $ARGV[0]) || die "Unable to write output file";
+foreach $a (sort keys %rules) {
+	print F $rules{$a};
+}
+close F;