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

--- Merging r32224 into '.':

Browse Source 
U    packages/fppkg/src/pkgmessages.pp
U    packages/fppkg/src/pkgcommands.pp
U    utils/fppkg/fppkg.pp
--- Recording mergeinfo for merge of r32224 into '.':
 U   .

# revisions: 3222

git-svn-id: branches/fixes_3_0@32273 -
This commit is contained in:
joost 2015-11-08 17:17:50 +00:00
parent 71ec0ce6cb
commit 3156da8c06
3 changed files with 64 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
packages/fppkg/src/pkgcommands.pp
View File

@ -125,9 +125,58 @@ type
Procedure Execute;override;
end;
{ TCommandInfo }
TCommandInfo = Class(TPackagehandler)
Public
Procedure Execute;override;
end;
var
DependenciesDepth: integer;
{ TCommandInfo }
procedure TCommandInfo.Execute;
var
P : TFPPackage;
S : string;
I : Integer;
begin
if PackageName='' then
Error(SErrNoPackageSpecified);
P:=AvailableRepository.PackageByName(PackageName);
log(llProgres,SLogPackageInfoName,[P.Name]);
S := P.Email;
if S <> '' then
S := '<' + S +'>';
log(llProgres,SLogPackageInfoAuthor,[P.Author, S]);
log(llProgres,SLogPackageInfoVersion,[P.Version.AsString]);
log(llProgres,SLogPackageInfoCategory,[P.Category]);
log(llProgres,SLogPackageInfoWebsite,[P.HomepageURL]);
log(llProgres,SLogPackageInfoLicense,[P.License]);
log(llProgres,SLogPackageInfoOSes,[OSesToString(P.OSes)]);
log(llProgres,SLogPackageInfoCPUs,[CPUSToString(P.CPUs)]);
log(llProgres,SLogPackageInfoDescription1);
log(llProgres,SLogPackageInfoDescription2,[P.Description]);
if P.Dependencies.Count>0 then
begin
log(llProgres,SLogPackageInfoDependencies1,[]);
for I := 0 to P.Dependencies.Count-1 do
begin
if not P.Dependencies[I].MinVersion.Empty then
S := '('+P.Dependencies[I].MinVersion.AsString+')'
else
S := '';
log(llProgres,SLogPackageInfoDependencies2,[P.Dependencies[I].PackageName,S]);
end;
end;
end;
{ TCommandUnInstall }
procedure TCommandUnInstall.Execute;
@ -585,4 +634,5 @@ initialization
RegisterPkgHandler('installdependencies',TCommandInstallDependencies);
RegisterPkgHandler('fixbroken',TCommandFixBroken);
RegisterPkgHandler('listsettings',TCommandListSettings);
RegisterPkgHandler('info',TCommandInfo);
end.

13
packages/fppkg/src/pkgmessages.pp
View File

@ -101,6 +101,19 @@ Resourcestring
SLogCompilerCfgGlobalPrefix = ' GlobalPrefix: "%s" -> "%s"';
SLogCompilerCfgLocalPrefix = ' LocalPrefix: "%s" -> "%s"';
SLogPackageInfoName = 'Package: %s';
SLogPackageInfoVersion = 'Version: %s';
SLogPackageInfoAuthor = 'Author: %s %s';
SLogPackageInfoCategory = 'Category: %s';
SLogPackageInfoLicense = 'License: %s';
SLogPackageInfoWebsite = 'Website: %s';
SLogPackageInfoOSes = 'Supported OSes: %s';
SLogPackageInfoCPUs = 'Supported CPUs: %s';
SLogPackageInfoDescription1 = 'Description:';
SLogPackageInfoDescription2 = '%s';
SLogPackageInfoDependencies1 = 'Dependencies:';
SLogPackageInfoDependencies2 = ' %s %s';
SDbgFound = 'Found';
SDbgNotFound = 'Not Found';
SDbgDirectoryExists = 'Directory "%s" %s';

1
utils/fppkg/fppkg.pp
View File

@ -110,6 +110,7 @@ begin
Writeln(' archive Create archive of package');
Writeln(' download Download package');
Writeln(' convertmk Convert Makefile.fpc to fpmake.pp');
Writeln(' info Show more information about a package');
Writeln(' fixbroken Recompile all (broken) packages with changed dependencies');
Writeln(' listsettings Show the values for all fppkg settings');
// Writeln(' addconfig Add a compiler configuration for the supplied compiler');