ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixes bugs in individual continuity breaches

Browse Source
This commit is contained in:
Joe Bryan 2018-10-25 17:41:05 -04:00
parent 7269c09771
commit 0e59788dff
3 changed files with 37 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
sys/vane/ames.hoon
View File

@ -1477,15 +1477,28 @@
=/ key ~(key by urb.ton.fox)
?>(?=([@ ~ ~] key) n.key)
=* who p.kyz
=* lyf q.kyz
=/ saf=sufi (~(got by urb.ton.fox) our)
=/ con=corn (~(got by zac.fox) our)
::
?: =(our who)
?: (lth lyf p:(head val.saf))
:: replaying our old sinkage, ignore
:: XX review
::
[~ fox]
:: XX include some helpful instructions here
::
:_ fox
[%wine [our who] ", you have sunk"]~
::
=. saf saf(hoc (~(del by hoc.saf) who))
=. 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
urb.ton (~(put by urb.ton.fox) our saf)
zac (~(put by zac.fox) our con)
urb.ton (~(put by urb.ton.fox) our suf)
==
::
%wake

21
sys/vane/jael.hoon
View File

@ -1341,14 +1341,19 @@
:- (file-discontinuity who)
%= ..file
hul.eth (~(put by hul.eth) who hel)
::
moz :* [hen %slip %a %sunk who]
[hen %slip %c %sunk who]
[hen %slip %d %sunk who]
[hen %slip %e %sunk who]
[hen %slip %f %sunk who]
[hen %slip %g %sunk who]
moz
:: these must be appended here; +abet flops them
::
moz =/ lyf=life
~| sunk-unknown+who
life:(~(got by kyz.puk))
%+ weld moz
^- (list move)
:~ [hen %slip %a %sunk who lyf]
[hen %slip %c %sunk who lyf]
[hen %slip %d %sunk who lyf]
[hen %slip %e %sunk who lyf]
[hen %slip %f %sunk who lyf]
[hen %slip %g %sunk who lyf]
==
==
:: hel: updated hull

16
sys/zuse.hoon
View File

@ -517,7 +517,7 @@
{$junk p/@} :: entropy
{$kick p/@da} :: wake up
{$nuke p/@p} :: toggle auto-block
{$sunk p=ship} :: report death
{$sunk p=ship q=life} :: report death
{$tend ~} :: watch lane changes
{$wake ~} :: timer activate
{$wegh ~} :: report memory
@ -748,7 +748,7 @@
{$dirk des/desk} :: mark mount dirty
{$ogre pot/$@(desk beam)} :: delete mount point
{$perm our/ship des/desk pax/path rit/rite} :: change permissions
{$sunk p=ship} :: report death
{$sunk p=ship q=life} :: report death
{$warp wer/sock rif/riff} :: internal file req
{$werp who/ship wer/sock rif/riff} :: external file req
{$wegh ~} :: report memory
@ -914,7 +914,7 @@
{$harm ~} :: all terms hung up
{$init p/ship} :: after gall ready
{$noop ~} :: no operation
{$sunk p=ship} :: report death
{$sunk p=ship q=life} :: report death
{$talk p/tank} ::
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
@ -1014,7 +1014,7 @@
[%live p=@ud q=(unit @ud)] :: http/s ports
[%rule p=http-rule] :: update config
[%serv p=$@(desk beam)] :: set serving root
[%sunk p=ship] :: report death
[%sunk p=ship q=life] :: report death
[%them p=(unit hiss)] :: outbound request
[%they p=@ud q=httr] :: inbound response
[%chis p=? q=clip r=httq] :: IPC inbound request
@ -1210,9 +1210,9 @@
::
our=@p
==
:: %sunk: recieve a report that a foreign ship has lost continuity
:: %sunk: receive a report that a foreign ship has lost continuity
::
[%sunk =ship]
[%sunk =ship =life]
:: %wegh: produce memory usage information
::
[%wegh ~]
@ -1903,7 +1903,7 @@
$% {$conf p/dock q/culm} :: configure app
{$init p/ship} :: set owner
{$deal p/sock q/cush} :: full transmission
{$sunk p=ship} :: report death
{$sunk p=ship q/life} :: report death
{$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/path r/*} :: network request
{$wegh ~} :: report memory
@ -2044,7 +2044,7 @@
== == ::
$: @tas ::
$% [%init p=ship] :: report install
[%sunk p=ship] :: report death
[%sunk p=ship q=life] :: report death
== == == ::
++ public :: public key state
$: live=? :: seen in current era