$glyphs->{style} = 0;
}
-my %scriptname = (
- latn => 'Latin',
- latnuc => 'Uppercase',
- latnlc => 'Lowercase',
- latfsuet => 'Sütterlin',
- asl => '<abbr title="American Sign Lanugage">ASL</abbr>', # American manual alphabet
- brai => 'Braille',
- morse => 'Morse',
- tap => 'Tap code',
- taps => 'Tap simplified',
- ics => 'Maritime flags', # International Code of Signals
- sem => 'Flag semaphore',
- rm4scc => '<abbr title="Royal Mail 4-State Customer Code">RM4SCC</abbr>',
-);
-
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
printf "<p class=error>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
}
else {
print $glyphs->table([map {
- ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
+ ref $_ ne 'ARRAY' ? ".>$_"
: exists $get{uc} ? map {uc} @$_ : @$_
} @table]);
}