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

* fpmake supports dropping TOS and TCPU via "info" command. Initial.

Browse Source 
git-svn-id: trunk@38334 -
This commit is contained in:
marco 2018-02-24 21:53:33 +00:00
parent 1d5d5682d2
commit dacc20f1f8
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -157,7 +157,7 @@ Type
TLogEvent = Procedure (Level : TVerboseLevel; Const Msg : String) of Object;
TNotifyProcEvent = procedure(Sender: TObject);
TRunMode = (rmCompile,rmBuild,rmInstall,rmArchive,rmClean,rmDistClean,rmManifest,rmZipInstall,rmPkgList,rmUnInstall);
TRunMode = (rmCompile,rmBuild,rmInstall,rmArchive,rmClean,rmDistClean,rmManifest,rmZipInstall,rmPkgList,rmUnInstall,rmInfo);
TBuildMode = (bmOneByOne, bmBuildUnit{, bmSkipImplicitUnits});
TBuildModes = set of TBuildMode;
@ -1292,6 +1292,7 @@ Type
Procedure Archive; virtual;
Procedure Manifest; virtual;
Procedure PkgList; virtual;
Procedure Info;
procedure AddAutoPackageVariantsToPackage(APackage: TPackage); virtual;
Public
Constructor Create(AOwner : TComponent); virtual;
@ -5196,6 +5197,8 @@ begin
FRunMode:=rmPkgList
else if CheckCommand(I,'u','uninstall') then
FRunMode:=rmUnInstall
else if CheckCommand(I,'in','info') then
FRunMode:=rmInfo
else if CheckOption(I,'h','help') then
Usage('',[])
else if Checkoption(I,'C','cpu') then
@ -5385,6 +5388,28 @@ begin
halt(0);
end;
procedure TCustomInstaller.Info;
Var Cpu : TCpu;
OS : TOS;
begin
Write('CPU_TARGET=');
for cpu:=succ(low(cpu)) to high(tcpu) do // skip NONE
begin
write(cputostring(cpu));
if cpu<>high(tcpu) then
write(',');
end;
writeln;
Write('OS_TARGET=');
for OS:=succ(low(TOS)) to high(tOS) do // skip NONE
begin
write(OStostring(os));
if os<>high(tos) then
write(',');
end;
writeln;
end;
procedure TCustomInstaller.Compile(Force: Boolean);
begin
@ -5487,6 +5512,7 @@ begin
rmManifest : Manifest;
rmPkgList : PkgList;
rmUnInstall : UnInstall;
rmInfo : Info;
end;
except
On E : Exception do
@ -9327,3 +9353,4 @@ Finalization
FreeAndNil(GPluginManager);
end.