codetools: fileprocs: added file functions with UTF-8 encoding

git-svn-id: trunk@16226 -

components/codetools/fileprocs.pas

@@ -302,11 +302,40 @@ function CompareAddrWithCTLineInfoCacheItem(Addr, Item: Pointer): integer;
 var
   FPUpChars: array[char] of char;
 
+// AnsiToUTF8 and UTF8ToAnsi need a widestring manager under Linux, BSD, MacOSX
+// but normally these OS use UTF-8 as system encoding so the widestringmanager
+// is not needed.
+function NeedRTLAnsi: boolean;// true if system encoding is not UTF-8
+procedure SetNeedRTLAnsi(NewValue: boolean);
+function UTF8ToSys(const s: string): string;// as UTF8ToAnsi but more independent of widestringmanager
+function SysToUTF8(const s: string): string;// as AnsiToUTF8 but more independent of widestringmanager
+
+function FileExistsUTF8(const Filename: string): boolean;
+function FileAgeUTF8(const FileName: string): Longint;
+function DirectoryExistsUTF8(const Directory: string): Boolean;
+function FindFirstUTF8(const Path: string; Attr: Longint; out Rslt: TSearchRec): Longint;
+function FindNextUTF8(var Rslt: TSearchRec): Longint;
+procedure FindCloseUTF8(var F: TSearchrec);
+function FileSetDateUTF8(const FileName: String; Age: Longint): Longint;
+function FileGetAttrUTF8(const FileName: String): Longint;
+function FileSetAttrUTF8(const Filename: String; Attr: longint): Longint;
+function DeleteFileUTF8(const FileName: String): Boolean;
+function RenameFileUTF8(const OldName, NewName: String): Boolean;
+function FileSearchUTF8(const Name, DirList : String): String;
+function FileIsReadOnlyUTF8(const FileName: String): Boolean;
+function GetCurrentDirUTF8: String;
+function SetCurrentDirUTF8(const NewDir: String): Boolean;
+function CreateDirUTF8(const NewDir: String): Boolean;
+function RemoveDirUTF8(const Dir: String): Boolean;
+function ForceDirectoriesUTF8(const Dir: string): Boolean;
+
 implementation
 
 // to get more detailed error messages consider the os
-{$IFNDEF MSWindows}
 uses
+{$IFDEF MSWindows}
+  Windows;
+{$ELSE}
   Unix, BaseUnix;
 {$ENDIF}
 
@@ -314,6 +343,172 @@ var
   LineInfoCache: TAVLTree = nil;
   LastTick: int64 = 0;
 
