Module Pretty_print_code

exception Fail
type env = {
  1. print : string -> unit;
  2. mutable margin : int list;
  3. mutable cmargin : int;
  4. mutable line : int;
  5. mutable level : int;
  6. mutable priority : int;
  7. mutable last_nl : bool;
  8. mutable emptyl : bool;
  9. mutable failed : bool;
  10. mutable pushed : bool;
}
val empty : (string -> unit) -> env
val debug : env -> (env -> unit) -> unit
val do_nothing : 'a -> unit
val print : env -> string -> unit
val spaces : env -> unit
val newline : env -> unit
val newline_opt : env -> unit
val space_or_nl : env -> unit
val margin_offset : int ref
val push : env -> unit
val pop : env -> unit
val nest : env -> (env -> 'a) -> unit
val nest_opt : env -> (env -> unit) -> unit
val nestc : env -> (env -> 'a) -> unit
val nest_block : env -> (env -> 'a) -> unit
val nest_block_nl : env -> (env -> 'a) -> unit
val simpl_list : env -> (env -> 'a -> unit) -> string -> 'a list -> unit
val list_sep : 'a -> ('a -> 'b -> unit) -> ('a -> 'c) -> 'b list -> unit
val flat_list : env -> (env -> 'a -> unit) -> string -> 'a list -> string -> string -> unit
val nl_nested_list : env -> (env -> 'a -> unit) -> string -> 'a list -> string -> string -> unit
val fail : unit -> 'a
val try_ : env -> (env -> 'a) -> 'a
val choice_left : env -> (env -> 'a) -> (env -> 'a) -> 'a
val choice_right : env -> (env -> 'a) -> (env -> 'a) -> 'a
val try_hard : env -> (env -> 'a) -> 'a
val cut_list : env -> (env -> 'a -> unit) -> 'a list -> unit
val list : env -> (env -> 'a -> unit) -> string -> 'a list -> string -> string -> unit
val list_left : env -> (env -> 'a -> unit) -> string -> 'a list -> string -> string -> unit
val nested_arg : env -> (env -> 'a -> 'b) -> string -> 'a list -> string -> string -> unit
val fun_args : env -> (env -> 'a -> unit) -> string -> 'a list -> string -> string -> unit
val nested_list : env -> (env -> 'a -> unit) -> string -> 'a list -> string -> string -> bool -> unit
val fun_params : env -> (env -> 'a -> unit) -> 'a list -> unit
val paren : int -> env -> (env -> unit) -> unit
val char_is_space : char -> bool
val is_space : string -> int -> bool
val is_only_space : string -> int -> bool
val strip : string -> string
val space : char -> bool
val find_cut : string -> int -> int -> int
val string : string -> string -> env -> string -> unit
val first_char_escape : env -> string -> int
val print_text : env -> string -> unit