X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e5574a9104315b6c16abd7e47a071a25fdcf7cd3..b1a099f695f80243c53d97c448c98053dcc6effb:/writing.plp?ds=sidebyside
diff --git a/writing.plp b/writing.plp
index beb2165..dfd78a4 100644
--- a/writing.plp
+++ b/writing.plp
@@ -1,115 +1,53 @@
<(common.inc.plp)><:
+my $source = lc $Request || 'phnx';
+$source =~ s/^brah\Kmi$//;
+my $include = "writing-$source";
+
+my $info = eval { Data($include) } || {};
+
Html({
- title => 'writing system inheritance sheet',
- version => 'v1.0',
- description => [
- "Character comparison,",
- "tracking letters as they evolve from Phoenician to modern scripts.",
- "Good Unicode test sample.",
- ],
- keywords => [qw'
- script glyph unicode writing comparison character alphabet letter
- history phoenician latin sample test language multilingual
- '],
- stylesheet => [qw'light dark red'],
+ title => $info->{pagetitle} || "$info->{title} scripts comparison sheet",
+ version => $info->{version} || '0.1',
+ description => $info->{description},
+ keywords => [@{ $info->{keywords} // []}, qw(
+ writing script glyph unicode character letter comparison history
+ alphabet sample test language multilingual
+ )],
+ stylesheet => [qw'light circus dark red mono'],
+ data => ["$include.inc.pl"],
});
-:>
-
Writing systems
+my $rows = $info->{list} or Abort(
+ "Requested script parent $source
not available",
+ '404 request not found',
+);
-Also see charsets
-and common chars.
+say "\u$info->{title} scripts
";
+say "$_
" for $info->{intro} || ();
+say '';
-
-
-<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
unless (exists $get{v}) {
$glyphs->{unicode}--;
- $glyphs->{digraph}--;
+ $glyphs->{anno} = [];
+ $glyphs->{style} = 'univer';
}
-print $glyphs->table([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_[â ¼+] â â â â â â â â â â
-}]);
+my $scriptname = eval { Data('writing-script') }; # optional translations
+$_ = showlink($_, "/latin") for $scriptname->{latn} || ();
+$_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || ();
+
+say $glyphs->table([map {
+ my $lead = s/^(-)// && $1;
+ (map { ".>$lead$_" }
+ $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+ ),
+ @{ $info->{table}->{$_} || [] }
+} @{$rows}]);
-$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 á - á - á
- - - - > - - - - - - á - á - > á á - á - á á > á á > - - - - á á
-}]);
+say "
\n";
-:>
+say for '
', $glyphs->legend;