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
|
