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

IDE: check install package list: auto remove top level runtime packages

Browse Source 
git-svn-id: trunk@29463 -
This commit is contained in:
mattias 2011-02-11 10:13:56 +00:00
parent 8f79d4c1be
commit ee33006577
2 changed files with 29 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packager/packagedefs.pas
View File

@ -896,6 +896,8 @@ procedure SavePkgDependencyList(XMLConfig: TXMLConfig; const ThePath: string;
procedure ListPkgIDToDependencyList(ListOfTLazPackageID: TFPList;
var First: TPkgDependency; ListType: TPkgDependencyList; Owner: TObject;
HoldPackages: boolean);
procedure DeleteDependencyInList(ADependency: TPkgDependency;
var First: TPkgDependency; ListType: TPkgDependencyList);
procedure FreeDependencyList(var First: TPkgDependency;
ListType: TPkgDependencyList);
function DependencyListAsString(First: TPkgDependency;
@ -1064,6 +1066,17 @@ begin
end;
end;
procedure DeleteDependencyInList(ADependency: TPkgDependency;
var First: TPkgDependency; ListType: TPkgDependencyList);
var
NextDependency: TPkgDependency;
begin
NextDependency:=ADependency.NextDependency[ListType];
ADependency.Free;
if First=ADependency then
First:=NextDependency;
end;
procedure FreeDependencyList(var First: TPkgDependency;
ListType: TPkgDependencyList);
var

35
packager/pkgmanager.pas
View File

@ -479,7 +479,8 @@ var
PkgList: TFPList;
i: Integer;
APackage: TLazPackage;
CurResult: TModalResult;
ADependency: TPkgDependency;
NextDependency: TPkgDependency;
begin
Ok:=false;
PkgList:=nil;
@ -488,27 +489,23 @@ begin
ListPkgIDToDependencyList(PkgIDList,NewFirstAutoInstallDependency,
pdlRequires,Self,true);
// remove all top level runtime packages from the list
// Note: it's ok if a designtime package uses a runtime package
ADependency:=NewFirstAutoInstallDependency;
while ADependency<>nil do begin
NextDependency:=ADependency.NextRequiresDependency;
if (ADependency.RequiredPackage<>nil)
and (ADependency.RequiredPackage.PackageType=lptRunTime) then begin
// top level dependency on runtime package => delete
DeleteDependencyInList(ADependency,NewFirstAutoInstallDependency,pdlRequires);
end;
ADependency:=NextDependency;
end;
// get all required packages
if LoadDependencyList(NewFirstAutoInstallDependency)<>mrOk then exit;
PackageGraph.GetAllRequiredPackages(NewFirstAutoInstallDependency,PkgList);
// check if any package is a runtime package, that is not needed
for i:=0 to PkgList.Count-1 do begin
APackage:=TLazPackage(PkgList[i]);
if (APackage.PackageType=lptRunTime)
and (APackage.FirstUsedByDependency=nil) then begin
// this is a runtime only package, not needed by any other package
CurResult:=IDEQuestionDialog(lisPkgMangPackageIsNoDesigntimePackage,
Format(lisPkgMangThePackageIsARuntimeOnlyPackageRuntimeOnlyPackages, [
APackage.IDAsString, #13]),
mtWarning, [mrIgnore, mrYesToAll, lisIgnoreAll, mrCancel]);
case CurResult of
mrIgnore: ;
mrYesToAll: break;
else exit;
end;
end;
end;
PackageGraph.GetAllRequiredPackages(NewFirstAutoInstallDependency,PkgList);
// try save all modified packages
for i:=0 to PkgList.Count-1 do begin