let metrics_to_result (cil_visitor : slocVisitor) =
let metrics = cil_visitor#get_metrics in
{ call_statements = metrics.ccalls;
goto_statements = metrics.cgotos;
assign_statements = metrics.cassigns;
if_statements = metrics.cifs;
mem_access = metrics.cptrs;
loop_statements = metrics.cloops;
function_definitions = metrics.cfuncs;
sloc = metrics.cslocs;
functions_without_source =
VInfoMap.to_varinfo_map cil_visitor#fundecl_calls;
functions_with_source =
VInfoMap.to_varinfo_map cil_visitor#fundef_calls;
cyclos = Metrics_base.cyclo metrics
};