Show
Ignore:
Timestamp:
03/13/08 18:03:33 (9 months ago)
Author:
daisuke
Message:

lang/perl/Acme-Shukugawa-Atom; add more special case words

Location:
lang/perl/Acme-Shukugawa-Atom/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm

    r7893 r7894  
    4141        'お?(?:ばあ|婆)さん' => 'チャンバー', 
    4242        '(?:おおきい|大きい)(?:のか?|か)?' => 'カイデー', 
     43        '赤ずきんちゃん' => 'ズキアカのチャンネー', 
     44        '屁' => 'エーヘー', 
     45        '火' => 'イーヒー', 
     46        '金槌' => 'ナグリ', 
     47        '抱き合わせ' => 'バーター', 
     48        '編集' => 'つまむ', 
     49        '斜め' => 'ヤオヤ', 
     50        '片付け|かたづけ' => 'わらう' 
    4351    ); 
    4452    $EXCEPTION = decode_utf8(join("|", 
    … …  
    7886            my $feature = decode_utf8($node->feature); 
    7987            my ($type, $yomi) = (split(/,/, $feature))[0,8]; 
     88# warn "$surface -> $type, $yomi"; 
    8089 
    8190            if ($type eq '動詞' && $node->next) { 

  • lang/perl/Acme-Shukugawa-Atom/trunk/t/01_basic.t

    r7892 r7894  
    122122--- input:    十五万六千円 
    123123--- expected: ツェーじゅうゲー万アー千円 
    124