[ruby-dev:22075] Re: Dir.glob と Shjift_JIS について

Siena. です。

》長いこと未解決だった問題に対し恐れ多いのですが、*p++ などを CharNext() に置
》き換えれば
》マルチバイトでも動くのではないかと思って、組んでみました。仕様がよくわからな

》私の環境は、Win2000SP4、BCB5SP1、です。いちおう動いているようですが、

OS/2 with EMX でも試してみました。

OS/2 では、山本さんのパッチの他に、更に以下のパッチで
CharNext マクロで mblen() 使用されるようにする必要があります。
これは、山本さんのパッチを当てなくても、あった方が良さそうです。

Index: ruby/dir.c
===================================================================
RCS file: /src/ruby/dir.c,v
retrieving revision 1.88
diff -u -p -2 -r1.88 dir.c
--- ruby/dir.c	22 Nov 2003 03:59:17 -0000	1.88
+++ ruby/dir.c	29 Nov 2003 09:53:37 -0000
@@ -79,5 +79,5 @@ char *strchr _((char*,char));
 
 #ifndef CharNext		/* defined as CharNext[AW] on Windows. */
-# if defined(DJGPP)
+# if defined(DJGPP) || defined(__EMX__)
 #   define CharNext(p) ((p) + mblen(p, MB_CUR_MAX))
 # else


変更後、次のスクリプトで幾つかの怪しげな文字について試しました。
改善されたと見るか、不思議な挙動が増えてしまったと見るか ^^;
Windows な環境では、以下は期待通りに動くでしょうか。

原因の特定には手をつけられていません。
山本さんのパッチがうまく当たらず手パッチしたので、念のため何度か
確認したものの、もしかすると変更ミスしてしまったのかもしれません。
あるいは、EMX の mblen() か何かがバグ持ちという可能性もなきにしもあらず。

$ cat globtest.rb
#!ruby -Ks
require 'fileutils'
## "ー"[1] == '['
## "−"[1] == '|'  # ワイルドカードには関係ない
## "表"[1] == '\'

filelist = %w( ー − 表 表裏 )
begin
  FileUtils.touch( filelist )
  %w( ー ー* − −* ?\\ ? ?? ).each do |c|
    puts( c + "\t: " + Dir.glob( c ).join( ' ' ) )
  end
ensure
  FileUtils.rm( filelist )
end

$ f:/Usr/Prog/Ruby.181p2cvs8-oldglob/bin/ruby -v globtest.rb
ruby 1.8.1 (2003-11-28) [i386-os2-emx]
ー	: ー
ー*	: 
−	: −
−*	: −
?\	: 表
?	: 
??	: − ー 表

$ f:/Usr/Prog/Ruby.181p2cvs8-newglob/bin/ruby -v globtest.rb
ruby 1.8.1 (2003-11-28) [i386-os2-emx]
ー	: ー
ー*	: 
−	: −
−*	: 
?\	: 
?	: − ー 表 表裏
??	: 

期待していた結果は次ですが、なぜ上のようになったのか不思議 ^^;

ー	: ー
ー*	: ー
−	: −
−*	: −
?\	: 
?	: − ー 表
??	: 表裏

以上、参考にならないかもしれませんがご報告まで。

---
Siena. <mailto:[e-mail]>