latin: common tap code row

diff --git a/latin.plp b/latin.plp
index d27c06f12518a4c2543612457f3c95651378076f..8dab21aa73ba800b7512588d3293a3cc100e3df8 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';

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 4c31b67aa178268fe97b7fc79af66d964144c7c5..58499007120d295f48395fca0d929ee7d2e973e9 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -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
+            }],
 );