mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 20:31:40 +03:00
ames: add core chapters to peer-core
This commit is contained in:
yosoyubik
parent
6d6f1b956f
commit
f508a569f8
@ -3184,6 +3184,9 @@
|
|||||||
|= [=peer-state =channel]
|
|= [=peer-state =channel]
|
||||||
=* veb veb.bug.channel
|
=* veb veb.bug.channel
|
||||||
|%
|
|%
|
||||||
|
::
|
||||||
|
+| %helpers
|
||||||
|
::
|
||||||
++ peer-core .
|
++ peer-core .
|
||||||
++ pe-emit |=(move peer-core(event-core (emit +<)))
|
++ pe-emit |=(move peer-core(event-core (emit +<)))
|
||||||
++ abet
|
++ abet
|
||||||
@ -3197,6 +3200,17 @@
|
|||||||
|= [verb=? print=(trap tape)]
|
|= [verb=? print=(trap tape)]
|
||||||
^+ same
|
^+ same
|
||||||
(ev-trace verb her.channel print)
|
(ev-trace verb her.channel print)
|
||||||
|
::
|
||||||
|
:: +got-duct: look up $duct by .bone, asserting already bound
|
||||||
|
::
|
||||||
|
++ got-duct
|
||||||
|
|= =bone
|
||||||
|
^- ^duct
|
||||||
|
~| %dangling-bone^her.channel^bone
|
||||||
|
(~(got by by-bone.ossuary.peer-state) bone)
|
||||||
|
::
|
||||||
|
+| %tasks
|
||||||
|
::
|
||||||
++ on-heed peer-core(heeds.peer-state (~(put in heeds.peer-state) duct))
|
++ on-heed peer-core(heeds.peer-state (~(put in heeds.peer-state) duct))
|
||||||
++ on-jilt peer-core(heeds.peer-state (~(del in heeds.peer-state) duct))
|
++ on-jilt peer-core(heeds.peer-state (~(del in heeds.peer-state) duct))
|
||||||
:: +update-qos: update and maybe print connection status
|
:: +update-qos: update and maybe print connection status
|
||||||
@ -3221,59 +3235,6 @@
|
|||||||
?. ?=(?(%dead %unborn) -.qos.peer-state)
|
?. ?=(?(%dead %unborn) -.qos.peer-state)
|
||||||
peer-core
|
peer-core
|
||||||
check-clog
|
check-clog
|
||||||
:: +check-clog: notify clients if peer has stopped responding
|
|
||||||
::
|
|
||||||
++ check-clog
|
|
||||||
^+ peer-core
|
|
||||||
::
|
|
||||||
:: Only look at response bones. Request bones are unregulated,
|
|
||||||
:: since requests tend to be much smaller than responses.
|
|
||||||
::
|
|
||||||
=/ pumps=(list message-pump-state)
|
|
||||||
%+ murn ~(tap by snd.peer-state)
|
|
||||||
|= [=bone =message-pump-state]
|
|
||||||
?: =(0 (end 0 bone))
|
|
||||||
~
|
|
||||||
`u=message-pump-state
|
|
||||||
::
|
|
||||||
=/ clogged=?
|
|
||||||
|^ &(nuf-messages nuf-memory)
|
|
||||||
:: +nuf-messages: are there enough messages to mark as clogged?
|
|
||||||
::
|
|
||||||
++ nuf-messages
|
|
||||||
=| num=@ud
|
|
||||||
|- ^- ?
|
|
||||||
?~ pumps |
|
|
||||||
=. num
|
|
||||||
;: add num
|
|
||||||
(sub [next current]:i.pumps)
|
|
||||||
~(wyt in unsent-messages.i.pumps)
|
|
||||||
==
|
|
||||||
?: (gte num msg.cong.ames-state)
|
|
||||||
&
|
|
||||||
$(pumps t.pumps)
|
|
||||||
:: +nuf-memory: is enough memory used to mark as clogged?
|
|
||||||
::
|
|
||||||
++ nuf-memory
|
|
||||||
=| mem=@ud
|
|
||||||
|- ^- ?
|
|
||||||
?~ pumps |
|
|
||||||
=. mem
|
|
||||||
%+ add
|
|
||||||
%- ~(rep in unsent-messages.i.pumps)
|
|
||||||
|=([a=@ b=_mem] (add b (met 3 a)))
|
|
||||||
?~ unsent-fragments.i.pumps 0
|
|
||||||
(met 3 fragment.i.unsent-fragments.i.pumps)
|
|
||||||
?: (gte mem mem.cong.ames-state)
|
|
||||||
&
|
|
||||||
$(pumps t.pumps)
|
|
||||||
--
|
|
||||||
:: if clogged, notify client vane
|
|
||||||
::
|
|
||||||
?. clogged
|
|
||||||
peer-core
|
|
||||||
%+ roll ~(tap in heeds.peer-state)
|
|
||||||
|=([d=^duct core=_peer-core] (pe-emit:core d %give %clog her.channel))
|
|
||||||
:: +on-hear-shut-packet: handle receipt of ack or message fragment
|
:: +on-hear-shut-packet: handle receipt of ack or message fragment
|
||||||
::
|
::
|
||||||
++ on-hear-shut-packet
|
++ on-hear-shut-packet
|
||||||
@ -3330,39 +3291,6 @@
|
|||||||
==
|
==
|
||||||
check-clog
|
check-clog
|
||||||
peer-core
|
peer-core
|
||||||
:: +dedup-message: replace with any existing copy of this message
|
|
||||||
::
|
|
||||||
++ dedup-message
|
|
||||||
|= =message-blob
|
|
||||||
^+ message-blob
|
|
||||||
?: (lte (met 13 message-blob) 1)
|
|
||||||
message-blob
|
|
||||||
=/ peers-l=(list [=ship =ship-state]) ~(tap by peers.ames-state)
|
|
||||||
|- ^+ message-blob
|
|
||||||
=* peer-loop $
|
|
||||||
?~ peers-l
|
|
||||||
message-blob
|
|
||||||
?. ?=(%known -.ship-state.i.peers-l)
|
|
||||||
peer-loop(peers-l t.peers-l)
|
|
||||||
=/ snd-l=(list [=bone =message-pump-state])
|
|
||||||
~(tap by snd.ship-state.i.peers-l)
|
|
||||||
|- ^+ message-blob
|
|
||||||
=* bone-loop $
|
|
||||||
?~ snd-l
|
|
||||||
peer-loop(peers-l t.peers-l)
|
|
||||||
=/ blob-l=(list ^message-blob)
|
|
||||||
~(tap to unsent-messages.message-pump-state.i.snd-l)
|
|
||||||
|- ^+ message-blob
|
|
||||||
=* blob-loop $
|
|
||||||
?^ blob-l
|
|
||||||
?: =(i.blob-l message-blob)
|
|
||||||
i.blob-l
|
|
||||||
blob-loop(blob-l t.blob-l)
|
|
||||||
?~ unsent-fragments.message-pump-state.i.snd-l
|
|
||||||
bone-loop(snd-l t.snd-l)
|
|
||||||
?: =(message-blob fragment.i.unsent-fragments.message-pump-state.i.snd-l)
|
|
||||||
`@`fragment.i.unsent-fragments.message-pump-state.i.snd-l
|
|
||||||
bone-loop(snd-l t.snd-l)
|
|
||||||
:: +on-wake: handle timer expiration
|
:: +on-wake: handle timer expiration
|
||||||
::
|
::
|
||||||
++ on-wake
|
++ on-wake
|
||||||
@ -3437,6 +3365,95 @@
|
|||||||
:: maybe resend some timed out packets
|
:: maybe resend some timed out packets
|
||||||
::
|
::
|
||||||
(run-message-pump bone %wake ~)
|
(run-message-pump bone %wake ~)
|
||||||
|
::
|
||||||
|
+| %implementation
|
||||||
|
:: +dedup-message: replace with any existing copy of this message
|
||||||
|
::
|
||||||
|
++ dedup-message
|
||||||
|
|= =message-blob
|
||||||
|
^+ message-blob
|
||||||
|
?: (lte (met 13 message-blob) 1)
|
||||||
|
message-blob
|
||||||
|
=/ peers-l=(list [=ship =ship-state]) ~(tap by peers.ames-state)
|
||||||
|
|- ^+ message-blob
|
||||||
|
=* peer-loop $
|
||||||
|
?~ peers-l
|
||||||
|
message-blob
|
||||||
|
?. ?=(%known -.ship-state.i.peers-l)
|
||||||
|
peer-loop(peers-l t.peers-l)
|
||||||
|
=/ snd-l=(list [=bone =message-pump-state])
|
||||||
|
~(tap by snd.ship-state.i.peers-l)
|
||||||
|
|- ^+ message-blob
|
||||||
|
=* bone-loop $
|
||||||
|
?~ snd-l
|
||||||
|
peer-loop(peers-l t.peers-l)
|
||||||
|
=/ blob-l=(list ^message-blob)
|
||||||
|
~(tap to unsent-messages.message-pump-state.i.snd-l)
|
||||||
|
|- ^+ message-blob
|
||||||
|
=* blob-loop $
|
||||||
|
?^ blob-l
|
||||||
|
?: =(i.blob-l message-blob)
|
||||||
|
i.blob-l
|
||||||
|
blob-loop(blob-l t.blob-l)
|
||||||
|
?~ unsent-fragments.message-pump-state.i.snd-l
|
||||||
|
bone-loop(snd-l t.snd-l)
|
||||||
|
?: =(message-blob fragment.i.unsent-fragments.message-pump-state.i.snd-l)
|
||||||
|
`@`fragment.i.unsent-fragments.message-pump-state.i.snd-l
|
||||||
|
bone-loop(snd-l t.snd-l)
|
||||||
|
|
||||||
|
:: +check-clog: notify clients if peer has stopped responding
|
||||||
|
::
|
||||||
|
++ check-clog
|
||||||
|
^+ peer-core
|
||||||
|
::
|
||||||
|
:: Only look at response bones. Request bones are unregulated,
|
||||||
|
:: since requests tend to be much smaller than responses.
|
||||||
|
::
|
||||||
|
=/ pumps=(list message-pump-state)
|
||||||
|
%+ murn ~(tap by snd.peer-state)
|
||||||
|
|= [=bone =message-pump-state]
|
||||||
|
?: =(0 (end 0 bone))
|
||||||
|
~
|
||||||
|
`u=message-pump-state
|
||||||
|
::
|
||||||
|
=/ clogged=?
|
||||||
|
|^ &(nuf-messages nuf-memory)
|
||||||
|
:: +nuf-messages: are there enough messages to mark as clogged?
|
||||||
|
::
|
||||||
|
++ nuf-messages
|
||||||
|
=| num=@ud
|
||||||
|
|- ^- ?
|
||||||
|
?~ pumps |
|
||||||
|
=. num
|
||||||
|
;: add num
|
||||||
|
(sub [next current]:i.pumps)
|
||||||
|
~(wyt in unsent-messages.i.pumps)
|
||||||
|
==
|
||||||
|
?: (gte num msg.cong.ames-state)
|
||||||
|
&
|
||||||
|
$(pumps t.pumps)
|
||||||
|
:: +nuf-memory: is enough memory used to mark as clogged?
|
||||||
|
::
|
||||||
|
++ nuf-memory
|
||||||
|
=| mem=@ud
|
||||||
|
|- ^- ?
|
||||||
|
?~ pumps |
|
||||||
|
=. mem
|
||||||
|
%+ add
|
||||||
|
%- ~(rep in unsent-messages.i.pumps)
|
||||||
|
|=([a=@ b=_mem] (add b (met 3 a)))
|
||||||
|
?~ unsent-fragments.i.pumps 0
|
||||||
|
(met 3 fragment.i.unsent-fragments.i.pumps)
|
||||||
|
?: (gte mem mem.cong.ames-state)
|
||||||
|
&
|
||||||
|
$(pumps t.pumps)
|
||||||
|
--
|
||||||
|
:: if clogged, notify client vane
|
||||||
|
::
|
||||||
|
?. clogged
|
||||||
|
peer-core
|
||||||
|
%+ roll ~(tap in heeds.peer-state)
|
||||||
|
|=([d=^duct core=_peer-core] (pe-emit:core d %give %clog her.channel))
|
||||||
:: +send-shut-packet: fire encrypted packet at rcvr and maybe sponsors
|
:: +send-shut-packet: fire encrypted packet at rcvr and maybe sponsors
|
||||||
::
|
::
|
||||||
++ send-shut-packet
|
++ send-shut-packet
|
||||||
@ -3482,13 +3499,8 @@
|
|||||||
~> %slog.0^leaf/"ames: recork {<her.channel i.boz>}"
|
~> %slog.0^leaf/"ames: recork {<her.channel i.boz>}"
|
||||||
=/ =plea [%$ /flow [%cork ~]]
|
=/ =plea [%$ /flow [%cork ~]]
|
||||||
(on-memo i.boz plea %plea)
|
(on-memo i.boz plea %plea)
|
||||||
:: +got-duct: look up $duct by .bone, asserting already bound
|
|
||||||
::
|
::
|
||||||
++ got-duct
|
+| %internals
|
||||||
|= =bone
|
|
||||||
^- ^duct
|
|
||||||
~| %dangling-bone^her.channel^bone
|
|
||||||
(~(got by by-bone.ossuary.peer-state) bone)
|
|
||||||
:: +run-message-pump: process $message-pump-task and its effects
|
:: +run-message-pump: process $message-pump-task and its effects
|
||||||
::
|
::
|
||||||
++ run-message-pump
|
++ run-message-pump
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user