X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1018ec88a7f07f0c1731e184754a9b564c6d1ad6..c5df9b21d316da6e6a82feff54be042f503f381d:/writing.plp

diff --git a/writing.plp b/writing.plp
index f33a144..9f49a0e 100644
--- a/writing.plp
+++ b/writing.plp
@@ -13,6 +13,7 @@ Html({
 		history phoenician latin sample test language multilingual
 	'],
 	stylesheet => [qw'light dark red'],
+	data => [qw'writing-phnx.inc.pl'],
 });
 
 :>
@@ -21,92 +22,39 @@ Html({
 <p>Also see <a href="/charset">charsets</a>
 and <a href="/unicode">common chars</a>.</p>
 
-<div class="diinfo">
+<div class="section">
 
 <:
 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 unless (exists $get{v}) {
 	$glyphs->{unicode}--;
-	$glyphs->{digraph}--;
+	$glyphs->{anno}  = [];
+	$glyphs->{style} = 0;
 }
 
-print $glyphs->table([qw{
-	.>Chinese              壹 貳 參 肆 伍 陸 柒 捌 玖 零
-	.>Chinese              一 二 三 四 五 六 七 八 九 〇
-	.>Hangzhou             〡 〢 〣 〤 〥 〦 〧 〨 〩  
-	.>Ethiopic             ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱  
-	.>Khmer                ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០
-	.>Arabic_-_Indic       Ù¡ Ù¢ Ù£ Ù¤ Ù¥ Ù¦ Ù§ Ù¨ Ù© Ù 
-	.>Arabic_-_Indic_(Alt) Û± Û² Û³ Û´ Ûµ Û¶ Û· Û¸ Û¹ Û°
-	.>Javanese             ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙ ꧐
-	.>Balinese             ᭑ ᭒ ᭓ ᭔ ᭕ ᭖ ᭗ ᭘ ᭙ ᭐
-	.>Sundanese            ᮱ ᮲ ᮳ ᮴ ᮵ ᮶ ᮷ ᮸ ᮹ ᮰
-	.>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_[⠼+]         ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚
-}]);
-
-$glyphs->print(
-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   А Б В  > Г  Д  Е Э  >  -Ѵ >  У З И  Ѳ  > І К Л М Н Х -Ѯ О  П Ц  Ч -Ҁ Р Ш С  Т
-	.>Gothic     𐌰 > 𐌱  > 𐌲  𐌳  > 𐌴  𐍆  >  >  𐍅 𐌶 𐌷  𐌸  > 𐌹 𐌺 𐌻 𐌼 𐌽 > 𐍇  𐌿  𐍀 >  - -  𐍂 > 𐍃  𐍄
-	.>Coptic     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
-	.>Lycian     𐊀 𐊂 𐊃  > 𐊄  𐊅  > 𐊆  >  >  >  𐊇 𐊈 -  𐊉  > 𐊊 𐊋 𐊍 𐊎 𐊏 𐊐 𐊑  𐊒  𐊓 >  - 𐊔  𐊕 > 𐊖  𐊗
-	.>Greek      Α > Β  > Γ  Δ  > Ε  -Ϝ >  >  Υ Ζ Η  Θ  Ι Ј Κ Λ Μ Ν Χ Ξ  Ο  Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ
-	.>Lydian     𐤠 > 𐤡  𐤢 𐤹  𐤣  > 𐤤  𐤥  𐤧  >  𐤰 - -  𐤱  > 𐤦 𐤨 𐤩 𐤪 𐤫 > -  𐤬  - >  𐤳 𐤲  𐤭 > 𐤮  𐤯
-	.>Phoenician 𐤀 > 𐤁  > 𐤂  𐤃  > 𐤄  >  >  >  𐤅 𐤆 𐤇  𐤈  > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎  𐤏  𐤐 >  𐤑 𐤒  𐤓 > 𐤔  𐤕
-	.>Samaritan  ࠀ > ࠁ  > ࠂ  ࠃ  > ࠄ  >  >  >  ࠅ ࠆ ࠇ  ࠈ  > ࠉ ࠊ ࠋ ࠌ ࠍ > ࠎ  ࠏ  ࠐ >  ࠑ ࠒ  ࠓ > ࠔ  ࠕ
-	.>Hebrew     א > ב  > ג  ד  > ה  >  >  ו  װ ז ח  ט  י ײ כ ל מ נ > ס  ע  פ צ  ץ ק  ר > ש  ת
-	.>Syriac     ܐ > ܒ  > ܓ  ܕ  > ܗ  >  >  >  ܘ ܙ ܚ  ܛ  ܝ ҩ ܟ ܠ ܡ ܢ > ܣ  ܥ  ܦ >  ܨ ܩ  ܪ > ܫ  ܬ
-	.>Arabic     ﺍ > ﺏ  > ﺝ  دذ ه ـ  >  >  >  ﻭ ﺯ حخ طظ > ي ﻙ ﻝ ﻡ ﻥ > س  عغ ﻑ ص  ض ﻕ  ﺭ > ش  تث
-}],
-Brahmic => [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   ᜃ  -  ᜄ  -  ᜅ  -  -  -  -  > -  -  -  -  -  -  ᜆ  -  ᜇ  -  > ᜈ  ᜉ  -  ᜊ  -  ᜋ  ᜌ  > ᜇ  ᜎ  >  -  -  -  -  ᜐ  ᜑ
-}]);
+my $scriptname = do 'writing-script.inc.pl';
+$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
+
+for (
+	[phnx => 'Phoenician'],
+	[brah => 'Brahmi'],
+) {
+	my ($source, $title) = @$_;
+	my @table = do "writing-$source.inc.pl";
+	if ($! or $@) {
+		print "<h2>$title</h2>\n";
+		printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
+		next;
+	}
+	$glyphs->print($title => [map {
+		my $lead = s/^(-)// && $1;
+		ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
+			$scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+	} @table]);
+}
 
 :></div>
 
+<hr>
+