1 (***********************************************************************)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6 (* Objective Caml port by John Malecki and Xavier Leroy *)
8 (* Copyright 1996 Institut National de Recherche en Informatique et *)
9 (* en Automatique. All rights reserved. This file is distributed *)
10 (* under the terms of the Q Public License version 1.0. *)
12 (***********************************************************************)
14 (* $Id: events.mli 7031 2005-08-25 15:35:16Z doligez $ *)
18 val get_pos : debug_event -> Lexing.position;;
20 (** Current events. **)
22 (* The event at current position. *)
23 val current_event : debug_event option ref
25 (* Current position in source. *)
26 (* Raise `Not_found' if not on an event (beginning or end of program). *)
27 val get_current_event : unit -> debug_event
29 val current_event_is_before : unit -> bool