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
[]