* http://helm.cs.unibo.it/
*)
+(* $Id$ *)
+
module GA = GrafiteAst
module U = UriManager
(fun ma_file ->
let ic = open_in ma_file in
let istream = Ulexing.from_utf8_channel ic in
- let dependencies = GrafiteParser.parse_dependencies istream in
+ let dependencies = DependenciesParser.parse_dependencies istream in
close_in ic;
List.iter
(function
- | GrafiteAst.UriDep uri ->
+ | DependenciesParser.UriDep uri ->
let uri = UriManager.string_of_uri uri in
Hashtbl.add uri_deps ma_file uri
- | GrafiteAst.BaseuriDep uri ->
+ | DependenciesParser.BaseuriDep uri ->
let uri = Http_getter_misc.strip_trailing_slash uri in
Hashtbl.add baseuri_of ma_file uri
- | GrafiteAst.IncludeDep path ->
+ | DependenciesParser.IncludeDep path ->
try
let baseuri =
- GrafiteParserMisc.baseuri_of_script ~include_paths path in
+ DependenciesParser.baseuri_of_script ~include_paths path in
let moo_file = LibraryMisc.obj_file_of_baseuri ~basedir ~baseuri in
Hashtbl.add include_deps ma_file moo_file
with Sys_error _ ->