blob: 33df5b42708cf14027ea15e3cb04e3a6fa407651 (
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
|
include Text
let empty = ""
let decode x = Text.decode x
let 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
|