mirror of
https://github.com/urbit/shrub.git
synced 2024-12-25 04:52:06 +03:00
gall,eyre,dojo,azimuth,dbug: gall claims the [%$ *]
namespace
This commit is contained in:
parent
6355b84d35
commit
05304146a7
@ -263,7 +263,7 @@
|
||||
:: ~& >> %no-logs-in-azimuth-state
|
||||
number.id.sap.state
|
||||
=+ [our=(scot %p our.bowl) now=(scot %da now.bowl)]
|
||||
=+ .^(dudes=(set [dude:gall ?]) %ge our %base now /)
|
||||
=+ .^(dudes=(set [dude:gall ?]) %ge our %base now /$)
|
||||
=/ running=? (~(has in dudes) [%eth-watcher &])
|
||||
=/ installed=?
|
||||
|((~(has in dudes) [%eth-watcher &]) (~(has in dudes) [%eth-watcher |]))
|
||||
|
@ -433,7 +433,7 @@
|
||||
^- (list dude:gall)
|
||||
=- (turn ~(tap in -) head)
|
||||
;; (set [dude:gall ?]) ::TODO for some reason we need this?
|
||||
(scry (set [dude:gall ?]) %ge desk /)
|
||||
(scry (set [dude:gall ?]) %ge desk /$)
|
||||
::
|
||||
++ running
|
||||
|= app=term
|
||||
|
@ -129,7 +129,7 @@
|
||||
=/ =desk
|
||||
::TODO maybe should recognize if the user specified a desk explicitly.
|
||||
:: currently eats the :app|desk#gen case.
|
||||
=+ gop=(en-beam dir(q q.gol, s /))
|
||||
=+ gop=(en-beam dir(q q.gol, s /$))
|
||||
?. .^(? %gu gop)
|
||||
q.dir
|
||||
.^(desk %gd gop)
|
||||
|
@ -6,5 +6,5 @@
|
||||
^- (list [dude:gall @ud])
|
||||
%+ sort
|
||||
%~ tap by
|
||||
.^((map dude:gall @ud) %gf /(scot %p p.bec)//(scot %da now))
|
||||
.^((map dude:gall @ud) %gf /(scot %p p.bec)//(scot %da now)/$)
|
||||
|=([[* a=@ud] [* b=@ud]] (lth a b))
|
||||
|
@ -1792,7 +1792,7 @@
|
||||
?~ sub
|
||||
((trace 0 |.("no subscription for request-id {(trip request-id)}")) ~)
|
||||
=/ des=(unit (unit cage))
|
||||
(rof ~ %gd [our app.u.sub da+now] ~)
|
||||
(rof ~ %gd [our app.u.sub da+now] /$)
|
||||
?. ?=([~ ~ *] des)
|
||||
((trace 0 |.("no desk for app {<app.u.sub>}")) ~)
|
||||
`!<(=desk q.u.u.des)
|
||||
|
@ -2057,6 +2057,16 @@
|
||||
==
|
||||
~
|
||||
::
|
||||
?. ?=([%$ *] path) :: [%$ *] is for the vane, all else is for the agent
|
||||
?. ?& =(our ship)
|
||||
=([%$ %da now] coin)
|
||||
== ~
|
||||
?. (~(has by yokes.state) dap) [~ ~]
|
||||
?. ?=(^ path) ~
|
||||
=/ =routes [~ ship]
|
||||
(mo-peek:mo & dap routes care path)
|
||||
::
|
||||
=> .(path t.path)
|
||||
?: &(=(care %$) =(path /whey))
|
||||
=/ blocked
|
||||
=/ queued (~(run by blocked.state) |=((qeu blocked-move) [%.y +<]))
|
||||
@ -2152,16 +2162,6 @@
|
||||
?~ las=(ram:on-path fan.u.ski) [~ ~]
|
||||
``case/!>(ud/key.u.las)
|
||||
::
|
||||
?. ?=([%$ *] path) :: [%$ *] is for the vane, all else is for the agent
|
||||
?. ?& =(our ship)
|
||||
=([%$ %da now] coin)
|
||||
== ~
|
||||
?. (~(has by yokes.state) dap) [~ ~]
|
||||
?. ?=(^ path) ~
|
||||
=/ =routes [~ ship]
|
||||
(mo-peek:mo & dap routes care path)
|
||||
::
|
||||
=> .(path t.path)
|
||||
?: ?=(%x care)
|
||||
?. =(p.bem our) ~
|
||||
?~ yok=(~(get by yokes.state) q.bem) ~
|
||||
|
Loading…
Reference in New Issue
Block a user