paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* parse global properties

Browse Source
This commit is contained in:
peter 2005-02-17 18:33:31 +00:00
parent d0f3314818
commit 5c923a0fbd
1 changed files with 132 additions and 116 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

248
fcl/passrc/pparser.pp
View File

@ -143,6 +143,7 @@ type
procedure ParseRecordDecl(Parent: TPasRecordType); procedure ParseRecordDecl(Parent: TPasRecordType);
function ParseClassDecl(Parent: TPasElement; const AClassName: String; function ParseClassDecl(Parent: TPasElement; const AClassName: String;
AObjKind: TPasObjKind): TPasType; AObjKind: TPasObjKind): TPasType;
procedure ParseProperty(Element:TPasElement);
property FileResolver: TFileResolver read FFileResolver; property FileResolver: TFileResolver read FFileResolver;
property Scanner: TPascalScanner read FScanner; property Scanner: TPascalScanner read FScanner;
@ -682,6 +683,11 @@ begin
AddProcOrFunction(Section, ParseProcedureOrFunctionDecl(Section, True)); AddProcOrFunction(Section, ParseProcedureOrFunctionDecl(Section, True));
CurBlock := declNone; CurBlock := declNone;
end; end;
tkProperty:
begin
ExpectIdentifier;
ParseProperty(CreateElement(TPasProperty, CurTokenString, Section));
end;
tkOperator: tkOperator:
begin begin
// !!!: Not supported yet // !!!: Not supported yet
@ -1366,6 +1372,126 @@ begin
end; end;
end; end;
procedure TPasParser.ParseProperty(Element:TPasElement);
function GetAccessorName: String;
begin
ExpectIdentifier;
Result := CurTokenString;
while True do
begin
NextToken;
if CurToken = tkDot then
begin
ExpectIdentifier;
Result := Result + '.' + CurTokenString;
end else
break;
end;
UngetToken;
end;
begin
NextToken;
// !!!: Parse array properties correctly
if CurToken = tkSquaredBraceOpen then
begin
ParseArgList(Element, TPasProperty(Element).Args, tkSquaredBraceClose);
NextToken;
end;
if CurToken = tkColon then
begin
// read property type
TPasProperty(Element).VarType := ParseType(Element);
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'index' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'INDEX') then
TPasProperty(Element).IndexValue := ParseExpression
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'read' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'READ') then
TPasProperty(Element).ReadAccessorName := GetAccessorName
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'write' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'WRITE') then
TPasProperty(Element).WriteAccessorName := GetAccessorName
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'stored' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'STORED') then
begin
NextToken;
if CurToken = tkTrue then
TPasProperty(Element).StoredAccessorName := 'True'
else if CurToken = tkFalse then
TPasProperty(Element).StoredAccessorName := 'False'
else if CurToken = tkIdentifier then
TPasProperty(Element).StoredAccessorName := CurTokenString
else
ParseExc(SParserSyntaxError);
end else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'default' value modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'DEFAULT') then
TPasProperty(Element).DefaultValue := ParseExpression
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'nodefault' modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'NODEFAULT') then
begin
TPasProperty(Element).IsNodefault:=true;
end;
NextToken;
end;
if CurToken = tkSemicolon then
begin
// read semicolon
NextToken;
end;
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'DEFAULT') then
begin
NextToken;
if CurToken = tkSemicolon then
begin
TPasProperty(Element).IsDefault := True;
UngetToken;
end else
begin
UngetToken;
TPasProperty(Element).DefaultValue := ParseExpression;
end;
end else
UngetToken;
end;
// Starts after the "procedure" or "function" token // Starts after the "procedure" or "function" token
function TPasParser.ParseProcedureOrFunctionDecl(Parent: TPasElement; function TPasParser.ParseProcedureOrFunctionDecl(Parent: TPasElement;
IsFunction: Boolean): TPasProcedure; IsFunction: Boolean): TPasProcedure;
@ -1504,23 +1630,6 @@ var
end; end;
end; end;
function GetAccessorName: String;
begin
ExpectIdentifier;
Result := CurTokenString;
while True do
begin
NextToken;
if CurToken = tkDot then
begin
ExpectIdentifier;
Result := Result + '.' + CurTokenString;
end else
break;
end;
UngetToken;
end;
var var
s, SourceFilename: String; s, SourceFilename: String;
i, SourceLinenumber: Integer; i, SourceLinenumber: Integer;
@ -1614,105 +1723,9 @@ begin
tkProperty: tkProperty:
begin begin
ExpectIdentifier; ExpectIdentifier;
Element := CreateElement(TPasProperty, CurTokenString, Result, Element := CreateElement(TPasProperty, CurTokenString, Result, CurVisibility);
CurVisibility);
TPasClassType(Result).Members.Add(Element); TPasClassType(Result).Members.Add(Element);
NextToken; ParseProperty(Element);
// !!!: Parse array properties correctly
if CurToken = tkSquaredBraceOpen then
begin
ParseArgList(Element, TPasProperty(Element).Args, tkSquaredBraceClose);
NextToken;
end;
if CurToken = tkColon then
begin
// read property type
TPasProperty(Element).VarType := ParseType(Element);
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'index' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'INDEX') then
TPasProperty(Element).IndexValue := ParseExpression
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'read' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'READ') then
TPasProperty(Element).ReadAccessorName := GetAccessorName
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'write' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'WRITE') then
TPasProperty(Element).WriteAccessorName := GetAccessorName
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'stored' access modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'STORED') then
begin
NextToken;
if CurToken = tkTrue then
TPasProperty(Element).StoredAccessorName := 'True'
else if CurToken = tkFalse then
TPasProperty(Element).StoredAccessorName := 'False'
else if CurToken = tkIdentifier then
TPasProperty(Element).StoredAccessorName := CurTokenString
else
ParseExc(SParserSyntaxError);
end else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'default' value modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'DEFAULT') then
TPasProperty(Element).DefaultValue := ParseExpression
else
UngetToken;
NextToken;
end;
if CurToken <> tkSemicolon then
begin
// read 'nodefault' modifier
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'NODEFAULT') then
begin
TPasProperty(Element).IsNodefault:=true;
end;
NextToken;
end;
if CurToken = tkSemicolon then
begin
// read semicolon
NextToken;
end;
if (CurToken = tkIdentifier) and (UpperCase(CurTokenText) = 'DEFAULT') then
begin
NextToken;
if CurToken = tkSemicolon then
begin
TPasProperty(Element).IsDefault := True;
UngetToken;
end else
begin
UngetToken;
TPasProperty(Element).DefaultValue := ParseExpression;
end;
end else
UngetToken;
end; end;
end; // end case end; // end case
NextToken; NextToken;
@ -1843,7 +1856,10 @@ end.
{ {
$Log$ $Log$
Revision 1.14 2005-02-14 17:13:16 peter Revision 1.15 2005-02-17 18:33:31 peter
* parse global properties
Revision 1.14 2005/02/14 17:13:16 peter
* truncate log * truncate log
} }