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

* Added Position

Browse Source 
git-svn-id: trunk@19180 -
This commit is contained in:
michael 2011-09-22 17:44:33 +00:00
parent 0b6d38df14
commit f8279d9070
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/chm/src/fasthtmlparser.pas
View File

@ -169,11 +169,14 @@ type
OnFoundTag: TOnFoundTag;
OnFoundText: TOnFoundText;
Raw: Pchar;
FCurrent : PChar;
constructor Create(sRaw: string);overload;
constructor Create(pRaw: PChar);overload;
procedure Exec;
procedure NilOnFoundTag(NoCaseTag, ActualTag: string);
procedure NilOnFoundText(Text: string);
Public
Function CurrentPos : Integer;
property Done: Boolean read FDone write FDone;
end;
@ -187,12 +190,9 @@ begin
end;
function CopyBuffer(StartIndex: PChar; Length: Integer): string;
var
S: string;
begin
SetLength(S, Length);
StrLCopy(@S[1], StartIndex, Length);
Result:= S;
SetLength(Result, Length);
StrLCopy(@Result[1], StartIndex, Length);
end;
@ -221,6 +221,14 @@ procedure THTMLParser.NilOnFoundText(Text: string);
begin
end;
function THTMLParser.CurrentPos: Integer;
begin
if Assigned(Raw) and Assigned(FCurrent) then
Result:=FCurrent-Raw
else
Result:=0;
end;
procedure THTMLParser.Exec;
var
L: Integer;
@ -264,6 +272,7 @@ begin
begin
L:= P - TextStart;
{ Yes, copy to buffer }
FCurrent:=P;
OnFoundText( CopyBuffer(TextStart, L) );
end else
begin
@ -299,6 +308,7 @@ begin
{ Copy this tag to buffer }
L:= P - TagStart + 1;
FCurrent:=P;
OnFoundTag( uppercase(CopyBuffer(TagStart, L )), CopyBuffer(TagStart, L ) ); //L505: added uppercase
Inc(P); Inc(I);
if I >= TL then Break;