%garden-dev desk; also cleaned up %base-dev

pkg/arvo/lib/docket.hoon

@@ -1 +0,0 @@
-../../base-dev/lib/docket.hoon

pkg/arvo/mar/docket.hoon

@@ -1 +0,0 @@
-../../base-dev/mar/docket.hoon

pkg/arvo/sur/docket.hoon

@@ -1 +0,0 @@
-../../base-dev/sur/docket.hoon

pkg/arvo/sur/hood.hoon

@@ -1,218 +0,0 @@
-/-  *bill
-=,  clay
-=*  dude  dude:gall
-|%
-::  $diff: subscription update
-::
-+$  diff
-  $%  [%block =desk =arak =weft blockers=(set desk)]
-      [%reset =desk =arak]
-      [%merge =desk =arak]
-      [%merge-sunk =desk =arak =tang]
-      [%merge-fail =desk =arak =tang]
-      [%suspend =desk =arak]
-      [%revive =desk =arak]
-  ==
-::  $arak: foreign vat tracker
-::
-::    .next is a list of pending commits with future kelvins
-::
-+$  arak
-  $:  =ship
-      =desk
-      =aeon
-      next=(list [=aeon =weft])
-      =rein
-  ==
-::  $rein: diff from desk manifest
-::
-::    .liv: suspended?
-::    .add: agents not in manifest that should be running
-::    .sub: agents in manifest that should not be running
-::
-+$  rein
-  $:  liv=_&
-      add=(set dude)
-      sub=(set dude)
-  ==
-::
-+$  vat  [=desk hash=@uv =cass =arak]
-::  +report-vats: report on all desk installations
-::
-++  report-vats
-  |=  [our=@p now=@da]
-  ^-  tang
-  =+  .^  raz=(list vat)
-          %gx  /(scot %p our)/hood/(scot %da now)/kiln/vats/noun
-      ==
-  (turn raz |=(v=vat (report-vat our now v)))
-::  +report-vat: report on a single desk installation
-::
-++  report-vat
-  |=  [our=ship now=@da vat]
-  ^-  tank
-  =+  .^(=weft %cx /(scot %p our)/[desk]/(scot %da now)/sys/kelvin)
-  :+  %rose  ["" "{<desk>}" "::"]
-  ^-  tang
-  =-  ?:  =(~ next.arak)  -
-      %+  snoc  -
-      leaf/"pending: {<(turn next.arak |=([@ lal=@tas num=@] [lal num]))>}"
-  ^-  tang
-  =/  meb  (mergebase-hashes our desk now arak)
-  =/  sat  ?:(liv.rein.arak "running" "suspended")
-  :~  leaf/"/sys/kelvin: {<[lal num]:weft>}"
-      leaf/"base hash:   {?.(=(1 (lent meb)) <meb> <(head meb)>)}"
-      leaf/"%cz hash:    {<hash>}"
-      leaf/"source ship: {<ship.arak>}"
-      leaf/"source desk: {<desk.arak>}"
-      leaf/"source aeon: {<aeon.arak>}"
-      leaf/"status:      {sat}"
-      leaf/"force on:    {?:(=(~ add.rein.arak) "~" <add.rein.arak>)}"
-      leaf/"force off:   {?:(=(~ sub.rein.arak) "~" <sub.rein.arak>)}"
-  ==
-::  +read-kelvin-foreign: read /sys/kelvin from a foreign desk
-::
-++  read-kelvin-foreign
-  |=  [=ship =desk =aeon]
-  ^-  weft
-  =/  her  (scot %p ship)
-  =/  syd  (scot %tas desk)
-  =/  yon  (scot %ud aeon)
-  ::
-  =/  dom  .^(dome cv/~[her syd yon])
-  =/  tak  (scot %uv (~(got by hit.dom) let.dom))
-  =/  yak  .^(yaki cs/~[her syd yon %yaki tak])
-  =/  lob  (scot %uv (~(got by q.yak) /sys/kelvin))
-  =/  bob  .^(blob cs/~[her syd yon %blob lob])
-  ::
-  ;;  weft
-  ?-  -.bob
-    %direct  q.q.bob
-    %delta   q.r.bob
-  ==
-::  +read-kelvin-local: read /sys/kelvin from a local desk
-::
-++  read-kelvin-local
-  |=  [our=ship =desk now=@da]
-  ^-  (unit weft)
-  =/  pax  (en-beam [our desk da+now] /sys/kelvin)
-  ?~  =<(fil .^(arch cy/pax))
-    ~
-  [~ .^(weft cx/pax)]
-::  +read-bill: read contents of /desk/bill manifest
-::
-++  read-bill
-  |=  [our=ship =desk now=@da] 
-  =/  pax  (en-beam [our desk da+now] /desk/bill)
-  ?~  =<(fil .^(arch cy/pax))
-    *bill
-  .^(bill cx/pax)
-::  +is-fish: should dill link .dude?
-::
-++  is-fish  |=([=dude =bill] .?((find ~[dude] (read-fish bill))))
-::  +get-apps-diff: which agents should be started and stopped
-::
-++  get-apps-diff
-  |=  [our=ship =desk now=@da =rein]
-  ^-  [liv=(list dude) ded=(list dude)]
-  =/  =bill  (read-bill our desk now)
-  =/  wan  (sy (get-apps-want bill rein))
-  =/  hav  (sy (get-apps-live our desk now))
-  =/  liv  ~(tap in (~(dif in wan) hav))
-  =/  ded  ~(tap in (~(dif in hav) wan))
-  [liv ded]
-::
-++  get-apps-live
-  |=  [our=ship =desk now=@da]
-  ^-  (list dude)
-  %+  murn  (get-apps-have our desk now)
-  |=([=dude live=?] ?.(live ~ `dude))
-::  +get-apps-have: find which apps Gall is running on a desk
-::
-++  get-apps-have
-  |=  [our=ship =desk now=@da]
-  ^-  (list [=dude live=?])
-  %~  tap  in
-  .^((set [=dude live=?]) ge+/(scot %p our)/[desk]/(scot %da now))
-::  +get-apps-want: find which apps should be running on a desk
-::
-++  get-apps-want
-  |=  [=bill =rein]
-  ^-  (list dude)
-  =/  duz  (read-apes bill)
-  =.  duz  (skip duz ~(has in sub.rein))
-  =.  duz  (weld duz (skip ~(tap in add.rein) ~(has in (sy duz))))
-  duz
-::
-++  mergebase-hashes
-  |=  [our=@p =desk now=@da =arak]
-  =/  her  (scot %p ship.arak)
-  =/  ego  (scot %p our)
-  =/  wen  (scot %da now)
-  %+  turn  .^((list tako) %cs ~[ego desk wen %base her desk.arak])
-  |=(=tako .^(@uv %cs ~[ego desk wen %hash (scot %uv tako)]))
-::
-++  enjs
-  =,  enjs:format
-  |%
-  ++  vats
-    |=  v=(list ^vat)
-    ^-  json
-    %-  pairs
-    %+  turn  v
-    |=  va=^vat
-    [desk.va (vat va)]
-  ::
-  ++  tim
-    |=  t=@
-    ^-  json
-    (numb (fall (mole |.((unm:chrono:userlib t))) 0))
-  ::
-  ++  cass
-    |=  c=^cass
-    %-  pairs
-    :~  ud+(numb ud.c)
-        da+(tim da.c)
-    ==
-  ::
-  ++  vat
-    |=  v=^vat
-    %-  pairs
-    :~  desk+s+desk.v
-        hash+s+(scot %uv hash.v)
-        cass+(cass cass.v)
-        arak+(arak arak.v)
-    ==
-  ::
-  ++  weft
-    |=  w=^weft
-    %-  pairs
-    :~  name+s+lal.w
-        kelvin+(numb num.w)
-    ==
-  ::
-  ++  woof
-    |=  w=[=aeon =^weft]
-    %-  pairs
-    :~  aeon+(numb aeon.w)
-        weft+(weft weft.w)
-    ==
-  ::
-  ++  rein
-    |=  r=^rein
-    %-  pairs
-    :~  add+a+(turn ~(tap in add.r) (lead %s))
-        sub+a+(turn ~(tap in sub.r) (lead %s))
-    ==
-  ::
-  ++  arak
-    |=  a=^arak
-    %-  pairs
-    :~  ship+s+(scot %p ship.a)
-        desk+s+desk.a
-        aeon+(numb aeon.a)
-        next+a+(turn next.a woof)
-        rein+(rein rein.a)
-    ==
-  --
---

pkg/arvo/sur/hood.hoon

@@ -0,0 +1 @@
+../../base-dev/sur/hood.hoon

pkg/base-dev/sur/hood.hoon

@@ -0,0 +1,218 @@
+/-  *bill
+=,  clay
+=*  dude  dude:gall
+|%
+::  $diff: subscription update
+::
++$  diff
+  $%  [%block =desk =arak =weft blockers=(set desk)]
+      [%reset =desk =arak]
+      [%merge =desk =arak]
+      [%merge-sunk =desk =arak =tang]
+      [%merge-fail =desk =arak =tang]
+      [%suspend =desk =arak]
+      [%revive =desk =arak]
+  ==
+::  $arak: foreign vat tracker
+::
+::    .next is a list of pending commits with future kelvins
+::
++$  arak
+  $:  =ship
+      =desk
+      =aeon
+      next=(list [=aeon =weft])
+      =rein
+  ==
+::  $rein: diff from desk manifest
+::
+::    .liv: suspended?
+::    .add: agents not in manifest that should be running
+::    .sub: agents in manifest that should not be running
+::
++$  rein
+  $:  liv=_&
+      add=(set dude)
+      sub=(set dude)
+  ==
+::
++$  vat  [=desk hash=@uv =cass =arak]
+::  +report-vats: report on all desk installations
+::
+++  report-vats
+  |=  [our=@p now=@da]
+  ^-  tang
+  =+  .^  raz=(list vat)
+          %gx  /(scot %p our)/hood/(scot %da now)/kiln/vats/noun
+      ==
+  (turn raz |=(v=vat (report-vat our now v)))
+::  +report-vat: report on a single desk installation
+::
+++  report-vat
+  |=  [our=ship now=@da vat]
+  ^-  tank
+  =+  .^(=weft %cx /(scot %p our)/[desk]/(scot %da now)/sys/kelvin)
+  :+  %rose  ["" "{<desk>}" "::"]
+  ^-  tang
+  =-  ?:  =(~ next.arak)  -
+      %+  snoc  -
+      leaf/"pending: {<(turn next.arak |=([@ lal=@tas num=@] [lal num]))>}"
+  ^-  tang
+  =/  meb  (mergebase-hashes our desk now arak)
+  =/  sat  ?:(liv.rein.arak "running" "suspended")
+  :~  leaf/"/sys/kelvin: {<[lal num]:weft>}"
+      leaf/"base hash:   {?.(=(1 (lent meb)) <meb> <(head meb)>)}"
+      leaf/"%cz hash:    {<hash>}"
+      leaf/"source ship: {<ship.arak>}"
+      leaf/"source desk: {<desk.arak>}"
+      leaf/"source aeon: {<aeon.arak>}"
+      leaf/"status:      {sat}"
+      leaf/"force on:    {?:(=(~ add.rein.arak) "~" <add.rein.arak>)}"
+      leaf/"force off:   {?:(=(~ sub.rein.arak) "~" <sub.rein.arak>)}"
+  ==
+::  +read-kelvin-foreign: read /sys/kelvin from a foreign desk
+::
+++  read-kelvin-foreign
+  |=  [=ship =desk =aeon]
+  ^-  weft
+  =/  her  (scot %p ship)
+  =/  syd  (scot %tas desk)
+  =/  yon  (scot %ud aeon)
+  ::
+  =/  dom  .^(dome cv/~[her syd yon])
+  =/  tak  (scot %uv (~(got by hit.dom) let.dom))
+  =/  yak  .^(yaki cs/~[her syd yon %yaki tak])
+  =/  lob  (scot %uv (~(got by q.yak) /sys/kelvin))
+  =/  bob  .^(blob cs/~[her syd yon %blob lob])
+  ::
+  ;;  weft
+  ?-  -.bob
+    %direct  q.q.bob
+    %delta   q.r.bob
+  ==
+::  +read-kelvin-local: read /sys/kelvin from a local desk
+::
+++  read-kelvin-local
+  |=  [our=ship =desk now=@da]
+  ^-  (unit weft)
+  =/  pax  (en-beam [our desk da+now] /sys/kelvin)
+  ?~  =<(fil .^(arch cy/pax))
+    ~
+  [~ .^(weft cx/pax)]
+::  +read-bill: read contents of /desk/bill manifest
+::
+++  read-bill
+  |=  [our=ship =desk now=@da] 
+  =/  pax  (en-beam [our desk da+now] /desk/bill)
+  ?~  =<(fil .^(arch cy/pax))
+    *bill
+  .^(bill cx/pax)
+::  +is-fish: should dill link .dude?
+::
+++  is-fish  |=([=dude =bill] .?((find ~[dude] (read-fish bill))))
+::  +get-apps-diff: which agents should be started and stopped
+::
+++  get-apps-diff
+  |=  [our=ship =desk now=@da =rein]
+  ^-  [liv=(list dude) ded=(list dude)]
+  =/  =bill  (read-bill our desk now)
+  =/  wan  (sy (get-apps-want bill rein))
+  =/  hav  (sy (get-apps-live our desk now))
+  =/  liv  ~(tap in (~(dif in wan) hav))
+  =/  ded  ~(tap in (~(dif in hav) wan))
+  [liv ded]
+::
+++  get-apps-live
+  |=  [our=ship =desk now=@da]
+  ^-  (list dude)
+  %+  murn  (get-apps-have our desk now)
+  |=([=dude live=?] ?.(live ~ `dude))
+::  +get-apps-have: find which apps Gall is running on a desk
+::
+++  get-apps-have
+  |=  [our=ship =desk now=@da]
+  ^-  (list [=dude live=?])
+  %~  tap  in
+  .^((set [=dude live=?]) ge+/(scot %p our)/[desk]/(scot %da now))
+::  +get-apps-want: find which apps should be running on a desk
+::
+++  get-apps-want
+  |=  [=bill =rein]
+  ^-  (list dude)
+  =/  duz  (read-apes bill)
+  =.  duz  (skip duz ~(has in sub.rein))
+  =.  duz  (weld duz (skip ~(tap in add.rein) ~(has in (sy duz))))
+  duz
+::
+++  mergebase-hashes
+  |=  [our=@p =desk now=@da =arak]
+  =/  her  (scot %p ship.arak)
+  =/  ego  (scot %p our)
+  =/  wen  (scot %da now)
+  %+  turn  .^((list tako) %cs ~[ego desk wen %base her desk.arak])
+  |=(=tako .^(@uv %cs ~[ego desk wen %hash (scot %uv tako)]))
+::
+++  enjs
+  =,  enjs:format
+  |%
+  ++  vats
+    |=  v=(list ^vat)
+    ^-  json
+    %-  pairs
+    %+  turn  v
+    |=  va=^vat
+    [desk.va (vat va)]
+  ::
+  ++  tim
+    |=  t=@
+    ^-  json
+    (numb (fall (mole |.((unm:chrono:userlib t))) 0))
+  ::
+  ++  cass
+    |=  c=^cass
+    %-  pairs
+    :~  ud+(numb ud.c)
+        da+(tim da.c)
+    ==
+  ::
+  ++  vat
+    |=  v=^vat
+    %-  pairs
+    :~  desk+s+desk.v
+        hash+s+(scot %uv hash.v)
+        cass+(cass cass.v)
+        arak+(arak arak.v)
+    ==
+  ::
+  ++  weft
+    |=  w=^weft
+    %-  pairs
+    :~  name+s+lal.w
+        kelvin+(numb num.w)
+    ==
+  ::
+  ++  woof
+    |=  w=[=aeon =^weft]
+    %-  pairs
+    :~  aeon+(numb aeon.w)
+        weft+(weft weft.w)
+    ==
+  ::
+  ++  rein
+    |=  r=^rein
+    %-  pairs
+    :~  add+a+(turn ~(tap in add.r) (lead %s))
+        sub+a+(turn ~(tap in sub.r) (lead %s))
+    ==
+  ::
+  ++  arak
+    |=  a=^arak
+    %-  pairs
+    :~  ship+s+(scot %p ship.a)
+        desk+s+desk.a
+        aeon+(numb aeon.a)
+        next+a+(turn next.a woof)
+        rein+(rein rein.a)
+    ==
+  --
+--

