let status_of_string s =
  match s with
  | "Up-to-date" -> Up_to_date 
  | "Locally Modified" -> Locally_modified
  | "Locally Added" -> Locally_added
  | "Locally Removed" -> Locally_removed
  | "Needs Checkout" -> Needs_checkout
  | "Needs Patch" -> Needs_Patch
  | "Needs Merge" -> Needs_Merge
  | "File had conflicts on merge" -> Conflicts_on_merge
  | "Unknown" -> Unknown
  | _ -> raise (CvsFailure (Ocvs_messages.error_status_string s))