let warning_is_error c =
  let to_show = Cam_commands.safe_get_global "warn_error" in
  let len = String.length to_show in
  let res = ref false in
  for i = 0 to len - 1 do
    if to_show.[i] = c or to_show.[i] = 'A' then
      res := true
    else if to_show.[i] = Char.lowercase c or to_show.[i] = 'a' then
        res := false
  done;
  !res