[ruby-dev:26508] rmdir(2) on windows doesn't set ENOTDIR

山本です。

http://cia.navi.cx/stats/project/ruby/.message/5954100 の変更ですが、
今 Windows は Dir.rmdir が Errno::ENOTDIR を出さないので動かない
と思います。そこで、下のような変更をするのはどうでしょうか。

RTL の mkdir と rmdir を API の CreateDirectory と RemoveDirectory
に置き換えることになりますが、bcc32 では元々そういう挙動（＋errno のセット）
なので、問題ありません。

win32 の方は・・・ソースを見れないので確証はありませんが、単純な関数だし、
たぶん大丈夫じゃないかと思います。ビルドが通ることは確認しました。

Index: win32.c
===================================================================
RCS file: /src/ruby/win32/win32.c,v
retrieving revision 1.103.2.28
diff -u -w -b -p -r1.103.2.28 win32.c
--- win32.c	20 Jun 2005 07:53:22 -0000	1.103.2.28
+++ win32.c	10 Jul 2005 23:06:23 -0000
@@ -157,6 +157,7 @@ static struct {
     {	ERROR_NEGATIVE_SEEK,		EINVAL		},
     {	ERROR_SEEK_ON_DEVICE,		EACCES		},
     {	ERROR_DIR_NOT_EMPTY,		ENOTEMPTY	},
+    {	ERROR_DIRECTORY,		ENOTDIR		},
     {	ERROR_NOT_LOCKED,		EACCES		},
     {	ERROR_BAD_PATHNAME,		ENOENT		},
     {	ERROR_MAX_THRDS_REACHED,	EAGAIN		},
@@ -3394,19 +3395,17 @@ rb_w32_snprintf(char *buf, size_t size, 
     return ret;
 }
 
-#undef mkdir
-#undef rmdir
 int
 rb_w32_mkdir(const char *path, int mode)
 {
     int ret = -1;
     RUBY_CRITICAL(do {
-	if (mkdir(path) == -1)
+	if (CreateDirectory(path, NULL) == FALSE) {
+	    errno = map_errno(GetLastError());
 	    break;
+	}
 	if (chmod(path, mode) == -1) {
-	    int save_errno = errno;
-	    rmdir(path);
-	    errno = save_errno;
+	    RemoveDirectory(path);
 	    break;
 	}
 	ret = 0;
@@ -3418,18 +3417,22 @@ int
 rb_w32_rmdir(const char *path)
 {
     DWORD attr;
-    int ret;
-    RUBY_CRITICAL({
+    int ret = -1;
+    RUBY_CRITICAL(do {
 	attr = GetFileAttributes(path);
 	if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) {
 	    attr &= ~FILE_ATTRIBUTE_READONLY;
 	    SetFileAttributes(path, attr);
 	}
-	ret = rmdir(path);
-	if (ret < 0 && attr != (DWORD)-1) {
+	if (RemoveDirectory(path) == FALSE) {
+	    errno = map_errno(GetLastError());
+	    if (attr != (DWORD)-1) {
 	    SetFileAttributes(path, attr);
 	}
-    });
+	    break;
+	}
+	ret = 0;
+    } while (0));
     return ret;
 }

//////////////////////////////////////////////////////////
// パッチ適用前

E:\ruby-cvs\win32_1_8>miniruby -ve "Dir.rmdir('makefile')"
ruby 1.8.3 (2005-07-05) [i386-mswin32]
-e:1:in `rmdir': Invalid argument - makefile (Errno::EINVAL)
        from -e:1

E:\ruby-cvs\bcc32_1_8>miniruby -ve "Dir.rmdir('makefile')"
ruby 1.8.3 (2005-07-05) [i386-bccwin32]
-e:1:in `rmdir': Invalid argument (Errno::EINVAL)
 - makefile     from -e:1

E:\ruby-cvs\bcc32_1_8>miniruby -ve "Dir.mkdir('makefile')"
ruby 1.8.3 (2005-07-05) [i386-bccwin32]
-e:1:in `mkdir': Permission denied (Errno::EACCES)
 - makefile     from -e:1

//////////////////////////////////////////////////////////
// パッチ適用後

E:\ruby-cvs\win32_1_8>miniruby -e "Dir.rmdir('makefile')"
-e:1:in `rmdir': Not a directory - makefile (Errno::ENOTDIR)
        from -e:1

E:\ruby-cvs\bcc32_1_8>miniruby -e "Dir.rmdir('makefile')"
-e:1:in `rmdir': Not a directory (Errno::ENOTDIR)
 - makefile     from -e:1

E:\ruby-cvs\bcc32_1_8>miniruby -e "Dir.mkdir('makefile')"
-e:1:in `mkdir': File already exists (Errno::EEXIST)
 - makefile     from -e:1