latin: common tap code row
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 3 Mar 2015 18:04:33 +0000 (19:04 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 9 Jun 2015 03:43:42 +0000 (05:43 +0200)
latin.plp
writing-latn.inc.pl

index d27c06f..8dab21a 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -50,6 +50,7 @@ my %scriptname = (
        ase      => '<abbr title="American Sign Lanugage">ASL</abbr> shapes',
        brai     => 'Braille',
        morse    => 'Morse',
+       tap      => 'Tap code',
 );
 
 my @table = do 'writing-latn.inc.pl';
index 4c31b67..5849900 100644 (file)
@@ -1,4 +1,5 @@
 use utf8;
+
 (
 latn     => [qw{ 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 }],
 latfsuet => [qw{ 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 }],
@@ -8,4 +9,8 @@ morse    => [map {tr/.-/‧‑/r} qw{
                .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
                -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
             }],
+tap      => [qw{
+               11 12 13 14 15 21 22 23 24 -24 25 31 32
+               33 34 35 41 42 43 44 45 51 52 53 54 55
+            }],
 );