File Coverage

blib/lib/Lingua/YI/Romanize.pm

Criterion	Covered	Total	%
statement	55	55	100.0
branch	4	4	100.0
condition	2	3	100.0
subroutine	10	10	100.0
pod	3	3	100.0
total	74	75	100.0

package Lingua::YI::Romanize;
use utf8;

use strict;
use warnings;

our $VERSION = '0.02';

use Unicode::Normalize;

our $normalize_combinings;
our $yivo2latn;
our $vowels;
our $consonants;
our $consonants_2;


sub new {
  my $class = shift;
  # uncoverable condition false
  bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
}

sub _gen_charclass {
   my $chartable = shift;
   my $string;
   for my $cons (@{$chartable}) {
       $string .= $cons->[0];
   }
   return join('|',split('',$string));
}

sub _normalize {
    my $string = shift;
    for my $rule (@$normalize_combinings) {
        $string =~ s/$rule->[0]/$rule->[1]/g;
    }
    return $string;
}

sub yivo2latn {
    my ($self, $text) = @_;
    my $string = _normalize(NFC($text));

	my $cons_2 = _gen_charclass($consonants_2);;
	my $cons   = _gen_charclass($consonants);
	my $vowels = _gen_charclass($vowels);

# "\x{05D9}" HEBREW LETTER YOD|י|y, i
# 1.1. y before or after a vowel;
# i between consonants;
# y after ‫ ט‬t, ‫ ד‬d, ‫ ס‬s, ‫ ז‬z, ‫ ל‬l, ‫ נ‬n; and before a vowel
#     indicates the palatals in words of Slavic origin.

    $string =~ s/\x{05D9}($vowels)/y$1/g;
    $string =~ s/($vowels)\x{05D9}/${1}y/g;
    $string =~ s/($cons_2)\x{05D9}/${1}y/g;
    $string =~ s/($cons)\x{05D9}($cons)/${1}i${2}/g;
    $string =~ s/\x{05D9}/i/g;

    for my $rule (@$yivo2latn) {
        $string =~ s/$rule->[0]/$rule->[1]/g;
    }
    return $string;
}

sub yivo2ipa {
    my ($self, $text) = @_;
    my $string = _normalize(NFC($text));

	my $cons_2 = _gen_charclass($consonants_2);;
	my $cons   = _gen_charclass($consonants);
	my $vowels = _gen_charclass($vowels);

# "\x{05D9}" HEBREW LETTER YOD|י|y, i
# 1.1. y before or after a vowel;
# i between consonants;
# y after ‫ ט‬t, ‫ ד‬d, ‫ ס‬s, ‫ ז‬z, ‫ ל‬l, ‫ נ‬n; and before a vowel
#     indicates the palatals in words of Slavic origin.

    $string =~ s/\x{05D9}($vowels)/j$1/g;
    $string =~ s/($vowels)\x{05D9}/${1}j/g;
    $string =~ s/($cons)\x{05D9}($cons)/${1}i${2}/g;
    $string =~ s/($cons_2)\x{05D9}/${1}j/g;


    for my $rule (@$yivo2latn) {
        $string =~ s/$rule->[0]/$rule->[2]/g;
    }
    return $string;
}

