let pp_metrics_as_html_row fmt metrics =
Format.fprintf fmt "@[<v 0>@{<tr>@[<v 2>@ @[<v 0>%a@ %a@ %a@ %a@ %a@ %a@ %a@ %a@ %a@ @]@]@}@ @]"
(pp_cell Entry pp_strg) metrics.cfunc_name
(pp_cell_default pp_int) metrics.cifs
(pp_cell_default pp_int) metrics.cassigns
(pp_cell_default pp_int) metrics.cloops
(pp_cell_default pp_int) metrics.ccalls
(pp_cell_default pp_int) metrics.cgotos
(pp_cell_default pp_int) metrics.cptrs
(pp_cell_default pp_int) metrics.cexits
(pp_cell Result pp_int) (cyclo metrics)