alef: print more

This commit is contained in:
Ted Blackman 2019-10-02 03:13:11 -04:00
parent b5644ba23f
commit f04e5b9f97

View File

@ -586,6 +586,7 @@
cwnd=_1 cwnd=_1
num-live=@ud num-live=@ud
counter=@ud counter=@ud
start=@da
== ==
+$ live-packet-key [=message-num =fragment-num] +$ live-packet-key [=message-num =fragment-num]
+$ live-packet-val +$ live-packet-val
@ -2203,6 +2204,7 @@
=. metrics.state metrics.- =. metrics.state metrics.-
=. live.state live.- =. live.state live.-
~? =(0 (mod counter.metrics.state 20)) [fragment-num show:gauge] ~? =(0 (mod counter.metrics.state 20)) [fragment-num show:gauge]
=? start.metrics.state =(0 fragment-num) now
:: ::
packet-pump packet-pump
:: ::
@ -2242,7 +2244,8 @@
=- =. metrics.state metrics.- =- =. metrics.state metrics.-
=. live.state live.- =. 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 packet-pump
:: ::
^- $: metrics=pump-metrics ^- $: metrics=pump-metrics