File Coverage

blib/lib/Lingua/OCI/Word2Num.pm

Criterion	Covered	Total	%
statement	26	43	60.4
branch	0	16	0.0
condition	2	4	50.0
subroutine	9	11	81.8
pod	3	3	100.0
total	40	77	51.9

# For Emacs: -*- mode:cperl; eval: (folding-mode 1); coding:utf-8; -*-

package Lingua::OCI::Word2Num;
# ABSTRACT: Word to number conversion in Occitan

use 5.16.0;
use utf8;
use warnings;

# {{{ use block

use Parse::RecDescent;
use Export::Attrs;

# }}}
# {{{ var block
our $VERSION = '0.2603300';
my $parser   = oci_numerals();

# }}}

# {{{ w2n                                         convert text to number

sub w2n :Export {
    my $input = shift // return;

    $input = lc $input;
    $input =~ s/\s+/ /g;
    $input =~ s/^\s+|\s+$//g;

    return $parser->numeral($input);
}
# }}}
# {{{ oci_numerals                                 create parser for numerals

sub oci_numerals {
    return Parse::RecDescent->new(q{



      numeral:  mega
             |  kOhOd
             |  /z(?:e|è)ro/   { 0 }
             |                 {   }

       number:  'un'                  {  1 }
             |  'dos'                 {  2 }
             |  'tres'               {  3 }
             |  'quatre'             {  4 }
             |  'cinc'               {  5 }
             |  /si(?:e|è)is/        {  6 }
             |  /u(?:e|è)ch/         {  8 }
             |  /n(?:o|ò)u/          {  9 }
             |  /d(?:e|è)tz-e-s(?:e|è)t/   { 17 }
             |  /d(?:e|è)tz-e-u(?:e|è)ch/  { 18 }
             |  /d(?:e|è)tz-e-n(?:o|ò)u/   { 19 }
             |  /d(?:e|è)tz/         { 10 }
             |  'onze'               { 11 }
             |  'dotze'              { 12 }
             |  'tretze'             { 13 }
             |  /cat(?:o|ò)rze/      { 14 }
             |  'quinze'             { 15 }
             |  'setze'              { 16 }
             |  /s(?:e|è)t/          {  7 }
             |  'vint-e-un'          { 21 }
             |  'vint-e-dos'         { 22 }
             |  'vint-e-tres'        { 23 }
             |  'vint-e-quatre'      { 24 }
             |  'vint-e-cinc'        { 25 }
             |  /vint-e-si(?:e|è)is/ { 26 }
             |  /vint-e-s(?:e|è)t/   { 27 }
             |  /vint-e-u(?:e|è)ch/  { 28 }
             |  /vint-e-n(?:o|ò)u/   { 29 }
             |  'vint'               { 20 }

         tens:  'trenta'             { 30 }
             |  'quaranta'           { 40 }
             |  'cinquanta'          { 50 }
             |  'seissanta'          { 60 }
             |  'setanta'            { 70 }
             |  'ochanta'            { 80 }
             |  'nonanta'            { 90 }

     hundreds:  number /\-?\s?cents?/ { $item[1] * 100 }
             |  /cents?/              { 100 }

         deca:  tens /-e-/ number     { $item[1] + $item[3] }
             |  tens
             |  number

        hecto:  hundreds deca         { $item[1] + $item[2] }
             |  hundreds

          hOd:  hecto
             |  deca

         kilo:  hOd milnotmeg hOd    { $item[1] * 1000 + $item[3] }
             |  hOd milnotmeg        { $item[1] * 1000 }
             |      milnotmeg hOd    { 1000 + $item[2] }
             |      milnotmeg        { 1000 }

    milnotmeg:   ...!'milion' 'mila'

        kOhOd:  kilo
             |  hOd

         mega:  hOd /milions?/ kOhOd  { $item[1] * 1_000_000 + $item[3] }
             |  hOd /milions?/         { $item[1] * 1_000_000 }
    });
}

# }}}
# {{{ ordinal2cardinal                              convert ordinal text to cardinal text

sub ordinal2cardinal :Export {
    my $input = shift // return;

    # Occitan ordinals 1-10 are fully irregular
    state $irregular = {
        'primièr'   => 'un',      'primièra'  => 'un',
        'segond'    => 'dos',     'segonda'   => 'dos',
        'tresen'    => 'tres',    'tresena'   => 'tres',
        'quatren'   => 'quatre',  'quatrena'  => 'quatre',
        'cinquen'   => 'cinc',    'cinquena'  => 'cinc',
        'sièisen'   => 'sièis',   'sièisena'  => 'sièis',
        'seten'     => 'sèt',     'setena'    => 'sèt',
        'uèchen'    => 'uèch',    'uèchena'   => 'uèch',
        'nòven'     => 'nòu',     'nòvena'    => 'nòu',
        'desen'     => 'dètz',    'desena'    => 'dètz',
    };

    return $irregular->{$input} if exists $irregular->{$input};

    # Regular (11+): cardinal stem + "en" (masc) or "ena" (fem)
    # Try feminine first (longer suffix)
    if ($input =~ s{ena\z}{}xms) {
        _oci_restore_vowel(\$input);
        return $input;
    }

    # Masculine: strip "en"
    $input =~ s{en\z}{}xms or return;

    _oci_restore_vowel(\$input);

    return $input;
}

# }}}
# {{{ _oci_restore_vowel                          restore dropped vowel on stem

sub _oci_restore_vowel {
    my $ref = shift;

    # Occitan drops the final vowel before ordinal suffixes.  The dropped
    # vowel varies by word, so we restore it based on the stem ending.

    # nòu family: dètz-e-nò→dètz-e-nòu (stem ends in "ò" vowel → need "u")
    if    ($$ref =~ m{n[oò]\z}xms)               { $$ref .= 'u' }
    # quatre: vint-e-quatr→vint-e-quatre
    elsif ($$ref =~ m{tr\z}xms)                   { $$ref .= 'e' }
    # decades (trenta, quaranta, etc.): trent→trenta, quarant→quaranta
    elsif ($$ref =~ m{[ae]nt\z}xms)               { $$ref .= 'a' }
    # mila: mil→mila (Occitan "mila" for 1000)
    elsif ($$ref =~ m{mil\z}xms)                   { $$ref .= 'a' }
    # teens ending in -z: onz→onze, dotz→dotze, tretz→tretze, etc.
    elsif ($$ref =~ m{z\z}xms)                     { $$ref .= 'e' }

    return;
}

# }}}

1;

__END__