paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: pascal parser: var i: byte = 3; create ctnConstant, patch #18515

Browse Source 
git-svn-id: trunk@30454 -
This commit is contained in:
mattias 2011-04-24 18:31:59 +00:00
parent 62833f223a
commit 8bfe9b6371
1 changed files with 28 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
components/codetools/pascalparsertool.pas
View File

@ -145,6 +145,7 @@ type
function KeyWordFuncLabel: boolean;
function KeyWordFuncProperty: boolean;
procedure ReadConst;
procedure ReadConstExpr;
// types
procedure ReadTypeNameAndDefinition;
procedure ReadTypeReference;
@ -3063,20 +3064,8 @@ begin
ReadNextAtom;
ReadConstant(true,false,[]);
end;
if CurPos.Flag=cafEqual then begin
// read constant
repeat
ReadNextAtom;
if (CurPos.Flag in [cafRoundBracketOpen,cafEdgedBracketOpen]) then
ReadTilBracketClose(true);
if (CurPos.Flag in AllCommonAtomWords)
and (not IsKeyWordInConstAllowed.DoItCaseInsensitive(Src,
CurPos.StartPos,CurPos.EndPos-CurPos.StartPos))
and AtomIsKeyWord
then
RaiseCharExpectedButAtomFound(';');
until (CurPos.Flag=cafSemicolon) or (CurPos.StartPos>SrcLen);
end;
if CurPos.Flag=cafEqual then
ReadConstExpr; // read constant
if UpAtomIs('DEPRECATED') then
ReadNextAtom;
if CurPos.Flag=cafSemicolon then begin
@ -3534,26 +3523,7 @@ begin
ReadNextAtom;
ParseType(CurPos.StartPos,CurPos.EndPos-CurPos.StartPos);
end;
if (CurPos.Flag<>cafEqual) then
RaiseCharExpectedButAtomFound('=');
// read constant
ReadNextAtom;
CreateChildNode;
CurNode.Desc:=ctnConstant;
repeat
if (CurPos.Flag in [cafRoundBracketOpen,cafEdgedBracketOpen]) then
ReadTilBracketClose(true);
if (CurPos.Flag in AllCommonAtomWords)
and (not IsKeyWordInConstAllowed.DoItCaseInsensitive(Src,
CurPos.StartPos,CurPos.EndPos-CurPos.StartPos))
and AtomIsKeyWord then
RaiseStringExpectedButAtomFound('constant');
if (CurPos.Flag=cafSemicolon) then break;
CurNode.EndPos:=CurPos.EndPos;
ReadNextAtom;
until (CurPos.StartPos>SrcLen);
// close ctnConstant node
EndChildNode;
ReadConstExpr;
end;
procedure TPascalParserTool.ReadTypeNameAndDefinition;
@ -4448,6 +4418,30 @@ begin
SaveRaiseExceptionFmt(ctsEndofSourceExpectedButAtomFound,[GetAtom]);
end;
procedure TPascalParserTool.ReadConstExpr;
begin
if (CurPos.Flag <> cafEqual) then
RaiseCharExpectedButAtomFound('=');
// read constant
ReadNextAtom;
CreateChildNode;
CurNode.Desc := ctnConstant;
repeat
if (CurPos.Flag in [cafRoundBracketOpen, cafEdgedBracketOpen]) then
ReadTilBracketClose(true);
if (CurPos.Flag in AllCommonAtomWords)
and (not IsKeyWordInConstAllowed.DoItCaseInsensitive(Src,
CurPos.StartPos, CurPos.EndPos - CurPos.StartPos))
and AtomIsKeyWord then
RaiseStringExpectedButAtomFound('constant');
if (CurPos.Flag = cafSemicolon) then break;
CurNode.EndPos := CurPos.EndPos;
ReadNextAtom;
until (CurPos.StartPos > SrcLen);
// close ctnConstant node
EndChildNode;
end;
procedure TPascalParserTool.InitExtraction;
begin
if ExtractMemStream=nil then