X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/946a46c18e8ef11d5f06ca30901e82d3bf6fd275..b1a099f695f80243c53d97c448c98053dcc6effb:/writing.plp?ds=inline
diff --git a/writing.plp b/writing.plp
index 8161389..dfd78a4 100644
--- a/writing.plp
+++ b/writing.plp
@@ -1,105 +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
-
-Also see charsets
-and common chars.
+my $rows = $info->{list} or Abort(
+ "Requested script parent $source
not available",
+ '404 request not found',
+);
-
+say "
\u$info->{title} scripts
";
+say "
$_
" for $info->{intro} || ();
+say '
';
-<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
-
-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 '
%s
'."\n\n", shift;
- while (ref $_[0] and $_ = shift) {
- print $glyphs->table($_);
- }
- print '';
- }
+unless (exists $get{v}) {
+ $glyphs->{unicode}--;
+ $glyphs->{anno} = [];
+ $glyphs->{style} = 'univer';
}
-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 འའའ- འà½
འའ- > འའའའ- འའའའ- > འའའའ- འཡ > ར ལ > - འཤ ཥ ས ཧ
+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}]);
- .>Telugu à° à° à° à° à° à° à° à° à° > à° à° à° à°¡ à°¢ à°£ à°¤ à°¥ à°¦ à°§ > à°¨ à°ª à°« à°¬ à° à°® à°¯ à°° à°± à°² > à°³ à°µ à°¶ à°· à°¸ à°¹
- .>Kannada ಠಠಠಠಠಠಠಠಠ> ಠಠಠಡ ಢ ಣ ತ ಥ ದ ಧ > ನ ಪ ಫ ಬ ಠಮ ಯ ರ ಱ ಲ ಳ ೠವ ಶ ಷ ಸ ಹ
- .>Sinhala චචචචචචඡ ජ ඣ > ඤ ට ඨ ඩ ඪ ණ චථ ද ධ > න ප ඵ බ භ ම ය > ර ල > à·
à· à· à· à· à·
- .>Malayalam à´ à´ à´ à´ à´ à´ à´ à´ à´ > à´ à´ à´ à´¡ à´¢ à´£ à´¤ à´¥ à´¦ à´§ à´¨ = à´ª à´« à´¬ à´ à´® à´¯ à´° à´± à´² à´³ à´´ à´µ à´¶ à´· à´¸ à´¹
- .>Tamil ஠- - - ஠஠- ஠- > ஠஠- - - ண த - - - ந ன ப - - - ம ய ர ற ல ள ழ வ ஶ ஷ ஸ ஹ
- .>Burmese á á á á á á
á á á á á á á á á á á á á á > á á á á á á á > á á á á á á á á á
- .>Khmer á á á á á á
á á á > á á á á á á á á á á > á á á á á á á > á á > - á á á á á
- .>Thai ภภภภภภภภภ> ภภภภภภภภภภ> ภภภภภม ย > ร ล > - ว ศ ษ ส ห
- .>Lao ຠຠ- ຠຠຠສ ຠ- > ຠ- - - - - ຠຠຠ- > ຠຠຠຠຠມ ຢ > ຣ ລ > - ວ - - - ຫ
- .>Baybayin á - á - á
- - - - > - - - - - - á - á - > á á - á - á á > á á > - - - - á á
-}]);
+say "
\n";
-:>
+say for '
', $glyphs->legend;