* clean command

git-svn-id: trunk@10244 -

utils/fppkg/fppkg.pp

@@ -161,6 +161,7 @@ begin
   Writeln('  build              Build package');
   Writeln('  compile            Compile package');
   Writeln('  install            Install package');
+  Writeln('  clean              Clean package');
   Writeln('  archive            Create archive of package');
   Writeln('  download           Download package');
   Writeln('  convertmk          Convert Makefile.fpc to fpmake.pp');

utils/fppkg/pkgcommands.pp

@@ -89,6 +89,13 @@ type
     Function Execute(const Args:TActionArgs):boolean;override;
   end;
 
+  { TCommandClean }
+
+  TCommandClean = Class(TPackagehandler)
+  Public
+    Function Execute(const Args:TActionArgs):boolean;override;
+  end;
+
   { TCommandArchive }
 
   TCommandArchive = Class(TPackagehandler)
@@ -233,6 +240,13 @@ begin
 end;
 
 
+function TCommandClean.Execute(const Args:TActionArgs):boolean;
+begin
+  ExecuteAction(CurrentPackage,'fpmakeclean',Args);
+  Result:=true;
+end;
+
+
 function TCommandArchive.Execute(const Args:TActionArgs):boolean;
 begin
   ExecuteAction(CurrentPackage,'fpmakearchive',Args);
@@ -298,6 +312,7 @@ initialization
   RegisterPkgHandler('compile',TCommandCompile);
   RegisterPkgHandler('build',TCommandBuild);
   RegisterPkgHandler('install',TCommandInstall);
+  RegisterPkgHandler('clean',TCommandClean);
   RegisterPkgHandler('archive',TCommandArchive);
   RegisterPkgHandler('installdependencies',TCommandInstallDependencies);
 end.

utils/fppkg/pkgfpmake.pp

@@ -58,6 +58,13 @@ type
   end;
 
 
+  { TFPMakeRunnerClean }
+
+  TFPMakeRunnerClean = Class(TFPMakeRunner)
+  Public
+    Function Execute(const Args:TActionArgs):boolean;override;
+  end;
+
   { TFPMakeRunnerManifest }
 
   TFPMakeRunnerManifest = Class(TFPMakeRunner)
@@ -299,6 +306,12 @@ begin
 end;
 
 
+function TFPMakeRunnerClean.Execute(const Args:TActionArgs):boolean;
+begin
+  result:=(RunFPMake('clean')=0);
+end;
+
+
 function TFPMakeRunnerManifest.Execute(const Args:TActionArgs):boolean;
 begin
   result:=(RunFPMake('manifest')=0);
@@ -318,6 +331,7 @@ initialization
   RegisterPkgHandler('fpmakecompile',TFPMakeRunnerCompile);
   RegisterPkgHandler('fpmakebuild',TFPMakeRunnerBuild);
   RegisterPkgHandler('fpmakeinstall',TFPMakeRunnerInstall);
+  RegisterPkgHandler('fpmakeclean',TFPMakeRunnerClean);
   RegisterPkgHandler('fpmakemanifest',TFPMakeRunnerManifest);
   RegisterPkgHandler('fpmakearchive',TFPMakeRunnerArchive);
 end.