paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 19:38:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: lfmtree: parse unitname and nested class

Browse Source
This commit is contained in:
mattias 2023-01-17 22:41:57 +01:00
parent 09c3e47a45
commit 2db4892771
1 changed files with 47 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
components/codetools/lfmtrees.pas
View File

@ -81,6 +81,8 @@ type
ChildPos: Integer;
Name: string;
NamePosition: integer;
TypeUnitName: string;
TypeUnitNamePosition: integer;
TypeName: string;
TypeNamePosition: integer;
AncestorTool: TObject; // TFindDeclarationTool
@ -95,7 +97,7 @@ type
private
FCount: integer;
FNames: ^String;
FNamePositions: ^integer;
FNamePositions: PInteger;
function GetNamePositions(Index: integer): integer;
function GetNames(Index: integer): string;
public
@ -745,12 +747,28 @@ begin
Parser.CheckToken(toSymbol);
if not Parser.TokenSymbolIs('END') then begin
ObjectStartLine:=Parser.SourceLine;
// read TypeName
// or ClassName.TypeName
// or Namespace.UnitName/ClassName.TypeName
// or Name:TypeName
// or Name:TypeName[decimal]
// or Name:UnitName/TypeName
// or Name:Namespace.UnitName/ClassName.TypeName
ObjectNode.Name := '';
ObjectNode.TypeName := Parser.TokenString;
ObjectNode.TypeNamePosition:=TokenStart;
ObjectNode.ChildPos := -1;
NextToken;
while Parser.Token = '.' do begin
NextToken;
Parser.CheckToken(toSymbol);
ObjectNode.TypeName := ObjectNode.TypeName+'.'+Parser.TokenString;
NextToken;
end;
if Parser.Token = ':' then begin
// Name:TypeName
NextToken;
Parser.CheckToken(toSymbol);
ObjectNode.Name := ObjectNode.TypeName;
@ -758,15 +776,39 @@ begin
ObjectNode.TypeName := Parser.TokenString;
ObjectNode.TypeNamePosition:=TokenStart;
NextToken;
if parser.Token = '[' then begin
while Parser.Token = '.' do begin
NextToken;
ObjectNode.ChildPos := parser.TokenInt;
NextToken;
parser.CheckToken(']');
Parser.CheckToken(toSymbol);
ObjectNode.TypeName := ObjectNode.TypeName+'.'+Parser.TokenString;
NextToken;
end;
end;
if Parser.Token = '/' then begin
// TypeUnitName/TypeName
NextToken;
Parser.CheckToken(toSymbol);
ObjectNode.TypeUnitName := ObjectNode.TypeName;
ObjectNode.TypeUnitNamePosition:=ObjectNode.TypeNamePosition;
ObjectNode.TypeName := Parser.TokenString;
ObjectNode.TypeNamePosition:=TokenStart;
NextToken;
while Parser.Token = '.' do begin
NextToken;
Parser.CheckToken(toSymbol);
ObjectNode.TypeName := ObjectNode.TypeName+'.'+Parser.TokenString;
NextToken;
end;
end;
if Parser.Token = '[' then begin
NextToken;
ObjectNode.ChildPos := Parser.TokenInt;
NextToken;
Parser.CheckToken(']');
NextToken;
end;
// read property list
while not (Parser.TokenSymbolIs('END')
or Parser.TokenSymbolIs('OBJECT')