summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
324f8aa)
Parse digraphs.inc.pl classes for Xz for now.
my ($class, $name, $mnem, $html, $string) = @$info;
print "<td>$_" for sprintf('%X', $codepoint), EscapeHTML($name || '?');
printf '<td class="%s">%s', @$_ for (
my ($class, $name, $mnem, $html, $string) = @$info;
print "<td>$_" for sprintf('%X', $codepoint), EscapeHTML($name || '?');
printf '<td class="%s">%s', @$_ for (
- [$ascii ? 'l0' : defined $mnem ? 'l4' : 'l1', $mnem // ''],
+ [$ascii ? 'l0' : defined $mnem ? $class =~ /\bu-di\b/ ? 'l4' : 'l3' : 'l1', $mnem // ''],
[$ascii ? 'l0' : defined $html ? 'l4' : 'l1', $html // ''],
(map {
!$font{$_}->{-id} ? [l0 => '?'] :
[$ascii ? 'l0' : defined $html ? 'l4' : 'l1', $html // ''],
(map {
!$font{$_}->{-id} ? [l0 => '?'] :
my $di = do $_ or die "Error reading digraphs file $_: ", $@ || $!;
while (my ($mnem, $cp) = each %$di) {
length $mnem == 2 or next; # limit to digraphs
my $di = do $_ or die "Error reading digraphs file $_: ", $@ || $!;
while (my ($mnem, $cp) = each %$di) {
length $mnem == 2 or next; # limit to digraphs
- $cp = chr $cp->[0] if ref $cp; # old style array
+ my $class = $diinc{$_};
+ if (ref $cp) {
+ # old style array
+ $class = 'u-prop' if $cp->[2] and $cp->[2] =~ m/\bXz\b/;
+ $cp = chr $cp->[0];
+ }
$info{$cp}->{di} //= $mnem;
$info{$cp}->{di} //= $mnem;
- $info{$cp}->{class}->{$_}++ for $diinc{$_};
+ $info{$cp}->{class}->{$class}++;