+ let dependencies =
+ try DependenciesParser.deps_of_file ma_file
+ with Sys_error _ -> []
+ in
+ let handle_uri uri =
+ if not (Http_getter_storage.is_legacy uri) then
+ let dep = resolve uri ma_baseuri in
+ match dep with
+ | None -> ()
+ | Some u ->
+ match script_of_baseuri ma_file u with
+ | Some d -> Hashtbl.add include_deps ma_file d
+ | None -> ()
+ in
+ let handle_script path =
+ ignore (baseuri_of_script path);
+ Hashtbl.add include_deps ma_file path
+ in