diff options
| -rw-r--r-- | utils/spore2dot.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/utils/spore2dot.pl b/utils/spore2dot.pl index 63d15a8..f7e0e7e 100644 --- a/utils/spore2dot.pl +++ b/utils/spore2dot.pl @@ -93,7 +93,7 @@ foreach my $spec (@specs) { } print "}\"];\n\n"; - my $note = $spec->{description} || $spec->{meta}->{documentation}; + my $note = $spec->{description}; if ($note && $ENV{SPORE_NOTES}) { $note =~ s/\n/\\n/g; print " \"__note__", $name, "\"\n"; @@ -102,6 +102,15 @@ foreach my $spec (@specs) { print " \"", $name, "\" -> \"__note__", $name, "\"\n"; print " [arrowhead = none, arrowtail = none, style = dashed];\n\n"; } + my $doc = $spec->{meta}->{documentation}; + if ($doc && $ENV{SPORE_NOTES}) { + $doc =~ s/\n/\\n/g; + print " \"__doc__", $name, "\"\n"; + print " [label=\"", $doc, "\" shape=note];\n\n"; + + print " \"", $name, "\" -> \"__doc__", $name, "\"\n"; + print " [arrowhead = none, arrowtail = none, style = dashed];\n\n"; + } } print "}\n"; |