my $anno = '';
for (@{ $self->{anno} }) {
- if ($_ eq 'di') {
+ if ($_ eq 'html') {
+ require HTML::Entities;
+ if (my $_ = $HTML::Entities::char2entity{$cell}) {
+ $anno = sprintf(' <small class="digraph">%s</small>', EscapeHTML($_));
+ last;
+ }
+ }
+ elsif ($_ eq 'xml') {
+ require HTML::Entities;
+ $anno = sprintf(' <small class="digraph">%s</small>',
+ sprintf "&#%d;", ord($cell)
+ );
+ last;
+ }
+ elsif ($_ eq 'di') {
if (defined $mnem and length $mnem) {
$anno = sprintf(' <small class="digraph">%s</small>', EscapeHTML($mnem));
last;
if (exists $get{q}) {
$glyphs->{anno} = [];
}
+if (exists $get{html}) {
+ $glyphs->{anno} = ['html', 'xml'];
+}
our $verbose = exists $get{v};