method cvs_status_files files =
try
let cvs_info_list = Ocvs_commands.status_files files in
List.iter (fun ci -> data#update_element (data#t_of_cvs_info ci)) cvs_info_list
with
CvsFailure s
| CvsPartFailure s ->
raise (Failure s)