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

codetools: implemented parsing end bracket of extern

Browse Source 
git-svn-id: trunk@14329 -
This commit is contained in:
mattias 2008-02-29 19:34:59 +00:00
parent deb076e47d
commit 06639f326d
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/ccodeparsertool.pas
View File

@ -157,6 +157,16 @@ begin
ccnNone : Result:='None';
ccnRoot : Result:='Root';
ccnDirective: Result:='Directive';
ccnExtern : Result:='extern block';
ccnEnums : Result:='enums';
ccnEnum : Result:='enum';
ccnConstant : Result:='constant';
ccnTypedef : Result:='typedef';
ccnStruct : Result:='struct';
ccnVariable : Result:='variable';
ccnVariableName: Result:='variable name';
ccnFuncParamList: Result:='function param list';
ccnStatementBlock: Result:='statement block';
else Result:='?';
end;
end;
@ -251,9 +261,14 @@ begin
end;
function TCCodeParserTool.CurlyBracketCloseToken: boolean;
// examples:
// end of 'extern "C" {'
begin
Result:=true;
if CurNode.Desc=ccnExtern then
EndChildNode
else
RaiseException('} without {');
end;
procedure TCCodeParserTool.ReadEnum;
@ -678,7 +693,9 @@ begin
break;
end;
until false;
CloseNodes;
if (CurNode=nil) or (CurNode.Desc<>ccnRoot) then
RaiseException('TCCodeParserTool.Parse: internal parser error');
EndChildNode;
end;
function TCCodeParserTool.UpdateNeeded: boolean;