paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 19:49:29 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/wstringh.inc
View File

@ -59,6 +59,7 @@ Type
} }
CompareWideStringProc : function(const s1, s2 : WideString) : PtrInt; CompareWideStringProc : function(const s1, s2 : WideString) : PtrInt;
SameWideStringProc : function(const s1, s2 : WideString) : Boolean; SameWideStringProc : function(const s1, s2 : WideString) : Boolean;
CompareTextWideStringProc : function(const s1, s2 : WideString): PtrInt;
end; end;
@ -80,6 +81,9 @@ Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideSt
{ {
$Log$ $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 * improved widestring infrastructure manager
} }

12
rtl/inc/wstrings.inc
View File

@ -1400,6 +1400,12 @@ function SameWideString(const s1, s2 : WideString) : Boolean;
end; end;
function CompareTextWideString(const s1, s2 : WideString): PtrInt;
begin
unimplementedwidestring;
end;
procedure initwidestringmanager; procedure initwidestringmanager;
begin begin
fillchar(widestringmanager,sizeof(widestringmanager),0); fillchar(widestringmanager,sizeof(widestringmanager),0);
@ -1408,12 +1414,16 @@ procedure initwidestringmanager;
widestringmanager.UpperWideStringProc:=@GenericWideCase; widestringmanager.UpperWideStringProc:=@GenericWideCase;
widestringmanager.CompareWideStringProc:=@CompareWideString; widestringmanager.CompareWideStringProc:=@CompareWideString;
widestringmanager.SameWideStringProc:=@SameWideString; widestringmanager.SameWideStringProc:=@SameWideString;
widestringmanager.CompareTextWideStringProc:=@CompareTextWideString;
end; end;
{ {
$Log$ $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 * improved widestring infrastructure manager
Revision 1.47 2005/01/06 13:31:06 florian 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 begin
end; end;
function CompareTextWideString(const s1, s2 : WideString): PtrInt;
begin
end;
Var Var
CWideStringManager : TWideStringManager; CWideStringManager : TWideStringManager;
@ -63,6 +68,7 @@ Procedure SetCWideStringManager;
begin begin
With CWideStringManager do With CWideStringManager do
begin begin
// CompareWideStringTextProc
end; end;
SetWideStringManager(CWideStringManager); SetWideStringManager(CWideStringManager);
InitHeapMutexes; InitHeapMutexes;
@ -75,7 +81,10 @@ finalization
end. end.
{ {
$Log$ $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 * improved widestring infrastructure manager
} }