let update_action_of_string s =
  match s with
    "U" -> U
  | "P" -> P
  | "A" -> A
  | "R" -> R
  | "M" -> M
  | "C" -> C
  | "?" -> QM
  | _ -> raise (CvsFailure (Ocvs_messages.error_update_action_string s))