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}) {
34 my $scriptname = do 'writing-script.inc.pl';
35 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
38 [phnx => 'Phoenician'],
42 my ($source, $title) = @$_;
43 my @table = do "writing-$source.inc.pl";
45 print "<h2>$title</h2>\n";
46 printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
49 $glyphs->print($title => [map {
50 ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
51 $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_