BEGIN {
$normalize_combinings = [
["\x{05D0}\x{05B7}","\x{FB2E}"], # HEBREW LETTER ALEF WITH PATAH
["\x{05D0}\x{05B8}","\x{FB2F}"], # HEBREW LETTER ALEF WITH QAMATS
["\x{05D1}\x{05BC}","\x{FB31}"], # HEBREW LETTER BET WITH DAGESH
["\x{05D1}\x{05BF}","\x{FB4C}"], # HEBREW LETTER BET WITH RAFE
["\x{05D5}\x{05BC}","\x{FB35}"], # HEBREW LETTER VAV WITH DAGESH
["\x{05D5}\x{05D5}","\x{05F0}"], # HEBREW LIGATURE YIDDISH DOUBLE VAV
["\x{05D5}\x{05D9}","\x{05F1}"], # HEBREW LIGATURE YIDDISH VAV YOD
["\x{05D9}\x{05B4}","\x{FB1D}"], # HEBREW LETTER YOD WITH HIRIQ
["\x{05D9}\x{05D9}","\x{05F2}"], # HEBREW LIGATURE YIDDISH DOUBLE YOD
["\x{05F2}\x{05B7}","\x{FB1F}"], # HEBREW LIGATURE YIDDISH YOD YOD PATAH
["\x{05DB}\x{05BC}","\x{FB3B}"], # HEBREW LETTER KAF WITH DAGESH
["\x{05E4}\x{05BC}","\x{FB44}"], # HEBREW LETTER PE WITH DAGESH
["\x{05E4}\x{05BF}","\x{FB4E}"], # HEBREW LETTER PE WITH RAFE
["\x{05E9}\x{05C2}","\x{FB2B}"], # HEBREW LETTER SHIN WITH SIN DOT
["\x{05EA}\x{05BC}","\x{FB4A}"], # HEBREW LETTER TAV WITH DAGESH
["\x{FB20}","\x{05E2}"],         # HEBREW LETTER ALTERNATIVE AYIN
["\x{05E4}","\x{05BF}"],         # HEBREW LETTER PE
];


$yivo2latn = [
["\x{05D3}\x{05D6}\x{05E9}", 'dzh', 'd͡ʒ'],
["\x{05D6}\x{05E9}",         'zh',  'ʒ'  ],
["\x{05D8}\x{05E9}",         'tsh', 't͡ʃ'],
["\x{05D0}",                 '',    ''   ],
["\x{FB2E}",                 'a',   'a'  ],
["\x{FB2F}",                 'o',   'ɔ'  ],
["\x{05D1}",                 'b',   'b'  ],
["\x{FB31}",                  '',   'b'  ],
["\x{FB4C}",                 'v',   'v'  ],
["\x{05D2}",                 'g',   'ɡ'  ],
["\x{05D3}",                 'd',   'd'  ],
["\x{05D4}",                 'h',   'h'  ],
["\x{05D5}",                 'u',   'ʊ'  ],
["\x{FB35}",                 'u',   'ʊ'  ],
# "\x{05D5}" HEBREW LETTER VAV,
# "\x{05B9}" HEBREW POINT HOLAM
# |וֹ|(none)|(none)|ɔ, ɔj|(o,oj)|khoylem|Non-YIVO alternative to אָ and וי.
["\x{05F0}",                 'v',   'v'  ],
["\x{05F1}",                 'oy',  'ɔj' ],
["\x{05D6}",                 'z',   'z'  ],
["\x{05D7}",                 'kh',  'x'  ],
["\x{05D8}",                 't',   't'  ],
# TODO "\x{05D9}" HEBREW LETTER YOD
# |י|y, i|y, i|j, i|j, i|yud|Consonantal [j]
# when the first character in a syllable. Vocalic [i] otherwise.
["\x{FB1D}",                 'i',   'i'  ],
["\x{05F2}",                 'ey',  'ɛj' ],
["\x{FB1F}",                 'ay',  'aj' ],
["\x{FB3B}",                 'k',   'k'  ],
["\x{05DB}",                 'kh',  'x'  ],
["\x{05DA}",                 'kh',  'x'  ],
["\x{05DC}",                 'l',   'l'  ], # TODO: ʎ
["\x{05DE}",                 'm',   'm'  ],
["\x{05DD}",                 'm',   'm'  ],
["\x{05E0}",                 'n',   'n'  ],
["\x{05DF}",                 'n',   'n'  ], # TODO: ŋ, m
["\x{05E1}",                 's',   's'  ],
["\x{05E2}",                 'e',   'ɛ'  ], # TODO: ə
["\x{FB44}",                 'p',   'p'  ],
["\x{FB4E}",                 'f',   'f'  ],
["\x{05E3}",                 'f',   'f'  ],
["\x{05BF}",                 'f',   'f'  ],
["\x{05E6}",                 'ts',  'ts' ],
["\x{05E5}",                 'ts',  'ts' ],
["\x{05E7}",                 'k',   'k'  ],
["\x{05E8}",                 'r',   'ʀ'  ],
["\x{05E9}",                 'sh',  'ʃ'  ],
["\x{FB2B}",                 's',   's'  ],
["\x{FB4A}",                 't',   't'  ],
["\x{05EA}",                 's',   's'  ],
];

$vowels = [
["\x{FB2E}",'a'],
["\x{FB2F}",'o'],
["\x{05D5}",'u'],
["\x{FB35}",'u'],
["\x{05F1}",'oy'],
# TODO "\x{05D9}" HEBREW LETTER YOD|י|y, i|y, i|j, i|j, i|yud|Consonantal [j] when the first character in a syllable. Vocalic [i] otherwise.
["\x{FB1D}",'i'],
["\x{05F2}",'ey'],
["\x{FB1F}",'ay'],
["\x{05E2}",'e'],
];

$consonants = [
["\x{05D1}",'b'],
["\x{FB4C}",'v'],
["\x{05D2}",'g'],
["\x{05D3}",'d'],
["\x{05D4}",'h'],
["\x{05F0}",'v'],
["\x{05D6}",'z'],
["\x{05D7}",'kh'],
["\x{05D8}",'t'],
["\x{FB3B}",'k'],
["\x{05DB}",'kh'],
["\x{05DA}",'kh'],
["\x{05DC}",'l'],
["\x{05DE}",'m'],
["\x{05DD}",'m'],
["\x{05E0}",'n'],
["\x{05DF}",'n'],
["\x{05E1}",'s'],
["\x{FB44}",'p'],
["\x{FB4E}",'f'],
["\x{05E3}",'f'],
["\x{05BF}",'f'],
["\x{05E6}",'ts'],
["\x{05E5}",'ts'],
["\x{05E7}",'k'],
["\x{05E8}",'r'],
["\x{05E9}",'sh'],
["\x{FB2B}",'s'],
["\x{FB4A}",'t'],
["\x{05EA}",'s'],
];

$consonants_2 = [

["\x{05D3}",'d'],
["\x{05D6}",'z'],
["\x{05D8}",'t'],
["\x{05DC}",'l'],
["\x{05E0}",'n'],
["\x{05E1}",'s'],
#["\x{FB4A}",'t'],
];
}

1;

__END__