Abstraction du type 'qualid' pour les noms qualifiés relatifs distinct de 'section_path' pour les noms absolus

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@919 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 8 insertions, 6 deletions

diff --git a/library/nametab.mli b/library/nametab.mli
index 68e272740..9a90a70b8 100755
--- a/library/nametab.mli
+++ b/library/nametab.mli
@@ -10,13 +10,13 @@ open Term
 (* This module contains the table for globalization, which associates global
    names (section paths) to identifiers. *)
 
-type cci_table = global_reference Idmap.t
-type obj_table = (section_path * Libobject.obj) Idmap.t
+type cci_table = global_reference Stringmap.t
+type obj_table = (section_path * Libobject.obj) Stringmap.t
 type mod_table = module_contents Stringmap.t
 and module_contents = Closed of cci_table * obj_table * mod_table
 
 val push : identifier -> global_reference -> unit
-val push_obj : identifier -> (section_path * Libobject.obj) -> unit
+val push_object : identifier -> (section_path * Libobject.obj) -> unit
 val push_module : string -> module_contents -> unit
 
 val sp_of_id : path_kind -> identifier -> global_reference
@@ -24,9 +24,11 @@ val sp_of_id : path_kind -> identifier -> global_reference
 (* This returns the section path of a constant or fails with [Not_found] *)
 val constant_sp_of_id : identifier -> section_path
 
-val locate : section_path -> global_reference
-val locate_obj : section_path -> (section_path * Libobject.obj)
-val locate_constant : section_path -> constant_path
+val locate : qualid -> global_reference
+val locate_obj : qualid -> (section_path * Libobject.obj)
+val locate_constant : qualid -> constant_path
 
 val open_module_contents : string -> unit
 
+
+