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

Timestamp:

03/14/08 09:49:24 (9 months ago)

Author:

daisuke

Message:

lang/perl/Acme-Shukugawa-Atom; fix kuribitsu rule for when the first letter is a combined syllable, add complex case for config

Location:

lang/perl/Acme-Shukugawa-Atom/trunk

Files:

• lib/Acme/Shukugawa/Atom.pm (modified) (1 diff)
• share/config.yaml (modified) (1 diff)

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

@@ -162 +162 @@
 
 # warn "KURIBITSU $yomi";
-    if ($yomi =~ s/^(..)([^$RE_NBAR]${RE_SYLLABLE}$)/$2$1/) {
+    if ($yomi =~ s/^(${RE_SYLLABLE}.)([^$RE_NBAR]${RE_SYLLABLE}$)/$2$1/) {
         return $yomi;
     }

lang/perl/Acme-Shukugawa-Atom/trunk/share/config.yaml

@@ -65 +65 @@
     - ['食費', 'アゴ' ]
     - ['交通費', 'アシ' ]
-    - [ '(?!照明を)(?:当|あ)てる', '打つ' ]
+    - [ '(?!照明を)(?:当|あ)てる', 'うつ' ]