paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 04:07:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: TranslateUTF8Chars: ascii with delete

Browse Source 
git-svn-id: trunk@39795 -
This commit is contained in:
mattias 2013-01-07 12:51:47 +00:00
parent 222d3f6e64
commit dbdae2d1c7
2 changed files with 43 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
components/lazutils/laz2_xmlutils.pas
View File

@ -418,9 +418,43 @@ var
p:=PChar(s)+OldPos;
end;
procedure ReplaceASCII;
procedure ReplaceASCIIWithDelete(Src: PChar);
var
c: Char;
Dst: PChar;
NewLen: SizeInt;
i: SizeInt;
begin
UniqString(Src);
Dst:=Src;
while Src^<>#0 do begin
c:=Src^;
i:=Pos(c,SrcChars);
if i<1 then begin
// keep character
Dst^:=c;
inc(Src);
inc(Dst);
end else begin
if i<=length(DstChars) then begin
// replace a character
Dst^:=DstChars[i];
inc(Src);
inc(Dst);
end else begin
// delete a character = skip
inc(Src);
end;
end;
end;
NewLen:=Dst-PChar(s);
SetLength(s,NewLen);
end;
procedure ReplaceASCII;
// use a simple byte replace
// if a delete is needed then switch to another algorithm
var
OldPos: SizeInt;
i: SizeInt;
p: PChar;
begin
@ -438,9 +472,10 @@ var
inc(p);
end else begin
// delete a character
OldPos:=p-PChar(s);
Delete(s,OldPos+1,1);
p:=PChar(s)+OldPos;
// all following characters are moved
// => use an optimized algorithm for this
ReplaceASCIIWithDelete(p);
exit;
end;
end;
end;

4
test/lazutils/testlazxml.pas
View File

@ -69,7 +69,7 @@ procedure TTestLazXML.TestTranslateUTF8Chars;
h:=s;
TranslateUTF8Chars(h,SrcChars,DstChars);
if h=Expected then exit;
AssertEquals(Title+' s="'+s+'" SrcChars="'+SrcChars+'" DstChars="'+DstChars+'"',Expected,h);
AssertEquals(Title+': s="'+s+'" SrcChars="'+SrcChars+'" DstChars="'+DstChars+'"',Expected,h);
end;
begin
@ -77,6 +77,8 @@ begin
T('nop','a','b','b','a');
T('a to b','a','a','b','b');
T('switch a,b','abaa','ab','ba','babb');
T('delete a','a','a','','');
T('delete a','aba','a','','b');
end;
initialization