let compute_on_cabs () =
try
let cabs_files = Ast.UntypedFiles.get () in
let cabs_visitor = new metricsCabsVisitor in
List.iter (fun file ->
Metrics.debug ~level:2 "Compute Cabs metrics for file %s@." (fst file);
ignore (Cabsvisit.visitCabsFile (cabs_visitor:>Cabsvisit.cabsVisitor) file);
)
cabs_files
;
if Metrics_parameters.ByFunction.get () then
Metrics.result "@[<v 0>Cabs:@ %a@]" cabs_visitor#pp_detailed_text_metrics ();
Halstead.compute_metrics ();
with
| Ast.NoUntypedAst ->
Metrics.warning
"@[<v 0> Project has no untyped AST. Only metrics over normalized CIL AST are available. @]@."