(* $Id$ *)
-let resolve ~must_exist ~writable baseuri =
+let resolve ~must_exist ~writable ~local baseuri =
if must_exist then
- Http_getter.resolve ~writable baseuri
+ Http_getter.resolve ~local ~writable baseuri
else
- Http_getter.filename ~writable baseuri
+ Http_getter.filename ~local ~writable baseuri
let obj_file_of_baseuri ~must_exist ~writable ~baseuri =
- resolve ~must_exist ~writable baseuri ^ ".moo"
+ resolve ~must_exist ~writable ~local:true baseuri ^ ".moo"
let lexicon_file_of_baseuri ~must_exist ~writable ~baseuri =
- resolve ~must_exist ~writable baseuri ^ ".lexicon"
-let metadata_file_of_baseuri~must_exist ~writable ~baseuri =
- resolve ~must_exist ~writable baseuri ^ ".metadata"
+ resolve ~must_exist ~writable ~local:true baseuri ^ ".lexicon"