package pfff

  1. Overview
  2. Docs
Tools and APIs for program analysis, code visualization, refactoring

Install 

dune-project
 Dependency

github.com Edit opam file Versions (8)

Authors

  1. Y
    Yoann Padioleau <yoann.padioleau@gmail.com>

Maintainers

  1. Y
    yoann.padioleau@gmail.com

Sources

0.37.4.tar.gz
md5=818ceb6724ebcff9f179bcd6aa566bbb
sha512=e64da49c06fbc341ca01fbee4e541d9ab90aa374c1d08152207f9cc130afd779f3e538a7dcc183dd6e2919e235a324acd89583e47c4725c02a5de57e5abec326

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

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