Module `Pretty_print_code`

exception Fail

type env = {

print : string -> unit;
mutable margin : int list;
mutable cmargin : int;
mutable line : int;
mutable level : int;
mutable priority : int;
mutable last_nl : bool;
mutable emptyl : bool;
mutable failed : bool;
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

Install

Dune Dependency

Authors

Maintainers

Sources

doc/pfff-h_program-lang/Pretty_print_code/index.html

Module `Pretty_print_code`

package pfff

Install

Dune Dependency

Authors

Maintainers

Sources

doc/pfff-h_program-lang/Pretty_print_code/index.html

Module Pretty_print_code

Module `Pretty_print_code`