File Coverage

blib/lib/Lingua/THA/Word2Num.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch	0	2	0.0
condition	2	4	50.0
subroutine	9	10	90.0
pod	3	3	100.0
total	37	45	82.2

# For Emacs: -*- mode:cperl; eval: (folding-mode 1); coding:utf-8 -*-
package Lingua::THA::Word2Num;
# ABSTRACT: Word to number conversion in Thai

use 5.16.0;
use utf8;
use warnings;

# {{{ use block

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

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

# }}}

# {{{ w2n                       convert text to number

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

    return $parser->numeral($input);
}

# }}}
# {{{ tha_numerals              create parser for thai numerals

sub tha_numerals {
    return Parse::RecDescent->new(q{
      numeral:      mega
                  | saen_group
                  | { }

      # --- units ---
      unit:         'เก้า'     { 9 }
                  | 'แปด'     { 8 }
                  | 'เจ็ด'     { 7 }
                  | 'หก'      { 6 }
                  | 'ห้า'     { 5 }
                  | 'สี่'      { 4 }
                  | 'สาม'     { 3 }
                  | 'สอง'     { 2 }
                  | 'หนึ่ง'    { 1 }

      # --- zero (standalone only) ---
      zero:         'ศูนย์'    { 0 }

      # --- ones in compound (เอ็ด replaces หนึ่ง) ---
      compound_one: 'เอ็ด'     { 1 }
                  | unit

      # --- tens digit (ยี่ replaces สอง for 20s) ---
      tens_digit:   'ยี่'      { 2 }
                  | unit

      # --- สิบ (ten) constructs ---
      deca:         tens_digit 'สิบ' compound_one  { $item[1] * 10 + $item[3] }
                  | tens_digit 'สิบ'               { $item[1] * 10            }
                  | 'สิบ' compound_one              { 10 + $item[2]            }
                  | 'สิบ'                           { 10                       }

      deca_or_unit: deca
                  | compound_one
                  | zero

      # --- ร้อย (hundred) ---
      roi:          unit 'ร้อย' deca_or_unit  { $item[1] * 100 + $item[3] }
                  | unit 'ร้อย'              { $item[1] * 100            }

      roi_group:    roi
                  | deca_or_unit

      # --- พัน (thousand) ---
      phan:         unit 'พัน' roi_group  { $item[1] * 1000 + $item[3] }
                  | unit 'พัน'           { $item[1] * 1000            }

      phan_group:   phan
                  | roi_group

      # --- หมื่น (ten thousand) ---
      muen:         unit 'หมื่น' phan_group  { $item[1] * 10_000 + $item[3] }
                  | unit 'หมื่น'            { $item[1] * 10_000            }

      muen_group:   muen
                  | phan_group

      # --- แสน (hundred thousand) ---
      saen:         unit 'แสน' muen_group  { $item[1] * 100_000 + $item[3] }
                  | unit 'แสน'            { $item[1] * 100_000            }

      saen_group:   saen
                  | muen_group

      # --- ล้าน (million) ---
      mega:         saen_group 'ล้าน' saen_group  { $item[1] * 1_000_000 + $item[3] }
                  | saen_group 'ล้าน'              { $item[1] * 1_000_000            }
    });
}

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

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

    # Thai ordinals: prefix ที่ (thîi) to cardinal.
    # Strip ที่ prefix; return cardinal remainder.
    $input =~ s{\Aที่}{}xms and return $input;

    return;  # not an ordinal
}

# }}}

1;

__END__