Module Ocannl.PrintBox_utils

module Utils = Arrayjit.Utils
module BPlot = PrintBox_ext_plot
module B = PrintBox
val _get_local_debug_runtime : unit -> (module Minidebug_runtime.Debug_runtime)
type box = B.t
val sexp_of_box : 'a -> Sexplib0__.Sexp.t
type dag = [
  1. | `Empty
  2. | `Pad of dag
  3. | `Frame of dag
  4. | `Align of [ `Left | `Center | `Right ] * [ `Top | `Center | `Bottom ] * dag
  5. | `Text of Base.string
  6. | `Box of box
  7. | `Vlist of Base.bool * dag Base.list
  8. | `Hlist of Base.bool * dag Base.list
  9. | `Table of dag Base.array Base.array
  10. | `Tree of dag * dag Base.list
  11. | `Embed_subtree_ID of Base.string
  12. | `Subtree_with_ID of Base.string * dag
]
val sexp_of_dag : dag -> Sexplib0.Sexp.t
val boxify : Base.int -> dag -> dag
val dag_to_box : dag -> box
val reformat_dag : Base.int -> dag -> box
val concise_float : prec:Base__Int.t -> float -> string
val plot : ?as_canvas:bool -> ?x_label:string -> ?y_label:string -> ?axes:bool -> ?size:(Base__Int.t * Base__Int.t) -> ?small:bool -> BPlot.plot_spec list -> PrintBox.t
type table_row_spec =
  1. | Benchmark of {
    1. bench_title : Base.string;
    2. time_in_sec : Base.float;
    3. mem_in_bytes : Base.int;
    4. result_label : Base.string;
    5. result : Base.Sexp.t;
    }
val sexp_of_table_row_spec : table_row_spec -> Sexplib0.Sexp.t
val nolines : Base.String.t -> Base.String.t
val table : table_row_spec Base.List.t -> PrintBox.t