summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-x[-rw-r--r--]bin/depsdot11
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");