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

Timestamp:

03/12/08 14:24:11 (9 months ago)

Author:

daisuke

Message:

lang/perl/Acme-Shukugawa-Atom; もうちょい調整。

Location:

lang/perl/Acme-Shukugawa-Atom/trunk

Files:

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

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

@@ -31 +31 @@
         '別に' => 'ジリサワゴネタ',
         '予約した' => 'バミった',
+        '[2２][4４]時|[0０]時' => 'テッペン',
         '巨乳|胸(?:の|が)(大きい|でかい|デカイ)' => 'パイオツカイデー',
-        '女性|女の人|お姉さん|おねーさん' => 'チャンネー'
+        '女性|女の人|お姉さん|おねーさん' => 'チャンネー',
+        'お?(?:ばあ|婆)さん' => 'F3のチャンバー',
     );
         
@@ -61 +63 @@
             if ($yomi) {
                 # normalize
-                $yomi =~ s/ー+/ー/g;
-                if (length($yomi) <= 2) {
-                    $yomi = $surface;
-                } else {
-                    $yomi =~ s/(.(?:ー+)?)$//;
-                    $yomi = $1 . $yomi;
-                }
+                $yomi = $self->atomize($yomi) || $surface;
             } else {
                 $yomi = $surface;
@@ -78 +74 @@
 
 sub postprocess {}
+
+sub atomize
+{
+    my ($self, $yomi) = @_;
+    $yomi =~ s/ー+/ー/g;
+
+    my $length = length($yomi);
+    if ($length <= 2) {
+        return;
+    }
+
+    my $done = 0;
+    if ($length == 4) { # 4 character words tend to have special xformation
+        if ($yomi =~ s/^(.ー)(..)$/$2$1/) {
+            $done = 1;
+        }
+    }
+
+    if (! $done) {
+        $yomi =~ s/(.(?:ー+)?)$//;
+        $yomi = $1 . $yomi;
+    }
+
+    $yomi =~ s/ッ$/ツ/;
+    return $yomi;
+}
+
 
 1;
@@ -90 +113 @@
 
   use Acme::Shukugawa::Atom;
-
   my $newstring = Acme::Shukugawa::Atom->translate($string);
 

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

@@ -1 +1 @@
 use strict;
 use utf8;
-use Test::More (tests => 2);
+use Test::More (tests => 3);
 
 BEGIN
@@ -9 +9 @@
 
 is( Acme::Shukugawa::Atom->translate("六本木の胸の大きいお姉さんがいる店を予約した"), "ギロッポンのパイオツカイデーチャンネーがいる店をバミった" );
+is( Acme::Shukugawa::Atom->translate("狼"), "カミオー" );
+
+is( Acme::Shukugawa::Atom->translate("おばあさんの口はどうして大きいの？"),
+    "チャンバーのチークーはどうしてカイデー");