kiln: add $pikes scry

pkg/arvo/lib/hood/kiln.hoon

@@ -501,6 +501,15 @@
   ::
       [%x %kiln %syncs ~]  ``noun+!>(zyn)
       [%x %kiln %sources ~]  ``noun+!>(sources)
+      [%x %kiln %pikes ~]
+    =+  .^(=rock:tire %cx /(scot %p our)//(scot %da now)/tire)
+    =-  ``noun+!>(-)
+    %-  ~(rut by rock)
+    |=  [=desk =zest wic=(set weft)]
+    ^-  pike
+    =+  .^(hash=@uv %cz /(scot %p our)/[desk]/(scot %da now))
+    =/  sync  (~(get by sources) desk)
+    [sync hash zest wic]
   ==
 ::
 ::  +get-germ: select merge strategy into local desk

pkg/arvo/mar/kiln/pikes.hoon

@@ -0,0 +1,24 @@
+/-  h=hood
+|_  =pikes:h
+++  grad  %noun
+++  grow
+  |%
+  ++  noun  pikes
+  ++  json  
+    =,  enjs:format
+    %-  pairs
+    %+  turn  ~(tap by pikes)
+    |=  [=desk =pike:h]
+    :-  desk
+    %-  pairs
+    :~  sync/?~(sync.pike ~ =,(u.sync.pike (pairs ship/s/(scot %p ship) desk/s/desk ~)))
+        hash/s/(scot %uv hash.pike)
+        zest/s/zest.pike
+        wefts/a/(turn ~(tap in wic.pike) weft:enjs:h)
+    ==
+  --
+++  grab
+  |%
+  ++  noun  pikes:h
+  --
+--

pkg/base-dev/sur/hood.hoon

@@ -1,6 +1,15 @@
 =,  clay
 =*  dude  dude:gall
 |%
++$  pike
+  $:  sync=(unit [=ship =desk])
+      hash=@uv
+      =zest
+      wic=(set weft)
+  ==
+::
++$  pikes  (map desk pike)
+::
 ::  $rung: reference to upstream commit
 ::
 +$  rung  [=aeon =weft]