pkg/garden/lib/agentio.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/agentio.hoon

pkg/garden/lib/azimuth.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/azimuth.hoon

pkg/garden/lib/azimuthio.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/azimuthio.hoon

pkg/garden/lib/bip/b158.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/bip/b158.hoon

pkg/garden/lib/bip/b173.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/bip/b173.hoon

pkg/garden/lib/bip/b174.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/bip/b174.hoon

pkg/garden/lib/bip32.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/bip32.hoon

pkg/garden/lib/bip39.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/bip39.hoon

pkg/garden/lib/bip39/english.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/bip39/english.hoon

pkg/garden/lib/dbug.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/dbug.hoon

pkg/garden/lib/default-agent.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/default-agent.hoon

pkg/garden/lib/docket.hoon

@@ -0,0 +1 @@
+../../garden-dev/lib/docket.hoon

pkg/garden/lib/ethio.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/ethio.hoon

pkg/garden/lib/language-server/build.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/language-server/build.hoon

pkg/garden/lib/language-server/complete.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/language-server/complete.hoon

pkg/garden/lib/language-server/easy-print.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/language-server/easy-print.hoon

pkg/garden/lib/language-server/json.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/language-server/json.hoon

pkg/garden/lib/language-server/parser.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/language-server/parser.hoon

