1 (**************************************************************************)
2 (* *)
3 (* OCaml *)
4 (* *)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6 (* OCaml port by John Malecki and Xavier Leroy *)
7 (* *)
8 (* Copyright 1996 Institut National de Recherche en Informatique et *)
9 (* en Automatique. *)
10 (* *)
11 (* All rights reserved. This file is distributed under the terms of *)
12 (* the GNU Lesser General Public License version 2.1, with the *)
13 (* special exception on linking described in the file LICENSE. *)
14 (* *)
15 (**************************************************************************)
16
17 (* Print the line containing the point *)
18 val show_point : Instruct.debug_event -> bool -> unit;;
19
20 (* Tell Emacs we are nowhere in the source. *)
21 val show_no_point : unit -> unit;;
22
23 (* Display part of the source. *)
24 val show_listing :
25 Lexing.position -> string -> int -> int -> int -> bool -> unit
26 ;;
27