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))