[ruby-list:18463] Re: mswin32 でのファイル名の大 / 小文字

木村です。

        In article [ruby-list:18462] Re: mswin32 でのファイル名の大 / 小文字
          (<[e-mail]>),
	  WATANABE Hirofumi <[e-mail]> writes:

>というわけで slrlwr で変換するのはやめよう, に一票.

ではそうしましょう。忘れないうちに…1.4.2に対する差分です
#cvsが使えません^^; ドキュメント読まねば

--- win32/win32.c.orig	Sat Sep 18 11:37:34 1999
+++ win32/win32.c	Sat Nov 06 15:01:46 1999
@@ -1218,10 +1218,4 @@
 //
 
-//
-// File names are converted to lowercase if the
-// CONVERT_TO_LOWER_CASE variable is defined.
-//
-
-#define CONVERT_TO_LOWER_CASE
 #define PATHLEN 1024
 
@@ -1246,6 +1240,4 @@
     char            volname[PATHLEN];
     DWORD           serial, maxname, flags;
-    BOOL            downcase;
-    char           *dummy;
 
     //
@@ -1259,19 +1251,4 @@
 
     //
-    // check out the file system characteristics
-    //
-    if (GetFullPathName(filename, PATHLEN, root, &dummy)) {
-	if (dummy = strchr(root, '\\'))
-	    *++dummy = '\0';
-	if (GetVolumeInformation(root, volname, PATHLEN, 
-				 &serial, &maxname, &flags, 0, 0)) {
-	    downcase = !(flags & FS_CASE_SENSITIVE);
-	}
-    }
-    else {
-	downcase = TRUE;
-    }
-
-    //
     // Get us a DIR structure
     //
@@ -1309,6 +1286,4 @@
     p->start = ALLOC_N(char, idx);
     strcpy (p->start, FindData.cFileName);
-    if (downcase)
-	strlwr(p->start);
     p->nfiles++;
     
@@ -1334,6 +1309,4 @@
 	}
 	strcpy(&p->start[idx], FindData.cFileName);
-	if (downcase) 
-	    strlwr(&p->start[idx]);
 	p->nfiles++;
 	idx += len+1;


-- 
木村浩一
            May the source be with you.
    e-mail [e-mail]
           [e-mail]