X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/382c7b09ee97a5c312c7d1922036609c7f950776..b72093417bc56491451ccee26c93f3e5c73c97eb:/latin.plp diff --git a/latin.plp b/latin.plp index 89afb61..2809d7e 100644 --- a/latin.plp +++ b/latin.plp @@ -28,13 +28,13 @@ unless (exists $get{v}) { $glyphs->{digraph}--; } -my @t = (qw{ - .>Latin a b c d e f g h i j k l m n o p q r s t u v w x y z - .>Braille â â â â â â â â â â â â â â â â â â â â â ¥ â § â º â â ½ â µ - .>Morse â§â ââ§â§â§ ââ§â⧠ââ§â§ ⧠â§â§â⧠ââ⧠â§â§â§â§ â§â§ â§âââ ââ§â â§ââ§â§ ââ - â⧠âââ â§ââ⧠âââ§â â§â⧠â§â§â§ â â§â§â â§â§â§â â§ââ ââ§â§â ââ§ââ âââ§â§ -}); -print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @t] : \@t); +my @table = do 'writing-latn.inc.pl'; +if ($! or $@) { + printf "
Table data not found: %s.
\n", $! || $@; +} +else { + print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @table] : \@table); +} print "\n";