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

Lowdowns now contain only what changed. +other small changes/TODOs.

Browse Source 
Pre-rollback.
This commit is contained in:
Fang 2017-04-12 20:09:23 +02:00
parent 496a177a8e
commit 17b1abc0ba
2 changed files with 32 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
app/talk-agent.hoon
View File

@ -4,7 +4,10 @@
::
::TODO guardian's todo's apply here too
::TODO rename cores. pa->ta (transaction), ta->pa (partner), etc.
::TODO make sure glyphs get unbound when joins etc don't succeed.
::TODO correct/clean up presence/config change notifications
::
::TODO remove man from door sample where it's always (main our.hid).
::TODO maybe collapse sources, remotes and mirrors into a single map?
::TODO maybe keep track of received grams per partner, too?
::
@ -203,11 +206,21 @@
(~(dif in sources.u.cof) sources)
=. sources sources.u.cof
+>.$
=. +>
=< sh-abet
%+ roll (~(tap by cofs))
|= {{s/station c/(unit config)} core/_sh}
(~(sh-low-config core cli (main our.hid)) s (~(get by mirrors) s) c)
::TODO fix sh-low-remco to print properly.
::TODO actually delete ~ configs.
=/ cogs/_mirrors (~(run by cofs) |=(a/(unit config) (fall a *config)))
=. +>.$ sh-abet:(~(sh-low-remco sh cli (main our.hid)) mirrors cogs)
=. mirrors (~(uni by mirrors) cogs)
::=/ cogs/_mirrors (~(run by cofs) |=(a/(unit config) (fall a *config)))
::=. +>.$ sh-abet:(~(sh-low-remco sh cli (main our.hid)) mirrors cogs)
=. mirrors
%- ~(gas by *_mirrors)
%+ murn (~(tap by cofs))
|= {s/station c/(unit config)}
^- (unit (pair station config))
?~(c ~ `[s u.c])
+>.$
::
++ ra-low-precs
@ -775,9 +788,13 @@
++ sh-low-config
::x prints changes to a config to cli.
::
|= {old/config new/config}
|= {sat/station old/(unit config) new/(unit config)}
^+ +>
(sh-low-config-show "" old new)
?~ old ~&([%new-conf sat] +>)
?~ new ~&([%del-conf sat] +>) ::TODO tmp
%^ sh-low-config-show
(weld ~(sn-phat sn man sat) ": ")
u.old u.new
::
++ sh-low-remco
::x prints changes to remote configs to cli.
@ -1275,6 +1292,7 @@
++ probe :: inquire
|= cuz/station
^+ ..sh-work
::TODO? what's this?
~& [%probe cuz]
..sh-work
::

23
app/talk-guardian.hoon
View File

@ -11,6 +11,9 @@
::TODO maybe ensure every arm has a mini-description at :57 too?
::TODO maybe prefix all printfs and other errors with %talk?
::
::TODO put remotes and mirrors back into stories.
::
::TODO do permission checks for the whole team instead of just a ship, maybe?
::TODO sending remotes and mirrors alongside locals and shape no longer makes
:: any sense, does it?
::TODO crash on pokes/peers we do not expect
@ -28,9 +31,8 @@
::x so we can do some-arm instead of some-arm:talk.
[. talk sole]
=> |% :: data structures
++ house ::
++ house :: broker state
$: stories/(map knot story) :: conversations
::TODO maybe also store locals/shapes for easier syncing with readers
remotes/(map partner atlas) :: remote presence
mirrors/(map station config) :: remote config
::TODO rename to readers?
@ -467,12 +469,10 @@
|= {her/ship pax/path}
^+ +>
::x empty path, meta-subscribe and send report with all our stories.
~& [%b-ra-subscribe-path pax]
?: ?=({$reader *} pax)
?. (team our.hid her)
~& [%foreign-reader her]
+>
~& [%b-subscribed-reader ost.hid]
(ra-welcome ost.hid t.pax)
?. ?=({@ *} pax)
(ra-evil %talk-bad-path)
@ -706,7 +706,7 @@
?~ soy atl
locals.u.soy
::
++ pa-report-group :: update presence
++ pa-report-group :: update presence
::x build a group report, containing our different presence maps, and
::x send it to all bones.
::x we send remote presences to facilitate federation. aka "relay"
@ -723,13 +723,12 @@
++ pa-cabal
::x add station's config to our remote config map.
::
::TODO if web frontend doesn't use ham, remove it (also from sur/talk)
|= {cuz/station con/config ham/(map station config)}
^+ +>
=+ old=mirrors
=. mirrors (~(put by mirrors) cuz con)
?: =(mirrors old) +>.$
=. +>.$ (pa-inform %confs (~(run by mirrors) some))
=. +>.$ (pa-inform %confs (strap cuz `con))
(pa-report-cabal pa-followers)
::
++ pa-diff-talk-report :: subscribed update
@ -805,8 +804,7 @@
=+ ini=?^(num (scot %ud u.num) (scot %da old))
?- -.tay
$| !!
$& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
:_ ~
$& :_ ~
:* %peer
/friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
[p.p.tay %talk-guardian]
@ -851,7 +849,7 @@
^+ +>
=/ nol (~(put by locals) her saz)
?: =(nol locals) +>.$
=. +>.$ (pa-inform %precs (strap [%& our.hid man] nol))
=. +>.$ (pa-inform %precs (strap [%& our.hid man] (strap her saz)))
=/ ner (~(put by remotes) [%& our.hid man] nol)
(pa-report-group(locals nol) pa-followers)
::
@ -865,7 +863,7 @@
=/ buk (~(uni by remotes) rem) ::TODO drop?
=. buk (~(put by buk) tay loc)
?: =(buk remotes) +>.$
=. +>.$ (pa-inform %precs buk)
=. +>.$ (pa-inform %precs (~(dif in buk) remotes))
(pa-report-group(remotes buk) pa-followers)
::
++ pa-start :: start stream
@ -1062,9 +1060,7 @@
q.cordon
%. sis
?: add
~& [%new-shape (~(uni in q.cordon.shape) sis)]
~(uni in q.cordon.shape)
~& [%new-shape (~(dif in q.cordon.shape) sis)]
~(dif in q.cordon.shape)
==
--
@ -1074,7 +1070,6 @@
::x incoming subscription on pax.
::
|= pax/path
~& [%b-peer pax src.hid ost.hid]
^+ [*(list move) +>]
~? !(team src.hid our.hid) [%peer-talk-stranger src.hid]
?: ?=({$sole *} pax) ~&(%broker-no-sole !!)