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

codetools: TFindDeclarationTool.FindNameInUsesSection: dotted names

Browse Source 
git-svn-id: trunk@32123 -
This commit is contained in:
mattias 2011-08-30 17:34:12 +00:00
parent e509196a2b
commit bfc8af0f07
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/finddeclarationtool.pas
View File

@ -776,7 +776,7 @@ type
function FindDeclarationInInterface(const Identifier: string;
out NewPos: TCodeXYPosition; out NewTopLine: integer): boolean;
function FindDeclarationWithMainUsesSection(const Identifier: string;
out NewPos: TCodeXYPosition; out NewTopLine: integer): boolean; // ToDo: dotted
out NewPos: TCodeXYPosition; out NewTopLine: integer): boolean;
function FindDeclarationOfPropertyPath(const PropertyPath: string;
out NewContext: TFindContext; IgnoreTypeLess: boolean = false): boolean;
function FindDeclarationOfPropertyPath(const PropertyPath: string;
@ -789,7 +789,7 @@ type
function FindMainUsesSection(UseContainsSection: boolean = false): TCodeTreeNode;
function FindImplementationUsesSection: TCodeTreeNode;
function FindNameInUsesSection(UsesNode: TCodeTreeNode;
const AUnitName: string): TCodeTreeNode; // ToDo: dotted
const AUnitName: string): TCodeTreeNode;
function FindUnitInUsesSection(UsesNode: TCodeTreeNode;
const AnUnitName: string;
out NamePos, InPos: TAtomPosition): boolean; // ToDo: dotted
@ -1867,11 +1867,15 @@ end;
function TFindDeclarationTool.FindNameInUsesSection(UsesNode: TCodeTreeNode;
const AUnitName: string): TCodeTreeNode;
var
CurUnitName: string;
begin
Result:=UsesNode.FirstChild;
while (Result<>nil)
and (not CompareSrcIdentifiers(Result.StartPos,PChar(AUnitName))) do
while (Result<>nil) do begin
CurUnitName:=ExtractUsedUnitName(Result);
if CompareDottedIdentifiers(PChar(CurUnitName),PChar(AUnitName))=0 then exit;
Result:=Result.NextBrother;
end;
end;
function TFindDeclarationTool.FindUnitInUsesSection(UsesNode: TCodeTreeNode;