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
let strim subject = subject |> String.trim |> String.lowercase_ascii
let find_assoc ?(normalize_keys = true) assoc key =
List.find_map
(fun (k, v) ->
let eq =
if normalize_keys
then String.equal (strim key) (strim k)
else String.equal key k
in
if eq then Some v else None)
assoc
;;
let escape_spaces =
String.fold_left
(fun acc -> function
| ('\n' | '\t' | ' ') as c -> acc ^ "\\" ^ String.make 1 c
| c -> acc ^ String.make 1 c)
""
;;
let concat_buffer_with ~sep buf f l =
List.iteri
(fun i x ->
let sep = if Int.equal i 0 then "" else sep in
Buffer.add_string buf sep;
f buf x)
l
;;
let concat_with ~sep f l =
let buf = Buffer.create 256 in
concat_buffer_with ~sep buf (fun buf elt -> Buffer.add_string buf (f elt)) l;
Buffer.contents buf
;;