ocaml/camlp4/ocaml_src/lib/stdpp.ml

(* 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";;