paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 23:17:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

laz2_xml: decode ISO-8859-1

Browse Source 
git-svn-id: trunk@32018 -
This commit is contained in:
mattias 2011-08-20 15:21:54 +00:00
parent 6a19dcf9c3
commit 9360b276e8
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/laz2_xmlread.pas
View File

@ -645,6 +645,7 @@ end;
function Decode_88591(Context: Pointer; InBuf: PChar; var InCnt: Cardinal; OutBuf: DOMPChar; var OutCnt: Cardinal): Integer; stdcall;
{$IFDEF UseUTF8}
// convert ISO-8859-1 to UTF-8
var
u: cardinal;
OldOutCnt: cardinal;
@ -654,7 +655,24 @@ begin
while InCnt>0 do begin
u:=ord(InBuf^);
inc(InBuf);
if not WriteUTF8(u,OutBuf,OutCnt) then break;
if u<128 then begin
if OutCnt<1 then break;
dec(OutCnt);
OutBuf[0]:=char(byte(u));
inc(OutBuf);
end else if u<192 then begin
if OutCnt<2 then break;
dec(OutCnt,2);
OutBuf[0]:=#194;
OutBuf[1]:=char(byte(u));
inc(OutBuf,2);
end else begin
if OutCnt<2 then break;
dec(OutCnt,2);
OutBuf[0]:=#195;
OutBuf[1]:=char(byte(u-64));
inc(OutBuf,2);
end;
dec(InCnt);
end;
Result:=OldOutCnt-OutCnt;