ames: print and smoother RTT
|= sent-packet-state
^- pump-metrics
::
+ ~& %skipped^max-live
+ ::
%_ metrics
max-live (max 1 (dec max-live))
==
++ on-ack
|= sent-packet-state
^- pump-metrics
+ =- ~& %ack^rtt^%to^rtt.- -
::
%_ metrics
num-live (dec (max 1 num-live))
++ on-resent
|= sent-packet-state
^- pump-metrics
+ =- ~& %resent^rtt^%to^rtt.- -
::
%_ metrics
last-sent-at now
++ smooth-rtt-since
|= start=@da
%+ min ~s30
- =- (div - 2)
- %+ add rtt
+ =- (div - 4)
+ %+ add (mul 3 rtt)
(sub now start)
--
:: +make-message-still: construct |message-still message receiver core
