paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:20:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ infrastructure for WideCompareText implemented

Browse Source
This commit is contained in:
florian 2005-02-03 18:40:50 +00:00
parent f9d09611a8
commit 8f571abbb9
3 changed files with 26 additions and 3 deletions

6
rtl/inc/wstringh.inc
View File

@ -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
}

12
rtl/inc/wstrings.inc
View File

@ -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

11
rtl/unix/cwstring.pp
View File

@ -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
}