let remove_files files =
match files with
[] ->
([], [])
| files ->
let f (acc_ok, acc_ko) file =
let d = Filename.dirname file in
let f = Filename.basename file in
let com = Printf.sprintf "cd %s ; cvs remove %s -f %s"
(Filename.quote d)
!Ocvs_config.remove_options
(Filename.quote f)
in
let n = Sys.command com in
if n = 0 then
(acc_ok @ [file], acc_ko)
else
(acc_ok, acc_ko @ [file])
in
List.fold_left f ([], []) files