method cvs_remove_files files =
let ok, ko = Ocvs_commands.remove_files files in
(* update the removed elements in data. *)
let _ =
try
let date = Unix.time () in
let l_cvs_info =
List.map
(fun f ->
{
cvs_file = f ;
cvs_status = Locally_removed ;
cvs_rep_rev = "" ;
cvs_work_rev = "" ;
cvs_date_string = "" ;
cvs_date = date
}
)
ok
in
List.iter (fun ci -> data#update_element (data#t_of_cvs_info ci)) l_cvs_info
with _ -> ()
in
(ok, ko)