namazu-ml(ring)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: nkf, kakasi for Perl for Win32



広瀬と申します。

 <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