gall,eyre,dojo,azimuth,dbug: gall claims the [%$ *] namespace

This commit is contained in:
~wicrum-wicrun 2023-04-24 21:53:52 +02:00
parent 6355b84d35
commit 05304146a7
6 changed files with 15 additions and 15 deletions

View File

@ -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 |]))

View File

@ -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

View File

@ -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)

View File

@ -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))

View File

@ -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)

View File

@ -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) ~