Module Oug_pos


module Oug_pos: sig .. end


FIXME: should use an interval tree instead of a list of position
type file_elts = (int * int * Oug_types.elt_id) list 
type loc_table = file_elts Oug_types.SMap.t 
val empty_loc_table : 'a Oug_types.SMap.t
val add_to_file_elts : 'a -> 'b -> 'c -> ('a * 'b * 'c) list -> ('a * 'b * 'c) list
val add_module : (int * int * 'a) list Oug_types.SMap.t ->
Oug_mod.t ->
(Oug_types.elt Oug_tmap.key -> 'a) ->
string -> (int * int * 'a) list Oug_types.SMap.t
val elt_id_by_loc_aux : ?found:'a * int -> int -> (int * int * 'a) list -> 'a
val elt_id_by_loc : (int * int * 'a) list Oug_types.SMap.t -> Oug_types.SMap.key -> int -> 'a