|
From: <xue...@us...> - 2003-09-29 15:11:46
|
Update of /cvsroot/popfile/windows/install/text_kakasi/Text
In directory sc8-pr-cvs1:/tmp/cvs-serv26731
Added Files:
Kakasi.pm
Log Message:
Perl Text::Kakasi file.
--- NEW FILE: Kakasi.pm ---
#
# $Id: Kakasi.pm,v 1.1 2003/09/29 15:11:32 xuesheng Exp $
package Text::Kakasi;
=head1 NAME
Text::Kakasi - kakasi library module for perl
=head1 SYNOPSIS
use Text::Kakasi;
$res = Text::Kakasi::getopt_argv('kakasi', '-ieuc', '-w');
$str = Text::Kakasi::do_kakasi('ÆüËܸì¤Îʸ»úÎó');
=head1 DESCRIPTION
¤³¤Î¥â¥¸¥å¡¼¥ë¤Ï¡¢¹â¶¶Íµ¿®¤µ¤ó¤ÎºîÀ®¤µ¤ì¤¿¥½¥Õ¥È¥¦¥§¥¢KAKASI¤ò
perl¤«¤éÍѤ¤¤ë¤¿¤á¤Î¤â¤Î¤Ç¤¹¡£
=over 4
=item getopt_argv($arg1, $arg2, ...)
KAKASI¤ËÍ¿¤¨¤ë¤Ù¤¥ª¥×¥·¥ç¥ó¤ò»ØÄꤷ¡¢½é´ü²½¤ò¹Ô¤¤¤Þ¤¹¡£¥ª¥×¥·¥ç¥ó¤Ï¡¢
kakasi¥³¥Þ¥ó¥É¤ÇÍѤ¤¤é¤ì¤ë¤â¤Î¤Ë½à¤¸¤Þ¤¹¡£
¤Þ¤¿¡¢°ìÈֺǽé¤Î¥ª¥×¥·¥ç¥ó¤Ï¥×¥í¥°¥é¥à¤Î¥Õ¥¡¥¤¥ë̾¤Ç¤¹¡£
getopt_argv¤ò¸Æ¤Ó½Ð¤¹¤È¡¢¼½ñ¥Õ¥¡¥¤¥ë¤¬open¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ï¡¢
close_kanwadic¤ò¸Æ¤Ó½Ð¤¹¤Þ¤Ç¥ª¡¼¥×¥ó¤µ¤ì¤¿¤Þ¤Þ¤Ë¤Ê¤ê¤Þ¤¹¡£
Î㤨¤Ð¡¢¼¡¤Î¤è¤¦¤Ê°ú¿ô¤Çkakasi¤ò¼Â¹Ô¤·¤¿¤È¤¤ÈƱ¤¸¸ú²Ì¤òÆÀ¤ë¤¿¤á¤Ë¤Ï¡¢
$ kakasi C<-ieuc> C<-w>
¼¡¤Î¤è¤¦¤Ê°ú¿ô¤Çgetopt_argv¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£
getopt_argv('kakasi', 'C<-ieuc>', 'C<-w>');
=item do_kakasi($str)
°ú¿ô¤ËÍ¿¤¨¤é¤ì¤¿Ê¸»úÎó¤ËÂФ·¤Æ½èÍý¤ò¹Ô¤¤¡¢·ë²Ì¤òʸ»úÎó¤È¤·¤ÆÊÖ¤·¤Þ¤¹¡£
=item close_kanwadic()
¥ª¡¼¥×¥ó¤·¤Æ¤¤¤¿¼½ñ¥Õ¥¡¥¤¥ë¤òclose¤·¤Þ¤¹¡£
¥Ð¡¼¥¸¥ç¥ó0.10¤Ç¤Ï¡¢2²ó°Ê¾ågetopt_argv¤ò²¿ÅÙ¤â¸Æ¤Ó½Ð¤¹¾ì¹ç¤Ë¤Ï¡¢¤½¤Î
Á°¤Ëclose_kanwadic¤ò¸Æ¤Ó½Ð¤¹É¬Íפ¬¤¢¤ê¤Þ¤·¤¿¤¬¡¢0.11°Ü¹Ô¤Ç¤Ïgetopt_argv
ÆâÉô¤ÇɬÍפ¬¤¢¤ì¤Ðclose¤¹¤ë¤Î¤Ç¡¢¤³¤Î´Ø¿ô¤Ïɬ¤º¤·¤â¸Æ¤Ó½Ð¤¹É¬ÍפÏ
¤¢¤ê¤Þ¤»¤ó¡£
=back
=head1 COPYRIGHT
Copyright (C) 1998, 1999, 2000 NOKUBI Takatsugu <kn...@da...>
¤³¤Î¥â¥¸¥å¡¼¥ë¤Ï´°Á´¤Ë̵ÊݾڤǤ¹¡£
¤Þ¤¿¡¢¤³¤Î¥â¥¸¥å¡¼¥ë¤ÏGNU General Public Licence¤Î¤â¤È¤ÇºÆÇÛÉÕ¡¢
²þÊѤ¬Ç§¤á¤é¤ì¤Æ¤¤¤Þ¤¹¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤ÏÉÕ°¤ÎCOPYING¤È¤¤¤¦¥Õ¥¡¥¤¥ë¤ò
»²¾È¤·¤Æ²¼¤µ¤¤¡£
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
=cut
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw(getopt_argv do_kakasi close_kanwadict);
%EXPORT_TAGS = (all => [qw(getopt_argv do_kakasi close_kanwadict)]);
$VERSION = '1.05';
bootstrap Text::Kakasi $VERSION;
1;
__END__
|