Changeset 7851 for lang/perl/Acme-Shukugawa-Atom

Timestamp:

03/12/08 17:57:49 (9 months ago)

Author:

daisuke

Message:

* refactor tests
* change %special -> @special so processing order is kept
* change how 2 syllable words are transformed

Location:

lang/perl/Acme-Shukugawa-Atom/trunk

Files:

• lib/Acme/Shukugawa/Atom.pm (modified) (4 diffs)
• t/01_basic.t (modified) (1 diff)

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

@@ -28 +28 @@
     # Special case handling -- this could be optimized further
     # put it in a sharefile later
-    my %special = (
+    my @special = (
         '別に' => 'ジリサワゴネタ',
         '予約した' => 'バミった',
@@ -34 +34 @@
         '巨乳|胸(?:の|が)(大きい|でかい|デカイ)' => 'パイオツカイデー',
         '女性|女の人|お姉さん|おねーさん' => 'チャンネー',
-        'お?(?:ばあ|婆)さん' => 'F3のチャンバー',
+        'お?(?:ばあ|婆)さん' => 'チャンバー',
+        '(?:おおきい|大きい)(?:のか?|か)?' => 'カイデー',
     );
-        
-    while (my ($pattern, $replace) = each %special) {
+
+    for(0..$#special/2) {
+        my $pattern = $special[$_ * 2];
+        my $replace = $special[$_ * 2 + 1];
         $$strref =~ s/$pattern/$replace/g;
     }
@@ -60 +63 @@
         } else {
             my $feature = decode_utf8($node->feature);
-            my $yomi = (split(/,/, $feature))[8];
-            if ($yomi) {
-                # normalize
-                $yomi = $self->atomize($yomi) || $surface;
+
+            if (my $yomi = (split(/,/, $feature))[8]) {
+                $ret .= $self->atomize($yomi) || $surface;
             } else {
-                $yomi = $surface;
+                $ret .= $surface;
             }
-            $ret .= $yomi;
         }
     }
@@ -82 +83 @@
     my $length = length($yomi);
     if ($length <= 2) {
+        return $yomi if $yomi =~ s/(.)([^ン])/$2ー$1ー/;
         return;
     }

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

@@ -8 +8 @@
 }
 
-is( Acme::Shukugawa::Atom->translate("六本木の胸の大きいお姉さんがいる店を予約した"), "ギロッポンのパイオツカイデーチャンネーがいる店をバミった" );
-is( Acme::Shukugawa::Atom->translate("狼"), "カミオー" );
+my %data = (
+    "六本木の胸の大きいお姉さんがいる店を予約した"
+        => "ギロッポンのパイオツカイデーチャンネーがいるセーミーをバミった" ,
+    "狼" => "カミオー",
+    "おばあさんの口はどうして大きいの？" =>
+        "チャンバーのチークーはどうしてカイデー？"
+);
 
-is( Acme::Shukugawa::Atom->translate("おばあさんの口はどうして大きいの？"),
-    "チャンバーのチークーはどうしてカイデー");
+while (my($orig, $expected) = each %data) {
+    is( Acme::Shukugawa::Atom->translate($orig), $expected );
+}