paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 17:16:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: implemented parsing pointer to function

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

22
components/codetools/ccodeparsertool.pas
View File

@ -82,6 +82,7 @@ type
function DirectiveToken: boolean;
function EnumToken: boolean;
function ExternToken: boolean;
function CurlyBracketCloseToken: boolean;
function TypedefToken: boolean;
function StructToken: boolean;
procedure InitKeyWordList;
@ -249,6 +250,12 @@ begin
RaiseExpectedButAtomFound('{');
end;
function TCCodeParserTool.CurlyBracketCloseToken: boolean;
begin
Result:=true;
end;
procedure TCCodeParserTool.ReadEnum;
(* For example:
enum {
@ -400,6 +407,7 @@ begin
with FDefaultTokenList do begin
Add('#',{$ifdef FPC}@{$endif}DirectiveToken);
Add('extern',{$ifdef FPC}@{$endif}ExternToken);
Add('}',{$ifdef FPC}@{$endif}CurlyBracketCloseToken);
Add('enum',{$ifdef FPC}@{$endif}EnumToken);
Add('typedef',{$ifdef FPC}@{$endif}TypedefToken);
Add('struct',{$ifdef FPC}@{$endif}StructToken);
@ -550,6 +558,20 @@ begin
if not IsCCodeCustomOperator.DoItCaseSensitive(Src,AtomStart,SrcPos-AtomStart)
then
RaiseExpectedButAtomFound('operator');
end else if AtomIsChar('(') then begin
// example: int (*fp)(char*);
// pointer to function taking a char* argument; returns an int
ReadNextAtom;
while AtomIsChar('*') do begin
// pointer
ReadNextAtom;
end;
DebugLn(['TCCodeParserTool.ReadVariable name=',GetAtom]);
if not AtomIsIdentifier then
RaiseExpectedButAtomFound('identifier');
ReadNextAtom;
if not AtomIsChar(')') then
RaiseExpectedButAtomFound(')');
end else begin
while AtomIsChar('*') do begin
// pointer