1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
open Core
open Containers
type t = Uchar.t array
let to_buffer ustring =
let buffer = Buffer.create (Array.length ustring) in
Array.iter (Uutf.Buffer.add_utf_8 buffer) ustring;
buffer
let print ustring = print_string (Buffer.contents (to_buffer ustring))
let of_string string =
let src = `String string in
let decoder = Uutf.decoder src in
let buffer = CCVector.create () in
let rec aux () =
match Uutf.decode decoder with
| `Await -> assert false
| `Uchar u ->
CCVector.push buffer u;
aux ()
| `End -> ()
| `Malformed string -> failwith (sprintf "Malformed input : %s" string)
in
aux ();
CCVector.to_array buffer
let to_string ustring = Buffer.contents (to_buffer ustring)