My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1let () =
2 let version, homepage, output =
3 match Sys.argv with
4 | [|_; "--version"; version; "--homepage"; homepage; "-o"; output|] ->
5 (version, homepage, output)
6 | _ ->
7 invalid_arg
8 "%s --version ${VERSION} --homepage ${HOMEPAGE} -o <output>"
9 in
10 let oc = open_out output in
11 Printf.fprintf oc "let version = \"%s\" and homepage = Uri.of_string \"%s\""
12 version homepage ;
13 close_out oc