X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_common.ml;fp=helm%2Focaml%2Fgetter%2Fhttp_getter_common.ml;h=a4ca3bf1cfaabafb8116ee3a7cae8c25d8c3bb99;hb=bd59745a232bff0e941e97170b88709d0ff6fdf2;hp=03f5c2a2ad19e06ff7564ba36c3d9df4b00a86d1;hpb=e4b873cd8511753e65319d02fcdd5473214f42a5;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_common.ml b/helm/ocaml/getter/http_getter_common.ml
index 03f5c2a2a..a4ca3bf1c 100644
--- a/helm/ocaml/getter/http_getter_common.ml
+++ b/helm/ocaml/getter/http_getter_common.ml
@@ -90,9 +90,26 @@ let patch_system kind ?(via_http = true) () =
 let patch_entity = patch_system "ENTITY"
 let patch_doctype = patch_system "DOCTYPE"
 
+let patch_xmlbase =
+  let rex = Pcre.regexp "^(\\s*<\\w[^ ]*)(\\s|>)" in
+  fun xmlbases baseurl baseuri s ->
+    let s' =
+      Pcre.replace ~rex
+        ~templ:(sprintf "$1 xml:base=\"%s\" helm:base=\"%s\"$2" baseurl baseuri)
+        s
+    in
+    if s <> s' then xmlbases := None;
+    s'
+
 let patch_dtd = patch_entity
-let patch_xml ?via_http () line =
-  patch_doctype ?via_http () (patch_entity ?via_http () line)
+let patch_xml ?via_http ?xmlbases () =
+  let xmlbases = ref xmlbases in
+  fun line ->
+    match !xmlbases with
+    | None -> patch_doctype ?via_http () (patch_entity ?via_http () line)
+    | Some (xmlbaseuri, xmlbaseurl) ->
+        patch_xmlbase xmlbases xmlbaseurl xmlbaseuri
+          (patch_doctype ?via_http () (patch_entity ?via_http () line))
 
 let return_file
   ~fname ?contype ?contenc