urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 02:57:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

refines %sunk discontinuity notifications

Browse Source 
still not completely correct ...
This commit is contained in:
Joe Bryan 2018-10-18 12:38:43 -04:00
parent 13ada085b6
commit a29a40b0d9
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
sys/vane/ames.hoon
View File

@ -1466,15 +1466,21 @@
fox(bad (~(put in bad.fox) p.kyz))
::
%sunk
=/ con=corn (~(got by zac.fox) p.kyz)
=. con con(wab (~(del by wab.con) p.kyz))
=/ suf=sufi (~(got by urb.ton.fox) p.kyz)
=. suf suf(hoc (~(del by hoc.suf) p.kyz))
:: XX single-home properly
::
:- ~
=/ our=ship
=/ key ~(key by urb.ton.fox)
?>(?=([@ ~ ~] key) n.key)
=* who p.kyz
=/ con=corn (~(got by zac.fox) our)
=. con con(wab (~(del by wab.con) who))
=/ suf=sufi (~(got by urb.ton.fox) our)
=. suf suf(hoc (~(del by hoc.suf) who))
::
:- [%wine [our who] " has sunk"]~
%= fox
zac (~(put by zac.fox) p.kyz con)
urb.ton (~(put by urb.ton.fox) p.kyz suf)
zac (~(put by zac.fox) our con)
urb.ton (~(put by urb.ton.fox) our suf)
==
::
%wake

5
sys/vane/dill.hoon
View File

@ -158,7 +158,6 @@
(crud p.kyz q.kyz)
$blew (send %rez p.p.kyz q.p.kyz)
$heft heft
$sunk +>
$veer (dump kyz)
$vega (dump kyz)
$velo (dump kyz)
@ -540,6 +539,10 @@
=/ not=note-dill
?:(?=([%crud %hax-heft ~] p.q.hic) [%heft ~] p.q.hic)
[[u.hey.all %slip %d not]~ ..^$]
:: a %sunk notification from %jail comes in on an unfamiliar duct
::
?: ?=(%sunk -.q.hic)
[~ ..^$]
::
=/ nus (ax hen)
?~ nus