aboutsummaryrefslogtreecommitdiff
path: root/UTF8.ml
blob: fa02040a85d7e0c8745ec0899e1f7395bf231541 (plain)
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
41
42
43
44
45
46
47
48
49
50
51
52
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

module Format = struct

  include Format

  let bprintf buffer fformat = begin
    let to_b = formatter_of_buffer buffer in
    let x = fprintf to_b fformat in
    x
  end

end