* http://helm.cs.unibo.it/
*)
+(* $Id$ *)
+
open Http_getter_types;;
open Printf;;
sprintf "%s $1 SYSTEM \"%s/getdtd?uri=" kind
(Lazy.force Http_getter_env.my_own_url)
else
- sprintf "%s $1 SYSTEM \"file://%s/" kind
- (Lazy.force Http_getter_env.dtd_dir)
+ sprintf "%s $1 SYSTEM \"file://%s/" kind (Http_getter_env.get_dtd_dir ())
in
fun line -> Pcre.replace ~rex ~templ line