namazu-ml(ring)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: nkf, kakasi for Perl for Win32
- From: Ken-ichi Hirose <hirose@xxxxxxxxxxxxxxxxxxxx>
- Date: Mon, 12 Apr 1999 20:50:31 +0900
広瀬と申します。
<knok@xxxxxxxxxxxxx> wrote.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>>> + romaji_type = 0;
>>> + heiki_mode = 0;
>>> :
>>> を追加しました。
> この修正を追加したものをkakasi-2.2.5w-lib3.diffとして
><http://www.daionet.gr.jp/~knok/kakasi/kakasi-2.2.5w-lib3.diff>に置き
>ました。
> 広瀬さんありがとうございます。
すみません。_o_ 私の書き方が悪かったです。
追加しなくてはいけないのは romaji_type, heiki_mode だけではないのです。
添付の patch をみていただくと。。
---8<------8<------8<------8<------8<------8<------8<------8<------8<---
diff -rcN kakasi-2.2.5.org/src/kakasi.c kakasi-2.2.5/src/kakasi.c
*** kakasi-2.2.5.org/src/kakasi.c Sat Apr 10 19:47:18 1999
--- kakasi-2.2.5/src/kakasi.c Sun Apr 11 17:55:36 1999
***************
*** 31,36 ****
--- 31,43 ----
1999/01/08
Add PERLMOD macro.
*/
+ /*
+ Modified by Ken-ichi Hirose <kenzo-@xxxxxxxxxx>
+ 1999/04/11
+ Add : define _WIN32 or __WIN32__ code.
+ Change: open mode set express binary mode.
+ Change: EUC kanji code to numeric.
+ */
static char RCS_ID[] = "@(#) $Header: kakasi.c,v 2.2 92/08/02 takahasi Exp $ written by H. Takahashi";
***************
*** 251,256 ****
--- 258,280 ----
{
#ifdef LIBRARY
int retval = 0;
+ int i;
+
+ for (i = 0; i < 8; i ++) {
+ proc[i] = NULL;
+ }
+ romaji_type = 0;
+ heiki_mode = 0;
+ bunkatu_mode = 0;
+ furigana_mode = 0;
+ cr_eat_mode = 0;
+ romaji_capitalize = 0;
+ romaji_upcase = 0;
+ flush_mode = 0;
+ #ifdef WAKATIGAKI
+ wakatigaki_mode = 0;
+ #endif /* WAKATIGAKI */
+ bunkatu_mode = 0;
#endif
#ifndef LIBRARY
Character c[KAKASIBUF], r[KAKASIBUF];
---8<------8<------8<------8<------8<------8<------8<------8<------8<---
となっています。m(_)m
あと README.lib や ChangeLog.lib は jis で書かれているので問題無い
みたいですが、 source の comment は EUC なので patch に含まれてしまう
位置にある物は削った方がいいかもしれません。
>>> あといんちき test.pl を追加してみました。 ^^;
> これ、Text-Kakasiに含めてしまってもいいですか? 前々からtestはきちん
>と作りたいと思っていたのですが、フォーマットをよく分かっていなくて... ^^;
こんなので良ければ使ってください。
ただの perl script です。 ^^;
Best regards,
--
Ken-ichi Hirose (^^)k!
e-mail: hirose@xxxxxxxxxxxxxxxxxxxx