Merge pull request #1604 from urbit/gall-wash

add gall %wash to clear caches

bin/solid.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:39dfca3234e5002df44f56479f4e352c7cb587932ada8ba9097ebffc691db78d
-size 12252278
+oid sha256:15ce852981f8d6cd1079192db72f468228fe894819cf427da34fd4768052699b
+size 12325161

pkg/arvo/app/hood.hoon

@@ -183,6 +183,7 @@
 ++  poke-kiln-keep-ford       (wrap poke-keep-ford):from-kiln
 ++  poke-kiln-autoload        (wrap poke-autoload):from-kiln
 ++  poke-kiln-overload        (wrap poke-overload):from-kiln
+++  poke-kiln-wash-gall       (wrap poke-wash-gall):from-kiln
 ++  poke-kiln-unmount         (wrap poke-unmount):from-kiln
 ++  poke-kiln-unsync          (wrap poke-unsync):from-kiln
 ++  poke-kiln-permission      (wrap poke-permission):from-kiln

pkg/arvo/gen/hood/wash-gall.hoon

@@ -0,0 +1,13 @@
+::  Kiln: clear Gall compiler caches
+::
+::::  /hoon/wash-gall/hood/gen
+  ::
+/?    310
+::
+::::
+  !:
+:-  %say
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        ~  ~
+    ==
+[%kiln-wash-gall ~]

pkg/arvo/lib/hood/kiln.hoon

@@ -70,6 +70,7 @@
           {$merg wire @tas @p @tas case germ}           ::
           {$perm wire desk path rite}                   ::
           {$poke wire dock pear}                        ::
+          [%wash wire ~]
           {$wipe wire @ud}                              ::
           [%keep wire compiler-cache-size=@ud build-cache-size=@ud]
           {$wait wire @da}                              ::
@@ -276,6 +277,8 @@
   |=  [compiler-cache-size=@ud build-cache-size=@ud]
   abet:(emit %keep /kiln compiler-cache-size build-cache-size)
 ::
+++  poke-wash-gall  |=(* abet:(emit %wash /kiln ~))
+::
 ++  mack
   |=  {way/wire saw/(unit tang)}
   ~?  ?=(^ saw)  [%kiln-nack u.saw]

pkg/arvo/sys/vane/gall.hoon

@@ -1346,6 +1346,7 @@
         %wait  `%b
         %want  `%a
         %warp  `%c
+        %wash  `%g
         %wipe  `%f
       ::
         %request         `%i
@@ -1392,6 +1393,10 @@
     =+  mes=;;({@ud roon} r.q.hic)
     =<  mo-abet
     (mo-gawd:(mo-abed:mo hen) him dap mes)
+  ::
+      %wash
+    =.  bum.mast.all  (~(run by bum.mast.all) |=(=seat seat(vel *worm)))
+    [~ ..^$]
   ::
       $wegh
     =/  =mass

pkg/arvo/sys/zuse.hoon

@@ -1872,6 +1872,7 @@
           {$deal p/sock q/cush}                         ::  full transmission
           $>(%vega vane-task)                           ::  report upgrade
           $>(%west vane-task)                           ::  network request
+          [%wash ~]                                     ::  clear caches
           $>(%wegh vane-task)                           ::  report memory
       ==                                                ::
     --  ::able