let load_doc_files files =
  let loaded_modules =
    List.flatten
      (List.map
         (fun f ->
           try
             Cam_hooks.display_message (Cam_messages.loading_file f);
             let l = Odoc_info.load_modules f in
             Cam_hooks.display_message Cam_messages.ok;
             l
           with Failure s ->
             Cam_hooks.display_message s;
             prerr_endline (f^": "^s) ;
             []
         )
         files
      )
  in
  Odoc_info.analyse_files
    ~sort_modules: true
    ~init: loaded_modules
    []