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