Functor Camlp4.Struct.Quotation.Make


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

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