X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/946a46c18e8ef11d5f06ca30901e82d3bf6fd275..5464db21077f6af072bd770f6cb6e907eb48b73d:/writing.plp

diff --git a/writing.plp b/writing.plp
index 8161389..d71dba4 100644
--- a/writing.plp
+++ b/writing.plp
@@ -21,85 +21,32 @@ 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}--;
+}
 
-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                        
-	.>Osmanya              𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠
-}]);
-
-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>';
+for (
+	[phnx => 'Phoenician'],
+	[brah => 'Brahmi'],
+	[digits => 'Digits'],
+) {
+	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 { @$_ } grep { ref $_ eq 'ARRAY' } @table ]);
 }
 
-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   А Б В  > Г  Д  Е Э  >  -Ѵ >  У З И  Ѳ  > І К Л М Н Х -Ѯ О  П Ц  Ч -Ҁ Р Ш С  Т
-	.>Gothic     𐌰 > 𐌱  > 𐌲  𐌳  > 𐌴  𐍆  >  >  𐍅 𐌶 𐌷  𐌸  > 𐌹 𐌺 𐌻 𐌼 𐌽 > 𐍇  𐌿  𐍀 >  - -  𐍂 > 𐍃  𐍄
-	.>Coptic     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
-	.>Greek      Α > Β  > Γ  Δ  > Ε  -Ϝ >  >  Υ Ζ Η  Θ  Ι Ј Κ Λ Μ Ν Χ Ξ  Ο  Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ
-	.>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    ཀ  ཁ  ག  -  ང  ཅ  ཆ  ཇ  -  > ཉ  ཊ  ཋ  ཌ  -  ཎ  ཏ  ཐ  ད  -  > ན  པ  ཕ  བ  -  མ  ཡ  > ར  ལ  >  -  ཝ  ཤ  ཥ  ས  ཧ
-
-  .>Telugu     క  ఖ  గ  ఘ  ఙ  చ  ఛ  జ  ఝ  > ఞ  ట  ఠ  డ  ఢ  ణ  త  థ  ద  ధ  > న  ప  ఫ  బ  భ  మ  య  ర ఱ  ల  >  ళ  వ  శ  ష  స  హ
-  .>Kannada    ಕ  ಖ  ಗ  ಘ  ಙ  ಚ  ಛ  ಜ  ಝ  > ಞ  ಟ  ಠ  ಡ  ಢ  ಣ  ತ  ಥ  ದ  ಧ  > ನ  ಪ  ಫ  ಬ  ಭ  ಮ  ಯ  ರ ಱ  ಲ  ಳ  ೞ  ವ  ಶ  ಷ  ಸ  ಹ
-  .>Sinhala    ක  ඛ  ග  ඝ  ඞ  ච  ඡ  ජ  ඣ  > ඤ  ට  ඨ  ඩ  ඪ  ණ  ත  ථ  ද  ධ  > න  ප  ඵ  බ  භ  ම  ය  > ර  ල  >  ළ  ව  ශ  ෂ  ස  හ
-  .>Malayalam  ക  ഖ  ഗ  ഘ  ങ  ച  ഛ  ജ  ഝ  > ഞ  ട  ഠ  ഡ  ഢ  ണ  ത  ഥ  ദ  ധ  ന =  പ  ഫ  ബ  ഭ  മ  യ  ര റ  ല  ള  ഴ  വ  ശ  ഷ  സ  ഹ
-  .>Tamil      க  -  -  -  ங  ச  -  ஜ  -  > ஞ  ட  -  -  -  ண  த  -  -  -  ந ன  ப  -  -  -  ம  ய  ர ற  ல  ள  ழ  வ  ஶ  ஷ  ஸ  ஹ
-  .>Burmese    က  ခ  ဂ  ဃ  င  စ  ဆ  ဇ  ဈ  ဉ ည  ဋ  ဌ  ဍ  ဎ  ဏ  တ  ထ  ဒ  ဓ  > န  ပ  ဖ  ဗ  ဘ  မ  ယ  > ရ  လ  ဠ  ၔ  ဝ  ၐ  ၑ  သ  ဟ
-  .>Khmer      ក  ខ  គ  ឃ  ង  ច  ឆ  ជ  ឈ  > ញ  ដ  ឋ  ឌ  ឍ  ណ  ត  ថ  ទ  ធ  > ន  ប  ផ  ព  ភ  ម  យ  > រ  ល  >  -  វ  ឝ  ឞ  ស  ហ
-  .>Thai       ก  ข  ค  ฆ  ง  จ  ฉ  ช  ฌ  > ญ  ฏ  ฐ  ฑ  ฒ  ณ  ต  ถ  ท  ธ  > น  ป  ผ  พ  ภ  ม  ย  > ร  ล  >  -  ว  ศ  ษ  ส  ห
-  .>Lao        ກ  ຂ  -  ຄ  ງ  ຈ  ສ  ຊ  -  > ຍ  -  -  -  -  -  ຕ  ຖ  ທ  -  > ນ  ປ  ຜ  ຟ  ພ  ມ  ຢ  > ຣ  ລ  >  -  ວ  -  -  -  ຫ
-  .>Baybayin   ᜃ  -  ᜄ  -  ᜅ  -  -  -  -  > -  -  -  -  -  -  ᜆ  -  ᜇ  -  > ᜈ  ᜉ  -  ᜊ  -  ᜋ  ᜌ  > ᜇ  ᜎ  >  -  -  -  -  ᜐ  ᜑ
-}]);
-
 :></div>
 
+<hr>
+