module Ast : sig ... endmodule DynAst : sig ... endtype !'a expand_fun = Ast.loc -> string option -> string -> 'aval add : string -> 'a DynAst.tag -> 'a expand_fun -> unitval find : string -> 'a DynAst.tag -> 'a expand_funval default : string Pervasives.refval parse_quotation_result :
(Ast.loc -> string -> 'a) ->
Ast.loc ->
Camlp4.Sig.quotation ->
string ->
string ->
'aval translate : (string -> string) Pervasives.refval expand : Ast.loc -> Camlp4.Sig.quotation -> 'a DynAst.tag -> 'aval dump_file : string option Pervasives.refmodule Error : Camlp4.Sig.Error