Module Pa_ppx_base.Ppxutil

val uv : 'a Ploc.vala -> 'a
val with_buffer_formatter : (Format.formatter -> 'a -> 'b) -> 'a -> string
val duplicated : string list -> bool
val filter_split : ('a -> bool) -> 'a list -> 'a list * 'a list
val count : ('a -> bool) -> 'a list -> int
val attr_id : MLast.attribute -> string
val module_expr_of_longident : MLast.longid -> MLast.module_expr
val longid_of_expr : MLast.expr -> MLast.longid
val expr_of_longid : MLast.longid -> MLast.expr
val convert_down_list_expr : (MLast.expr -> 'a) -> MLast.expr -> 'a list
val convert_up_list_expr : Ploc.t -> MLast.expr list -> MLast.expr
module Env : sig ... end
module Expr : sig ... end
module Patt : sig ... end
module Ctyp : sig ... end
module Longid : sig ... end
val is_poly_variant : MLast.ctyp -> bool
val is_generative_type : MLast.ctyp -> bool
val ocaml_location : (string * int * int * int * int * int * int) -> Location.t
val mkloc : Ploc.t -> Location.t
val start_position_of_loc : Ploc.t -> Lexing.position
val end_position_of_loc : Ploc.t -> Lexing.position
val quote_position : MLast.loc -> Lexing.position -> MLast.expr
val loc_of_type_decl : MLast.type_decl -> MLast.loc
val option_map : ('a -> 'b) -> 'a option -> 'b option
val vala_map : ('a -> 'b) -> 'a Ploc.vala -> 'b Ploc.vala
module AList : sig ... end
val failwithf : ('a, Format.formatter, unit, 'b) format4 -> 'a
val raise_failwith : Ploc.t -> string -> 'a
val raise_failwithf : Ploc.t -> ('a, Format.formatter, unit, 'b) format4 -> 'a