urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 01:01:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

kiln: remove resolve XX's

Browse Source
This commit is contained in:
Philip Monk 2022-09-12 20:51:39 -08:00
parent 4ae324849f
commit c46fb686ff
2 changed files with 7 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/sys/vane/clay.hoon
View File

@ -126,7 +126,7 @@
fod=flue :: ford cache fod=flue :: ford cache
wic=(map weft yoki) :: commit-in-waiting wic=(map weft yoki) :: commit-in-waiting
liv=zest :: running agents liv=zest :: running agents
ren=(map dude:gall ?) :: force agents on/off ren=rein :: force agents on/off
== :: == ::
:: ::
:: Commit state. :: Commit state.

51
pkg/base-dev/sur/hood.hoon
View File

@ -167,12 +167,11 @@
?. .^(? %cu pax) ~ ?. .^(? %cu pax) ~
`.^(ship %cx pax) `.^(ship %cx pax)
:: ::
:: XX ++ get-apps-live
:: ++ get-apps-live |= [our=ship =desk now=@da]
:: |= [our=ship =desk now=@da] ^- (list dude)
:: ^- (list dude) %+ murn (get-apps-have our desk now)
:: %+ murn (get-apps-have our desk now) |=([=dude live=?] ?.(live ~ `dude))
:: |=([=dude live=?] ?.(live ~ `dude))
:: +get-apps-have: find which apps Gall is running on a desk :: +get-apps-have: find which apps Gall is running on a desk
:: ::
++ get-apps-have ++ get-apps-have
@ -180,17 +179,7 @@
^- (list [=dude live=?]) ^- (list [=dude live=?])
%~ tap in %~ tap in
.^((set [=dude live=?]) ge+/(scot %p our)/[desk]/(scot %da now)) .^((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
:: |= [local=[our=ship =desk now=@da] duz=(list dude) =rein]
:: ^- (list dude)
:: ?. liv.rein ~
:: ?. |(=(`zuse+zuse (read-kelvin-local local)) =(%base desk.local)) ~
:: =. duz (skip duz ~(has in sub.rein))
:: =. duz (weld duz (skip ~(tap in add.rein) ~(has in (sy duz))))
:: duz
:: ::
++ mergebase-hashes ++ mergebase-hashes
|= [our=@p syd=desk now=@da her=ship sud=desk] |= [our=@p syd=desk now=@da her=ship sud=desk]
=/ her (scot %p her) =/ her (scot %p her)
@ -202,15 +191,6 @@
++ enjs ++ enjs
=, enjs:format =, enjs:format
|% |%
:: XX
:: ++ vats
:: |= v=(list ^vat)
:: ^- json
:: %- pairs
:: %+ turn v
:: |= va=^vat
:: [desk.va (vat va)]
::
++ tim ++ tim
|= t=@ |= t=@
^- json ^- json
@ -223,16 +203,6 @@
da+(tim da.c) da+(tim da.c)
== ==
:: ::
:: XX
:: ++ vat
:: |= v=^vat
:: %- pairs
:: :~ desk+s+desk.v
:: hash+s+(scot %uv hash.v)
:: cass+(cass cass.v)
:: arak+(arak arak.v)
:: ==
::
++ weft ++ weft
|= w=^weft |= w=^weft
%- pairs %- pairs
@ -246,14 +216,5 @@
:~ aeon+(numb aeon.r) :~ aeon+(numb aeon.r)
weft+(weft weft.r) weft+(weft weft.r)
== ==
::
:: XX
:: ++ rein
:: |= r=^rein
:: %- pairs
:: :~ add+a+(turn ~(tap in add.r) (lead %s))
:: sub+a+(turn ~(tap in sub.r) (lead %s))
:: ==
::
-- --
-- --