pkg/garden/lib/language-server/rune-snippet.hoon

@@ -0,0 +1 @@
+../../../base-dev/lib/language-server/rune-snippet.hoon

pkg/garden/lib/server.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/server.hoon

pkg/garden/lib/shoe.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/shoe.hoon

pkg/garden/lib/skeleton.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/skeleton.hoon

pkg/garden/lib/sole.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/sole.hoon

pkg/garden/lib/strand.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/strand.hoon

pkg/garden/lib/strandio.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/strandio.hoon

pkg/garden/lib/treaty.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/treaty.hoon

pkg/garden/lib/verb.hoon

@@ -0,0 +1 @@
+../../base-dev/lib/verb.hoon

pkg/garden/mar/belt.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/belt.hoon

pkg/garden/mar/bill.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/bill.hoon

pkg/garden/mar/blit.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/blit.hoon

pkg/garden/mar/docket.hoon

@@ -1,25 +0,0 @@
-/+  dock=docket
-|_  =docket:dock
-++  grow
-  |%
-  ++  mime  
-    ^-  ^mime
-    [/text/x-docket (as-octt:mimes:html (spit-docket:mime:dock docket))]
-  ++  noun  docket
-  ++  json  (docket:enjs:dock docket)
-  --
-++  grab
-  |%
-  ::
-  ++  mime
-    |=  [=mite len=@ud tex=@]
-    ^-  docket:dock
-    %-  need
-    %-  from-clauses:mime:dock
-    !<((list clause:dock) (slap !>(~) (ream tex)))
-
-  ::
-  ++  noun  docket:dock
-  --
-++  grad  %noun
---

