<(common.inc.plp)><: Html({ title => 'writing system inheritance sheet', version => 'v1.1', 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 circus dark red mono'], data => [qw'writing-phnx.inc.pl'], }); :>

Writing systems

Comparison of Unicode letters in related alphabets. Also see charsets and common chars.

<: use Shiar_Sheet::FormatChar; my $glyphs = Shiar_Sheet::FormatChar->new; unless (exists $get{v}) { $glyphs->{unicode}--; $glyphs->{anno} = []; $glyphs->{style} = 'univer'; } my $scriptname = do 'writing-script.inc.pl'; $_ = qq{$_} for $scriptname->{latn} || (); for ( [phnx => 'Phoenician'], [brah => 'Brahmi'], ) { my ($source, $title) = @$_; my @table = do "writing-$source.inc.pl"; if ($! or $@) { print "

$title

\n"; printf "

Table data not found: %s.

\n", $@ || $!; next; } $glyphs->print($title => [map { my $lead = s/^(-)// && $1; ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" } $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ } @table]); } :>
unicode 1.1 20th century in 6.0 (2010) recent assignments proposed irregular