Module Lib_ast_fuzzy

type 'tok hooks = {
  1. kind : 'tok -> Parse_info.token_kind;
  2. tokf : 'tok -> Parse_info.t;
}
exception Unclosed of string * Parse_info.t
val mk_trees : 'tok hooks -> 'tok list -> Ast_fuzzy.trees
val mk_tokens : 'tok hooks -> 'tok list -> (Parse_info.token_kind * Parse_info.t) list
type visitor_out = Ast_fuzzy.trees -> unit
type visitor_in = {
  1. ktree : ((Ast_fuzzy.tree -> unit) * visitor_out) -> Ast_fuzzy.tree -> unit;
  2. ktrees : ((Ast_fuzzy.trees -> unit) * visitor_out) -> Ast_fuzzy.trees -> unit;
  3. ktok : ((Ast_fuzzy.tok -> unit) * visitor_out) -> Ast_fuzzy.tok -> unit;
}
val default_visitor : visitor_in
val mk_visitor : visitor_in -> visitor_out
val toks_of_trees : Ast_fuzzy.trees -> Ast_fuzzy.tok list
val abstract_position_trees : Ast_fuzzy.trees -> Ast_fuzzy.trees