script: add table to compare digits 0-9

[sheet.git] / script.plp

diff --git a/script.plp b/script.plp
index 7fd18fc953d57df16f2deeb7dfec81bf567c8369..0f40c682492757fa171a71506f9bf49bdae74c2c 100644 (file)
--- a/script.plp
+++ b/script.plp
@@ -28,6 +28,44 @@ use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 print $glyphs->table([qw{
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 print $glyphs->table([qw{

+       .>Chinese              壹 貳 參 肆 伍 陸 柒 捌 玖 零
+       .>Chinese              一 二 三 四 五 六 七 八 九 〇
+       .>Hangzhou             〡 〢 〣 〤 〥 〦 〧 〨 〩  
+       .>Ethiopic             ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱  
+       .>Khmer                ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០
+       .>Arabic_-_Indic       ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٠
+       .>Arabic_-_Indic_(Alt) ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۰
+       .>Lao                  ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໐
+       .>Malayalam_-_മലയാളം   ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ ൦
+       .>Tamil_-_தமிழ்         ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯  
+       .>Myanmar              ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၀
+       .>Thai_-_ไทย           ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐
+       .>Kannada              ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ ೦
+       .>Telugu               ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ ౦
+       .>Tibetan              ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༠
+       .>Bengali              ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ০
+       .>Oriya_-_ଓଡ଼ିଆ          ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୦
+       .>Gurmukhi_-_ਪੰਜਾਬੀ     ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੦
+       .>Gujarati             ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ ૦
+       .>Devanagari           १ २ ३ ४ ५ ६ ७ ८ ९ ०
+       .>Arabic_(Western)     1 2 3 4 5 6 7 8 9 0
+       .>Roman                Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ  
+       .>Tengwar                       
+       .>Klingon                        
+}]);
+
+sub print_glyph_tables {
+       while (@_) {
+               printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
+               while (ref $_[0] and $_ = shift) {
+                       print $glyphs->table($_);
+               }
+               print '</div>';
+       }
+}
+
+print_glyph_tables(
+Western => [qw{

        .>Latin      A > B  C G  D  > E  F  Y  VU W Z H  -  I J K L M N > X  O  P >  - Q  R > S  T
        .>Old_Italic 𐌀 > 𐌁  > 𐌂  𐌃  > 𐌄  𐌅  >  >  𐌖 𐌆 𐌇  𐌈  𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎  𐌏  𐌐 >  𐌑 𐌒  𐌓 > 𐌔  𐌕
        .>Cyrillic   А Б В  > Г  Д  Е Э  >  -Ѵ >  У З И  Ѳ  > І К Л М Н Х -Ѯ О  П Ц  Ч -Ҁ Р Ш С  Т
        .>Latin      A > B  C G  D  > E  F  Y  VU W Z H  -  I J K L M N > X  O  P >  - Q  R > S  T
        .>Old_Italic 𐌀 > 𐌁  > 𐌂  𐌃  > 𐌄  𐌅  >  >  𐌖 𐌆 𐌇  𐌈  𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎  𐌏  𐌐 >  𐌑 𐌒  𐌓 > 𐌔  𐌕
        .>Cyrillic   А Б В  > Г  Д  Е Э  >  -Ѵ >  У З И  Ѳ  > І К Л М Н Х -Ѯ О  П Ц  Ч -Ҁ Р Ш С  Т


@@ -35,7 +73,9 @@ print $glyphs->table([qw{
        .>Coptic     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
        .>Greek      Α > Β  > Γ  Δ  > Ε  -Ϝ >  >  Υ Ζ Η  Θ  Ι Ј Κ Λ Μ Ν Χ Ξ  Ο  Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ
        .>Phoenician 𐤀 > 𐤁  > 𐤂  𐤃  > 𐤄  >  >  >  𐤅 𐤆 𐤇  𐤈  > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎  𐤏  𐤐 >  𐤑 𐤒  𐤓 > 𐤔  𐤕
        .>Coptic     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
        .>Greek      Α > Β  > Γ  Δ  > Ε  -Ϝ >  >  Υ Ζ Η  Θ  Ι Ј Κ Λ Μ Ν Χ Ξ  Ο  Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ
        .>Phoenician 𐤀 > 𐤁  > 𐤂  𐤃  > 𐤄  >  >  >  𐤅 𐤆 𐤇  𐤈  > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎  𐤏  𐤐 >  𐤑 𐤒  𐤓 > 𐤔  𐤕

+       .>Samaritan  ࠀ > ࠁ  > ࠂ  ࠃ  > ࠄ  >  >  >  ࠅ ࠆ ࠇ  ࠈ  > ࠉ ࠊ ࠋ ࠌ ࠍ > ࠎ  ࠏ  ࠐ >  ࠑ ࠒ  ࠓ > ࠔ  ࠕ

        .>Hebrew     א > ב  > ג  ד  > ה  >  >  ו  װ ז ח  ט  י ײ כ ל מ נ > ס  ע  פ צ  ץ ק  ר > ש  ת
        .>Hebrew     א > ב  > ג  ד  > ה  >  >  ו  װ ז ח  ט  י ײ כ ל מ נ > ס  ע  פ צ  ץ ק  ר > ש  ת

+       .>Syriac     ܐ > ܒ  > ܓ  ܕ  > ܗ  >  >  >  ܘ ܙ ܚ  ܛ  ܝ ҩ ܟ ܠ ܡ ܢ > ܣ  ܥ  ܦ >  ܨ ܩ  ܪ > ܫ  ܬ

        .>Arabic     ﺍ > ﺏ  > ﺝ  دذ ه ـ  >  >  >  ﻭ ﺯ حخ طظ > ي ﻙ ﻝ ﻡ ﻥ > س  عغ ﻑ ص  ض ﻕ  ﺭ > ش  تث
 }]);
 
        .>Arabic     ﺍ > ﺏ  > ﺝ  دذ ه ـ  >  >  >  ﻭ ﺯ حخ طظ > ي ﻙ ﻝ ﻡ ﻥ > س  عغ ﻑ ص  ض ﻕ  ﺭ > ش  تث
 }]);