writing: script name outside of table include

[sheet.git] / writing.plp

diff --git a/writing.plp b/writing.plp
index da267d06a96a1ed8a51e2683e1abcad0688b450a..4187d017646eeed06060524eef0218c3ac90729a 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -31,6 +31,67 @@ unless (exists $get{v}) {
        $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'],
@@ -43,7 +104,10 @@ for (
                printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
                next;
        }
-       $glyphs->print($title => \@table);
+       $glyphs->print($title => [map {
+               ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
+                       $scriptname{$source.'_'.$_} || $scriptname{$_} || $_
+       } @table]);
 }
 
 :></div>