let add_dir dir =
let parent = Filename.dirname dir in
let d = Filename.basename dir in
let com = Printf.sprintf "cd %s ; cvs add %s %s"
(Filename.quote parent)
!Ocvs_config.add_options
(Filename.quote d)
in
let n = Sys.command com in
if n = 0 then
()
else
raise (Ocvs_types.CvsFailure (Ocvs_messages.error_exec com))