[ruby-dev:21945] drive letter handling on OS/2 with EMX

Siena. です。

ruby 1.8.1 preview2+ (CVS HEAD) を OS/2 V4.51 with EMX 0.9d で
ビルドしたものを使っています。

これまでは単一ドライブ上で完結するスクリプトしか書いていなかったので
気付かなかったのですが、ドライブをまたがってカレントディレクトリを
変更するスクリプトを書いていてはまりました。現象とパッチを
報告しますので、問題なければ取り込んでいただけないでしょうか。


現象としては、どうやら cmd.exe と同様にドライブレターが扱われているらしく、
パス中のドライブレターが無視され、カレントドライブが変更されません。
以下の例での対話シェルの cd はドライブも変更するものとして読んでください。

$ cd F:/home ; cd E:/os2 ; ruby -e 'Dir.chdir("F:") ; puts Dir.pwd'
-e:1:in `chdir': No such file or directory - F: (Errno::ENOENT)
        from -e:1

$ cd F:/home ; cd E:/os2 ; ruby -e 'Dir.chdir("F:.") ; puts Dir.pwd'
/os2   ## カレントドライブは E: のまま

$ cd F:/home ; cd E:/os2
$ ruby -e 'Dir.chdir("F:/") ; puts Dir.pwd ; puts `cmd /c cd F:`'
/os2   ## カレントドライブは E: のまま
F:\    ## F: のカレントディレクトリは変更されている


EMX のライブラリリファレンスを確認すると、chdir(), getcwd() でなく、
ドライブレター対応の _chdir2(), _getcwd2() を使う必要があるようです。
というわけで、missing/os2.c で chdir(), getcwd() を再定義して
_chdir2(), _getcwd2() を呼ぶようにしてみました。
上のテストコードは意図したように実行できるのを確認しました。

$ cd F:/home ; cd E:/os2 ; ruby -e 'Dir.chdir("F:") ; puts Dir.pwd'
F:/home

$ cd F:/home ; cd E:/os2 ; ruby -e 'Dir.chdir("F:.") ; puts Dir.pwd'
F:/home

$ cd F:/home ; cd E:/os2
$ ruby -e 'Dir.chdir("F:/") ; puts Dir.pwd ; puts `cmd /c cd F:`'
F:/
F:\


以下、ruby/missing/os2.c に対するパッチを添付します。
automake 2.50 のメジャーな OS/2 ポートが生成するマクロ
EMX_REPLACE_GETCWD と EMX_REPLACE_CHDIR を利用しています。
EMX_REPLACE_GETCWD は、getcwd() がドライブレター非対応で、
ドライブレター対応の _getcwd2() が存在する時に定義されます。
EMX_REPLACE_CHDIR は、chdir(), _chdir2() について同様です。
_getcwd2() の第二引数はなぜか int なのでキャストしてあります。


# ところで、[ruby-dev:21765] は適当過ぎて却下でしょうか ^^;?
---
Siena. <mailto:[e-mail]>

Index: ruby/missing/os2.c
===================================================================
RCS file: /src/ruby/missing/os2.c,v
retrieving revision 1.3
diff -u -p -2 -r1.3 os2.c
--- ruby/missing/os2.c	6 Mar 2001 08:17:18 -0000	1.3
+++ ruby/missing/os2.c	12 Nov 2003 08:25:04 -0000
@@ -24,4 +24,27 @@ link(char *from, char *to)
 }
 
+#if defined(EMX_REPLACE_GETCWD) && (EMX_REPLACE_GETCWD)  \
+ || defined(EMX_REPLACE_CHDIR)  && (EMX_REPLACE_CHDIR)
+#include <unistd.h>
+
+#if defined(EMX_REPLACE_GETCWD) && (EMX_REPLACE_GETCWD)
+/* to handle the drive letter and DBCS characters within a given path */
+char *
+getcwd(char *path, size_t len)
+{
+    return _getcwd2(path, (int)len);
+}
+#endif
+
+#if defined(EMX_REPLACE_CHDIR) && (EMX_REPLACE_CHDIR)
+/* to handle the drive letter and DBCS characters within a given path */
+int
+chdir(__const__ char *path)
+{
+    return _chdir2(path);
+}
+#endif
+#endif
+
 typedef char* CHARP;