--- quilt-0.32/scripts/dependency-graph	2004-06-04 23:07:29.000000000 -0500
+++ dependency-graph	2004-06-04 23:37:30.000000000 -0500
@@ -19,6 +19,7 @@
 
 # Command line arguments
 my $help = 0;
+my $use_patcher = 0;		# Assume patcher format for metadata
 my $short_edge_thresh = 0;	# threshold for coloring as "short", 0 = disable
 my $long_edge_thresh = 0;	# threshold for coloring as "long",0 = disable
 my $edge_labels;		# label all edges with filenames
@@ -35,6 +36,7 @@
 
 unless (GetOptions(
 	"h|help"		=> \$help,
+	"patcher"		=> \$use_patcher,
 	"short-edge=i"		=> \$short_edge_thresh,
 	"long-edge=i"		=> \$long_edge_thresh,
 	"edge-files"		=> \$edge_labels,
@@ -52,11 +54,15 @@
     $basename =~ s:.*/::;
     my $fd = $help ? *STDOUT : *STDERR;
     print $fd <<EOF;
-SYNOPSIS: $basename [-h] [--short-edge=num] [--long-edge=num]
+SYNOPSIS: $basename [-h] [--patcher] [--short-edge=num] [--long-edge=num]
 	  [--short-edge-files] [--long-edge-files] [--edge-length]
 	  [--node-numbers] [--isolated] [--reduce] [--filter-patchnames=filter]
 	  [--select-patch=patch] [--select-distance=num] [--highlight=patch]
 
+--patcher
+	Assume patch manager is Holger Schurig's patcher script instead
+	of the default quilt.
+
 --short-edge=num, --long-edge=num
 	Define the maximum edge length of short edges, and minimum edge
 	length of long edges. Short edges are de-emphasized, and long
@@ -109,6 +115,13 @@
     } else {
 	@patches = @ARGV;
     }
+} elsif ($use_patcher) {
+    #since patcher maintains a file called patchname.files,
+    #we can generate the graph for patches which are not applied!
+    my $fh = new FileHandle("< .patches/series")
+	or die ".patches/applied: $!\n";
+    @patches = map { chomp; $_ } <$fh>;
+    $fh->close();
 } else {
     my $fh = new FileHandle("< .pc/applied-patches")
 	or die ".pc/applied-patches: $!\n";
@@ -120,12 +133,20 @@
 my @nodes;
 my $n = 0;
 foreach my $patch (@patches) {
-    if (! -d ".pc/$patch") {
-	print STDERR ".pc/$patch does not exist; skipping\n";
-	next;
+    my @files;
+    if ($use_patcher) {
+	my $fh = new FileHandle("< .patches/$patch.files")
+	    or die ".patches/$patch.files: $!\n";
+	@files = map { chomp; $_ } <$fh>;
+	$fh->close();
+    } else {
+	if (! -d ".pc/$patch") {
+	    print STDERR ".pc/$patch does not exist; skipping\n";
+	    next;
+	}
+	@files = split(/\n/, `cd .pc/$patch ; find -type f ! -name .timestamp`);
+	@files = map { s:\./::; $_ } @files;
     }
-    my @files = split(/\n/, `cd .pc/$patch ; find -type f ! -name .timestamp`);
-    @files = map { s:\./::; $_ } @files;
     push @nodes, {number=>$n++, name=>$patch, file=>$patch, files=>[ @files ] };
 }