sig
type callback_bench =
?run_config:Run_config.t ->
?analysis_configs:Analysis_config.t list ->
?display_config:Display_config.t ->
?save:(Measurement.t -> string) -> Test.t list -> unit
type callback_load_analyze_and_display =
filenames:string list ->
?analysis_configs:Analysis_config.t list ->
?display_config:Display_config.t -> unit -> unit
val make :
bench:Bench_command.callback_bench ->
analyze:Bench_command.callback_load_analyze_and_display ->
tests:Test.t list -> Core.Std.Command.t
val make_ext :
summary:string ->
extra_spec:('a, unit -> unit) Core.Std.Command.Spec.t ->
f:(Analysis_config.t list * Display_config.t *
[ `From_file of string list
| `Run of (Measurement.t -> string) option * Run_config.t ] -> 'a) ->
Core.Std.Command.t
end