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
    };