From 5464db21077f6af072bd770f6cb6e907eb48b73d Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Thu, 25 Mar 2010 19:39:34 +0000 Subject: [PATCH] writing: keyed table rows in includes Stable row identification to allow custom selection the future. --- latin.plp | 3 +- writing-brah.inc.pl | 40 ++++++++++------------ writing-digits.inc.pl | 80 +++++++++++++++++++++---------------------- writing-latn.inc.pl | 10 +++--- writing-phnx.inc.pl | 31 ++++++++--------- writing.plp | 2 +- 6 files changed, 80 insertions(+), 86 deletions(-) diff --git a/latin.plp b/latin.plp index 2809d7e..24c74c6 100644 --- a/latin.plp +++ b/latin.plp @@ -33,7 +33,8 @@ if ($! or $@) { printf "

Table data not found: %s.

\n", $! || $@; } else { - print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @table] : \@table); + my @az = map { @$_ } grep { ref $_ eq 'ARRAY' } @table; + print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @az] : \@az); } print "\n"; diff --git a/writing-brah.inc.pl b/writing-brah.inc.pl index 2480594..dc9fe6b 100644 --- a/writing-brah.inc.pl +++ b/writing-brah.inc.pl @@ -1,21 +1,19 @@ -qw{ - .>ISO k kh g gh ṅ c ch j jh > ñ ṭ ṭh ḍ ḍh ṇ t th d dh n ṉ p ph b bh m y r ṟ l ḷ ḻ v ś ṣ s h - .>IPA k kʰ ɡ ɡʱ ŋ c cʰ ɟ ɟʱ > ɲ ʈ ʈʰ ɖ ɖʱ ɳ t̪ t̪ʰ d̪ d̪ʱ n̪ n p pʰ b bʱ m j r ɾ l ɭ ɻ ʋ ʃ ʂ s ɦ - .>Oriya କ ଖ ଗ ଘ ଙ ଚ ଛ ଜ ଝ > ଞ ଟ ଠ ଡ ଢ ଣ ତ ଥ ଦ ଧ > ନ ପ ଫ ବ ଭ ମ ଯ > ର ଲ > ଳ ଵ ଶ ଷ ସ ହ - .>E._Nagari ক খ গ ঘ ঙ চ ছ জ ঝ > ঞ ট ঠ ড ঢ ণ ত থ দ ধ > ন প ফ ব ভ ম য > র/ৰ ল > - ৱ শ ষ স হ - .>Devanagari क ख ग घ ङ च छ ज झ > ञ ट ठ ड ढ ण त थ द ध न ऩ प फ ब भ म य र ऱ ल ळ ऴ व श ष स ह - .>Gujarati ક ખ ગ ઘ ઙ ચ છ જ ઝ > ઞ ટ ઠ ડ ઢ ણ ત થ દ ધ > ન પ ફ બ ભ મ ય > ર લ > ળ વ શ ષ સ હ - .>Gurmukhi ਕ ਖ ਗ ਘ ਙ ਚ ਛ ਜ ਝ > ਞ ਟ ਠ ਡ ਢ ਣ ਤ ਥ ਦ ਧ > ਨ ਪ ਫ ਬ ਭ ਮ ਯ > ਰ ਲ > ਲ਼ ਵ ਸ਼ - ਸ ਹ - .>Tibetan ཀ ཁ ག - ང ཅ ཆ ཇ - > ཉ ཊ ཋ ཌ - ཎ ཏ ཐ ད - > ན པ ཕ བ - མ ཡ > ར ལ > - ཝ ཤ ཥ ས ཧ - .>Brahmi 𑀓 𑀔 𑀕 𑀖 𑀗 𑀘 𑀙 𑀚 𑀛 > 𑀜 𑀝 𑀞 𑀟 𑀠 𑀡 𑀢 𑀣 𑀤 𑀥 𑀦 -𑀷 𑀧 𑀨 𑀩 𑀪 𑀫 𑀬 𑀭 -𑀶 𑀮 𑀴 -𑀵 𑀯 𑀰 𑀱 𑀲 𑀳 - .>Telugu క ఖ గ ఘ ఙ చ ఛ జ ఝ > ఞ ట ఠ డ ఢ ణ త థ ద ధ > న ప ఫ బ భ మ య ర ఱ ల > ళ వ శ ష స హ - .>Kannada ಕ ಖ ಗ ಘ ಙ ಚ ಛ ಜ ಝ > ಞ ಟ ಠ ಡ ಢ ಣ ತ ಥ ದ ಧ > ನ ಪ ಫ ಬ ಭ ಮ ಯ ರ ಱ ಲ ಳ ೞ ವ ಶ ಷ ಸ ಹ - .>Sinhala ක ඛ ග ඝ ඞ ච ඡ ජ ඣ > ඤ ට ඨ ඩ ඪ ණ ත ථ ද ධ > න ප ඵ බ භ ම ය > ර ල > ළ ව ශ ෂ ස හ - .>Malayalam ക ഖ ഗ ഘ ങ ച ഛ ജ ഝ > ഞ ട ഠ ഡ ഢ ണ ത ഥ ദ ധ ന -ഩ പ ഫ ബ ഭ മ യ ര റ ല ള ഴ വ ശ ഷ സ ഹ - .>Tamil க - - - ங ச - ஜ - > ஞ ட - - - ண த - - - ந ன ப - - - ம ய ர ற ல ள ழ வ ஶ ஷ ஸ ஹ - .>Burmese က ခ ဂ ဃ င စ ဆ ဇ ဈ ဉ ည ဋ ဌ ဍ ဎ ဏ တ ထ ဒ ဓ > န ပ ဖ ဗ ဘ မ ယ > ရ လ ဠ ၔ ဝ ၐ ၑ သ ဟ - .>Khmer ក ខ គ ឃ ង ច ឆ ជ ឈ > ញ ដ ឋ ឌ ឍ ណ ត ថ ទ ធ > ន ប ផ ព ភ ម យ > រ ល > - វ ឝ ឞ ស ហ - .>Thai ก ข ค ฆ ง จ ฉ ช ฌ > ญ ฏ ฐ ฑ ฒ ณ ต ถ ท ธ > น ป ผ พ ภ ม ย > ร ล > - ว ศ ษ ส ห - .>Lao ກ ຂ - ຄ ງ ຈ ສ ຊ - > ຍ - - - - - ຕ ຖ ທ - > ນ ປ ຜ ຟ ພ ມ ຢ > ຣ ລ > - ວ - - - ຫ - .>Baybayin ᜃ - ᜄ - ᜅ - - - - > - - - - - - ᜆ - ᜇ - > ᜈ ᜉ - ᜊ - ᜋ ᜌ > ᜇ ᜎ > - - - - ᜐ ᜑ -} +iso => [qw{.>ISO k kh g gh ṅ c ch j jh > ñ ṭ ṭh ḍ ḍh ṇ t th d dh n ṉ p ph b bh m y r ṟ l ḷ ḻ v ś ṣ s h }], +ipa => [qw{.>IPA k kʰ ɡ ɡʱ ŋ c cʰ ɟ ɟʱ > ɲ ʈ ʈʰ ɖ ɖʱ ɳ t̪ t̪ʰ d̪ d̪ʱ n̪ n p pʰ b bʱ m j r ɾ l ɭ ɻ ʋ ʃ ʂ s ɦ }], +orya => [qw{.>Oriya କ ଖ ଗ ଘ ଙ ଚ ଛ ଜ ଝ > ଞ ଟ ଠ ଡ ଢ ଣ ତ ଥ ଦ ଧ > ନ ପ ଫ ବ ଭ ମ ଯ > ର ଲ > ଳ ଵ ଶ ଷ ସ ହ }], +beng => [qw{.>E._Nagari ক খ গ ঘ ঙ চ ছ জ ঝ > ঞ ট ঠ ড ঢ ণ ত থ দ ধ > ন প ফ ব ভ ম য > র/ৰ ল > - ৱ শ ষ স হ }], +deva => [qw{.>Devanagari क ख ग घ ङ च छ ज झ > ञ ट ठ ड ढ ण त थ द ध न ऩ प फ ब भ म य र ऱ ल ळ ऴ व श ष स ह }], +gujr => [qw{.>Gujarati ક ખ ગ ઘ ઙ ચ છ જ ઝ > ઞ ટ ઠ ડ ઢ ણ ત થ દ ધ > ન પ ફ બ ભ મ ય > ર લ > ળ વ શ ષ સ હ }], +guru => [qw{.>Gurmukhi ਕ ਖ ਗ ਘ ਙ ਚ ਛ ਜ ਝ > ਞ ਟ ਠ ਡ ਢ ਣ ਤ ਥ ਦ ਧ > ਨ ਪ ਫ ਬ ਭ ਮ ਯ > ਰ ਲ > ਲ਼ ਵ ਸ਼ - ਸ ਹ }], +tibt => [qw{.>Tibetan ཀ ཁ ག - ང ཅ ཆ ཇ - > ཉ ཊ ཋ ཌ - ཎ ཏ ཐ ད - > ན པ ཕ བ - མ ཡ > ར ལ > - ཝ ཤ ཥ ས ཧ }], +brah => [qw{.>Brahmi 𑀓 𑀔 𑀕 𑀖 𑀗 𑀘 𑀙 𑀚 𑀛 > 𑀜 𑀝 𑀞 𑀟 𑀠 𑀡 𑀢 𑀣 𑀤 𑀥 𑀦 -𑀷 𑀧 𑀨 𑀩 𑀪 𑀫 𑀬 𑀭 -𑀶 𑀮 𑀴 -𑀵 𑀯 𑀰 𑀱 𑀲 𑀳 }], +telu => [qw{.>Telugu క ఖ గ ఘ ఙ చ ఛ జ ఝ > ఞ ట ఠ డ ఢ ణ త థ ద ధ > న ప ఫ బ భ మ య ర ఱ ల > ళ వ శ ష స హ }], +knda => [qw{.>Kannada ಕ ಖ ಗ ಘ ಙ ಚ ಛ ಜ ಝ > ಞ ಟ ಠ ಡ ಢ ಣ ತ ಥ ದ ಧ > ನ ಪ ಫ ಬ ಭ ಮ ಯ ರ ಱ ಲ ಳ ೞ ವ ಶ ಷ ಸ ಹ }], +sinh => [qw{.>Sinhala ක ඛ ග ඝ ඞ ච ඡ ජ ඣ > ඤ ට ඨ ඩ ඪ ණ ත ථ ද ධ > න ප ඵ බ භ ම ය > ර ල > ළ ව ශ ෂ ස හ }], +mlym => [qw{.>Malayalam ക ഖ ഗ ഘ ങ ച ഛ ജ ഝ > ഞ ട ഠ ഡ ഢ ണ ത ഥ ദ ധ ന -ഩ പ ഫ ബ ഭ മ യ ര റ ല ള ഴ വ ശ ഷ സ ഹ }], +taml => [qw{.>Tamil க - - - ங ச - ஜ - > ஞ ட - - - ண த - - - ந ன ப - - - ம ய ர ற ல ள ழ வ ஶ ஷ ஸ ஹ }], +mymr => [qw{.>Burmese က ခ ဂ ဃ င စ ဆ ဇ ဈ ဉ ည ဋ ဌ ဍ ဎ ဏ တ ထ ဒ ဓ > န ပ ဖ ဗ ဘ မ ယ > ရ လ ဠ ၔ ဝ ၐ ၑ သ ဟ }], +khmr => [qw{.>Khmer ក ខ គ ឃ ង ច ឆ ជ ឈ > ញ ដ ឋ ឌ ឍ ណ ត ថ ទ ធ > ន ប ផ ព ភ ម យ > រ ល > - វ ឝ ឞ ស ហ }], +thai => [qw{.>Thai ก ข ค ฆ ง จ ฉ ช ฌ > ญ ฏ ฐ ฑ ฒ ณ ต ถ ท ธ > น ป ผ พ ภ ม ย > ร ล > - ว ศ ษ ส ห }], +laoo => [qw{.>Lao ກ ຂ - ຄ ງ ຈ ສ ຊ - > ຍ - - - - - ຕ ຖ ທ - > ນ ປ ຜ ຟ ພ ມ ຢ > ຣ ລ > - ວ - - - ຫ }], +tglg => [qw{.>Baybayin ᜃ - ᜄ - ᜅ - - - - > - - - - - - ᜆ - ᜇ - > ᜈ ᜉ - ᜊ - ᜋ ᜌ > ᜇ ᜎ > - - - - ᜐ ᜑ }], diff --git a/writing-digits.inc.pl b/writing-digits.inc.pl index 3422197..2f8ae8e 100644 --- a/writing-digits.inc.pl +++ b/writing-digits.inc.pl @@ -1,41 +1,39 @@ -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_[⠼+] ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ -} +hant => [qw{.>Chinese 壹 貳 參 肆 伍 陸 柒 捌 玖 零 }], +hans => [qw{.>Chinese 一 二 三 四 五 六 七 八 九 〇 }], +suzhou => [qw{.>Hangzhou 〡 〢 〣 〤 〥 〦 〧 〨 〩 }], +ethi => [qw{.>Ethiopic ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱ }], +khmr => [qw{.>Khmer ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០ }], +arabindi => [qw{.>Arabic_-_Indic ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٠ }], +arabpers => [qw{.>Arabic_-_Indic_(Alt) ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۰ }], +java => [qw{.>Javanese ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙ ꧐ }], +bali => [qw{.>Balinese ᭑ ᭒ ᭓ ᭔ ᭕ ᭖ ᭗ ᭘ ᭙ ᭐ }], +sund => [qw{.>Sundanese ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ ᮰ }], +talu => [qw{.>New_Tai_Lue ᧑ ᧒ ᧓ ᧔ ᧕ ᧖ ᧗ ᧘ ᧙ ᧐ }], +lana => [qw{.>Tai_Tham ᪑ ᪒ ᪓ ᪔ ᪕ ᪖ ᪗ ᪘ ᪙ ᪐ }], +lanahora => [qw{.>Tai_Tham_Hora ᪁ ᪂ ᪃ ᪄ ᪅ ᪆ ᪇ ᪈ ᪉ ᪀ }], +laoo => [qw{.>Lao ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໐ }], +mlym => [qw{.>Malayalam_-_മലയാളം ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ ൦ }], +taml => [qw{.>Tamil_-_தமிழ் ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯ }], +cham => [qw{.>Cham ꩑ ꩒ ꩓ ꩔ ꩕ ꩖ ꩗ ꩘ ꩙ ꩐ }], +kali => [qw{.>Kayah_Li ꤁ ꤂ ꤃ ꤄ ꤅ ꤆ ꤇ ꤈ ꤉ ꤀ }], +mymr => [qw{.>Myanmar ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၀ }], +thai => [qw{.>Thai_-_ไทย ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐ }], +knda => [qw{.>Kannada ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ ೦ }], +telu => [qw{.>Telugu ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ ౦ }], +tibt => [qw{.>Tibetan ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༠ }], +lepc => [qw{.>Lepcha ᱁ ᱂ ᱃ ᱄ ᱅ ᱆ ᱇ ᱈ ᱉ ᱀ }], +beng => [qw{.>Bengali ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ০ }], +olck => [qw{.>Ol_Chiki ᱑ ᱒ ᱓ ᱔ ᱕ ᱖ ᱗ ᱘ ᱙ ᱐ }], +saur => [qw{.>Saurashtra ꣑ ꣒ ꣓ ꣔ ꣕ ꣖ ꣗ ꣘ ꣙ ꣐ }], +orya => [qw{.>Oriya_-_ଓଡ଼ିଆ ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୦ }], +guru => [qw{.>Gurmukhi_-_ਪੰਜਾਬੀ ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੦ }], +gujr => [qw{.>Gujarati ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ ૦ }], +deva => [qw{.>Devanagari १ २ ३ ४ ५ ६ ७ ८ ९ ० }], +brahnumb => [qw{.>Brahmi 𑁒 𑁓 𑁔 𑁕 𑁖 𑁗 𑁘 𑁙 𑁚 - }], +brah => [qw{.>Brahmi 𑁧 𑁨 𑁩 𑁪 𑁫 𑁬 𑁭 𑁮 𑁯 𑁦 }], +latn => [qw{.>Arabic_(Western) 1 2 3 4 5 6 7 8 9 0 }], +latnlat => [qw{.>Roman Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ }], +teng => [qw{.>Tengwar           }], +tlh => [qw{.>Klingon           }], +osma => [qw{.>Osmanya 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠 }], +brai => [qw{.>Braille_[⠼+] ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ }], diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl index 84a4d31..53d9b63 100644 --- a/writing-latn.inc.pl +++ b/writing-latn.inc.pl @@ -1,6 +1,4 @@ -qw{ - .>Latin a b c d e f g h i j k l m n o p q r s t u v w x y z - .>Braille ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ - .>Morse ‧‑ ‑‧‧‧ ‑‧‑‧ ‑‧‧ ‧ ‧‧‐‧ ‐‐‧ ‧‧‧‧ ‧‧ ‧‐‐‐ ‐‧‐ ‧‐‧‧ ‐‐ - ‐‧ ‐‐‐ ‧‐‐‧ ‐‐‧‐ ‧‐‧ ‧‧‧ ‐ ‧‧‐ ‧‧‧‐ ‧‐‐ ‐‧‧‐ ‐‧‐‐ ‐‐‧‧ -} +latn => [qw{.>Latin a b c d e f g h i j k l m n o p q r s t u v w x y z }], +brai => [qw{.>Braille ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }], +morse => [qw{.>Morse ‧‑ ‑‧‧‧ ‑‧‑‧ ‑‧‧ ‧ ‧‧‐‧ ‐‐‧ ‧‧‧‧ ‧‧ ‧‐‐‐ ‐‧‐ ‧‐‧‧ ‐‐ + ‐‧ ‐‐‐ ‧‐‐‧ ‐‐‧‐ ‧‐‧ ‧‧‧ ‐ ‧‧‐ ‧‧‧‐ ‧‐‐ ‐‧‧‐ ‐‧‐‐ ‐‐‧‧ }], diff --git a/writing-phnx.inc.pl b/writing-phnx.inc.pl index 9a18d57..833408b 100644 --- a/writing-phnx.inc.pl +++ b/writing-phnx.inc.pl @@ -1,16 +1,15 @@ - '.>Latin', qw{ - 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 𐌀 > 𐌁 > 𐌂 𐌃 > 𐌄 𐌅 > > 𐌖 𐌆 𐌇 𐌈 𐌚 𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎 𐌏 𐌐 > 𐌑 𐌒 𐌓 > 𐌔 𐌕 - .>Gothic 𐌰 > 𐌱 𐌲 𐌾 𐌳 > 𐌴 𐍆 > > 𐍅 𐌶 𐌷 𐌸 𐍈 > 𐌹 𐌺 𐌻 𐌼 𐌽 > -𐍇 𐌿 𐍀𐌵 > - -𐍁 𐍂 > 𐍃 𐍄 - .>Coptic Ⲁ > Ⲃ > Ⲅ Ⲇ > Ⲉ > > > Ⲩ Ⲍ Ⲏ Ⲑ Ⲫ > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ Ⲟ Ⲡ > Ⲋ - Ⲣ > Ⲥ Ⲧ - .>Cyrillic А Б В > Г Д Е Э > -Ѵ > У З И -Ѳ Ф І Ј К Л М Н Х -Ѯ О П Ц Ч -Ҁ Р Ш С Т - .>Lycian 𐊀 𐊂 𐊃 > 𐊄 𐊅 > 𐊆 > > > 𐊇 𐊈 - > 𐊉 > 𐊊 𐊋 𐊍 𐊎 𐊏 𐊐 𐊑 𐊒 𐊓 > - 𐊔 𐊕 > 𐊖 𐊗 - .>Greek Α > Β > Γ Δ > Ε -Ϝ > > Υ Ζ Η Θ Φ Ι Ј Κ Λ Μ Ν Χ Ξ Ο Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ - .>Lydian 𐤠 > 𐤡 𐤢 𐤹 𐤣 > 𐤤 𐤥 𐤧 > 𐤰 - - > 𐤱 > 𐤦 𐤨 𐤩 𐤪 𐤫 > - 𐤬 - > 𐤳 𐤲 𐤭 > 𐤮 𐤯 - .>Phoenician 𐤀 > 𐤁 > 𐤂 𐤃 > 𐤄 > > > 𐤅 𐤆 𐤇 > 𐤈 > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎 𐤏 𐤐 > 𐤑 𐤒 𐤓 > 𐤔 𐤕 - .>Samaritan ࠀ > ࠁ > ࠂ ࠃ > ࠄ > > > ࠅ ࠆ ࠇ > ࠈ > ࠉ ࠊ ࠋ ࠌ ࠍ > ࠎ ࠏ ࠐ > ࠑ ࠒ ࠓ > ࠔ ࠕ - .>Aramaic 𐡀 > 𐡁 > 𐡂 𐡃 > 𐡄 > > > 𐡅 𐡆 𐡇 > 𐡈 𐡉 ꜜ 𐡊 𐡋 𐡌 𐡍 > 𐡎 𐡏 𐡐 > 𐡑 𐡒 𐡓 > 𐡔 𐡕 - .>Hebrew א > ב > ג ד > ה > > ו װ ז ח > ט י ײ כ ל מ נ > ס ע פ צ ץ ק ר > ש ת - .>Syriac ܐ > ܒ > ܓ ܕ > ܗ > > > ܘ ܙ ܚ > ܛ ܝ ҩ ܟ ܠ ܡ ܢ > ܣ ܥ ܦ > ܨ ܩ ܪ > ܫ ܬ - .>Arabic ﺍ > ﺏ > ﺝ د‌ذ ه ـ > > > ﻭ ﺯ ح‌خ ط ظ > ي ﻙ ﻝ ﻡ ﻥ > س ع‌غ ﻑ ص ض ﻕ ﺭ > ش ت‌ث -} +latn => [ '.>Latin', + qw{ 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 }], +ital => [qw{.>Old_Italic 𐌀 > 𐌁 > 𐌂 𐌃 > 𐌄 𐌅 > > 𐌖 𐌆 𐌇 𐌈 𐌚 𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎 𐌏 𐌐 > 𐌑 𐌒 𐌓 > 𐌔 𐌕 }], +goth => [qw{.>Gothic 𐌰 > 𐌱 𐌲 𐌾 𐌳 > 𐌴 𐍆 > > 𐍅 𐌶 𐌷 𐌸 𐍈 > 𐌹 𐌺 𐌻 𐌼 𐌽 > -𐍇 𐌿 𐍀𐌵 > - -𐍁 𐍂 > 𐍃 𐍄 }], +copt => [qw{.>Coptic Ⲁ > Ⲃ > Ⲅ Ⲇ > Ⲉ > > > Ⲩ Ⲍ Ⲏ Ⲑ Ⲫ > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ Ⲟ Ⲡ > Ⲋ - Ⲣ > Ⲥ Ⲧ }], +cyrl => [qw{.>Cyrillic А Б В > Г Д Е Э > -Ѵ > У З И -Ѳ Ф І Ј К Л М Н Х -Ѯ О П Ц Ч -Ҁ Р Ш С Т }], +lyci => [qw{.>Lycian 𐊀 𐊂 𐊃 > 𐊄 𐊅 > 𐊆 > > > 𐊇 𐊈 - > 𐊉 > 𐊊 𐊋 𐊍 𐊎 𐊏 𐊐 𐊑 𐊒 𐊓 > - 𐊔 𐊕 > 𐊖 𐊗 }], +grek => [qw{.>Greek Α > Β > Γ Δ > Ε -Ϝ > > Υ Ζ Η Θ Φ Ι Ј Κ Λ Μ Ν Χ Ξ Ο Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ }], +lydi => [qw{.>Lydian 𐤠 > 𐤡 𐤢 𐤹 𐤣 > 𐤤 𐤥 𐤧 > 𐤰 - - > 𐤱 > 𐤦 𐤨 𐤩 𐤪 𐤫 > - 𐤬 - > 𐤳 𐤲 𐤭 > 𐤮 𐤯 }], +phnx => [qw{.>Phoenician 𐤀 > 𐤁 > 𐤂 𐤃 > 𐤄 > > > 𐤅 𐤆 𐤇 > 𐤈 > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎 𐤏 𐤐 > 𐤑 𐤒 𐤓 > 𐤔 𐤕 }], +samr => [qw{.>Samaritan ࠀ > ࠁ > ࠂ ࠃ > ࠄ > > > ࠅ ࠆ ࠇ > ࠈ > ࠉ ࠊ ࠋ ࠌ ࠍ > ࠎ ࠏ ࠐ > ࠑ ࠒ ࠓ > ࠔ ࠕ }], +armi => [qw{.>Aramaic 𐡀 > 𐡁 > 𐡂 𐡃 > 𐡄 > > > 𐡅 𐡆 𐡇 > 𐡈 𐡉 ꜜ 𐡊 𐡋 𐡌 𐡍 > 𐡎 𐡏 𐡐 > 𐡑 𐡒 𐡓 > 𐡔 𐡕 }], +hebr => [qw{.>Hebrew א > ב > ג ד > ה > > ו װ ז ח > ט י ײ כ ל מ נ > ס ע פ צ ץ ק ר > ש ת }], +syrc => [qw{.>Syriac ܐ > ܒ > ܓ ܕ > ܗ > > > ܘ ܙ ܚ > ܛ ܝ ҩ ܟ ܠ ܡ ܢ > ܣ ܥ ܦ > ܨ ܩ ܪ > ܫ ܬ }], +arab => [qw{.>Arabic ﺍ > ﺏ > ﺝ د‌ذ ه ـ > > > ﻭ ﺯ ح‌خ ط ظ > ي ﻙ ﻝ ﻡ ﻥ > س ع‌غ ﻑ ص ض ﻕ ﺭ > ش ت‌ث }], diff --git a/writing.plp b/writing.plp index da267d0..d71dba4 100644 --- a/writing.plp +++ b/writing.plp @@ -43,7 +43,7 @@ for ( printf "

Table data not found: %s.

\n", $! || $@; next; } - $glyphs->print($title => \@table); + $glyphs->print($title => [ map { @$_ } grep { ref $_ eq 'ARRAY' } @table ]); } :> -- 2.30.0