paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Show messages when the builds starts and when the installation is complete

Browse Source 
git-svn-id: trunk@16895 -
This commit is contained in:
joost 2011-02-08 16:20:10 +00:00
parent b27734779c
commit 837601b717
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1038,7 +1038,8 @@ ResourceString
SWarnDepUnitNotFound = 'Warning: Dependency on unit %s is not supported for %s';
SWarnTargetDependsOnPackage = 'Warning: Target %s of package %s depends on another package (%s). These kind of dependencies are not processed';
SWarnDependOnOtherPlatformPackage = 'Warning: Package %s depends on package %s which is not available for the %s platform';
SWarnDone = 'Done';
SWarnStartBuildingPackage = 'Start building package %s';
SWarnBuildingPackagecomplete = '[%3.0f%%] Built target %s';
SInfoCompilingPackage = 'Compiling package %s';
SInfoPackageAlreadyProcessed = 'Package %s is already processed';
@ -3345,7 +3346,6 @@ procedure TCustomInstaller.Compile(Force: Boolean);
begin
FBuildEngine.ForceCompile:=Force;
FBuildEngine.Compile(Packages);
Log(vlWarning,SWarnDone);
end;
@ -4886,11 +4886,12 @@ begin
For I:=0 to Packages.Count-1 do
begin
P:=Packages.PackageItems[i];
log(vlWarning,SWarnStartBuildingPackage,[P.Name]);
If PackageOK(P) then
MaybeCompile(P);
//show compile progress
writeln('[', (I + 1)/Packages.Count * 100:3:0, '%] Built target ', P.Name);
log(vlWarning,SWarnBuildingPackagecomplete,[(I + 1)/Packages.Count * 100, P.Name]);
end;
If Assigned(AfterCompile) then
AfterCompile(Self);
@ -4909,6 +4910,7 @@ begin
P:=Packages.PackageItems[i];
If PackageOK(P) then
Install(P);
log(vlWarning, 'Installation package ' + P.Name + ' succeeded');
end;
If Assigned(AfterInstall) then
AfterInstall(Self);