local_url predicate (recognize file:// urls)

diff --git a/helm/ocaml/getter/http_getter_misc.ml b/helm/ocaml/getter/http_getter_misc.ml
index eeea891602bf979404fe3c55a2abed7c87565cba..c6a5954e55a243c271d69d3175053be8f482cabf 100644 (file)
--- a/helm/ocaml/getter/http_getter_misc.ml
+++ b/helm/ocaml/getter/http_getter_misc.ml
@@ -35,6 +35,8 @@ let file_scheme_RE = Pcre.regexp ~flags:[`CASELESS] "^file://"
 let dir_sep_RE = Pcre.regexp "/"
 let heading_slash_RE = Pcre.regexp "^/"
 
+let is_local_url s = Pcre.pmatch ~rex:file_scheme_RE s
+
 let bufsiz = 16384  (* for file system I/O *)
 let tcp_bufsiz = 4096 (* for TCP I/O *)
 

diff --git a/helm/ocaml/getter/http_getter_misc.mli b/helm/ocaml/getter/http_getter_misc.mli
index 11bba25c5ff7b5847341aa37210f7e7a0f30a3b9..5daac8c32eda068248210d5802bede58ba331bd7 100644 (file)
--- a/helm/ocaml/getter/http_getter_misc.mli
+++ b/helm/ocaml/getter/http_getter_misc.mli
@@ -30,6 +30,9 @@
  failure reason *)
 exception Mkdir_failure of string * string
 
+  (** true for URI belonging to the "file://" scheme *)
+val is_local_url: string -> bool
+
  (** "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