Changeset 7878 for lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm

Timestamp:

03/13/08 10:14:58 (10 months ago)

Author:

daisuke

Message:

lang/perl/Acme-Shukugawa-Atom; apply_shisu_rule, apply_waiha_rule

Files:

• lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm (modified) (2 diffs)

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

@@ -76 +76 @@
 sub postprocess {}
 
+# シースールール
+# 寿司→シースー
+# ン、が最後だったらひっくり返さない
+my $small    = decode_utf8("[ャュョッー]");
+my $syllable = decode_utf8("(?:.$small?)");
+my $nbar     = decode_utf8("[^ンー]");
+sub apply_shisu_rule
+{
+    my ($self, $yomi) = @_;
+    return $yomi if $yomi =~ s/^($syllable)($syllable)$/$2ー$1ー/;
+    return;
+}
+
+# ワイハールール
+# ハワイ→ワイハー
+sub apply_waiha_rule
+{
+    my ($self, $yomi) = @_;
+
+    if ($yomi =~ s/^($syllable[ー]?)(..)$/$2$1/) {
+        $yomi =~ s/([^ー])$/$1ー/;
+        return $yomi;
+    }
+    return;
+}
+
 sub atomize
 {
@@ -81 +107 @@
     $yomi =~ s/ー+/ー/g;
 
+    # Length
     my $length = length($yomi);
-    if ($length <= 2) {
-        return $yomi if $yomi =~ s/(.)([^ン])/$2ー$1ー/;
-        return;
+    $length -= ($yomi =~ /$small/g);
+    if ($length == 2) {
+        return $self->apply_shisu_rule($yomi);
+    }
+
+    if ($length == 3) {
+        return $self->apply_waiha_rule($yomi);
     }