Functor Base.AstHelpers

module AstHelpers: 
functor (Loc : Defs.Loc) -> Defs.AstHelpers 

module Untranslate: Type.Untranslate 

val seq : Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.expr

val seq_list : Camlp4.PreCast.Ast.expr list -> Camlp4.PreCast.Ast.expr

val record_pattern : ?prefix:string -> Type.field list -> Camlp4.PreCast.Ast.patt

val record_expr : (string * Camlp4.PreCast.Ast.expr) list -> Camlp4.PreCast.Ast.expr

val record_expression : ?prefix:string -> Type.field list -> Camlp4.PreCast.Ast.expr

val expr_list : Camlp4.PreCast.Ast.expr list -> Camlp4.PreCast.Ast.expr

val patt_list : Camlp4.PreCast.Ast.patt list -> Camlp4.PreCast.Ast.patt

val tuple_expr : Camlp4.PreCast.Ast.expr list -> Camlp4.PreCast.Ast.expr

val tuple : ?param:string ->
       int -> string list * Camlp4.PreCast.Ast.patt * Camlp4.PreCast.Ast.expr

val cast_pattern : Type.qname Type.NameMap.t ->
       ?param:string ->
       Type.expr ->
       Camlp4.PreCast.Ast.patt * Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr

val modname_from_qname : qname:string list -> classname:string -> Camlp4.PreCast.Ast.ident