Module Tast_iterator

Allows the implementation of typed tree inspection using open recursion

type iterator = {
  1. binding_op : iterator -> Typedtree.binding_op -> unit;
  2. case : 'k. iterator -> 'k Typedtree.case -> unit;
  3. class_declaration : iterator -> Typedtree.class_declaration -> unit;
  4. class_description : iterator -> Typedtree.class_description -> unit;
  5. class_expr : iterator -> Typedtree.class_expr -> unit;
  6. class_field : iterator -> Typedtree.class_field -> unit;
  7. class_signature : iterator -> Typedtree.class_signature -> unit;
  8. class_structure : iterator -> Typedtree.class_structure -> unit;
  9. class_type : iterator -> Typedtree.class_type -> unit;
  10. class_type_declaration : iterator -> Typedtree.class_type_declaration -> unit;
  11. class_type_field : iterator -> Typedtree.class_type_field -> unit;
  12. env : iterator -> Env.t -> unit;
  13. expr : iterator -> Typedtree.expression -> unit;
  14. extension_constructor : iterator -> Typedtree.extension_constructor -> unit;
  15. module_binding : iterator -> Typedtree.module_binding -> unit;
  16. module_coercion : iterator -> Typedtree.module_coercion -> unit;
  17. module_declaration : iterator -> Typedtree.module_declaration -> unit;
  18. module_substitution : iterator -> Typedtree.module_substitution -> unit;
  19. module_expr : iterator -> Typedtree.module_expr -> unit;
  20. module_type : iterator -> Typedtree.module_type -> unit;
  21. module_type_declaration : iterator -> Typedtree.module_type_declaration -> unit;
  22. package_type : iterator -> Typedtree.package_type -> unit;
  23. pat : 'k. iterator -> 'k Typedtree.general_pattern -> unit;
  24. row_field : iterator -> Typedtree.row_field -> unit;
  25. object_field : iterator -> Typedtree.object_field -> unit;
  26. open_declaration : iterator -> Typedtree.open_declaration -> unit;
  27. open_description : iterator -> Typedtree.open_description -> unit;
  28. signature : iterator -> Typedtree.signature -> unit;
  29. signature_item : iterator -> Typedtree.signature_item -> unit;
  30. structure : iterator -> Typedtree.structure -> unit;
  31. structure_item : iterator -> Typedtree.structure_item -> unit;
  32. typ : iterator -> Typedtree.core_type -> unit;
  33. type_declaration : iterator -> Typedtree.type_declaration -> unit;
  34. type_declarations : iterator -> (Asttypes.rec_flag * Typedtree.type_declaration list) -> unit;
  35. type_extension : iterator -> Typedtree.type_extension -> unit;
  36. type_exception : iterator -> Typedtree.type_exception -> unit;
  37. type_kind : iterator -> Typedtree.type_kind -> unit;
  38. value_binding : iterator -> Typedtree.value_binding -> unit;
  39. value_bindings : iterator -> (Asttypes.rec_flag * Typedtree.value_binding list) -> unit;
  40. value_description : iterator -> Typedtree.value_description -> unit;
  41. with_constraint : iterator -> Typedtree.with_constraint -> unit;
}
val default_iterator : iterator