Html({
title => 'writing system inheritance sheet',
- version => 'v1.0',
+ version => 'v1.1',
description => [
"Character comparison,",
"tracking letters as they evolve from Phoenician to modern scripts.",
script glyph unicode writing comparison character alphabet letter
history phoenician latin sample test language multilingual
'],
- stylesheet => [qw'light dark red'],
+ stylesheet => [qw'light circus dark red mono'],
+ data => [qw'writing-phnx.inc.pl'],
});
:>
<h1>Writing systems</h1>
-<p>Also see <a href="/charset">charsets</a>
+<p>
+Comparison of Unicode letters in related alphabets.
+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->{anno} = [];
+ $glyphs->{style} = 'univer';
+}
-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 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠
-}]);
+my $scriptname = do 'writing-script.inc.pl';
+$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
-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'],
+) {
+ 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]);
}
-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 ཀ ཁ ག - ང ཅ ཆ ཇ - > ཉ ཊ ཋ ཌ - ཎ ཏ ཐ ད - > ན པ ཕ བ - མ ཡ > ར ལ > - ཝ ཤ ཥ ས ཧ
+:></div>
- .>Telugu క ఖ గ ఘ ఙ చ ఛ జ ఝ > ఞ ట ఠ డ ఢ ణ త థ ద ధ > న ప ఫ బ భ మ య ర ఱ ల > ళ వ శ ష స హ
- .>Kannada ಕ ಖ ಗ ಘ ಙ ಚ ಛ ಜ ಝ > ಞ ಟ ಠ ಡ ಢ ಣ ತ ಥ ದ ಧ > ನ ಪ ಫ ಬ ಭ ಮ ಯ ರ ಱ ಲ ಳ ೞ ವ ಶ ಷ ಸ ಹ
- .>Sinhala ක ඛ ග ඝ ඞ ච ඡ ජ ඣ > ඤ ට ඨ ඩ ඪ ණ ත ථ ද ධ > න ප ඵ බ භ ම ය > ර ල > ළ ව ශ ෂ ස හ
- .>Malayalam ക ഖ ഗ ഘ ങ ച ഛ ജ ഝ > ഞ ട ഠ ഡ ഢ ണ ത ഥ ദ ധ ന = പ ഫ ബ ഭ മ യ ര റ ല ള ഴ വ ശ ഷ സ ഹ
- .>Tamil க - - - ங ச - ஜ - > ஞ ட - - - ண த - - - ந ன ப - - - ம ய ர ற ல ள ழ வ ஶ ஷ ஸ ஹ
- .>Burmese က ခ ဂ ဃ င စ ဆ ဇ ဈ ဉ ည ဋ ဌ ဍ ဎ ဏ တ ထ ဒ ဓ > န ပ ဖ ဗ ဘ မ ယ > ရ လ ဠ ၔ ဝ ၐ ၑ သ ဟ
- .>Khmer ក ខ គ ឃ ង ច ឆ ជ ឈ > ញ ដ ឋ ឌ ឍ ណ ត ថ ទ ធ > ន ប ផ ព ភ ម យ > រ ល > - វ ឝ ឞ ស ហ
- .>Thai ก ข ค ฆ ง จ ฉ ช ฌ > ญ ฏ ฐ ฑ ฒ ณ ต ถ ท ธ > น ป ผ พ ภ ม ย > ร ล > - ว ศ ษ ส ห
- .>Lao ກ ຂ - ຄ ງ ຈ ສ ຊ - > ຍ - - - - - ຕ ຖ ທ - > ນ ປ ຜ ຟ ພ ມ ຢ > ຣ ລ > - ວ - - - ຫ
- .>Baybayin ᜃ - ᜄ - ᜅ - - - - > - - - - - - ᜆ - ᜇ - > ᜈ ᜉ - ᜊ - ᜋ ᜌ > ᜇ ᜎ > - - - - ᜐ ᜑ
-}]);
+<hr>
-:></div>
+<div class="legend">
+ <table class="glyphs"><tr>
+ <td class="X l5">unicode 1.1
+ <td class="X l4">20th century
+ <td class="X l3">in 6.0 (2010)
+ <td class="X l2">recent assignments
+ <td class="X l1">proposed
+ <td class="ex">irregular
+ </table>
+</div>