+ FileNameCasePreserving added - see #18066 in Mantis

git-svn-id: trunk@20896 -

rtl/amiga/system.pp

@@ -50,6 +50,7 @@ const
   StdErrorHandle  : LongInt = 0;
 
   FileNameCaseSensitive : Boolean = False;
+  FileNameCasePreserving: boolean = false;
   CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
 
   sLineBreak = LineEnding;

rtl/atari/system.pas

@@ -46,6 +46,7 @@ const
  AllowDirectorySeparators : set of char = ['\','/'];
  AllowDriveSeparators : set of char = [':'];
  FileNameCaseSensitive = false;
+ FileNameCasePreserving = false;
  maxExitCode = 255;
  MaxPathLen = 255;
  AllFilesMask = '*';

rtl/emx/sysdir.inc

@@ -230,7 +230,7 @@ begin
             end ['eax'];
             dir[1]:=char(i);
         end;
-    if not (FileNameCaseSensitive) then dir:=upcase(dir);
+    if not (FileNameCasePreserving) then dir:=upcase(dir);
 end;
 
 

rtl/go32v2/sysdir.inc

@@ -120,7 +120,7 @@ begin
   dir[3]:='\';
   dir[0]:=char(i+3);
 { upcase the string }
-  if not FileNameCaseSensitive then
+  if not FileNameCasePreserving then
    dir:=upcase(dir);
   if drivenr<>0 then   { Drive was supplied. We know it }
    dir[1]:=char(65+drivenr-1)

rtl/macos/system.pp

@@ -29,6 +29,7 @@ const
  AllowDirectorySeparators : set of char = [':'];
  AllowDriveSeparators : set of char = [':'];
  FileNameCaseSensitive = false;
+ FileNameCasePreserving = true;
  CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
 
  maxExitCode = 65535;

rtl/os2/sysdir.inc

@@ -130,7 +130,7 @@ begin
             DosQueryCurrentDisk(l, l2);
             dir[1]:=chr(64+l);
         end;
-    if not (FileNameCaseSensitive) then dir:=upcase(dir);
+    if not (FileNameCasePreserving) then dir:=upcase(dir);
 end;
 
 

rtl/palmos/system.pp

@@ -32,6 +32,7 @@ const
  AllowDirectorySeparators : set of char = ['\','/'];
  AllowDriveSeparators : set of char = [':'];
  FileNameCaseSensitive = false;
+ FileNameCasePreserving = true;
  CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
  maxExitCode = 255; {$ERROR TODO: CONFIRM THIS}
  MaxPathLen = 256;

rtl/watcom/sysdir.inc

@@ -111,7 +111,7 @@ begin
   dir[3]:='\';
   dir[0]:=char(i+3);
 { upcase the string }
-  if not FileNameCaseSensitive then
+  if not FileNameCasePreserving then
    dir:=upcase(dir);
   if drivenr<>0 then   { Drive was supplied. We know it }
    dir[1]:=char(65+drivenr-1)

rtl/win/sysdir.inc

@@ -102,7 +102,7 @@ begin
   if not defaultdrive then
    SetCurrentDirectory(@SaveBuf);
   dir:=strpas(DirBuf);
-  if not FileNameCaseSensitive then
+  if not FileNameCasePreserving then
    dir:=upcase(dir);
 {$else WINCE}
   Dir:='\';