1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 10:21:31 +03:00

kiln: update other agents on kernel updates

This commit is contained in:
Ted Blackman 2021-09-27 19:34:15 -04:00
parent 18701b2ad2
commit 855e97d17a
2 changed files with 16 additions and 18 deletions
pkg
arvo/lib/hood
base-dev/sur

View File

@ -685,7 +685,7 @@
?: ?=(%jolt i.t.wire) ?: ?=(%jolt i.t.wire)
(take-onto wire syn) (take-onto wire syn)
?: ?=(%listen i.t.wire) ?: ?=(%listen i.t.wire)
abet:(take-listen wire syn) (take-listen wire syn)
=< abet =< abet
=. vats (from-wire wire) =. vats (from-wire wire)
?+ i.t.wire ?+ i.t.wire
@ -812,30 +812,29 @@
:: ::
++ take-listen ++ take-listen
|= [=wire syn=sign-arvo] |= [=wire syn=sign-arvo]
^+ vats ^+ kiln
?> ?=([@ %writ ~ *] syn) ?> ?=([@ %writ ~ *] syn)
=/ lac=desk (head wire) =/ lac=desk (head wire)
:: ignore spurious updates from clay on desks we've uninstalled :: ignore spurious updates from clay on desks we've uninstalled
:: ::
?. (~(has by ark) lac) ?. (~(has by ark) lac)
vats kiln
=. kiln
=< abet
=. vats (from-wire wire) =. vats (from-wire wire)
=. vats (emit listen:pass)
take-commit
::
++ take-commit
^+ vats
~> %slog.(fmt "commit detected at {here}") ~> %slog.(fmt "commit detected at {here}")
=. vats (emit (diff:give %commit loc rak)) =. vats (emil listen:pass (diff:give %commit loc rak) ~)
=? vats liv.rein.rak update-running-dudes ?. liv.rein.rak
?. =(%base loc) ~> %slog.(fmt "{<loc>} not running")
vats vats
update-running-dudes
?. =(%base lac)
kiln
=/ kel=[@tas @ud] =/ kel=[@tas @ud]
?~ rail.rak zuse/zuse ?~ rail.rak zuse/zuse
?~ next.u.rail.rak zuse/zuse ?~ next.u.rail.rak zuse/zuse
weft.i.next.u.rail.rak weft.i.next.u.rail.rak
=. kiln (bump-many kel (all-desks-but (sy %base ~))) (bump-many kel (all-desks-but (sy %base ~)))
vats
:: ::
++ take-merge-main ++ take-merge-main
|= syn=sign-arvo |= syn=sign-arvo

View File

@ -170,8 +170,7 @@
=rein =rein
== ==
^- [jolt=(list dude) idle=(list dude)] ^- [jolt=(list dude) idle=(list dude)]
=/ all=(list dude) =/ all=(list dude) (read-bill local)
(read-bill local)
=/ want (get-apps-want all rein) =/ want (get-apps-want all rein)
=/ have (get-apps-live local) =/ have (get-apps-live local)
[want (skip have ~(has in (sy want)))] [want (skip have ~(has in (sy want)))]