let rcs_revision rev archive =
let temp_file = Filename.temp_file "ocamlcvs" "rcs" in
let com =
"co -p -r"^(Ocvs_revision.string_of_revision_number rev.rev_number)^" "^
(Filename.quote archive)^" > "^temp_file
in
let n = Sys.command com in
if n = 0 then
temp_file
else
(
delete_file temp_file ;
raise (Failure (Ocvs_messages.error_exec com))
)