UTF8.ml


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
30
31
32
33
34
35
36
37
38
39
40

include Text

let empty = ""

let decode x = Text.decode x

let encode x =
  try Some (Text.encode x)
  with Text.Invalid (_, _) -> None

let raw_encode x = Text.encode x

let from_utf8string x = x

let to_utf8string x = x

let trim x = Text.strip x

let split str ~sep =
  match Text.split ~max:1 ~sep str with
  | [] -> ""
  | hd::tl -> hd

module Buffer = struct

    include Buffer

    type buffer = t

    let add_char b c = Uchar.of_char c
    |> Uchar.to_int
    |> Text.char
    |> Buffer.add_string b
end

module Printf = struct

    include Printf

end