let compute_metrics () =
(* Run the visitor on all files *)
let cabs_files = Ast.UntypedFiles.get () in
let cabs_visitor = new halsteadCabsVisitor in
List.iter (fun file ->
ignore (Cabsvisit.visitCabsFile (cabs_visitor:>Cabsvisit.cabsVisitor) file))
cabs_files
;
Metrics.result "%a" pp_metrics cabs_visitor;