From 70618d8bdca57a5503a388eba21c068a61df5b4e Mon Sep 17 00:00:00 2001
From: Patrick McDermott <patrick.mcdermott@libiquity.com>
Date: Fri, 28 Jun 2019 00:05:11 -0400
Subject: Mark leaf packages

Technically in graph theory these are called "source" nodes/vertices,
but that's confusing in package management terminology.
---
diff --git a/bin/depsdot b/bin/depsdot
index 6522432..411af57 100755
--- a/bin/depsdot
+++ b/bin/depsdot
@@ -16,6 +16,7 @@ my @IGNORE_DEPS = qw(libc.6);
 my @src_pkgs;
 my %bin_src_map;
 my %rdeps_graph;
+my %non_leaf_src_pkgs;
 my %deps_graph;
 
 sub read_list
@@ -67,6 +68,7 @@ sub main
 			my @dep_srcs = keys(%{$bin_src_map{$dep_bin}});
 			foreach my $dep_src (@dep_srcs) {
 				next if $dep_src eq $src;
+				$non_leaf_src_pkgs{$dep_src} = 1;
 				$deps_graph{$src}{$dep_src} = scalar(@dep_srcs);
 			}
 		}
@@ -77,7 +79,11 @@ sub main
 		"digraph deps {\n\toverlap = false;\n\tsplines = true;\n" .
 		"\tlayout = \"neato\";\n\n\t/* Source packages */\n");
 	foreach my $src (sort(@src_pkgs)) {
-		STDOUT->print("\t\"" . $src . "\";\n");
+		my $attr = '';
+		if (not defined($non_leaf_src_pkgs{$src})) {
+			$attr = ' [style=filled,fillcolor="#C0C0C0"]';
+		}
+		STDOUT->print("\t\"" . $src . '"' . $attr . ";\n");
 	}
 	STDOUT->print("\n\t/* Dependencies */\n");
 	foreach my $src (sort(keys(%deps_graph))) {
--
cgit v0.9.1