blob: 4fa5eca8ae0e3fe9f753f867f96fcde74943a8c6 (
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
|
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
|