diff options
| author | Patrick McDermott <patrick.mcdermott@libiquity.com> | 2019-06-27 21:04:03 (EDT) |
|---|---|---|
| committer | Patrick McDermott <patrick.mcdermott@libiquity.com> | 2019-06-27 23:23:44 (EDT) |
| commit | f3efc9915f1daa1b5a627babc945d364b6592a6d (patch) | |
| tree | 941c2870e17892baf5e432b6d1bd5f2e5610dded | |
| parent | a4f616cef42aedb7db142376b1e33c8480149280 (diff) | |
Lighten deps on multiple possible source packages
For example, the lilo binary package depends on config-lilo, currently
built by the config-ao751h, config-dimension2400, and config-x60 source
packages. Lighten the color of the dependencies of the lilo source
package on these config-* packages.
| -rwxr-xr-x[-rw-r--r--] | bin/depsdot | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/bin/depsdot b/bin/depsdot index a7be98f..79c4a53 100644..100755 --- a/bin/depsdot +++ b/bin/depsdot @@ -61,16 +61,21 @@ sub main STDOUT->print("digraph deps {\n"); foreach my $dep_bin (keys(%rdeps_graph)) { foreach my $src (keys(%{$rdeps_graph{$dep_bin}})) { - foreach my $dep_src (keys(%{$bin_src_map{$dep_bin}})) { + my @dep_srcs = keys(%{$bin_src_map{$dep_bin}}); + foreach my $dep_src (@dep_srcs) { next if $dep_src eq $src; - $deps_graph{$src}{$dep_src} = 1; + $deps_graph{$src}{$dep_src} = scalar(@dep_srcs); } } } foreach my $src (sort(keys(%deps_graph))) { foreach my $dep_src (sort(keys(%{$deps_graph{$src}}))) { + my $attr = ''; + if ($deps_graph{$src}{$dep_src} gt 1) { + $attr = ' [color="#808080"]'; + } STDOUT->print("\t\"" . $src . '" -> "' . $dep_src . - "\";\n"); + '"' . $attr . ";\n"); } } STDOUT->print("}\n"); |