pkg/garden/mar/docket.hoon

@@ -0,0 +1 @@
+../../garden-dev/mar/docket.hoon

pkg/garden/mar/hoon.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/hoon.hoon

pkg/garden/mar/htm.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/htm.hoon

pkg/garden/mar/html.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/html.hoon

pkg/garden/mar/httr.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/httr.hoon

pkg/garden/mar/hymn.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/hymn.hoon

pkg/garden/mar/js.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/js.hoon

pkg/garden/mar/json.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/json.hoon

pkg/garden/mar/json/rpc/response.hoon

@@ -0,0 +1 @@
+../../../../base-dev/mar/json/rpc/response.hoon

pkg/garden/mar/kelvin.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/kelvin.hoon

pkg/garden/mar/language-server/rpc/notification.hoon

@@ -0,0 +1 @@
+../../../../base-dev/mar/language-server/rpc/notification.hoon

pkg/garden/mar/language-server/rpc/request.hoon

@@ -0,0 +1 @@
+../../../../base-dev/mar/language-server/rpc/request.hoon

pkg/garden/mar/language-server/rpc/response.hoon

@@ -0,0 +1 @@
+../../../../base-dev/mar/language-server/rpc/response.hoon

pkg/garden/mar/mime.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/mime.hoon

pkg/garden/mar/noun.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/noun.hoon

