Module Event

type var = Data.ident * Data.t
type src_info_atom = {
  1. str : string;
  2. file : string;
  3. line : int * int;
  4. char : int * int;
  5. stack : src_info_atom option;
}
type src_info = {
  1. expr : Expr.t;
  2. atoms : src_info_atom list;
  3. more : (unit -> Expr.t) option;
  4. in_subst : (var * var) list;
  5. out_subst : (var * var) list;
}
type kind =
  1. | Ltop
  2. | Call
  3. | Exit
  4. | MicroStep of string
type t = {
  1. nb : int;
  2. step : int;
  3. depth : int;
  4. data : Data.subst list;
  5. next : unit -> t;
  6. terminate : unit -> unit;
  7. reset : unit -> unit;
  8. save_state : int -> unit;
  9. restore_state : int -> unit;
  10. kind : kind;
  11. name : string;
  12. lang : string;
  13. inputs : var list;
  14. outputs : var list;
  15. locals : var list;
  16. sinfo : (unit -> src_info) option;
}
exception End of int
exception Error of string * t
val set_nb : t -> int -> t
val incr_event_nb : t -> t
val decr_event_depth : t -> t
val incr_event_depth : t -> t
val print_expr : Format.formatter -> Expr.t -> unit