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