match url with
| url when Pcre.pmatch ~rex:file_scheme_RE url -> (* file:// *)
(let src_fname = Pcre.replace ~rex:file_scheme_RE url in
match url with
| url when Pcre.pmatch ~rex:file_scheme_RE url -> (* file:// *)
(let src_fname = Pcre.replace ~rex:file_scheme_RE url in