Module Visitor_ml

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