-print $glyphs->table([qw{
- .>Chinese 壹 貳 參 肆 伍 陸 柒 捌 玖 零
- .>Chinese 一 二 三 四 五 六 七 八 九 〇
- .>Hangzhou 〡 〢 〣 〤 〥 〦 〧 〨 〩
- .>Ethiopic ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱
- .>Khmer ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០
- .>Arabic_-_Indic ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٠
- .>Arabic_-_Indic_(Alt) ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۰
- .>Javanese ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙ ꧐
- .>Balinese ᭑ ᭒ ᭓ ᭔ ᭕ ᭖ ᭗ ᭘ ᭙ ᭐
- .>Sundanese ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ ᮰
- .>New_Tai_Lue ᧑ ᧒ ᧓ ᧔ ᧕ ᧖ ᧗ ᧘ ᧙ ᧐
- .>Tai_Tham ᪑ ᪒ ᪓ ᪔ ᪕ ᪖ ᪗ ᪘ ᪙ ᪐
- .>Tai_Tham_Hora ᪁ ᪂ ᪃ ᪄ ᪅ ᪆ ᪇ ᪈ ᪉ ᪀
- .>Lao ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໐
- .>Malayalam_-_മലയാളം ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ ൦
- .>Tamil_-_தமிழ் ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯
- .>Cham ꩑ ꩒ ꩓ ꩔ ꩕ ꩖ ꩗ ꩘ ꩙ ꩐
- .>Kayah_Li ꤁ ꤂ ꤃ ꤄ ꤅ ꤆ ꤇ ꤈ ꤉ ꤀
- .>Myanmar ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၀
- .>Thai_-_ไทย ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐
- .>Kannada ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ ೦
- .>Telugu ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ ౦
- .>Tibetan ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༠
- .>Lepcha ᱁ ᱂ ᱃ ᱄ ᱅ ᱆ ᱇ ᱈ ᱉ ᱀
- .>Bengali ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ০
- .>Ol_Chiki ᱑ ᱒ ᱓ ᱔ ᱕ ᱖ ᱗ ᱘ ᱙ ᱐
- .>Saurashtra ꣑ ꣒ ꣓ ꣔ ꣕ ꣖ ꣗ ꣘ ꣙ ꣐
- .>Oriya_-_ଓଡ଼ିଆ ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୦
- .>Gurmukhi_-_ਪੰਜਾਬੀ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੦
- .>Gujarati ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ ૦
- .>Devanagari १ २ ३ ४ ५ ६ ७ ८ ९ ०
- .>Brahmi 𑁒 𑁓 𑁔 𑁕 𑁖 𑁗 𑁘 𑁙 𑁚 -
- .>Brahmi 𑁧 𑁨 𑁩 𑁪 𑁫 𑁬 𑁭 𑁮 𑁯 𑁦
- .>Arabic_(Western) 1 2 3 4 5 6 7 8 9 0
- .>Roman Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ
- .>Tengwar
- .>Klingon
- .>Osmanya 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠
- .>Braille_[⠼+] ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚
-}]);
+my $scriptname = do 'writing-script.inc.pl';
+$_ = showlink($_, "/latin") for $scriptname->{latn} || ();
+
+for (
+ [phnx => 'Phoenician'],
+ [brah => 'Brahmi'],
+) {
+ my ($source, $title) = @$_;
+ my @table = do "writing-$source.inc.pl";
+ if ($! or $@) {
+ say "<h2>$title</h2>";
+ printf "<p>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
+ next;
+ }
+ $glyphs->print($title => [map {
+ my $lead = s/^(-)// && $1;
+ ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
+ $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+ } @table]);
+}