Initial commit

lib/problems/generator/dune

@@ -0,0 +1,4 @@
+(executable
+ (name gen)
+ (modules gen)
+ (libraries fmt))

lib/problems/generator/gen.ml

@@ -0,0 +1,21 @@
+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