diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/depsdot | 8 |
1 files changed, 7 insertions, 1 deletions
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))) { |