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

ames: more informative printing

Browse Source
This commit is contained in:
Ted Blackman 2021-02-18 21:47:02 -05:00
parent 22295f08fb
commit 473a520b27
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/arvo/sys/vane/ames.hoon
View File

@ -1909,6 +1909,9 @@
=/ =bone bone.shut-packet =/ =bone bone.shut-packet
:: ::
?: ?=(%& -.meat.shut-packet) ?: ?=(%& -.meat.shut-packet)
=+ ?~ dud ~
%. ~
(slog leaf+"ames: crashed on fragment" >mote.u.dud< tang.u.dud)
(run-message-sink bone %hear lane shut-packet ?=(~ dud)) (run-message-sink bone %hear lane shut-packet ?=(~ dud))
:: Just try again on error, printing trace :: Just try again on error, printing trace
:: ::
@ -1917,7 +1920,7 @@
:: ::
=+ ?~ dud ~ =+ ?~ dud ~
%. ~ %. ~
(slog leaf+"ames: crashed on message ack" >mote.u.dud< tang.u.dud) (slog leaf+"ames: crashed on ack" >mote.u.dud< tang.u.dud)
(run-message-pump bone %hear [message-num +.meat]:shut-packet) (run-message-pump bone %hear [message-num +.meat]:shut-packet)
:: +on-memo: handle request to send message :: +on-memo: handle request to send message
:: ::
@ -2203,12 +2206,15 @@
?. ?=([%hear * * ok=%.n] task) ?. ?=([%hear * * ok=%.n] task)
:: fresh boon; give message to client vane :: fresh boon; give message to client vane
:: ::
%- (trace msg.veb |.("boon {<her.channel^bone=bone -.task>}")) %- %+ trace msg.veb
=/ dat [her.channel bone=bone message-num=message-num -.task]
|.("sink boon {<dat>}")
peer-core peer-core
:: we previously crashed on this message; notify client vane :: we previously crashed on this message; notify client vane
:: ::
%- %+ trace msg.veb %- %+ trace msg.veb
|.("crashed on boon {<her.channel^bone=bone -.task>}") =/ dat [her.channel bone=bone message-num=message-num -.task]
|.("crashed on sink boon {<dat>}")
boon-to-lost boon-to-lost
:: +boon-to-lost: convert all boons to losts :: +boon-to-lost: convert all boons to losts
:: ::
@ -2226,7 +2232,9 @@
++ on-sink-nack-trace ++ on-sink-nack-trace
|= [=message-num message=*] |= [=message-num message=*]
^+ peer-core ^+ peer-core
%- (trace msg.veb |.("nack trace {<her.channel^bone=bone>}")) %- %+ trace msg.veb
=/ dat [her.channel bone=bone message-num=message-num]
|.("sink naxplanation {<dat>}")
:: ::
=+ ;; =naxplanation message =+ ;; =naxplanation message
:: ack nack-trace message (only applied if we don't later crash) :: ack nack-trace message (only applied if we don't later crash)
@ -2243,7 +2251,9 @@
++ on-sink-plea ++ on-sink-plea
|= [=message-num message=*] |= [=message-num message=*]
^+ peer-core ^+ peer-core
%- (trace msg.veb |.("plea {<her.channel^bone=bone>}")) %- %+ trace msg.veb
=/ dat [her.channel bone=bone message-num=message-num]
|.("sink plea {<dat>}")
:: is this the first time we're trying to process this message? :: is this the first time we're trying to process this message?
:: ::
?. ?=([%hear * * ok=%.n] task) ?. ?=([%hear * * ok=%.n] task)