My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1open Syndic
2
3let () =
4 Printexc.record_backtrace true ;
5 try
6 let lst, _ = W3C.parse (Xmlm.make_input (`Channel stdin)) in
7 List.iter
8 (fun (_, err) -> Printf.printf "E: %s\n%!" err)
9 (List.map Syndic.W3C.to_error lst)
10 with
11 | W3C.Error.Error ((l, c), err) -> Printf.printf "[%d;%d]: %s\n%!" l c err
12 | _ -> Printexc.print_backtrace stderr