Déplacement de qualid dans Nametab, hors du noyau

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

4 files changed, 0 insertions, 29 deletions

diff --git a/kernel/names.ml b/kernel/names.ml
index 83cea889a..035a5d505 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -254,16 +254,6 @@ let kind_of_string = function
   | "obj" -> OBJ
   | _ -> invalid_arg "kind_of_string"
 
-(*s Section paths *)
-
-type qualid = string list * identifier
-
-let make_qualid p s = (p,s)
-let repr_qualid q = q
-
-let string_of_qualid (l,s) = String.concat "." (l@[s])
-let pr_qualid (l,s) = prlist_with_sep (fun () -> pr_str ".") pr_str (l@[s])
-
 (*s Directory paths = section names paths *)
 type dir_path = string list
 
@@ -281,9 +271,6 @@ let kind_of_path sp = sp.kind
 let basename sp = sp.basename
 let dirpath sp = sp.dirpath
 
-let qualid_of_sp sp =
-  make_qualid (dirpath sp) (string_of_id (basename sp))
-
 (* parsing and printing of section paths *)
 let string_of_dirpath sl = String.concat "." sl
 
diff --git a/kernel/names.mli b/kernel/names.mli
index 6912d6665..98e39fae9 100644
--- a/kernel/names.mli
+++ b/kernel/names.mli
@@ -57,15 +57,6 @@ type dir_path = string list
 (* Printing of directory paths as ["coq_root.module.submodule"] *)
 val string_of_dirpath : dir_path -> string
 
-(*s Qualified idents are names relative to the current visilibity of names *)
-type qualid
-
-val make_qualid : dir_path -> identifier -> qualid
-val repr_qualid : qualid -> dir_path * identifier
-
-val string_of_qualid : qualid -> string
-val pr_qualid : qualid -> std_ppcmds
-
 (*s Section paths are {\em absolute} names *)
 type section_path
 
@@ -81,9 +72,6 @@ val kind_of_path : section_path -> path_kind
 val sp_of_wd : string list -> section_path
 val wd_of_sp : section_path -> string list
 
-(* Turns an absolute name into a qualified name denoting the same name *)
-val qualid_of_sp : section_path -> qualid
-
 (* Parsing and printing of section path as ["coq_root.module.id"] *)
 val path_of_string : string -> section_path
 val string_of_path : section_path -> string
diff --git a/kernel/type_errors.ml b/kernel/type_errors.ml
index 269e30fca..225756a99 100644
--- a/kernel/type_errors.ml
+++ b/kernel/type_errors.ml
@@ -59,8 +59,6 @@ type type_error =
   | WrongNumargConstructor of constructor_path * int
   | WrongPredicateArity of constr * constr * constr
   | NeedsInversion of constr * constr
-  (* Relocation error *)
-  | QualidNotFound of qualid
 
 exception TypeError of path_kind * env * type_error
 
diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli
index 22c6bff99..e7e850c71 100644
--- a/kernel/type_errors.mli
+++ b/kernel/type_errors.mli
@@ -63,8 +63,6 @@ type type_error =
   | WrongNumargConstructor of constructor_path * int
   | WrongPredicateArity of constr * constr * constr
   | NeedsInversion of constr * constr
-  (* Relocation error *)
-  | QualidNotFound of qualid
 
 exception TypeError of path_kind * env * type_error