$glyphs->{digraph}--;
}
+my %scriptname = (
+ arab => 'Arabic',
+ armi => 'Aramaic',
+ bali => 'Balinese',
+ beng => 'Bengali',
+ brah => 'Brahmi',
+ cham => 'Cham',
+ copt => 'Coptic',
+ cyrl => 'Cyrillic',
+ deva => 'Devanagari',
+ ethi => 'Ethiopic',
+ goth => 'Gothic',
+ grek => 'Greek',
+ gujr => 'Gujarati',
+ guru => 'Gurmukhi', # ਪੰਜਾਬੀ ੧
+ hans => 'Chinese',
+ hant => 'Chinese',
+ hebr => 'Hebrew',
+ ipa => 'IPA',
+ iso => 'ISO',
+ ital => 'Old_Italic',
+ java => 'Javanese',
+ kali => 'Kayah_Li',
+ khmr => 'Khmer',
+ knda => 'Kannada',
+ lana => 'Tai_Tham',
+ laoo => 'Lao',
+ latn => '<a href="/latin">Latin</a>',
+ lepc => 'Lepcha',
+ lyci => 'Lycian',
+ lydi => 'Lydian',
+ mlym => 'Malayalam', # മലയാളം ൧
+ mymr => 'Myanmar',
+ olck => 'Ol_Chiki',
+ orya => 'Oriya', # ଓଡ଼ିଆ
+ osma => 'Osmanya',
+ phnx => 'Phoenician',
+ samr => 'Samaritan',
+ saur => 'Saurashtra',
+ sinh => 'Sinhala',
+ sund => 'Sundanese',
+ syrc => 'Syriac',
+ talu => 'New_Tai_Lue',
+ taml => 'Tamil', # தமிழ் ௧
+ telu => 'Telugu',
+ teng => 'Tengwar',
+ tglg => 'Baybayin',
+ thai => 'Thai', # ไทย
+ tibt => 'Tibetan',
+ tlh => 'Klingon',
+
+ digits_latn => 'Arabic_(Western)',
+ digits_latnlat => 'Roman',
+ digits_brai => 'Braille_[⠼+]',
+ arabindi => 'Arabic_-_Indic',
+ arabpers => 'Arabic_-_Indic_(Alt)',
+ digits_brahnumb => 'Brahmi',
+ lanahora => 'Tai_Tham_Hora',
+ suzhou => 'Hangzhou',
+);
+
for (
[phnx => 'Phoenician'],
[brah => 'Brahmi'],
printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
next;
}
- $glyphs->print($title => [ map { @$_ } grep { ref $_ eq 'ARRAY' } @table ]);
+ $glyphs->print($title => [map {
+ ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
+ $scriptname{$source.'_'.$_} || $scriptname{$_} || $_
+ } @table]);
}
:></div>