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

todolist: search in package files

Browse Source 
git-svn-id: trunk@26156 -
This commit is contained in:
mattias 2010-06-17 08:10:21 +00:00
parent 8f79d17b08
commit f8f47af157
2 changed files with 49 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
components/todolist/todolist.pas
View File

@ -162,14 +162,13 @@ type
FBaseDirectory: string;
fBuild : Boolean;
FIdleConnected: boolean;
fMainSourceFilename : String;
fOwnerFilename : String;
FOnOpenFile : TOnOpenFile;
fRootCBuffer : TCodeBuffer;
fScannedFiles: TAvgLvlTree;// tree of TTLScannedFile
procedure SetBaseDirectory(const AValue: string);
procedure SetIdleConnected(const AValue: boolean);
procedure SetMainSourceFilename(const AValue: String);
procedure SetOwnerFilename(const AValue: String);
function CreateToDoItem(aTLFile: TTLScannedFile;
const aFileName: string; const SComment, EComment: string;
@ -182,7 +181,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property MainSourceFilename : String read fMainSourceFilename write SetMainSourceFilename;
property OwnerFilename : String read fOwnerFilename write SetOwnerFilename; // lpr or lpi or lpk
property BaseDirectory: string read FBaseDirectory write SetBaseDirectory;
property OnOpenFile: TOnOpenFile read FOnOpenFile write FOnOpenFile;
property IdleConnected: boolean read FIdleConnected write SetIdleConnected;
@ -326,11 +325,12 @@ begin
end;
//Initialise the todo project and find them
procedure TIDETodoWindow.SetMainSourceFilename(const AValue: String);
procedure TIDETodoWindow.SetOwnerFilename(const AValue: String);
begin
if fMainSourceFilename=AValue then exit;
fMainSourceFilename:=AValue;
Caption:=lisTodoListCaption+' '+fMainSourceFilename;
//debugln(['TIDETodoWindow.SetOwnerFilename ',AValue]);
if fOwnerFilename=AValue then exit;
fOwnerFilename:=AValue;
Caption:=lisTodoListCaption+' '+fOwnerFilename;
acRefresh.Execute;
end;
@ -537,60 +537,14 @@ var
aTodoItem: TTodoItem;
aListItem: TListItem;
TheLine: integer;
UsedInterfaceFilenames: TStrings;
UsedImplementationFilenames: TStrings;
i: integer;
Found: boolean;
begin
CurFilename:='';
aListItem:= lvtodo.Selected;
Found:= false;
if Assigned(aListItem) and Assigned(aListItem.Data) then
begin
aTodoItem := TTodoItem(aListItem.Data);
CurFileName := aTodoItem.Filename;
TheLine := aTodoItem.LineNumber;
if not FileNameIsAbsolute(CurFileName) then
begin
if Assigned(CodeToolBoss) then
begin
fRootCBuffer:=CodeToolBoss.LoadFile(fMainSourceFilename,false,false);
if not Assigned(fRootCBuffer) then Exit;
UsedInterfaceFilenames:=nil;
UsedImplementationFilenames:=nil;
if CodeToolBoss.FindUsedUnitFiles(fRootCBuffer,UsedInterfaceFilenames,
UsedImplementationFilenames) then
begin
try
for i:=0 to UsedInterfaceFilenames.Count-1 do
begin
if CompareFilenames(ExtractFileName(UsedInterfaceFileNames[i]),
CurFileName) = 0 then
begin
CurFileName:= UsedInterFaceFileNames[i];
Found:= true;
break;
end;
end;
if not Found then
begin
for i:=0 to UsedImplementationFilenames.Count-1 do
begin
if CompareFilenames(ExtractFileName
(UsedImplementationFilenames[i]), CurFileName) = 0 then
begin
CurFileName:= UsedImplementationFilenames[i];
break;
end;
end;
end;
finally
UsedImplementationFilenames.Free;
UsedInterfaceFilenames.Free;
end;
end;
end;
end;
if Assigned(OnOpenFile) then
OnOpenFile(Self,CurFilename,TheLine)
else
@ -645,10 +599,11 @@ var
CurProjFile: TLazProjectFile;
Node: TAvgLvlTreeNode;
CurFile: TTLScannedFile;
CurPkgFile: TLazPackageFile;
begin
if fBuild then Exit;
//DebugLn(['TfrmTodo.acRefreshExecute MainSourceFilename=',MainSourceFilename]);
//DebugLn(['TfrmTodo.acRefreshExecute OwnerFilename=',OwnerFilename]);
LazarusIDE.SaveSourceEditorChangesToCodeCache(nil);
@ -661,21 +616,22 @@ begin
fScannedFiles.FreeAndClear;
lvTodo.Items.Clear;
if MainSourceFilename='' then exit;
if OwnerFilename='' then exit;
// Find a '.todo' file of the main source
St:=ChangeFileExt(MainSourceFilename,'.todo');
St:=ChangeFileExt(OwnerFilename,'.todo');
if FileExistsUTF8(St) then
ScanFile(St);
// Scan main source file
ScanFile(MainSourceFilename);
if FilenameIsPascalUnit(OwnerFilename) then
ScanFile(OwnerFilename);
// find project/package
CurOwner:=nil;
CurProject:=nil;
CurPackage:=nil;
Owners:=PackageEditingInterface.GetOwnersOfUnit(MainSourceFilename);
Owners:=PackageEditingInterface.GetOwnersOfUnit(OwnerFilename);
if (Owners<>nil) then begin
i:=0;
while i<Owners.Count do begin
@ -683,23 +639,12 @@ begin
if CurOwner is TLazProject then begin
// this file is owned by a project
CurProject:=TLazProject(CurOwner);
if (CurProject.MainFile<>nil)
and (CompareFilenames(CurProject.MainFile.Filename,MainSourceFilename)=0)
then begin
// create the list of todo items for this project
break;
end;
CurProject:=nil;
// create the list of todo items for this project
break;
end else if CurOwner is TIDEPackage then begin
// this file is owned by a package
CurPackage:=TIDEPackage(CurOwner);
{if (CurPackage.GetSrcFilename<>'')
and (CompareFilenames(CurPackage.GetSrcFilename,MainSourceFilename)=0)
then begin
// create the list of todo items for this package
break;
end;}
CurPackage:=nil;
break;
end;
inc(i);
end;
@ -720,11 +665,11 @@ begin
if CurPackage<>nil then begin
// scan all units of package
FBaseDirectory:=ExtractFilePath(CurPackage.Filename);
{for i:=0 to CurPackage.FileCount-1 do begin
for i:=0 to CurPackage.FileCount-1 do begin
CurPkgFile:=CurPackage.Files[i];
if FilenameIsPascalUnit(CurPkgFile.Filename) then
ScanFile(CurPkgFile.Filename);
end;}
end;
end;
Node:=fScannedFiles.FindLowest;
@ -840,16 +785,13 @@ end;
procedure TIDETodoWindow.OnIdle(Sender: TObject; var Done: Boolean);
var
AProject: TLazProject;
MainFile: TLazProjectFile;
begin
if Done then ;
IdleConnected:=false;
if MainSourceFilename<>'' then exit;
if OwnerFilename<>'' then exit;
AProject:=LazarusIDE.ActiveProject;
if AProject=nil then exit;
MainFile:=AProject.MainFile;
if MainFile=nil then exit;
MainSourceFilename:=MainFile.Filename;
OwnerFilename:=AProject.ProjectInfoFile;
end;
{ TTodoItem }

41
packager/pkgmanager.pas
View File

@ -3300,26 +3300,38 @@ var
begin
if AProject=nil then exit;
Add:=false;
// check if in units
if not (piosfExcludeOwned in Flags) then begin
//DebugLn(['SearchInProject ',AProject.ProjectInfoFile,' UnitFilename=',UnitFilename]);
if AProject.UnitInfoWithFilename(UnitFilename,
[pfsfResolveFileLinks,pfsfOnlyProjectFiles])<>nil
if (CompareFilenames(UnitFilename,AProject.ProjectInfoFile)=0)
or (AProject.UnitInfoWithFilename(UnitFilename,[pfsfOnlyProjectFiles])<>nil)
then
Add:=true;
end;
if (piosfIncludeSourceDirectories in Flags)
and FilenameIsAbsolute(UnitFilename) then begin
BaseDir:=ExtractFilePath(AProject.ProjectInfoFile);
// check if in virtual project
if (not Add)
and (piosfIncludeSourceDirectories in Flags)
and (BaseDir='')
and (ExtractFilePath(UnitFilename)='') then
Add:=true;
if (not Add)
and (piosfIncludeSourceDirectories in Flags)
and FilenameIsAbsolute(UnitFilename)
and (BaseDir<>'') then begin
// search in project source directories
BaseDir:=ExtractFilePath(AProject.ProjectInfoFile);
if BaseDir<>'' then begin
ProjectDirs:=AProject.LazCompilerOptions.OtherUnitFiles+';.';
if not IDEMacros.CreateAbsoluteSearchPath(ProjectDirs,BaseDir) then exit;
if FindPathInSearchPath(PChar(SrcDir),length(SrcDir),
PChar(ProjectDirs),length(ProjectDirs))<>nil
then
Add:=true;
end;
ProjectDirs:=AProject.LazCompilerOptions.OtherUnitFiles+';.';
if not IDEMacros.CreateAbsoluteSearchPath(ProjectDirs,BaseDir) then exit;
if FindPathInSearchPath(PChar(SrcDir),length(SrcDir),
PChar(ProjectDirs),length(ProjectDirs))<>nil
then
Add:=true;
end;
if Add then
Result.Add(AProject);
end;
@ -3346,7 +3358,8 @@ begin
// check package source files (they usually do not have a TPkgFile)
for i:=0 to PackageGraph.Count-1 do begin
CurPackage:=PackageGraph.Packages[i];
if (CompareFilenames(UnitFilename,CurPackage.GetSrcFilename)=0)
if ((CompareFilenames(UnitFilename,CurPackage.GetSrcFilename)=0)
or (CompareFilenames(UnitFilename,CurPackage.Filename)=0))
and (Result.IndexOf(CurPackage)<0) then
Result.Add(CurPackage);
end;