Module Ast_fuzzy

type tok = Parse_info.info
type 'a wrap = 'a * tok
type tree =
  1. | Parens of tok * (trees, tok) Common.either list * tok
  2. | Braces of tok * trees * tok
  3. | Angle of tok * trees * tok
  4. | Bracket of tok * trees * tok
  5. | Metavar of string wrap
  6. | Dots of tok
  7. | Tok of string wrap
and trees = tree list
val is_metavar : string -> bool
val abstract_position_trees : trees -> trees
val toks_of_trees : trees -> tok list
val vof_trees : trees -> Ocaml.v
type visitor_out = trees -> unit
type visitor_in = {
  1. ktree : ((tree -> unit) * visitor_out) -> tree -> unit;
  2. ktrees : ((trees -> unit) * visitor_out) -> trees -> unit;
  3. ktok : ((tok -> unit) * visitor_out) -> tok -> unit;
}
val default_visitor : visitor_in
val mk_visitor : visitor_in -> visitor_out