Module Trace_stat_summary_pp.Pb

include module type of struct include PrintBox end
type position = PrintBox.position = {
  1. x : int;
  2. y : int;
}
module Style = PrintBox.Style
type t = PrintBox.t
type view = private PrintBox.view =
  1. | Empty
  2. | Text of {
    1. l : string list;
    2. style : Style.t;
    }
  3. | Frame of t
  4. | Pad of position * t
  5. | Align of {
    1. h : [ `Center | `Left | `Right ];
    2. v : [ `Bottom | `Center | `Top ];
    3. inner : t;
    }
  6. | Grid of [ `Bars | `None ] * t array array
  7. | Tree of int * t * t array
val view : t -> view
val empty : t
val line : string -> t
val text : string -> t
val sprintf : ('a, Stdlib.Buffer.t, unit, t) Stdlib.format4 -> 'a
val asprintf : ('a, Stdlib.Format.formatter, unit, t) Stdlib.format4 -> 'a
val lines : string list -> t
val int_ : int -> t
val bool_ : bool -> t
val float_ : float -> t
val int : int -> t
val bool : bool -> t
val float : float -> t
val frame : t -> t
val pad : t -> t
val pad' : col:int -> lines:int -> t -> t
val vpad : int -> t -> t
val hpad : int -> t -> t
val align : h:[ `Center | `Left | `Right ] -> v:[ `Bottom | `Center | `Top ] -> t -> t
val align_right : t -> t
val align_bottom : t -> t
val align_bottom_right : t -> t
val center_h : t -> t
val center_v : t -> t
val center_hv : t -> t
val grid : ?pad:(t -> t) -> ?bars:bool -> t array array -> t
val grid_text : ?pad:(t -> t) -> ?bars:bool -> string array array -> t
val transpose : 'a array array -> 'a array array
val init_grid : ?bars:bool -> line:int -> col:int -> (line:int -> col:int -> t) -> t
val grid_l : ?pad:(t -> t) -> ?bars:bool -> t list list -> t
val grid_text_l : ?pad:(t -> t) -> ?bars:bool -> string list list -> t
val record : ?pad:(t -> t) -> ?bars:bool -> (string * t) list -> t
val v_record : ?pad:(t -> t) -> ?bars:bool -> (string * t) list -> t
val vlist : ?pad:(t -> t) -> ?bars:bool -> t list -> t
val hlist : ?pad:(t -> t) -> ?bars:bool -> t list -> t
val grid_map : ?bars:bool -> ('a -> t) -> 'a array array -> t
val grid_map_l : ?bars:bool -> ('a -> t) -> 'a list list -> t
val vlist_map : ?bars:bool -> ('a -> t) -> 'a list -> t
val hlist_map : ?bars:bool -> ('a -> t) -> 'a list -> t
val tree : ?indent:int -> t -> t list -> t
val mk_tree : ?indent:int -> ('a -> t * 'a list) -> 'a -> t
val line_with_style : Style.t -> string -> t
val lines_with_style : Style.t -> string list -> t
val text_with_style : Style.t -> string -> t
val sprintf_with_style : Style.t -> ('a, Stdlib.Buffer.t, unit, t) Stdlib.format4 -> 'a
val asprintf_with_style : Style.t -> ('a, Stdlib.Format.formatter, unit, t) Stdlib.format4 -> 'a
type !'a ktree = unit -> [ `Nil | `Node of 'a * 'a ktree list ]
type box = t
module Simple = PrintBox.Simple
val dim_matrix : 'a array array -> position
val map_matrix : ('a -> 'b) -> 'a array array -> 'b array array
val transpose_matrix : 'a list list -> 'b list list
val matrix_to_text : string list list -> PrintBox.t list list
val align_matrix : [ `Center | `Left | `Right ] -> PrintBox.t list list -> PrintBox.t list list
val matrix_with_column_spacers : PrintBox.t list list -> PrintBox.t list list

Dirty trick to only have vertical bars, and not the horizontal ones