pkg/garden/mar/path.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/path.hoon

pkg/garden/mar/png.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/png.hoon

pkg/garden/mar/purl.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/purl.hoon

pkg/garden/mar/sole/action.hoon

@@ -0,0 +1 @@
+../../../base-dev/mar/sole/action.hoon

pkg/garden/mar/sole/effect.hoon

@@ -0,0 +1 @@
+../../../base-dev/mar/sole/effect.hoon

pkg/garden/mar/svg.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/svg.hoon

pkg/garden/mar/tang.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/tang.hoon

pkg/garden/mar/tape.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/tape.hoon

pkg/garden/mar/txt-diff.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/txt-diff.hoon

pkg/garden/mar/txt.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/txt.hoon

pkg/garden/mar/udon.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/udon.hoon

pkg/garden/mar/umd.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/umd.hoon

pkg/garden/mar/urb.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/urb.hoon

pkg/garden/mar/urbit.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/urbit.hoon

pkg/garden/mar/woff2.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/woff2.hoon

pkg/garden/mar/xml.hoon

@@ -0,0 +1 @@
+../../base-dev/mar/xml.hoon

pkg/garden/sur/bill.hoon

@@ -0,0 +1 @@
+../../base-dev/sur/bill.hoon

pkg/garden/sur/docket.hoon

