ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 03:44:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge commit '0779aaf' into cc-merge

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-11-13 17:56:20 -08:00
commit de7b95ba1c
1 changed files with 5 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
app/talk.hoon
View File

@ -1754,30 +1754,11 @@
::
++ pa-remind :: remote presence
|= {tay/partner loc/atlas rem/(map partner atlas)}
=+ ^= buk
=+ mer=(turn (~(tap by rem) ~) |=({* a/atlas} a))
|- ^- atlas
?~ mer loc
=. loc $(mer t.mer)
=+ dur=`(list (pair ship status))`(~(tap by i.mer) ~)
|- ^- atlas
?~ dur loc
=. loc $(dur t.dur)
=+ fuy=(~(get by loc) p.i.dur)
?~ fuy (~(put by loc) p.i.dur q.i.dur)
?: =(`presence`p.q.i.dur `presence`p.u.fuy)
loc
?- p.u.fuy
$gone (~(del by loc) p.i.dur q.i.dur)
$talk loc
$hear (~(put by loc) p.i.dur q.i.dur)
==
=+ gub=(~(get by remotes) tay)
:: ~& [%pa-remind tay gub buk]
?. |(?=($~ gub) !=(buk u.gub))
+>.$
=. remotes (~(put by remotes) tay buk)
(pa-report-group groupers)
=. rem (~(del by rem) %& our.hid man) :: superceded by local data
=/ buk (~(uni by remotes) rem) :: XX drop?
=. buk (~(put by buk) tay loc)
?: =(buk remotes) +>.$
(pa-report-group(remotes buk) groupers)
::
++ pa-start :: start stream
|= riv/river