let _,u,_,_ = Librarian.baseuri_of_script ~include_paths:[] suri in
if Librarian.is_uri u then u else begin
HLog.error (sprintf "File %s defines a bad baseuri: %s" suri u);
exit 1
let _,u,_,_ = Librarian.baseuri_of_script ~include_paths:[] suri in
if Librarian.is_uri u then u else begin
HLog.error (sprintf "File %s defines a bad baseuri: %s" suri u);
exit 1