package core_bench

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file display.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open Core
open Core_bench_internals
open Core_bench_internals.Display

let display ?libname ~display_config results =
  if display_config.Display_config.show_output_as_sexp
  then Simplified_benchmark.to_sexp ?libname results |> Sexp.to_string |> print_endline
  else (
    let cols = make_columns display_config results in
    print_endline
    @@ Ascii_table_kernel.to_string_noattr
         ~limit_width_to:(Display_config.limit_width_to display_config)
         ~bars:(if Display_config.ascii_table display_config then `Ascii else `Unicode)
         ~display:(Display_config.display display_config)
         cols
         results;
    Warnings.display ())
;;
OCaml

Innovation. Community. Security.