Functor Camlp4.Struct.Quotation.Make

module Make: 
functor (Ast : Camlp4.Sig.Camlp4Ast) -> sig .. end

module Ast: Ast

module DynAst: Camlp4.Struct.DynAst.Make(Ast)

type 'a expand_fun = Loc.t -> string option -> string -> 'a 

val default : string Pervasives.ref

val translate : (string -> string) Pervasives.ref

val find : string ->
       'a DynAst.tag ->
       'a expand_fun

val add : string ->
       'a DynAst.tag ->
       'a expand_fun -> unit

val dump_file : string option Pervasives.ref

module Error: sig .. end

val parse_quotation_result : ('a -> 'b -> 'c) -> 'a -> Camlp4.Sig.quotation -> string -> 'b -> 'c

val expand : Loc.t ->
       Camlp4.Sig.quotation -> 'a DynAst.tag -> 'a