65 lines
2.2 KiB
OCaml
65 lines
2.2 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type t = {
|
|
total_sent : int64 ;
|
|
total_recv : int64 ;
|
|
current_inflow : int ;
|
|
current_outflow : int ;
|
|
}
|
|
|
|
let empty = {
|
|
total_sent = 0L ;
|
|
total_recv = 0L ;
|
|
current_inflow = 0 ;
|
|
current_outflow = 0 ;
|
|
}
|
|
|
|
let print_size ppf sz =
|
|
let ratio n = (float_of_int sz /. float_of_int (1 lsl n)) in
|
|
if sz < 1 lsl 10 then
|
|
Format.fprintf ppf "%d B" sz
|
|
else if sz < 1 lsl 20 then
|
|
Format.fprintf ppf "%.2f kiB" (ratio 10)
|
|
else
|
|
Format.fprintf ppf "%.2f MiB" (ratio 20)
|
|
|
|
let print_size64 ppf sz =
|
|
let open Int64 in
|
|
let ratio n = (to_float sz /. float_of_int (1 lsl n)) in
|
|
if sz < shift_left 1L 10 then
|
|
Format.fprintf ppf "%Ld B" sz
|
|
else if sz < shift_left 1L 20 then
|
|
Format.fprintf ppf "%.2f kiB" (ratio 10)
|
|
else if sz < shift_left 1L 30 then
|
|
Format.fprintf ppf "%.2f MiB" (ratio 20)
|
|
else if sz < shift_left 1L 40 then
|
|
Format.fprintf ppf "%.2f GiB" (ratio 30)
|
|
else
|
|
Format.fprintf ppf "%.2f TiB" (ratio 40)
|
|
|
|
let pp ppf stat =
|
|
Format.fprintf ppf
|
|
"↗ %a (%a/s) ↘ %a (%a/s)"
|
|
print_size64 stat.total_sent print_size stat.current_outflow
|
|
print_size64 stat.total_recv print_size stat.current_inflow
|
|
|
|
let encoding =
|
|
let open Data_encoding in
|
|
conv
|
|
(fun { total_sent ; total_recv ; current_inflow ; current_outflow } ->
|
|
(total_sent, total_recv, current_inflow, current_outflow))
|
|
(fun (total_sent, total_recv, current_inflow, current_outflow) ->
|
|
{ total_sent ; total_recv ; current_inflow ; current_outflow })
|
|
(obj4
|
|
(req "total_sent" int64)
|
|
(req "total_recv" int64)
|
|
(req "current_inflow" int31)
|
|
(req "current_outflow" int31))
|