4 title => 'writing system inheritance sheet',
7 "Character comparison,",
8 "tracking letters as they evolve from Phoenician to modern scripts.",
9 "Good Unicode test sample.",
12 script glyph unicode writing comparison character alphabet letter
13 history phoenician latin sample test language multilingual
15 stylesheet => [qw'light dark red'],
19 <h1>Writing systems</h1>
21 <p>Also see <a href="/charset">charsets</a>
22 and <a href="/unicode">common chars</a>.</p>
27 use Shiar_Sheet::FormatChar;
28 my $glyphs = Shiar_Sheet::FormatChar->new;
29 unless (exists $get{v}) {
48 guru => 'Gurmukhi', # ਪੰਜਾਬੀ ੧
61 latn => '<a href="/latin">Latin</a>',
65 mlym => 'Malayalam', # മലയാളം ൧
68 orya => 'Oriya', # ଓଡ଼ିଆ
76 talu => 'New_Tai_Lue',
77 taml => 'Tamil', # தமிழ் ௧
85 digits_latn => 'Arabic_(Western)',
86 digits_latnlat => 'Roman',
87 digits_brai => 'Braille_[⠼+]',
88 arabindi => 'Arabic_-_Indic',
89 arabpers => 'Arabic_-_Indic_(Alt)',
90 digits_brahnumb => 'Brahmi',
91 lanahora => 'Tai_Tham_Hora',
96 [phnx => 'Phoenician'],
100 my ($source, $title) = @$_;
101 my @table = do "writing-$source.inc.pl";
103 print "<h2>$title</h2>\n";
104 printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
107 $glyphs->print($title => [map {
108 ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
109 $scriptname{$source.'_'.$_} || $scriptname{$_} || $_