X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_common.ml;h=b1f96d8bddc13b682b37ae88813a6b8e0131cce5;hb=f0e7ce0a6e8c15f198fab4d567b884a8ef7f6b0b;hp=bbed79722d421c58a9f2c57f57cd45486b893c7b;hpb=552dbd63f202c8876605b62621c3e727d71e3963;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_common.ml b/helm/ocaml/getter/http_getter_common.ml
index bbed79722..b1f96d8bd 100644
--- a/helm/ocaml/getter/http_getter_common.ml
+++ b/helm/ocaml/getter/http_getter_common.ml
@@ -75,38 +75,50 @@ let patch_xsl ?(via_http = true) () =
 let patch_entity ?(via_http = true) () =
   if via_http then
     fun line ->
-      Pcre.replace
-        ~pat:(sprintf "ENTITY (.*) SYSTEM\\s+\"(%s/)?"
-          (Lazy.force Http_getter_env.dtd_base_url))
-        ~templ:(sprintf "ENTITY $1 SYSTEM \"%s/getdtd?uri="
-          (Lazy.force Http_getter_env.my_own_url))
+      List.fold_left
+        (fun url s ->
+          Pcre.replace
+            ~pat:(sprintf "ENTITY (.*) SYSTEM\\s+\"(%s/)?" url)
+            ~templ:(sprintf "ENTITY $1 SYSTEM \"%s/getdtd?uri="
+              (Lazy.force Http_getter_env.my_own_url))
+            s)
         line
+        (Lazy.force Http_getter_env.dtd_base_urls)
   else
     fun line ->
-      Pcre.replace
-        ~pat:(sprintf "ENTITY (.*) SYSTEM\\s+\"(%s/)?"
-          (Lazy.force Http_getter_env.dtd_base_url))
-        ~templ:(sprintf "ENTITY $1 SYSTEM \"file://%s/"
-          (Lazy.force Http_getter_env.dtd_dir))
+      List.fold_left
+        (fun url s ->
+          Pcre.replace
+            ~pat:(sprintf "ENTITY (.*) SYSTEM\\s+\"(%s/)?" url)
+            ~templ:(sprintf "ENTITY $1 SYSTEM \"file://%s/"
+              (Lazy.force Http_getter_env.dtd_dir))
+            s)
         line
+        (Lazy.force Http_getter_env.dtd_base_urls)
 
 let patch_doctype ?(via_http = true) () =
   if via_http then
     fun line ->
-      Pcre.replace
-        ~pat:(sprintf "DOCTYPE (.*) SYSTEM\\s+\"%s/"
-          (Lazy.force Http_getter_env.dtd_base_url))
-        ~templ:(sprintf "DOCTYPE $1 SYSTEM \"%s/getdtd?uri="
-          (Lazy.force Http_getter_env.my_own_url))
+      List.fold_left
+        (fun url s ->
+          Pcre.replace
+            ~pat:(sprintf "DOCTYPE (.*) SYSTEM\\s+\"%s/" url)
+            ~templ:(sprintf "DOCTYPE $1 SYSTEM \"%s/getdtd?uri="
+              (Lazy.force Http_getter_env.my_own_url))
+            s)
         line
+        (Lazy.force Http_getter_env.dtd_base_urls)
   else
     fun line ->
-      Pcre.replace
-        ~pat:(sprintf "DOCTYPE (.*) SYSTEM\\s+\"%s/"
-          (Lazy.force Http_getter_env.dtd_base_url))
-        ~templ:(sprintf "DOCTYPE $1 SYSTEM \"file://%s/"
-          (Lazy.force Http_getter_env.dtd_dir))
+      List.fold_left
+        (fun url s ->
+          Pcre.replace
+            ~pat:(sprintf "DOCTYPE (.*) SYSTEM\\s+\"%s/" url)
+            ~templ:(sprintf "DOCTYPE $1 SYSTEM \"file://%s/"
+              (Lazy.force Http_getter_env.my_own_url))
+            s)
         line
+        (Lazy.force Http_getter_env.dtd_base_urls)
 
 let patch_dtd = patch_entity