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 circus dark red mono'],
16 data => [qw'writing-phnx.inc.pl'],
20 <h1>Writing systems</h1>
23 Comparison of Unicode letters in related alphabets.
24 Also see <a href="/charset">charsets</a>
25 and <a href="/unicode">common chars</a>.</p>
30 use Shiar_Sheet::FormatChar;
31 my $glyphs = Shiar_Sheet::FormatChar->new;
32 unless (exists $get{v}) {
35 $glyphs->{style} = 'univer';
38 my $scriptname = do 'writing-script.inc.pl';
39 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
42 [phnx => 'Phoenician'],
45 my ($source, $title) = @$_;
46 my @table = do "writing-$source.inc.pl";
48 say "<h2>$title</h2>";
49 printf "<p>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
52 $glyphs->print($title => [map {
53 my $lead = s/^(-)// && $1;
54 ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
55 $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
64 <table class="glyphs"><tr>
65 <td class="X l5">unicode 1.1
66 <td class="X l4">20th century
67 <td class="X l3">in 6.0 (2010)
68 <td class="X l2">recent assignments
69 <td class="X l1">proposed
70 <td class="ex">irregular