Merge pull request #6502 from tadad/i/6501/sss-live-give

i/6501 `+live` logic in `+give`
This commit is contained in:
~wicrum-wicrun 2023-04-25 00:38:22 +02:00 committed by GitHub
commit 990c52247c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -227,7 +227,10 @@
^- (quip card:agent:gall pubs) ^- (quip card:agent:gall pubs)
?~ ((soft ^path) path) ~| %need-path !! ?~ ((soft ^path) path) ~| %need-path !!
=/ buoy (~(gut by pub) path *buoy) =/ buoy (~(gut by pub) path *buoy)
?@ tide=tid.buoy ~| %dead-path !! ::TODO is this good behavior? =? buoy ?=(@ tid.buoy)
%*(. buoy(tid *tide) rok.tid (put:rok ~ +(tid.buoy) *rock:lake))
?> ?=(^ tid.buoy)
=* tide tid.buoy
=/ next=aeon +((latest tide)) =/ next=aeon +((latest tide))
:- %+ murn ~(tap bi mem.tide) :- %+ murn ~(tap bi mem.tide)
|= [=ship =dude =@da] |= [=ship =dude =@da]
@ -291,12 +294,6 @@
++ kill :: subs to not expect updates. ++ kill :: subs to not expect updates.
(curr edit |=(=buoy buoy(tid (latest tid.buoy)))) (curr edit |=(=buoy buoy(tid (latest tid.buoy))))
:: :: Reopen list of killed paths. :: :: Reopen list of killed paths.
++ live :: No-ops on live paths.
%+ curr edit
|= =buoy
?^ tid.buoy buoy
%*(. buoy(tid *tide) rok.tid (put:rok ~ +(tid.buoy) *rock:lake))
::
++ read :: See current published states. ++ read :: See current published states.
^- (map paths [allowed=(unit (set ship)) =rock:lake]) ^- (map paths [allowed=(unit (set ship)) =rock:lake])
%- malt %+ murn ~(tap by pub) %- malt %+ murn ~(tap by pub)