use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
-my %oslist = (
- win95 => [qw( arial ariuni verdana times courier )], # microsoft
- mac10 => [qw( lucida garamond )], # apple
- android => [qw( roboto noto )], # google
- oss => [qw( dvsans c2k unifont )],
-);
-my @ossel = qw( win95 mac10 oss android );
-my @fontlist = map { @{ $oslist{$_} } } @ossel;
-
my $cover = do 'unicode-cover.inc.pl' or die $@ || $!;
+my @ossel = @{ $cover->{osdefault} };
+my @fontlist = map { @{ $cover->{os}->{$_} } } @ossel;
+
my @rows = (
'block/Latin-1 Supplement',
'block/Latin Extended-A',
'table/punctuation',
'block/Dingbats',
'table/symbols',
+ 'category/Sc', # currency
'table/math',
+ 'category/Sm', # mathematical
'table/arrows/single',
'table/lines/single',
'table/block',
'table/html',
);
-for my $group ($ENV{PATH_INFO} || ()) {
+if (my $group = $ENV{PATH_INFO}) {
$group =~ s{^/}{};
my $grouprows = $cover->{$group}
or die "Unknown character category $_\n";
print '<table class=mapped>';
print '<col><col>';
-print "<colgroup span=$_>" for map { scalar @{$oslist{$_}} } @ossel;
+print "<colgroup span=$_>"
+ for map { scalar @{ $cover->{os}->{$_} } } @ossel;
print '<thead><tr>';
print '<th colspan=2>';
-printf '<th colspan=%d>%s fonts', scalar @{ $oslist{$_} }, $_ for @ossel;
+printf '<td colspan=%d>%s fonts', scalar @{ $cover->{os}->{$_} }, $_
+ for @ossel;
print '<tr>';
print '<th colspan=2>';
-printf '<td>%s', $_ for @fontlist;
+printf '<td title="%s">%s', $_->{name}, $_->{abbr}
+ for @{ $cover->{fonts} }[@fontlist];
say '</thead>';
for (@rows) {
print '<tr>';
$name = sprintf '<a href="%s">%s</a>', EncodeURI("/chars/$group/$name"), EscapeHTML($name)
- if $row->{-count} and $row->{-count} < 1280;
+ if $row->{count} and $row->{count} < 1280;
print '<th>', $name;
- print '<td class=right>', $row->{-count};
- for (@fontlist) {
- my $count = $row->{$_};
+ print '<td class=right>', $row->{count};
+ for my $count (@{ $row->{support} }[@fontlist]) {
if (not defined $count) {
print '<td class="l0">?';
next;
print '<td class="l1">✘';
next;
}
- if ($count == $row->{-count}) {
+ if ($count == $row->{count}) {
print '<td class="l5">✔';
next;
}
- my $rel = $count / $row->{-count};
+ my $rel = $count / $row->{count};
my $class = $rel < .5 ? 2 : $rel < .9 ? 3 : 4;
printf '<td class="%s">%d%%', "l$class", $rel*100;
}