+ StrCompAnsi implementation

git-svn-id: trunk@1049 -

rtl/unix/cwstring.pp

@@ -57,6 +57,7 @@ var
 function towlower(__wc:wint_t):wint_t;cdecl;external libiconvname name 'towlower';
 function towupper(__wc:wint_t):wint_t;cdecl;external libiconvname name 'towupper';
 function wcscoll (__s1:pwchar_t; __s2:pwchar_t):cint;cdecl;external libiconvname name 'wcscoll';
+function strcoll (__s1:pchar_t; __s2:pchar_t):cint;cdecl;external libiconvname name 'strcoll';
 
 const
 {$ifdef linux}
@@ -227,11 +228,16 @@ function CompareTextWideString(const s1, s2 : WideString): PtrInt;
   begin
   end;
 
-Var
-  CWideStringManager : TWideStringManager;
 
-Procedure SetCWideStringManager;
+function StrCompAnsi(s1,s2 : AnsiString): PtrInt;
+  begin
+    result:=strcoll(s1,s2);
+  end;
+
 
+Procedure SetCWideStringManager;
+Var
+  CWideStringManager : TWideStringManager;
 begin
   CWideStringManager:=widestringmanager;
   With CWideStringManager do
@@ -250,7 +256,9 @@ begin
       LowerAnsiStringProc
       CompareStrAnsiStringProc
       CompareTextAnsiStringProc
-      StrCompAnsiStringProc
+      }
+      StrCompAnsiStringProc:=@StrCompAnsi;
+      {
       StrICompAnsiStringProc
       StrLCompAnsiStringProc
       StrLICompAnsiStringProc