From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 25 Jul 2020 18:11:35 +0000 (+0100)
Subject: nailing-cargo: [oot] clean, facility to clean up linkfarm
X-Git-Tag: nailing-cargo/1.0.0~65
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=d5b530024efb8a23ba21b8fe99e7a3ea1f450b54;p=nailing-cargo.git

nailing-cargo: [oot] clean, facility to clean up linkfarm

Not documented yet, pending command line.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/nailing-cargo b/nailing-cargo
index 1066718..81e1d4e 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -89,6 +89,7 @@ our $pass_options;
 our $online;
 our $just_linkfarm;
 our $leave_nailed;
+our $oot_clean;
 
 #
 our %subcmd_props = (
@@ -354,6 +355,7 @@ sub consider_oot () {
     $oot_dir = undef;
     return;
   }
+  $oot_clean //= cfg_bool qw(oot clean);
   $oot_dir //= 'Build';
   $oot_absdir = ($oot_dir !~ m{^/} ? "$worksphere/" : ""). $oot_dir;
 }
@@ -607,9 +609,9 @@ ENDLK
     $pre .= <<'ENDPRE';
         shift;
 ENDPRE
-#    $post = <<'ENDCLEAN';
-#        clean;
-#ENDCLEAN
+    $post = <<'ENDCLEAN' if $oot_clean && !$just_linkfarm;
+        clean;
+ENDCLEAN
   }
   my $addpath = (cfg_uc qw(oot path_add)) //
     $use eq 'really' ? Types::Serialiser::true : Types::Serialiser::false;