Acme-Ikamusume
view release on metacpan or search on metacpan
0.08 2016-09-11T09:15:19Z
- rewrite with Text::Mecabist
- Ikachan forever...!
0.07 Thu Apr 5 11:03:31 JST 2012
- Hide T::MeCab::Node from pause (ty wchristian)
https://github.com/CPAN-API/metacpan-web/issues/524#issuecomment-4953663
0.06 Mon Dec 20 15:08:03 JST 2010
- change verb(original form) + postp = GESO + postp
- understands meaning of the symbols
- add long IKA pattern
- add IKAN pattern
- add few words into userdic
- more MASU formal to casual pattern
- more lovely ebi accent
0.05 Tue Dec 14 03:44:57 JST 2010
- 0 but ture bugfix
- add no honorific rule
- add GESO replace rule
0.04 Mon Dec 13 09:22:06 JST 2010
- more GESO
- more IKA (postp KA)
- fix DA + postp
- fix EBI accent rule on unknown word
0.03 Sat Dec 11 23:25:15 JST 2010
- add ONUSHI to userdic
- typo fix
0.02 Sat Dec 11 15:04:11 JST 2010
- first release
0.01
2. You may apply bug fixes, portability fixes and other modifications derived
from the Public Domain or from the Copyright Holder. A Package modified in such
a way shall still be considered the Standard Version.
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
c) rename any non-standard executables so the names do not conflict with
standard executables, which must also be provided, and provide a separate
manual page for each non-standard executable that clearly documents how it
differs from the Standard Version.
lib/Acme/Ikamusume.pm view on Meta::CPAN
$node->prev && $node->prev->text);
$node->text($curr) if $next =~ /^ã./ && $curr =~ s/ã[ãã¼]$/ã¤ã¼/;
$node->text($curr) if $prev =~ /ã[ãã¼]$/ && $curr =~ s/^ã(.)/ã«$1/;
$node->text($curr) if $prev =~ /[ãã¤]$/ && $curr =~ s/^ã/ã«/;
$node->text($curr) if $next =~ /^ã/ && $curr =~ s/ã$/ã¤/;
$node->text($curr) if $next =~ /^ã/ && $curr =~ s/ã$/ã²/;
$node->text($curr) if $prev =~ /ã$/ && $curr =~ s/^ã/ã½/;
},
# IKA/GESO: DA + postp
sub {
my $node = shift;
my $prev = $node->prev or return;
if ($prev->surface eq 'ã ' and
$prev->text eq 'ã§ã²ã½' and
(
$node->pos =~ /å©è©|å©åè©/ or
$node->is('æ¥å°¾')
)
( run in 2.523 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )