alef: print more
cwnd=_1
num-live=@ud
counter=@ud
+ start=@da
==
+$ live-packet-key [=message-num =fragment-num]
+$ live-packet-val
=. metrics.state metrics.-
=. live.state live.-
~? =(0 (mod counter.metrics.state 20)) [fragment-num show:gauge]
+ =? start.metrics.state =(0 fragment-num) now
::
packet-pump
::
=- =. metrics.state metrics.-
=. live.state live.-
::
- ~& 'DONE'^[fragment-num show:gauge]
+ =/ elapsed=@dr (sub now start.metrics.state)
+ ~& 'DONE'^[message-num seconds=(div elapsed ~s1) show:gauge]
packet-pump
::
^- $: metrics=pump-metrics
