let dump () =
let output =
if ServicesOnly.get () then
let sg = get_services () in
fun o -> Service.output_services o sg
else
let cg = get () in
fun o -> Service.output_graph o cg
in
let file = Filename.get () in
feedback ~level:2 "dumping the graph into file %s" file;
try
let o = open_out file in
output o;
close_out o
with e ->
error
"error while dumping the syntactic callgraph: %s"
(Printexc.to_string e)