Source file utf8_codec.ml

(* From https://github.com/mirage/ezjsonm.
 * Copyright (c) 2013 Thomas Gazagnaire <thomas@gazagnaire.org> *)
let is_valid_utf8 str =
  try
    Uutf.String.fold_utf_8 (fun () _ -> function
      | `Malformed _ -> raise Exit
      | _ -> ()
    ) () str;
    true
  with Exit -> false

module B64 = struct
  let encode s =
    match Base64.encode s with
    | Ok x -> x
    | Error (`Msg m) -> failwith m    (* Encoding can't really fail *)

  let decode s =
    match Base64.decode s with
    | Ok x -> x
    | Error (`Msg m) -> failwith ("B64.decode: " ^ m)
end

let encode s =
  if is_valid_utf8 s then "\"" ^ s
  else "%" ^ B64.encode s

let decode s =
  match s.[0] with
  | '%' -> B64.decode (Utils.tail s 1)
  | '"' -> Utils.tail s 1
  | _ -> B64.decode s            (* Old format, base64 *)