diff options
| author | herbelin | 2001-10-17 12:49:19 +0000 |
|---|---|---|
| committer | herbelin | 2001-10-17 12:49:19 +0000 |
| commit | a6d858b84132bcb27bcc771f06a854cc94eef716 (patch) | |
| tree | df016a77a6d8d2f2a43fa9c2c01adc09b3be7c1b /kernel/names.mli | |
| parent | 000ece141dc22e35365ea81558e8b6b1e65bd54c (diff) | |
Abstraction de l'immplementation de dirpath et implementation dans l'autre sens pour plus de partage entre chemins
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2126 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.mli')
| -rw-r--r-- | kernel/names.mli | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/kernel/names.mli b/kernel/names.mli index a50dc28c4d..478b1c8e4e 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -63,12 +63,14 @@ val kind_of_string : string -> path_kind (*s Directory paths = section names paths *) type module_ident = identifier -type dir_path = module_ident list +type dir_path (*= module_ident list*) module ModIdmap : Map.S with type key = module_ident val make_dirpath : module_ident list -> dir_path val repr_dirpath : dir_path -> module_ident list +val rev_repr_dirpath : dir_path -> module_ident list +val is_empty_dirpath : dir_path -> bool (* Give the immediate prefix of a [dir_path] *) val dirpath_prefix : dir_path -> dir_path @@ -76,10 +78,14 @@ val dirpath_prefix : dir_path -> dir_path (* Give the immediate prefix and basename of a [dir_path] *) val split_dirpath : dir_path -> dir_path * identifier +val extend_dirpath : dir_path -> module_ident -> dir_path +val add_dirpath_prefix : module_ident -> dir_path -> dir_path + (* Printing of directory paths as ["coq_root.module.submodule"] *) val string_of_dirpath : dir_path -> string val pr_dirpath : dir_path -> std_ppcmds +val default_module : dir_path (*s Section paths are {\em absolute} names *) type section_path @@ -93,9 +99,6 @@ val dirpath : section_path -> dir_path val basename : section_path -> identifier val kind_of_path : section_path -> path_kind -val sp_of_wd : module_ident list -> section_path -val wd_of_sp : section_path -> module_ident list - (* 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 @@ -128,5 +131,5 @@ type global_reference = (* Hash-consing *) val hcons_names : unit -> - (section_path -> section_path) * (section_path -> section_path) * + (section_path -> section_path) * (dir_path -> dir_path) * (name -> name) * (identifier -> identifier) * (string -> string) |