- if (defined $mnem) {
- push @class, 'di-d'; # digraph
- push @class, 'di-prop' if $class =~ /\bXz\b/; # unofficial
+ if ($self->{style} eq 'univer') {
+ push @class, $self->glyph_level_univer($input);
+ next;
+ }
+
+ my $codepoint = ord $input;
+ if ($self->{style} eq 'di') {
+ if ($mnem and $mnem =~ /…/) {
+ # incomplete representation, usually partial
+ }
+ elsif ($class =~ /\bu-di\b/) {
+ push @class, ('l4', 'u-di'); # standard digraph
+ }
+ elsif ($class =~ /\bu-prop\b/) {
+ push @class, ('l3', 'u-prop'); # unofficial
+ }
+ }
+ elsif ($self->{style} eq 'html') {
+ if (defined $entity) {
+ push @class, ($codepoint <= 0xFF ? 'l4' : 'l3', 'u-html');
+ }
+ }
+ else {
+ if ($codepoint <= 0xFF) {
+ push @class, 'l4', 'u-lat1'; # latin1
+ }
+ elsif ($codepoint <= 0xD7FF) {
+ push @class, 'l3', 'u-bmp'; # bmp
+ }