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

山本です。

もうひとつ、[GS]etAttributs は読み取り専用フラグがあると rmdir が
失敗するための処理だと思うのですが、ディレクトリの削除に失敗したときに
読み取り専用フラグが復活しないようです。

[ruby-dev:26508] に対するパッチです。

# たぶん rb_w32_unlink にも同等の処置が必要だと思います。

--- win32\win32.c  Tue Jul 12 00:04:45 2005
+++ win32\win32.c  Tue Jul 12 00:05:01 2005
@@ -3421,12 +3421,11 @@ rb_w32_rmdir(const char *path)
     RUBY_CRITICAL(do {
        attr = GetFileAttributes(path);
        if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) {
-           attr &= ~FILE_ATTRIBUTE_READONLY;
-           SetFileAttributes(path, attr);
+           SetFileAttributes(path, attr & ~FILE_ATTRIBUTE_READONLY);
        }
        if (RemoveDirectory(path) == FALSE) {
            errno = map_errno(GetLastError());
-           if (attr != (DWORD)-1) {
+           if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) {
                SetFileAttributes(path, attr);
            }
            break;



///////////////////////////////////////////////////////
// パッチ前

E:\ruby-cvs\win32_1_8>irb18
irb(main):001:0> system("attrib", "hoge", "+r")
=> true
irb(main):002:0> Dir.rmdir("hoge")
Errno::ENOTDIR: Not a directory - hoge
        from (irb):2:in `rmdir'
        from (irb):2
irb(main):003:0> system("attrib", "hoge")
A          E:\ruby-cvs\win32_1_8\hoge
=> true

///////////////////////////////////////////////////////
// パッチ後

E:\ruby-cvs\win32_1_8>irb18
irb(main):001:0> system("attrib", "hoge", "+r")
=> true
irb(main):002:0> Dir.rmdir("hoge")
Errno::ENOTDIR: Not a directory - hoge
        from (irb):2:in `rmdir'
        from (irb):2
irb(main):003:0> system("attrib", "hoge")
A    R     E:\ruby-cvs\win32_1_8\hoge
=> true