From 8e6dfb334bd42d58cba5a81704139afdd632df4d Mon Sep 17 00:00:00 2001
From: notin
Date: Tue, 30 May 2006 16:37:04 +0000
Subject: 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
---
 lib/system.ml  | 3 +++
 lib/system.mli | 3 +++
 2 files changed, 6 insertions(+)

(limited to 'lib')

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
 
-- 
cgit v1.2.3