22 lines
749 B
OCaml
22 lines
749 B
OCaml
|
let pp_module_name (f : Format.formatter) (module_name : string) : unit =
|
||
|
|
Fmt.pf f "(module %s: Problem.T)" module_name
|
||
|
|
|
||
|
|
let pp_file (f : Format.formatter) (module_names : string list) : unit =
|
||
|
|
Fmt.(
|
||
|
|
pf f {ocaml|let all: (module Problem.T) list = [%a]|ocaml}
|
||
|
|
(list ~sep:semi pp_module_name)
|
||
|
|
module_names)
|
||
|
|
|
||
|
|
let () =
|
||
|
|
let output_filename = Array.get Sys.argv 1 in
|
||
|
|
let filenames =
|
||
|
|
Sys.argv |> Array.to_list |> List.tl |> List.tl
|
||
|
|
|> List.map
|
||
|
|
(String.mapi (fun i c -> if i = 0 then Char.uppercase_ascii c else c))
|
||
|
|
|> List.map (fun s -> String.sub s 0 (String.length s - 3))
|
||
|
|
in
|
||
|
|
let contents = Fmt.str "%a" pp_file filenames in
|
||
|
|
let c = open_out output_filename in
|
||
|
|
output_string c contents;
|
||
|
|
close_out c
|