(***********************************************************************)
(*                                                                     *)
(*                                OCaml                                *)
(*                                                                     *)
(*                        Alain Frisch, LexiFi                         *)
(*                                                                     *)
(*  Copyright 2012 Institut National de Recherche en Informatique et   *)
(*  en Automatique.  All rights reserved.  This file is distributed    *)
(*  under the terms of the Q Public License version 1.0.               *)
(*                                                                     *)
(***********************************************************************)

open Asttypes
open Typedtree

class iter: object
  method binding: (pattern * expression) -> unit
  method bindings: (rec_flag * (pattern * expression) list) -> unit
  method class_description: class_description -> unit
  method class_expr: class_expr -> unit
  method class_field: class_field -> unit
  method class_signature: class_signature -> unit
  method class_structure: class_structure -> unit
  method class_type: class_type -> unit
  method class_type_declaration: class_type_declaration -> unit
  method class_type_field: class_type_field -> unit
  method core_field_type: core_field_type -> unit
  method core_type: core_type -> unit
  method exception_declaration: exception_declaration -> unit
  method expression: expression -> unit
  method modtype_declaration: modtype_declaration -> unit
  method module_expr: module_expr -> unit
  method module_type: module_type -> unit
  method package_type: package_type -> unit
  method pattern: pattern -> unit
  method row_field: row_field -> unit
  method signature: signature -> unit
  method signature_item: signature_item -> unit
  method structure: structure -> unit
  method structure_item: structure_item -> unit
  method type_declaration: type_declaration -> unit
  method value_description: value_description -> unit
  method with_constraint: with_constraint -> unit
end
(** Recursive iterator class. By inheriting from it and
    overriding selected methods, it is possible to implement
    custom behavior for specific kinds of nodes. *)

(** {2 One-level iterators} *)

(** The following functions apply the provided iterator to each
    sub-component of the argument. *)

val binding: iter -> (pattern * expression) -> unit
val bindings: iter -> (rec_flag * (pattern * expression) list) -> unit
val class_description: iter -> class_description -> unit
val class_expr: iter -> class_expr -> unit
val class_field: iter -> class_field -> unit
val class_signature: iter -> class_signature -> unit
val class_structure: iter -> class_structure -> unit
val class_type: iter -> class_type -> unit
val class_type_declaration: iter -> class_type_declaration -> unit
val class_type_field: iter -> class_type_field -> unit
val core_field_type: iter -> core_field_type -> unit
val core_type: iter -> core_type -> unit
val exception_declaration: iter -> exception_declaration -> unit
val expression: iter -> expression -> unit
val modtype_declaration: iter -> modtype_declaration -> unit
val module_expr: iter -> module_expr -> unit
val module_type: iter -> module_type -> unit
val package_type: iter -> package_type -> unit
val pattern: iter -> pattern -> unit
val row_field: iter -> row_field -> unit
val signature: iter -> signature -> unit
val signature_item: iter -> signature_item -> unit
val structure: iter -> structure -> unit
val structure_item: iter -> structure_item -> unit
val type_declaration: iter -> type_declaration -> unit
val value_description: iter -> value_description -> unit
val with_constraint: iter -> with_constraint -> unit