Pp_tools (p.zelus.2.2.doc.zelus.zlcompilerlibs.Pp

val print_if_not_empty : ('a -> 'b list -> unit) -> 'a -> 'b list -> unit

val print_list_no_space : 
  (Format.formatter -> 'a -> unit) ->
  string ->
  string ->
  string ->
  Format.formatter ->
  'a list ->
  unit

val print_list_r : 
  (Format.formatter -> 'a -> unit) ->
  string ->
  string ->
  string ->
  Format.formatter ->
  'a list ->
  unit

val print_list_l : 
  (Format.formatter -> 'a -> unit) ->
  string ->
  string ->
  string ->
  Format.formatter ->
  'a list ->
  unit

val print_list_r_empty : 
  (Format.formatter -> 'a -> unit) ->
  string ->
  string ->
  string ->
  Format.formatter ->
  'a list ->
  unit

val print_couple : 
  (Format.formatter -> 'a -> unit) ->
  (Format.formatter -> 'b -> unit) ->
  string ->
  string ->
  string ->
  Format.formatter ->
  ('a * 'b) ->
  unit

val print_couple2 : 
  (Format.formatter -> 'a -> unit) ->
  (Format.formatter -> 'b -> unit) ->
  string ->
  string ->
  string ->
  string ->
  Format.formatter ->
  ('a * 'b) ->
  unit

val print_record : 
  (Format.formatter -> 'a -> unit) ->
  Format.formatter ->
  'a list ->
  unit

val print_with_braces : 
  (Format.formatter -> 'a -> unit) ->
  string ->
  string ->
  Format.formatter ->
  'a ->
  unit

val print_opt : ('a -> 'b -> unit) -> 'a -> 'b option -> unit

val print_opt2 : 
  (Format.formatter -> 'a -> unit) ->
  string ->
  Format.formatter ->
  'a option ->
  unit