46 lines
1.4 KiB
OCaml
46 lines
1.4 KiB
OCaml
(* camlp4r *)
|
|
(***********************************************************************)
|
|
(* *)
|
|
(* Camlp4 *)
|
|
(* *)
|
|
(* Daniel de Rauglaudre, projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 2002 Institut National de Recherche en Informatique et *)
|
|
(* Automatique. Distributed only by permission. *)
|
|
(* *)
|
|
(***********************************************************************)
|
|
|
|
(* This file has been generated by program: do not edit! *)
|
|
|
|
exception Exc_located of (int * int) * exn;;
|
|
|
|
let raise_with_loc loc exc =
|
|
match exc with
|
|
Exc_located (_, _) -> raise exc
|
|
| _ -> raise (Exc_located (loc, exc))
|
|
;;
|
|
|
|
let line_of_loc fname (bp, ep) =
|
|
try
|
|
let ic = open_in_bin fname in
|
|
let rec loop lin col cnt =
|
|
if cnt < bp then
|
|
let (lin, col) =
|
|
match input_char ic with
|
|
'\n' -> lin + 1, 0
|
|
| _ -> lin, col + 1
|
|
in
|
|
loop lin col (cnt + 1)
|
|
else lin, col, col + ep - bp
|
|
in
|
|
let r =
|
|
try loop 1 0 0 with
|
|
End_of_file -> 1, bp, ep
|
|
in
|
|
close_in ic; r
|
|
with
|
|
Sys_error _ -> 1, bp, ep
|
|
;;
|
|
|
|
let loc_name = ref "loc";;
|