X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/be342553fb6144a3ebb2b5d996049bbaa006ee7a..344c5c6bf56aca4d4117ed70dbd007c3f2a5e135:/latin.plp diff --git a/latin.plp b/latin.plp index 5e53894..c146fcc 100644 --- a/latin.plp +++ b/latin.plp @@ -39,31 +39,13 @@ unless (exists $get{v}) { $glyphs->{style} = 0; } -my %scriptname = ( - latn => 'Latin', - latnuc => 'Uppercase', - latnlc => 'Lowercase', - latfsuet => 'Sütterlin', - asl => 'ASL', # American manual alphabet - brai => 'Braille', - morse => 'Morse', - tap => 'Tap code', - taps => 'Tap simplified', - ics => 'Maritime flags', # International Code of Signals - sem => 'Flag semaphore', - pigpen => 'Pigpen', - wingdings=> 'Wingdings', - code39 => 'Code 39', # ISO/IEC 16388 - rm4scc => 'RM4SCC', -); - my @table = do 'writing-latn.inc.pl'; if ($! or $@) { printf "

Table data not found: %s.

\n", $@ || $!; } else { print $glyphs->table([map { - ref $_ ne 'ARRAY' ? ".>$scriptname{$_}" + ref $_ ne 'ARRAY' ? ".>$_" : exists $get{uc} ? map {uc} @$_ : @$_ } @table]); }