X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_misc.mli;h=39b40e3b5e8fb9c8f295d47bfa280e4141034a4d;hb=fdd8107cc53f5e862004aa5fcd48593ee5634234;hp=11bba25c5ff7b5847341aa37210f7e7a0f30a3b9;hpb=2f9a5abbd182b6ef3768c9137bb19afed2ee6bf2;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_misc.mli b/helm/ocaml/getter/http_getter_misc.mli
index 11bba25c5..39b40e3b5 100644
--- a/helm/ocaml/getter/http_getter_misc.mli
+++ b/helm/ocaml/getter/http_getter_misc.mli
@@ -30,6 +30,13 @@
  failure reason *)
 exception Mkdir_failure of string * string
 
+  (** @return Some localpart for URI belonging to the "file://" scheme, None for
+  * other URIs
+  * removes trailing ".gz", if any
+  * e.g.: local_url "file:///etc/passwd.gz" = Some "/etc/passwd"
+  *       local_url "http://...." = None *)
+val local_url: string -> string option
+
  (** "fold_left" like function on file lines, trailing newline is not passed to
  the given function *)
 val fold_file : (string -> 'a -> 'a) -> 'a -> string -> 'a