unicode: secondary ipa header with place categories

Support multiple > prefixes in header cells to span multiple columns.

diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm
index d7c59c171c5c22db71b0d5ac06b08f0aa8d4efa5..71dadfee0e4d96b744f2d3102a9ef38cc5ac5386 100644 (file)
--- a/Shiar_Sheet/FormatChar.pm
+++ b/Shiar_Sheet/FormatChar.pm
@@ -248,11 +248,15 @@ sub table {
        my @colheads;
        while ($digraphs->[0] !~ /^\./) {
                my $cell = shift @$digraphs or last;
+               if ($cell eq '>') {
+                       push @colheads, '<tr>';
+                       next;
+               }
                push @colheads, join('',
                        '<',
                        $cell =~ s/^-// ? 'td' : 'th',
                        $cell =~ s/:(.*)// && qq{ title="$1"},
-                       $cell =~ s/^>// && ' colspan=2',
+                       $cell =~ s/^(>+)// && ' colspan='.(length($1) + 1),
                        '>',
                        $cell eq '_' ? '&nbsp;' : $cell
                );

diff --git a/unicode-table.inc.pl b/unicode-table.inc.pl
index f93a8d8f6c8614a959b41ab5b7a4efe473c205bd..64f3e23dc1ad21bfbf841a2b07f5b74a3806f612 100644 (file)
--- a/unicode-table.inc.pl
+++ b/unicode-table.inc.pl
@@ -172,6 +172,7 @@ latin => {
 
 ipa => {
        cons => [qw{
+               - >Labial >>>Coronal >>Dorsal >>Laryngeal >
                - BiL:Bilabial LD:Labiodental D:Dental Alv:Alveolar PA:Postalveolar
                  Rf:Retroflex Pal:Palatal Vel:Velar Uv:Uvular Ph:Pharyngeal
                  EG:Epiglottal Gl:Glottal