sig
type pr_context = { ind : int; bef : string; aft : string; dang : string; }
val empty_pc : Pprintf.pr_context
val sprint_break :
int ->
int ->
Pprintf.pr_context ->
(Pprintf.pr_context -> string) ->
(Pprintf.pr_context -> string) -> string
val sprint_break_all :
bool ->
Pprintf.pr_context ->
(Pprintf.pr_context -> string) ->
(int * int * (Pprintf.pr_context -> string)) list -> string
end