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

codetools: unitgraph: allow to extend uses and units

Browse Source 
git-svn-id: trunk@40041 -
This commit is contained in:
mattias 2013-01-30 02:51:50 +00:00
parent 60df8c91d5
commit 0f6e1b9b19
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/ctunitgraph.pas
View File

@ -71,13 +71,14 @@ type
Filename: string;
Code: TCodeBuffer;
Tool: TStandardCodeTool;
UsesUnits: TFPList; // list of TUGUses
UsedByUnits: TFPList; // list of TUGUses
UsesUnits: TFPList; // list of TUGUses, can be nil
UsedByUnits: TFPList; // list of TUGUses, can be nil
constructor Create(const aFilename: string);
destructor Destroy; override;
procedure Clear;
function IndexOfUses(const aFilename: string): integer;
end;
TUGUnitClass = class of TUGUnit;
{ TUGUses }
@ -89,6 +90,7 @@ type
constructor Create(TheOwner, TheUses: TUGUnit);
destructor Destroy; override;
end;
TUGUsesClass = class of TUGUses;
{ TUsesGraph }
@ -101,6 +103,8 @@ type
FTargetDirsValid: boolean;
FTargetDirs: string;
FTargetInFPCSrc: boolean;
FUnitClass: TUGUnitClass;
FUsesClass: TUGUsesClass;
public
DirectoryCachePool: TCTDirectoryCachePool;
OnGetCodeToolForBuffer: TOnGetCodeToolForBuffer;
@ -126,6 +130,9 @@ type
property QueuedFilesTree: TAVLTree read FQueuedFiles; // tree of TUGUnit sorted for Filename
property TargetFilesTree: TAVLTree read FTargetFiles; // tree of TUGUnit sorted for Filename
property TargetAll: boolean read FTargetAll write FTargetAll;
property UnitClass: TUGUnitClass read FUnitClass;
property UsesClass: TUGUsesClass read FUsesClass;
end;
function CompareUGUnitFilenames(UGUnit1, UGUnit2: Pointer): integer;
@ -228,6 +235,8 @@ end;
constructor TUsesGraph.Create;
begin
FUnitClass:=TUGUnit;
FUsesClass:=TUGUses;
FFiles:=TAVLTree.Create(@CompareUGUnitFilenames);
FQueuedFiles:=TAVLTree.Create(@CompareUGUnitFilenames);
FTargetFiles:=TAVLTree.Create(@CompareUGUnitFilenames);