From d2757291a8dc92fd2d396ff35dad0d7af8bc2f53 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 18 Apr 2017 23:55:16 +0200
Subject: [PATCH] digits: table data in extensible hashes

Similar to latin data.
---
 digits.plp            |   4 +-
 writing-digits.inc.pl | 112 +++++++++++++++++++++---------------------
 2 files changed, 58 insertions(+), 58 deletions(-)

diff --git a/digits.plp b/digits.plp
index cfaa6ed..07b4a12 100644
--- a/digits.plp
+++ b/digits.plp
@@ -41,9 +41,9 @@ die "Table data not found: $_\n" for $@ || $! || ();
 
 say $glyphs->tabletag;
 for my $row (pairs @table) {
-	my ($id, $cols) = @{$row};
+	my ($id, $info) = @{$row};
 	my $title = $scriptname->{"digits_$id"} || $scriptname->{$id} || $id;
-	print $glyphs->row([ ".>$title", @{$cols} ]);
+	print $glyphs->row([ ".>$title", @{$info->{list}} ]);
 }
 say '</table>';
 
diff --git a/writing-digits.inc.pl b/writing-digits.inc.pl
index 72c6b43..c967a1f 100644
--- a/writing-digits.inc.pl
+++ b/writing-digits.inc.pl
@@ -1,65 +1,65 @@
 use utf8;
 (
-hant     => [qw{ >- 壹 貳 參 肆 伍 陸 柒 捌 玖 零 }],
-hans     => [qw{ 〇 一 二 三 四 五 六 七 八 九 十 }],
-suzhou   => [qw{ >- 〡 〢 〣 〤 〥 〦 〧 〨 〩 〸 }],
-rod      => [qw{ 〇 𝍩 𝍪 𝍫 𝍬 𝍭 𝍮 𝍯 𝍰 𝍱 𝍠 }],
-ethi     => [qw{>- ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱ ፲ }],
-khmr     => [qw{ ០ ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ }],
-arabindi => [qw{ Ù  Ù¡ Ù¢ Ù£ Ù¤ Ù¥ Ù¦ Ù§ Ù¨ Ù© }],
-arabpers => [qw{ Û° Û± Û² Û³ Û´ Ûµ Û¶ Û· Û¸ Û¹ }],
-java     => [qw{ ꧐ ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙ }],
-bali     => [qw{ ᭐ ᭑ ᭒ ᭓ ᭔ ᭕ ᭖ ᭗ ᭘ ᭙ }],
-sund     => [qw{ ᮰ ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ }],
-talu     => [qw{ ᧐ ᧑ ᧒ ᧓ ᧔ ᧕ ᧖ ᧗ ᧘ ᧙ }],
-lana     => [qw{ ᪐ ᪑ ᪒ ᪓ ᪔ ᪕ ᪖ ᪗ ᪘ ᪙ }],
-lanahora => [qw{ ᪀ ᪁ ᪂ ᪃ ᪄ ᪅ ᪆ ᪇ ᪈ ᪉ }],
-laoo     => [qw{ ໐ ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ }],
-mlym     => [qw{ ൦ ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ }],
-taml     => [qw{>- ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯ }],
-cham     => [qw{ ꩐ ꩑ ꩒ ꩓ ꩔ ꩕ ꩖ ꩗ ꩘ ꩙ }],
-kali     => [qw{ ꤀ ꤁ ꤂ ꤃ ꤄ ꤅ ꤆ ꤇ ꤈ ꤉ }],
-mymr     => [qw{ ၀ ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ }],
-cakm     => [qw{ 𑄶 𑄷 𑄸 𑄹 𑄺 𑄻 𑄼 𑄽 𑄾 𑄿 }],
-thai     => [qw{ ๐ ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ }],
-knda     => [qw{ ೦ ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ }],
-telu     => [qw{ ౦ ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ }],
-tibt     => [qw{ ༠ ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ }],
-lepc     => [qw{ ᱀ ᱁ ᱂ ᱃ ᱄ ᱅ ᱆ ᱇ ᱈ ᱉ }],
-beng     => [qw{ ০ ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ }],
-olck     => [qw{ ᱐ ᱑ ᱒ ᱓ ᱔ ᱕ ᱖ ᱗ ᱘ ᱙ }],
-saur     => [qw{ ꣐ ꣑ ꣒ ꣓ ꣔ ꣕ ꣖ ꣗ ꣘ ꣙ }],
-orya     => [qw{ à­¦ à­§ à­¨ à­© à­ª à­« à­¬ à­­ à­® à­¯ }],
-guru     => [qw{ ੦ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ }],
-gujr     => [qw{ ૦ ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ }],
-deva     => [qw{ ० १ २ ३ ४ ५ ६ ७ ८ ९ }],
-brahnumb => [qw{>- 𑁒 𑁓 𑁔 𑁕 𑁖 𑁗 𑁘 𑁙 𑁚 𑁛 }],
-brah     => [qw{ 𑁦 𑁧 𑁨 𑁩 𑁪 𑁫 𑁬 𑁭 𑁮 𑁯 }],
-copt     => [qw{>- 𐋡 𐋢 𐋣 𐋤 𐋥 𐋦 𐋧 𐋨 𐋩 𐋪 }],
-latn     => [qw{ 0 1 2 3 4 5 6 7 8 9 }],
-latnlat  => [qw{>- Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ Ⅹ }],
-xsux     => [qw{>- 𒐕 𒐖 𒐗 𒐼 𒐊 𒐋 𒑂 𒑄 𒑆 𒌋 }],
-maya     => [qw{ 𕔀 𕔁 𕔂 𕔃 𕔄 𕔅 𕔆 𕔇 𕔈 𕔉 𕔊 }],
-teng     => [qw{            }],
-tlh      => [qw{            }],
-osma     => [qw{ 𐒠 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 }],
-brai     => [qw{ ⠚ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ }],
-suttbe => [
-	map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
+hant     => {list => [qw{ >- 壹 貳 參 肆 伍 陸 柒 捌 玖 零 }]},
+hans     => {list => [qw{ 〇 一 二 三 四 五 六 七 八 九 十 }]},
+suzhou   => {list => [qw{ >- 〡 〢 〣 〤 〥 〦 〧 〨 〩 〸 }]},
+rod      => {list => [qw{ 〇 𝍩 𝍪 𝍫 𝍬 𝍭 𝍮 𝍯 𝍰 𝍱 𝍠 }]},
+ethi     => {list => [qw{>- ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱ ፲ }]},
+khmr     => {list => [qw{ ០ ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ }]},
+arabindi => {list => [qw{ Ù  Ù¡ Ù¢ Ù£ Ù¤ Ù¥ Ù¦ Ù§ Ù¨ Ù© }]},
+arabpers => {list => [qw{ Û° Û± Û² Û³ Û´ Ûµ Û¶ Û· Û¸ Û¹ }]},
+java     => {list => [qw{ ꧐ ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙ }]},
+bali     => {list => [qw{ ᭐ ᭑ ᭒ ᭓ ᭔ ᭕ ᭖ ᭗ ᭘ ᭙ }]},
+sund     => {list => [qw{ ᮰ ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ }]},
+talu     => {list => [qw{ ᧐ ᧑ ᧒ ᧓ ᧔ ᧕ ᧖ ᧗ ᧘ ᧙ }]},
+lana     => {list => [qw{ ᪐ ᪑ ᪒ ᪓ ᪔ ᪕ ᪖ ᪗ ᪘ ᪙ }]},
+lanahora => {list => [qw{ ᪀ ᪁ ᪂ ᪃ ᪄ ᪅ ᪆ ᪇ ᪈ ᪉ }]},
+laoo     => {list => [qw{ ໐ ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ }]},
+mlym     => {list => [qw{ ൦ ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ }]},
+taml     => {list => [qw{>- ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯ }]},
+cham     => {list => [qw{ ꩐ ꩑ ꩒ ꩓ ꩔ ꩕ ꩖ ꩗ ꩘ ꩙ }]},
+kali     => {list => [qw{ ꤀ ꤁ ꤂ ꤃ ꤄ ꤅ ꤆ ꤇ ꤈ ꤉ }]},
+mymr     => {list => [qw{ ၀ ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ }]},
+cakm     => {list => [qw{ 𑄶 𑄷 𑄸 𑄹 𑄺 𑄻 𑄼 𑄽 𑄾 𑄿 }]},
+thai     => {list => [qw{ ๐ ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ }]},
+knda     => {list => [qw{ ೦ ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ }]},
+telu     => {list => [qw{ ౦ ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ }]},
+tibt     => {list => [qw{ ༠ ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ }]},
+lepc     => {list => [qw{ ᱀ ᱁ ᱂ ᱃ ᱄ ᱅ ᱆ ᱇ ᱈ ᱉ }]},
+beng     => {list => [qw{ ০ ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ }]},
+olck     => {list => [qw{ ᱐ ᱑ ᱒ ᱓ ᱔ ᱕ ᱖ ᱗ ᱘ ᱙ }]},
+saur     => {list => [qw{ ꣐ ꣑ ꣒ ꣓ ꣔ ꣕ ꣖ ꣗ ꣘ ꣙ }]},
+orya     => {list => [qw{ à­¦ à­§ à­¨ à­© à­ª à­« à­¬ à­­ à­® à­¯ }]},
+guru     => {list => [qw{ ੦ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ }]},
+gujr     => {list => [qw{ ૦ ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ }]},
+deva     => {list => [qw{ ० १ २ ३ ४ ५ ६ ७ ८ ९ }]},
+brahnumb => {list => [qw{>- 𑁒 𑁓 𑁔 𑁕 𑁖 𑁗 𑁘 𑁙 𑁚 𑁛 }]},
+brah     => {list => [qw{ 𑁦 𑁧 𑁨 𑁩 𑁪 𑁫 𑁬 𑁭 𑁮 𑁯 }]},
+copt     => {list => [qw{>- 𐋡 𐋢 𐋣 𐋤 𐋥 𐋦 𐋧 𐋨 𐋩 𐋪 }]},
+latn     => {list => [qw{ 0 1 2 3 4 5 6 7 8 9 }]},
+latnlat  => {list => [qw{>- Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ Ⅹ }]},
+xsux     => {list => [qw{>- 𒐕 𒐖 𒐗 𒐼 𒐊 𒐋 𒑂 𒑄 𒑆 𒌋 }]},
+maya     => {list => [qw{ 𕔀 𕔁 𕔂 𕔃 𕔄 𕔅 𕔆 𕔇 𕔈 𕔉 𕔊 }]},
+teng     => {list => [qw{            }]},
+tlh      => {list => [qw{            }]},
+osma     => {list => [qw{ 𐒠 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 }]},
+brai     => {list => [qw{ ⠚ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ }]},
+suttbe => {
+	list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
 		876a9b 800 80E 81E 844 84C
 		96Aaa28F5aa1 96Aaa28DCaa1 96Aaa281Eaa1 844aa492Faa4 921aa48EFa9c
-	}
-],
-suttnl => [
-	map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
+	}],
+},
+suttnl => {
+	list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
 		876a9b 800 80E 886 844 84C
 		8F5aa1 8DCaa1 81Eaa1 88Eaa1 84Ca9c
-	}
-],
-suttus => [
-	map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
+	}],
+},
+suttus => {
+	list => [map { pack 'W*', map { hex "1D$_" } unpack '(A3)*' } qw{
 		876a9b 800 80E 81E 844 84C
 		887a9c 8A5a9c 8BBa9c 8CEa9c 9A58F5aa2
-	}
-],
+	}],
+},
 );
-- 
2.30.0