32 lines
1.1 KiB
OCaml
32 lines
1.1 KiB
OCaml
(***********************************************************************)
|
|
(* *)
|
|
(* Objective Caml *)
|
|
(* *)
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
|
(* Automatique. Distributed only by permission. *)
|
|
(* *)
|
|
(***********************************************************************)
|
|
|
|
(* $Id$ *)
|
|
|
|
(* Source code locations, used in parsetree *)
|
|
|
|
type t =
|
|
{ loc_start: int; loc_end: int }
|
|
|
|
val none: t
|
|
val symbol_loc: unit -> t
|
|
val rhs_loc: int -> t
|
|
|
|
val input_name: string ref
|
|
val input_lexbuf: Lexing.lexbuf option ref
|
|
|
|
val print: t -> unit
|
|
val print_warning: t -> string -> unit
|
|
val echo_eof: unit -> unit
|
|
val reset: unit -> unit
|
|
|
|
val highlight_locations: t -> t -> bool
|