paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: FindStartOfTerm: check next atom

Browse Source 
git-svn-id: trunk@22361 -
This commit is contained in:
mattias 2009-10-31 17:19:00 +00:00
parent cdabdbc280
commit 4483337f54
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/finddeclarationtool.pas
View File

@ -5914,7 +5914,8 @@ function TFindDeclarationTool.FindStartOfTerm(EndPos: integer; InType: boolean
7. (A).
8. (A as B)
9. (@A)
10. nothing (e.g. cursor behind semicolon, keyword or closing bracket)
10. A()[]
11. nothing (e.g. cursor behind semicolon, keyword or closing bracket)
}
procedure RaiseIdentNotFound;
begin
@ -5923,17 +5924,28 @@ function TFindDeclarationTool.FindStartOfTerm(EndPos: integer; InType: boolean
var CurAtom, NextAtom: TAtomPosition;
NextAtomType, CurAtomType: TVariableAtomType;
StartPos: LongInt;
begin
MoveCursorToCleanPos(FindStartOfAtom(Src,EndPos));
StartPos:=FindStartOfAtom(Src,EndPos);
MoveCursorToCleanPos(StartPos);
NextAtom:=CurPos;
NextAtomType:=vatSpace;
ReadNextAtom;
NextAtomType:=GetCurrentAtomType;
repeat
ReadPriorAtom;
CurAtom:=CurPos;
CurAtomType:=GetCurrentAtomType;
if CurAtomType in [vatRoundBracketClose,vatEdgedBracketClose] then begin
ReadBackTilBracketOpen(true);
CurAtom.StartPos:=CurPos.StartPos;
if NextAtomType in [vatRoundBracketOpen,vatRoundBracketClose,
vatEdgedBracketOpen,vatEdgedBracketClose,vatPoint,vatUp,
vatAS,vatNone,vatSpace]
then begin
ReadBackTilBracketOpen(true);
CurAtom.StartPos:=CurPos.StartPos;
end else begin
Result:=NextAtom.StartPos;
exit;
end;
end;
// check if CurAtom belongs to variable
if CurAtomType=vatINHERITED then begin