+ infrastructure for WideCompareText implemented

rtl/inc/wstringh.inc

@@ -59,6 +59,7 @@ Type
 }
     CompareWideStringProc : function(const s1, s2 : WideString) : PtrInt;
     SameWideStringProc : function(const s1, s2 : WideString) : Boolean;
+    CompareTextWideStringProc : function(const s1, s2 : WideString): PtrInt;
   end;
 
 
@@ -80,6 +81,9 @@ Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideSt
 
 {
   $Log$
-  Revision 1.1  2005-02-01 20:22:49  florian
+  Revision 1.2  2005-02-03 18:40:50  florian
+    + infrastructure for WideCompareText implemented
+
+  Revision 1.1  2005/02/01 20:22:49  florian
     * improved widestring infrastructure manager
 }

rtl/inc/wstrings.inc

@@ -1400,6 +1400,12 @@ function SameWideString(const s1, s2 : WideString) : Boolean;
   end;
 
 
+function CompareTextWideString(const s1, s2 : WideString): PtrInt;
+  begin
+    unimplementedwidestring;
+  end;
+
+
 procedure initwidestringmanager;
   begin
     fillchar(widestringmanager,sizeof(widestringmanager),0);
@@ -1408,12 +1414,16 @@ procedure initwidestringmanager;
     widestringmanager.UpperWideStringProc:=@GenericWideCase;
     widestringmanager.CompareWideStringProc:=@CompareWideString;
     widestringmanager.SameWideStringProc:=@SameWideString;
+    widestringmanager.CompareTextWideStringProc:=@CompareTextWideString;
   end;
 
 
 {
   $Log$
-  Revision 1.48  2005-02-01 20:22:49  florian
+  Revision 1.49  2005-02-03 18:40:50  florian
+    + infrastructure for WideCompareText implemented
+
+  Revision 1.48  2005/02/01 20:22:49  florian
     * improved widestring infrastructure manager
 
   Revision 1.47  2005/01/06 13:31:06  florian

rtl/unix/cwstring.pp

@@ -54,7 +54,12 @@ function SameWideString(const s1, s2 : WideString) : Boolean;
   begin
   end;
   
+  
+function CompareTextWideString(const s1, s2 : WideString): PtrInt;
+  begin
+  end;
 
+  
 Var
   CWideStringManager : TWideStringManager;
 
@@ -63,6 +68,7 @@ Procedure SetCWideStringManager;
 begin
   With CWideStringManager do
     begin
+      // CompareWideStringTextProc
     end;
   SetWideStringManager(CWideStringManager);
   InitHeapMutexes;
@@ -75,7 +81,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2005-02-01 20:22:50  florian
+  Revision 1.2  2005-02-03 18:40:57  florian
+    + infrastructure for WideCompareText implemented
+
+  Revision 1.1  2005/02/01 20:22:50  florian
     * improved widestring infrastructure manager
 }