Sha256: 96c85909101f789c6aeec35a02840a37312da0ee2e80063941e92c013c11f7c4
Contents?: true
Size: 1.23 KB
Versions: 54
Compression:
Stored size: 1.23 KB
Contents
open Core.Std
let is_directory =
Command.Spec.Arg_type.create
(fun n ->
match Sys.is_directory n with
| `Yes -> n
| `No | `Unknown ->
eprintf "'%s' is not a regular folder.\n%!" n;
exit 1
)
let home_dir = Option.value_exn (Sys.getenv "HOME")
let command =
Command.basic
~summary:"Generates test code from canonical data."
Command.Spec.(
empty
+> flag "-t" (optional_with_default "./templates" is_directory) ~doc:"string Directory containing templates."
+> flag "-c" (optional_with_default "../../../x-common/exercises" is_directory) ~doc:"string Directory containing canonical data."
+> flag "-o" (optional_with_default "../../exercises" is_directory) ~doc:"string Directory to output generated tests."
+> flag "-g" (optional_with_default (home_dir ^ "/.xocaml-generated") is_directory) ~doc:"string Directory to backup generated tests."
+> flag "-f" (optional string) ~doc:"string Filter out files not matching this string."
)
(fun templates_folder canonical_data_folder output_folder generated_folder filter () -> Controller.run templates_folder canonical_data_folder output_folder generated_folder filter)
let () =
Command.run ~version:"0.1" command
Version data entries
54 entries across 54 versions & 1 rubygems