digits: title exceptions in table spec

diff --git a/digits.plp b/digits.plp
index 07b4a12ec3edc796cebd1ef442ac07dc1817072a..bc435932e622727cbf2307330c018b19a3af494e 100644 (file)
--- a/digits.plp
+++ b/digits.plp
@@ -42,7 +42,7 @@ die "Table data not found: $_\n" for $@ || $! || ();
 say $glyphs->tabletag;
 for my $row (pairs @table) {
        my ($id, $info) = @{$row};
 say $glyphs->tabletag;
 for my $row (pairs @table) {
        my ($id, $info) = @{$row};

-       my $title = $scriptname->{"digits_$id"} || $scriptname->{$id} || $id;
+       my $title = $info->{title} // $scriptname->{$id} || $id;

        print $glyphs->row([ ".>$title", @{$info->{list}} ]);
 }
 say '</table>';
        print $glyphs->row([ ".>$title", @{$info->{list}} ]);
 }
 say '</table>';

diff --git a/writing-digits.inc.pl b/writing-digits.inc.pl
index c967a1f2301f3c929f53eb21620597242e9a6f9d..63e2af59a564604a561ed9255495ac3e9e74e4a5 100644 (file)
--- a/writing-digits.inc.pl
+++ b/writing-digits.inc.pl
@@ -2,18 +2,18 @@ use utf8;
 (
 hant     => {list => [qw{ >- 壹 貳 參 肆 伍 陸 柒 捌 玖 零 }]},
 hans     => {list => [qw{ 〇 一 二 三 四 五 六 七 八 九 十 }]},
 (
 hant     => {list => [qw{ >- 壹 貳 參 肆 伍 陸 柒 捌 玖 零 }]},
 hans     => {list => [qw{ 〇 一 二 三 四 五 六 七 八 九 十 }]},

-suzhou   => {list => [qw{ >- 〡 〢 〣 〤 〥 〦 〧 〨 〩 〸 }]},
+suzhou   => {list => [qw{ >- 〡 〢 〣 〤 〥 〦 〧 〨 〩 〸 }], title => 'Suzhou'},

 rod      => {list => [qw{ 〇 𝍩 𝍪 𝍫 𝍬 𝍭 𝍮 𝍯 𝍰 𝍱 𝍠 }]},
 ethi     => {list => [qw{>- ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱ ፲ }]},
 khmr     => {list => [qw{ ០ ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ }]},
 rod      => {list => [qw{ 〇 𝍩 𝍪 𝍫 𝍬 𝍭 𝍮 𝍯 𝍰 𝍱 𝍠 }]},
 ethi     => {list => [qw{>- ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱ ፲ }]},
 khmr     => {list => [qw{ ០ ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ }]},

-arabindi => {list => [qw{ ٠ ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ }]},
-arabpers => {list => [qw{ ۰ ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ }]},
+arabindi => {list => [qw{ ٠ ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ }], title => 'Arabic (Eastern)'},
+arabpers => {list => [qw{ ۰ ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ }], title => 'Arabic (Persian)'},

 java     => {list => [qw{ ꧐ ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙ }]},
 bali     => {list => [qw{ ᭐ ᭑ ᭒ ᭓ ᭔ ᭕ ᭖ ᭗ ᭘ ᭙ }]},
 sund     => {list => [qw{ ᮰ ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ }]},
 talu     => {list => [qw{ ᧐ ᧑ ᧒ ᧓ ᧔ ᧕ ᧖ ᧗ ᧘ ᧙ }]},
 lana     => {list => [qw{ ᪐ ᪑ ᪒ ᪓ ᪔ ᪕ ᪖ ᪗ ᪘ ᪙ }]},
 java     => {list => [qw{ ꧐ ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙ }]},
 bali     => {list => [qw{ ᭐ ᭑ ᭒ ᭓ ᭔ ᭕ ᭖ ᭗ ᭘ ᭙ }]},
 sund     => {list => [qw{ ᮰ ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ }]},
 talu     => {list => [qw{ ᧐ ᧑ ᧒ ᧓ ᧔ ᧕ ᧖ ᧗ ᧘ ᧙ }]},
 lana     => {list => [qw{ ᪐ ᪑ ᪒ ᪓ ᪔ ᪕ ᪖ ᪗ ᪘ ᪙ }]},

-lanahora => {list => [qw{ ᪀ ᪁ ᪂ ᪃ ᪄ ᪅ ᪆ ᪇ ᪈ ᪉ }]},
+lanahora => {list => [qw{ ᪀ ᪁ ᪂ ᪃ ᪄ ᪅ ᪆ ᪇ ᪈ ᪉ }], title => 'Tai Tham Hora'},

 laoo     => {list => [qw{ ໐ ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ }]},
 mlym     => {list => [qw{ ൦ ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ }]},
 taml     => {list => [qw{>- ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯ }]},
 laoo     => {list => [qw{ ໐ ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ }]},
 mlym     => {list => [qw{ ൦ ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ }]},
 taml     => {list => [qw{>- ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯ }]},


@@ -33,30 +33,33 @@ orya     => {list => [qw{ ୦ ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ }]},
 guru     => {list => [qw{ ੦ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ }]},
 gujr     => {list => [qw{ ૦ ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ }]},
 deva     => {list => [qw{ ० १ २ ३ ४ ५ ६ ७ ८ ९ }]},
 guru     => {list => [qw{ ੦ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ }]},
 gujr     => {list => [qw{ ૦ ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ }]},
 deva     => {list => [qw{ ० १ २ ३ ४ ५ ६ ७ ८ ९ }]},

-brahnumb => {list => [qw{>- 𑁒 𑁓 𑁔 𑁕 𑁖 𑁗 𑁘 𑁙 𑁚 𑁛 }]},
-brah     => {list => [qw{ 𑁦 𑁧 𑁨 𑁩 𑁪 𑁫 𑁬 𑁭 𑁮 𑁯 }]},
+brahnumb => {list => [qw{>- 𑁒 𑁓 𑁔 𑁕 𑁖 𑁗 𑁘 𑁙 𑁚 𑁛 }], title => 'Brahmi numbers'},
+brah     => {list => [qw{ 𑁦 𑁧 𑁨 𑁩 𑁪 𑁫 𑁬 𑁭 𑁮 𑁯 }], title => 'Brahmi digits'},

 copt     => {list => [qw{>- 𐋡 𐋢 𐋣 𐋤 𐋥 𐋦 𐋧 𐋨 𐋩 𐋪 }]},
 copt     => {list => [qw{>- 𐋡 𐋢 𐋣 𐋤 𐋥 𐋦 𐋧 𐋨 𐋩 𐋪 }]},

-latn     => {list => [qw{ 0 1 2 3 4 5 6 7 8 9 }]},
-latnlat  => {list => [qw{>- Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ Ⅹ }]},
+latn     => {list => [qw{ 0 1 2 3 4 5 6 7 8 9 }], title => 'Arabic (Western)'},
+latnlat  => {list => [qw{>- Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ Ⅹ }], title => 'Roman'},

 xsux     => {list => [qw{>- 𒐕 𒐖 𒐗 𒐼 𒐊 𒐋 𒑂 𒑄 𒑆 𒌋 }]},
 maya     => {list => [qw{ 𕔀 𕔁 𕔂 𕔃 𕔄 𕔅 𕔆 𕔇 𕔈 𕔉 𕔊 }]},
 teng     => {list => [qw{            }]},
 tlh      => {list => [qw{            }]},
 osma     => {list => [qw{ 𐒠 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 }]},
 xsux     => {list => [qw{>- 𒐕 𒐖 𒐗 𒐼 𒐊 𒐋 𒑂 𒑄 𒑆 𒌋 }]},
 maya     => {list => [qw{ 𕔀 𕔁 𕔂 𕔃 𕔄 𕔅 𕔆 𕔇 𕔈 𕔉 𕔊 }]},
 teng     => {list => [qw{            }]},
 tlh      => {list => [qw{            }]},
 osma     => {list => [qw{ 𐒠 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 }]},

-brai     => {list => [qw{ ⠚ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ }]},
+brai     => {list => [qw{ ⠚ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ }], title => 'Braille_[⠼+]'},

 suttbe => {
 suttbe => {

+       title => 'VGT',

        list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
                876a9b 800 80E 81E 844 84C
                96Aaa28F5aa1 96Aaa28DCaa1 96Aaa281Eaa1 844aa492Faa4 921aa48EFa9c
        }],
 },
 suttnl => {
        list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
                876a9b 800 80E 81E 844 84C
                96Aaa28F5aa1 96Aaa28DCaa1 96Aaa281Eaa1 844aa492Faa4 921aa48EFa9c
        }],
 },
 suttnl => {

+       title => 'NGT',

        list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
                876a9b 800 80E 886 844 84C
                8F5aa1 8DCaa1 81Eaa1 88Eaa1 84Ca9c
        }],
 },
 suttus => {
        list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
                876a9b 800 80E 886 844 84C
                8F5aa1 8DCaa1 81Eaa1 88Eaa1 84Ca9c
        }],
 },
 suttus => {

+       title => 'ASL',

        list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
                876a9b 800 80E 81E 844 84C
                887a9c 8A5a9c 8BBa9c 8CEa9c 9A58F5aa2
        list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
                876a9b 800 80E 81E 844 84C
                887a9c 8A5a9c 8BBa9c 8CEa9c 9A58F5aa2

diff --git a/writing-script.inc.pl b/writing-script.inc.pl
index c41601d47dc250861447b2333a0843c76d163204..a6363f4f05135509b62beafd5ba641a36987607d 100644 (file)
--- a/writing-script.inc.pl
+++ b/writing-script.inc.pl
@@ -67,16 +67,4 @@ thai     => 'Thai', # ไทย
 tibt     => 'Tibetan',
 tlh      => 'Klingon',
 xsux     => 'Babylonian',
 tibt     => 'Tibetan',
 tlh      => 'Klingon',
 xsux     => 'Babylonian',

-
-digits_latn     => 'Arabic_(Western)',
-digits_latnlat  => 'Roman',
-digits_brai     => 'Braille_[⠼+]',
-       arabindi => 'Arabic_(Eastern)',
-       arabpers => 'Arabic_(Persian)',
-digits_brahnumb => 'Brahmi',
-       lanahora => 'Tai_Tham_Hora',
-       suzhou   => 'Suzhou',
-suttnl => 'NGT',
-suttbe => 'VGT',
-suttus => 'ASL',

 }
 }