Module Pprintf

type pr_context = {
  1. ind : int;
  2. bef : string;
  3. aft : string;
  4. dang : string;
}
type !'a pr_fun = pr_context -> 'a -> string
val empty_pc : pr_context
val sprint_break : int -> int -> pr_context -> (pr_context -> string) -> (pr_context -> string) -> string
val sprint_break_all : bool -> pr_context -> (pr_context -> string) -> (int * int * (pr_context -> string)) list -> string