Module Format_doc.Doc

type box_type =
  1. | H
  2. | V
  3. | HV
  4. | HoV
  5. | B
type stag = Format.stag
type element =
  1. | Text of string
  2. | With_size of int
  3. | Open_box of {
    1. kind : box_type;
    2. indent : int;
    }
  4. | Close_box
  5. | Open_tag of Format.stag
  6. | Close_tag
  7. | Open_tbox
  8. | Tab_break of {
    1. width : int;
    2. offset : int;
    }
  9. | Set_tab
  10. | Close_tbox
  11. | Simple_break of {
    1. spaces : int;
    2. indent : int;
    }
  12. | Break of {
    1. fits : string * int * string;
    2. breaks : string * int * string;
    }
  13. | Flush of {
    1. newline : bool;
    }
  14. | Newline
  15. | If_newline
  16. | Deprecated of Format.formatter -> unit
type t
type (!'a, !'b) fmt = ('a, t, t, 'b) format4
type printer0 = t -> t
type !'a printer = 'a -> printer0
val empty : t
val format : Format.formatter -> t -> unit
val fold : ('acc -> element -> 'acc) -> 'acc -> t -> 'acc
val msg : ('a, t) fmt -> 'a
val kmsg : (t -> 'b) -> ('a, 'b) fmt -> 'a
val printf : ('a, printer0) fmt -> 'a
val kprintf : (t -> 'b) -> ('a, t -> 'b) fmt -> 'a
val open_box : box_type -> int -> printer0
val close_box : printer0
val text : string printer
val string : string printer
val bytes : bytes printer
val with_size : int printer
val int : int printer
val float : float printer
val char : char printer
val bool : bool printer
val space : printer0
val cut : printer0
val break : spaces:int -> indent:int -> printer0
val custom_break : fits:(string * int * string) -> breaks:(string * int * string) -> printer0
val force_newline : printer0
val if_newline : printer0
val flush : printer0
val force_stop : printer0
val open_tbox : printer0
val set_tab : printer0
val tab : printer0
val tab_break : width:int -> offset:int -> printer0
val close_tbox : printer0
val open_tag : stag printer
val close_tag : printer0
val list : ?sep:printer0 -> 'a printer -> 'a list printer
val iter : ?sep:printer0 -> iter:(('a -> unit) -> 'b -> unit) -> 'a printer -> 'b printer
val array : ?sep:printer0 -> 'a printer -> 'a array printer
val seq : ?sep:printer0 -> 'a printer -> 'a Seq.t printer
val option : ?none:printer0 -> 'a printer -> 'a option printer
val result : ok:'a printer -> error:'e printer -> ('a, 'e) result printer
val either : left:'a printer -> right:'b printer -> ('a, 'b) Either.t printer