+ };
+ my $rows = $info->{list} or next;
+ $glyphs->print($title => [map {
+ my $ref = $_;
+ my $lead = s/^(-)// && $1;
+ (map { ".>$lead$_" }
+ $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+ ),
+ @{ $info->{table}->{$ref} || [] }
+ } @{$rows}]);