-let patch_xml 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))
- line
-let patch_xsl line =
- let mk_patch_fun tag line =
- Pcre.replace
- ~pat:(sprintf "%s\\s+href=\"" tag)
- ~templ:(sprintf "%s href=\"%s/getxslt?uri="
- tag (Lazy.force Http_getter_env.my_own_url))
- line
- in
- let (patch_import, patch_include) =
- (mk_patch_fun "xsl:import", mk_patch_fun "xsl:include")
- in
- patch_include (patch_import line)
-let patch_dtd 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))
- line
+let patch_xsl ?(via_http = true) () =
+ fun line ->
+ let mk_patch_fun tag line =
+ Pcre.replace
+ ~pat:(sprintf "%s\\s+href=\"" tag)
+ ~templ:(sprintf "%s href=\"%s/getxslt?uri="
+ tag (Lazy.force Http_getter_env.my_own_url))
+ line
+ in
+ let (patch_import, patch_include) =
+ (mk_patch_fun "xsl:import", mk_patch_fun "xsl:include")
+ in
+ patch_include (patch_import line)
+
+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))
+ line
+ 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))
+ line
+
+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))
+ line
+ 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))
+ line
+
+let patch_dtd = patch_entity
+
+let patch_xml ?via_http () line =
+ patch_doctype ?via_http () (patch_entity ?via_http () line)