diff options
| -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"); |