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

More temporary debug pokes.

Browse Source
This commit is contained in:
Fang 2017-12-14 01:55:33 +01:00
parent d5a4406770
commit 56519a6b56
2 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
app/hall.hoon
View File

@ -2795,10 +2795,12 @@
== ==
:: ::
::TODO for debug purposes. remove eventually. ::TODO for debug purposes. remove eventually.
:: users beware, here be dragons.
++ poke-noun ++ poke-noun
|= a/@t |= a/@t
^- (quip move _+>) ^- (quip move _+>)
?: =(a 'debug') ?: =(a 'check')
~& 'verifying message reference integrity...'
=- ~&(- [~ +>.$]) =- ~&(- [~ +>.$])
%- ~(urn by stories) %- ~(urn by stories)
|= {n/naem s/story} |= {n/naem s/story}
@ -2818,6 +2820,7 @@
known=k known=k
mismatch=m mismatch=m
?: =(a 'rebuild') ?: =(a 'rebuild')
~& 'rebuilding message references...'
=- [~ +>.$(stories -)] =- [~ +>.$(stories -)]
%- ~(urn by stories) %- ~(urn by stories)
|= {nom/naem soy/story} |= {nom/naem soy/story}
@ -2831,5 +2834,25 @@
%+ ~(put by s) src %+ ~(put by s) src
[c (fall (~(get by s) src) ~)] [c (fall (~(get by s) src) ~)]
soy(count c, known k, sourced s) soy(count c, known k, sourced s)
?: =(a 'refederate')
~& 'refederating. may take a while...'
:_ +>
=+ bov=(above our.bol)
?: =(bov our.bol) ~
:~ [0 %pull /burden [bov dap.bol] ~]
(wire-to-peer /burden)
==
?: =(a 'incoming')
~& 'incoming subscriptions (ignoring circle subs):'
~& %+ skip ~(tap by sup.bol)
|= {bone (pair ship path)}
&(?=({$circle *} q) !?=({$circle $inbox *} q))
[~ +>]
?: =(a 'sources')
~& 'sources per story:'
~& %- ~(urn by stories)
|= {n/naem s/story}
[n src.shape.s]
[~ +>]
[~ +>] [~ +>]
-- --

13
app/talk.hoon
View File

@ -2245,10 +2245,12 @@
ta-done:(ta-sole:ta act) ta-done:(ta-sole:ta act)
:: ::
::TODO for debug purposes. remove eventually. ::TODO for debug purposes. remove eventually.
:: users beware, here be dragons.
++ poke-noun ++ poke-noun
|= a/@t |= a/@t
^- (quip move _+>) ^- (quip move _+>)
?: =(a 'debug') ?: =(a 'check')
~& 'verifying message reference integrity...'
=- ~&(- [~ +>.$]) =- ~&(- [~ +>.$])
=+ %- ~(rep by known) =+ %- ~(rep by known)
|= {{u/serial a/@ud} k/@ud m/@ud} |= {{u/serial a/@ud} k/@ud m/@ud}
@ -2259,10 +2261,19 @@
lent=(lent grams) lent=(lent grams)
[known=k mismatch=m] [known=k mismatch=m]
?: =(a 'rebuild') ?: =(a 'rebuild')
~& 'rebuilding message references...'
=+ %+ reel grams =+ %+ reel grams
|= {t/telegram c/@ud k/(map serial @ud)} |= {t/telegram c/@ud k/(map serial @ud)}
[+(c) (~(put by k) uid.t c)] [+(c) (~(put by k) uid.t c)]
[~ +>.$(count c, known k)] [~ +>.$(count c, known k)]
?: =(a 'reconnect')
~& 'disconnecting and reconnecting to hall...'
:_ +>
:~ [0 %pull /server/client server ~]
[0 %pull /server/inbox server ~]
peer-client
peer-inbox
==
[~ +>] [~ +>]
:: ::
++ coup-client-action ::< accept n/ack ++ coup-client-action ::< accept n/ack