blob: 141d25b9b1dc204c38b4de06edd911a1aaa1a8be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(* Unavoidable module for functions that don't fit anywhere else *)
let find_xml_child name xml =
let find_aux e =
match e with
| Xml.Element (name', _, _) when name' = name -> true
| _ -> false
in
match xml with
| Xml.Element (_, _, children) -> List.find find_aux children
| Xml.PCData _ -> raise Not_found
(* Dirty pretty printer *)
let string_of_path path =
let rec aux xs acc =
match xs with
| [] -> acc
| x :: xs' -> aux xs' (Printf.sprintf "%s %s" acc x)
in
match path with
| [] -> "[]"
| x :: xs -> Printf.sprintf "[%s%s]" x (aux xs "")
|
