let load pkglist filename =
let timer = Util.Timer.create "Defaultgraph.StrongDepGraph.load" in
Util.Timer.start timer;
let ic = open_in filename in
let (detrans,graph) = ((Marshal.from_channel ic) :> (bool * G.t)) in
close_in ic ;
info "Loading Strong Dependencies graph";
(* we assume the graph is detransitivitized *)
let sg =
if detrans then begin
info "Computing transitive closure";
(* O.add_transitive_closure graph *)
graph
end else graph
in
Util.Timer.stop timer sg