[ruby-dev:8692] [win] dir name

金子です。

DOS/Win 環境でライブラリ find.rb を使用するとき "x:\\" の形式の
ディレクトリ名を処理できません。
以下のような修正を取り込んではいただけないでしょうか。
1.4.3 への差分です。

===============================================================
diff -u lib/find.rb.orig lib/find.rb 
--- lib/find.rb.orig	Tue Oct 12 18:11:29 1999
+++ lib/find.rb	Sat Dec 18 00:58:37 1999
@@ -17,7 +17,9 @@
 	  begin
 	    for f in d
 	      next if f =~ /^\.\.?$/
-	      if file == "/" then
+	      if RUBY_PLATFORM =~ /djgpp|cygwin|mswin32/ and file =~ /^([\/\\]|[A-z]:[\/\\]?)$/ then
+		f = file + f
+	      elsif file == "/" then
 		f = "/" + f
 	      else
 		f = file + "/" + f
===============================================================


あとは mswin32 固有ですが、上と同様のディレクトリ名関連の処理の
修正です。
mswin32 の opendir が "x:" のような ':' で終了する形式や
２バイト目に '\\' を含む日本語ディレクトリ名を正しく処理できる
ようにしました。

日本語ディレクトリ名の判定には WinAPI の CharPrev() を使っている
ので、一応日本以外の環境でも問題はないつもりです。

===============================================================
diff -u -p win32/win32.c.orig win32/win32.c 
--- win32/win32.c.orig	Tue Nov 09 12:57:27 1999
+++ win32/win32.c	Sun Dec 19 22:46:25 1999
@@ -1245,8 +1245,10 @@ opendir(char *filename)
     // check to see if we\'ve got a directory
     //
 
-    if (stat (filename, &sbuf) < 0 ||
-	sbuf.st_mode & _S_IFDIR == 0) {
+    if ((stat (filename, &sbuf) < 0 ||
+	sbuf.st_mode & _S_IFDIR == 0) &&
+	(!isalpha(filename[0]) || filename[1] != ':' || filename[2] != '\0' ||
+	((1 << (filename[0] & 0x5f) - 'A') & GetLogicalDrives()) == 0)) {
 	return NULL;
     }
 
@@ -1264,7 +1266,7 @@ opendir(char *filename)
 
     strcpy(scanname, filename);
 
-    if (index("/\\", *(scanname + strlen(scanname) - 1)) == NULL)
+    if (index("/\\:", *CharPrev(scanname, scanname + strlen(scanname))) == NULL)
 	strcat(scanname, "/*");
     else
 	strcat(scanname, "*");
===============================================================
diff -u win32/Makefile.orig win32/Makefile 
--- win32/Makefile.orig	Wed Dec 08 01:18:25 1999
+++ win32/Makefile	Sun Dec 19 22:56:31 1999
@@ -18,7 +18,7 @@
 #LDFLAGS = $(CFLAGS) -Fm
 XLDFLAGS = 
 #EXTLIBS = 
-LIBS = advapi32.lib wsock32.lib $(EXTLIBS)
+LIBS = user32.lib advapi32.lib wsock32.lib $(EXTLIBS)
 MISSING = crypt.obj alloca.obj win32.obj isinf.obj isnan.obj
 LDSHARED = 
 DLDFLAGS = 
===============================================================


以下はオマケ。
括弧が逆になっていました。
VC++ では標準ヘッダの内部に必要に応じて extern "C" が入っていて
特に必要ではないため、くくり自体を削除しました。
VC++ の <math.h> では template 使っているので全体を
extern "C" でくくると逆にエラーになるようです。

===============================================================
diff -u -p win32/win32.h.orig win32/win32.h 
--- win32/win32.h.orig	Fri Aug 13 14:45:19 1999
+++ win32/win32.h	Mon Dec 20 22:10:07 1999
@@ -86,10 +86,6 @@
 #undef finally
 #undef leave
 
-#if defined(__cplusplus)
-}
-#endif
-
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
@@ -101,10 +97,6 @@
 #include <sys/utime.h>
 #include <io.h>
 #include <malloc.h>
-
-#if defined(__cplusplus)
-extern "C" {
-#endif
 
 #define UIDTYPE int
 #define GIDTYPE int
===============================================================


-- 
金子 尚史 (KANEKO Naoshi)
e-mail: [e-mail]