script.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'script inheritance cheat sheet',
   5         version => 'v1.0',
   6         description => [
   7                 "Character comparison,",
   8                 "tracking letters as they evolve from Phoenician to modern scripts.",
   9                 "Good Unicode test sample.",
  10         ],
  11         keywords => [qw'
  12                 script glyph unicode writing comparison character alphabet letter
  13                 history phoenician latin sample test language multilingual
  14         '],
  15         stylesheet => [qw'light dark red'],
  16 });
  17
  18 :>
  19 <h1>Scripts</h1>
  20
  21 <p>Also see <a href="/charset">charsets</a>
  22 and <a href="/unicode">common chars</a>.</p>
  23
  24 <div class="diinfo">
  25
  26 <:
  27 use Shiar_Sheet::FormatChar;
  28 my $glyphs = Shiar_Sheet::FormatChar->new;
  29
  30 print $glyphs->table([qw{
  31         .>Chinese              壹 貳 參 肆 伍 陸 柒 捌 玖 零
  32         .>Chinese              一 二 三 四 五 六 七 八 九 〇
  33         .>Hangzhou             〡 〢 〣 〤 〥 〦 〧 〨 〩
  34         .>Ethiopic             ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱
  35         .>Khmer                ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០
  36         .>Arabic_-_Indic       ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٠
  37         .>Arabic_-_Indic_(Alt) ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۰
  38         .>Lao                  ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໐
  39         .>Malayalam_-_മലയാളം   ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ ൦
  40         .>Tamil_-_தமிழ்         ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯
  41         .>Myanmar              ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၀
  42         .>Thai_-_ไทย           ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐
  43         .>Kannada              ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ ೦
  44         .>Telugu               ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ ౦
  45         .>Tibetan              ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༠
  46         .>Bengali              ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ০
  47         .>Oriya_-_ଓଡ଼ିଆ          ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୦
  48         .>Gurmukhi_-_ਪੰਜਾਬੀ     ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੦
  49         .>Gujarati             ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ ૦
  50         .>Devanagari           १ २ ३ ४ ५ ६ ७ ८ ९ ०
  51         .>Arabic_(Western)     1 2 3 4 5 6 7 8 9 0
  52         .>Roman                Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ
  53         .>Tengwar                       
  54         .>Klingon                        
  55 }]);
  56
  57 sub print_glyph_tables {
  58         while (@_) {
  59                 printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
  60                 while (ref $_[0] and $_ = shift) {
  61                         print $glyphs->table($_);
  62                 }
  63                 print '</div>';
  64         }
  65 }
  66
  67 print_glyph_tables(
  68 Western => [qw{
  69         .>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
  70         .>Old_Italic 𐌀 > 𐌁  > 𐌂  𐌃  > 𐌄  𐌅  >  >  𐌖 𐌆 𐌇  𐌈  𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎  𐌏  𐌐 >  𐌑 𐌒  𐌓 > 𐌔  𐌕
  71         .>Cyrillic   А Б В  > Г  Д  Е Э  >  -Ѵ >  У З И  Ѳ  > І К Л М Н Х -Ѯ О  П Ц  Ч -Ҁ Р Ш С  Т
  72         .>Gothic     𐌰 > 𐌱  > 𐌲  𐌳  > 𐌴  𐍆  >  >  𐍅 𐌶 𐌷  𐌸  > 𐌹 𐌺 𐌻 𐌼 𐌽 > 𐍇  𐌿  𐍀 >  - -  𐍂 > 𐍃  𐍄
  73         .>Coptic     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
  74         .>Greek      Α > Β  > Γ  Δ  > Ε  -Ϝ >  >  Υ Ζ Η  Θ  Ι Ј Κ Λ Μ Ν Χ Ξ  Ο  Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ
  75         .>Phoenician 𐤀 > 𐤁  > 𐤂  𐤃  > 𐤄  >  >  >  𐤅 𐤆 𐤇  𐤈  > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎  𐤏  𐤐 >  𐤑 𐤒  𐤓 > 𐤔  𐤕
  76         .>Samaritan  ࠀ > ࠁ  > ࠂ  ࠃ  > ࠄ  >  >  >  ࠅ ࠆ ࠇ  ࠈ  > ࠉ ࠊ ࠋ ࠌ ࠍ > ࠎ  ࠏ  ࠐ >  ࠑ ࠒ  ࠓ > ࠔ  ࠕ
  77         .>Hebrew     א > ב  > ג  ד  > ה  >  >  ו  װ ז ח  ט  י ײ כ ל מ נ > ס  ע  פ צ  ץ ק  ר > ש  ת
  78         .>Syriac     ܐ > ܒ  > ܓ  ܕ  > ܗ  >  >  >  ܘ ܙ ܚ  ܛ  ܝ ҩ ܟ ܠ ܡ ܢ > ܣ  ܥ  ܦ >  ܨ ܩ  ܪ > ܫ  ܬ
  79         .>Arabic     ﺍ > ﺏ  > ﺝ  دذ ه ـ  >  >  >  ﻭ ﺯ حخ طظ > ي ﻙ ﻝ ﻡ ﻥ > س  عغ ﻑ ص  ض ﻕ  ﺭ > ش  تث
  80 }]);
  81
  82 :></div>
  83