X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fextlib%2FhExtlib.mli;h=30a6f145f11e22b0ad371d728182971d80cb5892;hb=4b5527a6ccbe73ada47f903292959ed3dde3b5c6;hp=f951a6709817c862d1164a44b060efa8ae52b66a;hpb=683978a2627cf1ce15673360f26806593d22f7b5;p=helm.git

diff --git a/helm/software/components/extlib/hExtlib.mli b/helm/software/components/extlib/hExtlib.mli
index f951a6709..30a6f145f 100644
--- a/helm/software/components/extlib/hExtlib.mli
+++ b/helm/software/components/extlib/hExtlib.mli
@@ -42,11 +42,17 @@ val safe_rmdir: string -> unit (** removes a dir if it exists and is empty *)
 val is_dir_empty: string -> bool (** checks if the dir is empty *)
 val rmdir_descend: string -> unit (** rmdir -p *)
 val chmod: int -> string -> unit (** chmod *)
+val normalize_path: string -> string (** /foo/./bar/..//baz -> /foo/baz *)
 
   (** find all _files_ whose name matches test under a filesystem root.
    * Test is passed the filename path relative to the given filesystem root *)
 val find: ?test:(string -> bool) -> string -> string list 
 
+  (** find_in paths name returns the first path^"/"^name such that 
+   *  is a regular file and the current user can 'stat' it. 
+   *  May raise (Failure "find_in") *)
+val find_in: string list -> string -> string
+
 (** {2 File I/O} *)
 
 val input_file: string -> string  (** read all the contents of file to string *)
@@ -114,3 +120,14 @@ val raise_localized_exception: offset:int -> Stdpp.location -> exn -> 'a
 (* size in KB (SLOW) *)
 val estimate_size: 'a -> int
 
+(* is_prefix_of [prefix] [string], in terms of dirs:
+ * foo/bar/ is prefix of foo/bar/baz 
+ * foo/bar  is prefix of foo/bar/baz 
+ * foo/b    isn't of     foo/bar/baz
+ * foo/bar  is prefix of foo/bar 
+ *)
+val is_prefix_of: string -> string -> bool
+val chop_prefix: string -> string -> string
+val touch: string -> unit
+
+val profiling_enabled: bool ref