diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/decls.ml | 4 | ||||
-rw-r--r-- | library/decls.mli | 10 |
2 files changed, 6 insertions, 8 deletions
diff --git a/library/decls.ml b/library/decls.ml index 251c86aba..ac2203ccf 100644 --- a/library/decls.ml +++ b/library/decls.ml @@ -36,6 +36,10 @@ let variable_opacity id = let (_,opaq,_,_) = Idmap.find id !vartab in opaq let variable_kind id = let (_,_,_,k) = Idmap.find id !vartab in k let variable_constraints id = let (_,_,cst,_) = Idmap.find id !vartab in cst +let variable_secpath id = + let dir = drop_dirpath_prefix (Lib.library_dp()) (variable_path id) in + make_qualid dir id + let variable_exists id = Idmap.mem id !vartab (** Datas associated to global parameters and constants *) diff --git a/library/decls.mli b/library/decls.mli index a9000604f..29fa13ae5 100644 --- a/library/decls.mli +++ b/library/decls.mli @@ -10,15 +10,7 @@ open Names open Sign -(* open Libnames -open Term -open Declarations -open Entries -open Indtypes -open Safe_typing -open Nametab -*) open Decl_kinds (** This module manages non-kernel informations about declarations. It @@ -31,6 +23,8 @@ type variable_data = dir_path * bool (* opacity *) * Univ.constraints * logical_kind val add_variable_data : variable -> variable_data -> unit +val variable_path : variable -> dir_path +val variable_secpath : variable -> qualid val variable_kind : variable -> logical_kind val variable_opacity : variable -> bool val variable_constraints : variable -> Univ.constraints |