module Finfo:sig
..end
type
finfo
val get_file_id : string -> int
val set_current_file : string -> unit
val make_finfo : int -> int -> finfo
val make_finfo_line_col : string -> int -> int -> finfo
val make_finfo_line_col_id : int -> int -> int -> finfo
val bogus : finfo
val finfo_to_string : finfo -> string
val parsing_locinfo : unit -> finfo
val lexing_locinfo : Lexing.lexbuf -> finfo
val extract : string -> finfo -> string