X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a605211aaba5d956789c1d30c09a55494858d086..0a14ea8590ebb5b676a97b432484c6df47c435f0:/writing.plp?ds=inline diff --git a/writing.plp b/writing.plp index 8ea9a0c..82049fe 100644 --- a/writing.plp +++ b/writing.plp @@ -2,7 +2,7 @@ Html({ title => 'writing system inheritance sheet', - version => 'v1.0', + version => '1.3', description => [ "Character comparison,", "tracking letters as they evolve from Phoenician to modern scripts.", @@ -12,7 +12,7 @@ Html({ script glyph unicode writing comparison character alphabet letter history phoenician latin sample test language multilingual '], - stylesheet => [qw'light dark red'], + stylesheet => [qw'light circus dark red mono'], data => [qw'writing-phnx.inc.pl'], }); @@ -35,20 +35,19 @@ unless (exists $get{v}) { $glyphs->{style} = 'univer'; } -my $scriptname = do 'writing-script.inc.pl'; -$_ = qq{$_} for $scriptname->{latn} || (); +my $scriptname = eval { Data('writing-script') }; # optional translations +$_ = showlink($_, "/latin") for $scriptname->{latn} || (); for ( [phnx => 'Phoenician'], [brah => 'Brahmi'], ) { my ($source, $title) = @$_; - my @table = do "writing-$source.inc.pl"; - if ($! or $@) { - print "
Table data not found: %s.
\n", $! || $@; + my @table = eval { Data("writing-$source") } or do { + say "%s: %s.
\n", @{$@}; next; - } + }; $glyphs->print($title => [map { my $lead = s/^(-)// && $1; ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" } @@ -56,18 +55,7 @@ for ( } @table]); } -:> +say "\n"; -unicode 1.1 - | 20th century - | in 6.0 (2010) - | recent assignments - | proposed - | irregular - |