+var
+  FNeedRTLAnsi: boolean = false;
+  FNeedRTLAnsiValid: boolean = false;
+
+function NeedRTLAnsi: boolean;
+{$IFDEF WinCE}
+// CP_UTF8 is missing in the windows unit of the Windows CE RTL
+const
+  CP_UTF8 = 65001;
+{$ENDIF}
+var
+  Lang: String;
+  i: LongInt;
+  Encoding: String;
+begin
+  if FNeedRTLAnsiValid then
+    exit(FNeedRTLAnsi);
+  {$IFDEF Windows}
+  FNeedRTLAnsi:=GetACP<>CP_UTF8;
+  {$ELSE}
+  FNeedRTLAnsi:=false;
+  {$ENDIF}
+  Lang := SysUtils.GetEnvironmentVariable('LC_ALL');
+  if Length(lang) = 0 then
+  begin
+    Lang := SysUtils.GetEnvironmentVariable('LC_MESSAGES');
+    if Length(Lang) = 0 then
+    begin
+      Lang := SysUtils.GetEnvironmentVariable('LANG');
+    end;
+  end;
+  i:=System.Pos('.',Lang);
+  if (i>0) then begin
+    Encoding:=copy(Lang,i+1,length(Lang)-i);
+    FNeedRTLAnsi:=(SysUtils.CompareText(Encoding,'UTF-8')=0)
+              or (SysUtils.CompareText(Encoding,'UTF8')=0);
+  end;
+  FNeedRTLAnsiValid:=true;
+  Result:=FNeedRTLAnsi;
+end;
+
+procedure SetNeedRTLAnsi(NewValue: boolean);
+begin
+  FNeedRTLAnsi:=NewValue;
+  FNeedRTLAnsiValid:=true;
+end;
+
+function UTF8ToSys(const s: string): string;
+begin
+  if NeedRTLAnsi then
+    Result:=s
+  else
+    Result:=UTF8ToAnsi(s);
+end;
+
+function SysToUTF8(const s: string): string;
+begin
+  if NeedRTLAnsi then
+    Result:=s
+  else
+    Result:=AnsiToUTF8(s);
+end;
+
+function FileExistsUTF8(const Filename: string): boolean;
+begin
+  Result:=SysUtils.FileExists(UTF8ToSys(Filename));
+end;
+
+function FileAgeUTF8(const FileName: String): Longint;
+begin
+  Result:=SysUtils.FileAge(UTF8ToSys(Filename));
+end;
+
+function DirectoryExistsUTF8(const Directory: string): Boolean;
+begin
+  Result:=SysUtils.DirectoryExists(UTF8ToSys(Directory));
+end;
+
+function FindFirstUTF8(const Path: string; Attr: Longint; out Rslt: TSearchRec
+  ): Longint;
+begin
+  Result:=SysUtils.FindFirst(UTF8ToSys(Path),Attr,Rslt);
+  Rslt.Name:=SysToUTF8(Rslt.Name);
+  {$IFDEF Unix}
+  Rslt.PathOnly:=SysToUTF8(Rslt.PathOnly);
+  {$ENDIF}
+end;
+
+function FindNextUTF8(var Rslt: TSearchRec): Longint;
+begin
+  Rslt.Name:=UTF8ToSys(Rslt.Name);
+  {$IFDEF Unix}
+  Rslt.PathOnly:=UTF8ToSys(Rslt.PathOnly);
+  {$ENDIF}
+  Result:=SysUtils.FindNext(Rslt);
+  Rslt.Name:=SysToUTF8(Rslt.Name);
+  {$IFDEF Unix}
+  Rslt.PathOnly:=SysToUTF8(Rslt.PathOnly);
+  {$ENDIF}
+end;
+
+procedure FindCloseUTF8(var F: TSearchrec);
+begin
+  SysUtils.FindClose(F);
+end;
+
+function FileSetDateUTF8(const FileName: String; Age: Longint): Longint;
+begin
+  Result:=SysUtils.FileSetDate(UTF8ToSys(Filename),Age);
+end;
+
+function FileGetAttrUTF8(const FileName: String): Longint;
+begin
+  Result:=SysUtils.FileGetAttr(UTF8ToSys(Filename));
+end;
+
+function FileSetAttrUTF8(const Filename: String; Attr: longint): Longint;
+begin
+  Result:=SysUtils.FileSetAttr(UTF8ToSys(Filename),Attr);
+end;
+
+function DeleteFileUTF8(const FileName: String): Boolean;
+begin
+  Result:=SysUtils.DeleteFile(UTF8ToSys(Filename));
+end;
+
+function RenameFileUTF8(const OldName, NewName: String): Boolean;
+begin
+  Result:=SysUtils.RenameFile(UTF8ToSys(OldName),UTF8ToSys(NewName));
+end;
+
+function FileSearchUTF8(const Name, DirList: String): String;
+begin
+  Result:=SysToUTF8(SysUtils.FileSearch(UTF8ToSys(Name),UTF8ToSys(DirList)));
+end;
+
+function FileIsReadOnlyUTF8(const FileName: String): Boolean;
+begin
+  Result:=SysUtils.FileIsReadOnly(UTF8ToSys(Filename));
+end;
+
+function GetCurrentDirUTF8: String;
+begin
+  Result:=SysToUTF8(SysUtils.GetCurrentDir);
+end;
+
+function SetCurrentDirUTF8(const NewDir: String): Boolean;
+begin
+  Result:=SysUtils.SetCurrentDir(UTF8ToSys(NewDir));
+end;
+
+function CreateDirUTF8(const NewDir: String): Boolean;
+begin
+  Result:=SysUtils.CreateDir(UTF8ToSys(NewDir));
+end;
+
+function RemoveDirUTF8(const Dir: String): Boolean;
+begin
+  Result:=SysUtils.RemoveDir(UTF8ToSys(Dir));
+end;
+
+function ForceDirectoriesUTF8(const Dir: string): Boolean;
+begin
+  Result:=SysUtils.ForceDirectories(UTF8ToSys(Dir));
+end;
+
 {-------------------------------------------------------------------------------
   function ClearFile(const Filename: string; RaiseOnError: boolean): boolean;
 -------------------------------------------------------------------------------}