paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 15:52:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: class sections required, optional only for objcprotocol

Browse Source 
git-svn-id: trunk@33704 -
This commit is contained in:
mattias 2011-11-22 22:58:11 +00:00
parent 2e0870f4d0
commit 3bcc8975d1
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/codetools/pascalparsertool.pas
View File

@ -3900,8 +3900,6 @@ begin
CreateChildNode;
if ClassDesc=ctnClass then
CurNode.Desc:=ctnClassPublished
else if ClassDesc=ctnObjCProtocol then
CurNode.Desc:=ctnClassRequired
else
CurNode.Desc:=ctnClassPublic;
CurNode.StartPos:=LastAtoms.GetValueAt(0).EndPos;
@ -3978,7 +3976,8 @@ begin
CreateChildNode;
CurNode.Desc:=IntfDesc;
CurNode.StartPos:=IntfAtomPos.StartPos;
// find end of interface
// read content
ReadNextAtom;
if (CurPos.Flag<>cafSemicolon) then begin
if CurPos.Flag=cafWord then begin
@ -4001,11 +4000,15 @@ begin
end else
UndoReadNextAtom;
ReadNextAtom;
if IntfDesc=ctnObjCProtocol then begin
// start the first class section (the one without a keyword)
CreateChildNode;
CurNode.Desc:=ctnClassRequired;
end;
if CurPos.Flag=cafEdgedBracketOpen then
ReadGUID;
// parse till "end" of interface
repeat
// ObjCProtocol can have 'OPTIONAL' and 'REQUIRED' sections
if not ParseInnerClass(CurPos.StartPos,CurPos.EndPos-CurPos.StartPos) then
begin
if CurPos.Flag<>cafEnd then
@ -4014,6 +4017,14 @@ begin
end;
ReadNextAtom;
until false;
// end last sub section
if CurNode.Desc in AllClassSubSections then begin
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end;
// end last class section (public, private, ...)
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end else begin
// forward definition
CurNode.SubDesc:=CurNode.SubDesc+ctnsForwardDeclaration;