(** Generate EverParse C parsers and differential test infrastructure for
    SpaceOS Wire codecs. Uses [wire.diff-gen] for the heavy lifting. *)

let schemas =
  List.filter_map
    (fun (name, module_) ->
      match List.assoc_opt name Space_wire_3d.all_structs with
      | Some struct_ -> Wire_diff_gen.Diff_gen.schema ~name ~struct_ ~module_
      | None -> None)
    Space_wire_3d.all_modules

let () =
  let schema_dir =
    if Array.length Sys.argv > 1 then Sys.argv.(1) else "schemas"
  in
  Wire_diff_gen.Diff_gen.generate ~schema_dir ~outdir:"." schemas