Module Visitor_ml

type visitor_in = {
  1. kitem : Ast_ml.item vin;
  2. ktoplevel : Ast_ml.toplevel vin;
  3. kexpr : Ast_ml.expr vin;
  4. kpattern : Ast_ml.pattern vin;
  5. kty : Ast_ml.ty vin;
  6. kfield_decl : Ast_ml.field_declaration vin;
  7. kfield_expr : Ast_ml.field_and_expr vin;
  8. kfield_pat : Ast_ml.field_pattern vin;
  9. ktype_declaration : Ast_ml.type_declaration vin;
  10. klet_def : Ast_ml.let_def vin;
  11. klet_binding : Ast_ml.let_binding vin;
  12. kqualifier : Ast_ml.qualifier vin;
  13. kmodule_expr : Ast_ml.module_expr vin;
  14. kparameter : Ast_ml.parameter vin;
  15. kargument : Ast_ml.argument vin;
  16. kinfo : Ast_ml.tok vin;
}
and visitor_out = Ast_ml.any -> unit
and 'a vin = (('a -> unit) * visitor_out) -> 'a -> unit
val default_visitor : visitor_in
val mk_visitor : visitor_in -> visitor_out