arvo: adds |trim, triggering memory reclamation

pkg/arvo/gen/hood/trim.hoon

@@ -0,0 +1,13 @@
+::  Helm: trim kernel state
+::
+::::  /hoon/trim/hood/gen
+  ::
+/?    310
+::
+::::
+  ::
+:-  %say
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        [arg=?(~ [pri=@ud ~]) ~]
+    ==
+[%helm-trim ?~(arg 1 pri.arg)]

pkg/arvo/lib/hood/helm.hoon

@@ -187,6 +187,10 @@
     (module-ova:pill top)
   |=([=wire =flog:dill] [%pass wire %arvo %d %flog flog])
 ::
+++  poke-trim
+  |=  pri=@ud  =<  abet
+  (emit %pass /pack %arvo %d %flog %crop pri)
+::
 ++  poke-verb                                         ::  toggle verbose
   |=  ~  =<  abet
   (flog %verb ~)
@@ -232,6 +236,7 @@
     %helm-reset            =;(f (f !<(_+<.f vase)) poke-reset)
     %helm-send-hi          =;(f (f !<(_+<.f vase)) poke-send-hi)
     %helm-serve            =;(f (f !<(_+<.f vase)) poke-serve)
+    %helm-trim             =;(f (f !<(_+<.f vase)) poke-trim)
     %helm-verb             =;(f (f !<(_+<.f vase)) poke-verb)
     %helm-write-sec-atom   =;(f (f !<(_+<.f vase)) poke-sec-atom)
   ==

pkg/arvo/sys/vane/dill.hoon

@@ -118,6 +118,7 @@
           $heft  (dump %whey ~)
           $lyra  (dump kyz)
           $pack  (dump kyz)
+          $crop  (dump trim+p.kyz)
           $veer  (dump kyz)
           $verb  (dump kyz)
         ==

pkg/arvo/sys/zuse.hoon

@@ -1111,6 +1111,7 @@
           {$logo ~}                                     ::  logout
           [%lyra hoon=(unit @t) arvo=@t]                ::  upgrade kernel
           {$pack ~}                                     ::  compact memory
+          {$trim p/@ud}                                 ::  trim kernel state
           {$veer p/@ta q/path r/@t}                     ::  install vane
           {$verb ~}                                     ::  verbose mode
           [%whey ~]                                     ::  memory report
@@ -1120,6 +1121,7 @@
       $%  {$belt p/belt}                                ::  terminal input
           {$blew p/blew}                                ::  terminal config
           {$boot lit/? p/*}                             ::  weird %dill boot
+          {$crop p/@ud}                                 ::  trim kernel state
           $>(%crud vane-task)                           ::  error with trace
           {$flog p/flog}                                ::  wrapped error
           {$flow p/@tas q/(list gill:gall)}             ::  terminal config
@@ -1192,7 +1194,8 @@
         {$url p/@t}                                     ::  activate url
     ==                                                  ::
   ++  flog                                              ::  sent to %dill
-    $%  {$crud p/@tas q/(list tank)}                    ::
+    $%  {$crop p/@ud}                                   ::  trim kernel state
+        {$crud p/@tas q/(list tank)}                    ::
         {$heft ~}                                       ::
         [%lyra hoon=(unit @t) arvo=@t]                  ::  upgrade kernel
         {$pack ~}                                       ::  compact memory