namazu-ml(ring)

[Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx>]

sugiura@xxxxxxxxxxxx (Sugiura Shiro) wrote:

>>   % LANG=C mknmz -a /hoehoe
>> 
>> とするとどうですか?
>
>こんな感じになります。
>
>% setenv LANG C
>% ../mknmz -a /hoehoe/
>Name "var::USE_NKF_MODULE" used only once: possible typo at ../mknmz line 686.
>Reading rcfile:
> find_target: Scanned : (21), Files: (20), Elapsed: (1), Files/sec: (20.0).
>Undefined subroutine &NKF::nkf called at /home/ssugiura/lib/share/namazu/pl/codeconv.pl line 121, <GEN3> chunk 1.

すみません。バグです。メイル末尾にパッチを添付しておきます。


>今の 1.9.x.x 系では、英語なまず、日本語なまずの作りわけはなくなって
>しまったのでしょうか？

はい。

-- Satoru Takabayashi

Index: codeconv.pl
===================================================================
RCS file: /circus/cvsroot/namazu/pl/codeconv.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -c -r1.4 -r1.5
*** codeconv.pl	2000/01/06 10:01:55	1.4
--- codeconv.pl	2000/01/25 23:53:11	1.5
***************
*** 1,6 ****
  #
  # -*- Perl -*-
! # $Id: codeconv.pl,v 1.4 2000/01/06 10:01:55 satoru Exp $
  # Copyright (C) 1997-2000 Satoru Takabayashi  All rights reserved.
  #     This is free software with ABSOLUTELY NO WARRANTY.
  #
--- 1,6 ----
  #
  # -*- Perl -*-
! # $Id: codeconv.pl,v 1.5 2000/01/25 23:53:11 satoru Exp $
  # Copyright (C) 1997-2000 Satoru Takabayashi  All rights reserved.
  #     This is free software with ABSOLUTELY NO WARRANTY.
  #
***************
*** 106,124 ****
  sub toeuc ($) {
      my ($contref) = @_;
  
!     if (util::islang("ja") && ! $var::USE_NKF_MODULE) {
! 	my $nkftmp = util::tmpnam("NMZ.nkf");
! 	{
! 	    my $nh = util::efopen("|$conf::NKF -emXZ1 > $nkftmp");
! 	    print $nh $$contref;
  	}
- 	{
- 	    my $nh = util::efopen("< $nkftmp");
- 	    $$contref = util::readfile($nh);
- 	}
- 	unlink($nkftmp);
-     } else {
- 	$$contref = NKF::nkf("-emXZ1", $$contref);
      }
  }
  1;
--- 106,126 ----
  sub toeuc ($) {
      my ($contref) = @_;
  
!     if (util::islang("ja")) {
! 	if ($var::USE_NKF_MODULE) {
! 	    $$contref = NKF::nkf("-emXZ1", $$contref);
! 	} else {
! 	    my $nkftmp = util::tmpnam("NMZ.nkf");
! 	    {
! 		my $nh = util::efopen("|$conf::NKF -emXZ1 > $nkftmp");
! 		print $nh $$contref;
! 	    }
! 	    {
! 		my $nh = util::efopen("< $nkftmp");
! 		$$contref = util::readfile($nh);
! 	    }
! 	    unlink($nkftmp);
  	}
      }
  }
  1;