@@ -0,0 +1 @@
+../../garden-dev/sur/docket.hoon

pkg/garden/sur/hood.hoon

@@ -1,206 +0,0 @@
-/-  *bill
-=,  clay
-=*  dude  dude:gall
-|%
-::  $diff: subscription update
-::
-+$  diff
-  $%  [%block =desk =arak =weft blockers=(set desk)]
-      [%reset =desk =arak]
-      [%merge =desk =arak]
-      [%merge-sunk =desk =arak =tang]
-      [%merge-fail =desk =arak =tang]
-      [%suspend =desk =arak]
-      [%revive =desk =arak]
-  ==
-::  $arak: foreign vat tracker
-::
-::    .next is a list of pending commits with future kelvins
-::
-+$  arak
-  $:  =ship
-      =desk
-      =aeon
-      next=(list [=aeon =weft])
-      =rein
-  ==
-::  $rein: diff from desk manifest
-::
-::    .liv: suspended?
-::    .add: agents not in manifest that should be running
-::    .sub: agents in manifest that should not be running
-::
-+$  rein
-  $:  liv=_&
-      add=(set dude)
-      sub=(set dude)
-  ==
-::
-+$  vat  [=desk hash=@uv =cass =arak]
-::  +report-vats: report on all desk installations
-::
-++  report-vats
-  |=  [our=@p now=@da]
-  ^-  tang
-  =+  .^  raz=(list vat)
-          %gx  /(scot %p our)/hood/(scot %da now)/kiln/vats/noun
-      ==
-  (turn raz |=(v=vat (report-vat our now v)))
-::  +report-vat: report on a single desk installation
-::
-++  report-vat
-  |=  [our=ship now=@da vat]
-  ^-  tank
-  =+  .^(=weft %cx /(scot %p our)/[desk]/(scot %da now)/sys/kelvin)
-  :+  %rose  ["" "{<desk>}" "::"]
-  ^-  tang
-  =-  ?:  =(~ next.arak)  -
-      %+  snoc  -
-      leaf/"pending: {<(turn next.arak |=([@ lal=@tas num=@] [lal num]))>}"
-  ^-  tang
-  =/  meb  (mergebase-hashes our desk now arak)
-  =/  sat  ?:(liv.rein.arak "running" "suspended")
-  :~  leaf/"/sys/kelvin: {<[lal num]:weft>}"
-      leaf/"base hash:   {?.(=(1 (lent meb)) <meb> <(head meb)>)}"
-      leaf/"%cz hash:    {<hash>}"
-      leaf/"remote aeon: {<aeon.arak>}"
-      leaf/"status:      {sat}"
-      leaf/"force on:    {?:(=(~ add.rein.arak) "~" <add.rein.arak>)}"
-      leaf/"force off:   {?:(=(~ sub.rein.arak) "~" <sub.rein.arak>)}"
-  ==
-::
-++  read-kelvin-foreign
-  |=  [=ship =desk =aeon]
-  ^-  weft
-  =/  her  (scot %p ship)
-  =/  syd  (scot %tas desk)
-  =/  yon  (scot %ud aeon)
-  ::
-  =/  dom  .^(dome cv/~[her syd yon])
-  =/  tak  (scot %uv (~(got by hit.dom) let.dom))
-  =/  yak  .^(yaki cs/~[her syd yon %yaki tak])
-  =/  lob  (scot %uv (~(got by q.yak) /sys/kelvin))
-  =/  bob  .^(blob cs/~[her syd yon %blob lob])
-  ::
-  ;;  weft
-  ?-  -.bob
-    %direct  q.q.bob
-    %delta   q.r.bob
-  ==
-::  +read-bill: read contents of /desk/bill manifest
-::
-++  read-bill
-  |=  [our=ship =desk now=@da] 
-  =/  pax  (en-beam [our desk da+now] /desk/bill)
-  ?~  =<(fil .^(arch cy/pax))
-    *bill
-  .^(bill cx/pax)
-::  +is-fish: should dill link .dude?
-::
-++  is-fish  |=([=dude =bill] .?((find ~[dude] (read-fish bill))))
-::  +get-apps-diff: which agents should be started and stopped
-::
-++  get-apps-diff
-  |=  [our=ship =desk now=@da =rein]
-  ^-  [liv=(list dude) ded=(list dude)]
-  =/  =bill  (read-bill our desk now)
-  =/  wan  (sy (get-apps-want bill rein))
-  =/  hav  (sy (get-apps-live our desk now))
-  =/  liv  ~(tap in (~(dif in wan) hav))
-  =/  ded  ~(tap in (~(dif in hav) wan))
-  [liv ded]
-::
-++  get-apps-live
-  |=  [our=ship =desk now=@da]
-  ^-  (list dude)
-  %+  murn  (get-apps-have our desk now)
-  |=([=dude live=?] ?.(live ~ `dude))
-::  +get-apps-have: find which apps Gall is running on a desk
-::
-++  get-apps-have
-  |=  [our=ship =desk now=@da]
-  ^-  (list [=dude live=?])
-  %~  tap  in
-  .^((set [=dude live=?]) ge+/(scot %p our)/[desk]/(scot %da now))
-::  +get-apps-want: find which apps should be running on a desk
-::
-++  get-apps-want
-  |=  [=bill =rein]
-  ^-  (list dude)
-  =/  duz  (read-apes bill)
-  =.  duz  (skip duz ~(has in sub.rein))
-  =.  duz  (weld duz (skip ~(tap in add.rein) ~(has in (sy duz))))
-  duz
-::
-++  mergebase-hashes
-  |=  [our=@p =desk now=@da =arak]
-  =/  her  (scot %p ship.arak)
-  =/  ego  (scot %p our)
-  =/  wen  (scot %da now)
-  %+  turn  .^((list tako) %cs ~[ego desk wen %base her desk.arak])
-  |=(=tako .^(@uv %cs ~[ego desk wen %hash (scot %uv tako)]))
-::
-++  enjs
-  =,  enjs:format
-  |%
-  ++  vats
-    |=  v=(list ^vat)
-    ^-  json
-    %-  pairs
-    %+  turn  v
-    |=  va=^vat
-    [desk.va (vat va)]
-  ::
-  ++  tim
-    |=  t=@
-    ^-  json
-    (numb (fall (mole |.((unm:chrono:userlib t))) 0))
-  ::
-  ++  cass
-    |=  c=^cass
-    %-  pairs
-    :~  ud+(numb ud.c)
-        da+(tim da.c)
-    ==
-  ::
-  ++  vat
-    |=  v=^vat
-    %-  pairs
-    :~  desk+s+desk.v
-        hash+s+(scot %uv hash.v)
-        cass+(cass cass.v)
-        arak+(arak arak.v)
-    ==
-  ::
-  ++  weft
-    |=  w=^weft
-    %-  pairs
-    :~  name+s+lal.w
-        kelvin+(numb num.w)
-    ==
-  ::
-  ++  woof
-    |=  w=[=aeon =^weft]
-    %-  pairs
-    :~  aeon+(numb aeon.w)
-        weft+(weft weft.w)
-    ==
-  ::
-  ++  rein
-    |=  r=^rein
-    %-  pairs
-    :~  add+a+(turn ~(tap in add.r) (lead %s))
-        sub+a+(turn ~(tap in sub.r) (lead %s))
-    ==
-  ::
-  ++  arak
-    |=  a=^arak
-    %-  pairs
-    :~  ship+s+(scot %p ship.a)
-        desk+s+desk.a
-        aeon+(numb aeon.a)
-        next+a+(turn next.a woof)
-        rein+(rein rein.a)
-    ==
-  --
---

pkg/garden/sur/hood.hoon

@@ -0,0 +1 @@
+../../base-dev/sur/hood.hoon

pkg/garden/sur/sole.hoon

@@ -0,0 +1 @@
+../../base-dev/sur/sole.hoon

pkg/garden/sur/spider.hoon

@@ -0,0 +1 @@
+../../base-dev/sur/spider.hoon

pkg/garden/sur/verb.hoon

@@ -0,0 +1 @@
+../../base-dev/sur/verb.hoon