diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-01-31 09:09:28 +0100 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-02-12 17:20:35 +0100 |
commit | 5268efdefb396267bfda0c17eb045fa2ed516b3c (patch) | |
tree | b27a12e165d2c5b8c1b4d3171f961b8a5025bbb3 /lib/system.mli | |
parent | e03513b7309008a45957609739bcdaf3789f3052 (diff) |
Using same code for browsing physical directories in coqtop and coqdep.
In particular:
- abstracting the code using calls to Unix opendir, stat, and closedir,
- uniformly using warnings when a directory does not exist (coqtop was
ignoring silently and coqdep was exiting via handle_unix_error).
Diffstat (limited to 'lib/system.mli')
-rw-r--r-- | lib/system.mli | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lib/system.mli b/lib/system.mli index a3d66d577..32a84f599 100644 --- a/lib/system.mli +++ b/lib/system.mli @@ -14,8 +14,6 @@ given by the user. For efficiency, we keep the full path (field [directory]), the root path and the path relative to the root. *) -val exclude_search_in_dirname : string -> unit - val all_subdirs : unix_path:string -> (CUnix.physical_path * string list) list val is_in_path : CUnix.load_path -> string -> bool val is_in_system_path : string -> bool @@ -24,8 +22,6 @@ val where_in_path : val where_in_path_rex : CUnix.load_path -> Str.regexp -> (CUnix.physical_path * string) list -val exists_dir : string -> bool - val find_file_in_path : ?warn:bool -> CUnix.load_path -> string -> CUnix.physical_path * string |