summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
e3e4c29)
Prevent unicode planes from affecting other tables.
0x0000 => [0x008, 'X Po', 'ascii'],
0x0008 => [0x020, 'X L Latin', 'latin'],
0x0028 => [0x010, 'X Mn', 'diac', 'diacritics'], # also spacing Sk
0x0000 => [0x008, 'X Po', 'ascii'],
0x0008 => [0x020, 'X L Latin', 'latin'],
0x0028 => [0x010, 'X Mn', 'diac', 'diacritics'], # also spacing Sk
# bmp
0x0000 => [0x02, 'X Cc joinr', 'control'],
0x0002 => [0x02, 'X L Po joinl joinr', 'comn'],
# bmp
0x0000 => [0x02, 'X Cc joinr', 'control'],
0x0002 => [0x02, 'X L Po joinl joinr', 'comn'],
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
my $cols = 16; # columns
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
my $cols = 16; # columns
-my $colsize = 1; # increment per column
# generate character table(s)
# (~16x faster than decoding in loop;
# generate character table(s)
# (~16x faster than decoding in loop;
$row{set} = 'Unicode planes';
$row{cell} = do 'charset-ucplanes.inc.pl'
or Alert('Table data could not be read', $@ || $!);
$row{set} = 'Unicode planes';
$row{cell} = do 'charset-ucplanes.inc.pl'
or Alert('Table data could not be read', $@ || $!);
$cols *= 2;
}
elsif ($row{set} = Encode::resolve_alias($input)) {
$cols *= 2;
}
elsif ($row{set} = Encode::resolve_alias($input)) {
my $def = $table->{$offset} or return;
my ($len, $class, $name, $title) = @{$def};
my $def = $table->{$offset} or return;
my ($len, $class, $name, $title) = @{$def};
+ my $colsize = $table->{colsize} || 1;
my $attr = '';
$len /= $colsize;
$name //= $len <= 2 ? 'res' : 'reserved';
my $attr = '';
$len /= $colsize;
$name //= $len <= 2 ? 'res' : 'reserved';
}
for my $row (@request) {
}
for my $row (@request) {
+ my $colsize = $row->{cell} && $row->{cell}->{colsize} || 1;
printf '<div class="section"><table class="glyphs%s">', !$row->{cell} && ' charmap';
my $title = $row->{set};
$title .= " <aside>($_)</aside>" for $row->{setnote} // ();
printf '<div class="section"><table class="glyphs%s">', !$row->{cell} && ' charmap';
my $title = $row->{set};
$title .= " <aside>($_)</aside>" for $row->{setnote} // ();