diff options
| author | notin | 2006-05-30 16:37:04 +0000 |
|---|---|---|
| committer | notin | 2006-05-30 16:37:04 +0000 |
| commit | 8e6dfb334bd42d58cba5a81704139afdd632df4d (patch) | |
| tree | 9d491d64d4a451c98008d7430c5d5f109d9f4dcc /lib | |
| parent | 493367ccdfe146d4f898bb49f1ff43ead382dbf9 (diff) | |
Correction bug #990 (LoadPath et option -R de coqide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8877 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/system.ml | 3 | ||||
| -rw-r--r-- | lib/system.mli | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lib/system.ml b/lib/system.ml index d14956daf9..b3c12f705d 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -60,6 +60,9 @@ let glob s = expand_macros s 0 type physical_path = string type load_path = physical_path list +let physical_path_of_string s = s +let string_of_physical_path p = p + (* All subdirectories, recursively *) let exists_dir dir = diff --git a/lib/system.mli b/lib/system.mli index 279a6dc3e5..d003a16496 100644 --- a/lib/system.mli +++ b/lib/system.mli @@ -20,6 +20,9 @@ val all_subdirs : unix_path:string -> (physical_path * string list) list val is_in_path : load_path -> string -> bool val where_in_path : load_path -> string -> physical_path * string +val physical_path_of_string : string -> physical_path +val string_of_physical_path : physical_path -> string + val make_suffix : string -> string -> string val file_readable_p : string -> bool |