Sexp_options (flexmasa.Flexmasa.Traffic_generation.Commands.Sexp

type t = {

name : Internal_pervasives.string;
placeholders : Internal_pervasives.string Internal_pervasives.list;
description : Internal_pervasives.string;

}

type option = t

val make_option : 
  Internal_pervasives.string ->
  ?placeholders:Internal_pervasives.string Internal_pervasives.list ->
  Internal_pervasives.string ->
  t

val pp_options : t Internal_pervasives.list -> Internal_pervasives.unit Fmt.t

val get : 
  t ->
  Flexmasa.Internal_pervasives.Sexp.t Internal_pervasives.list ->
  default:
    (Internal_pervasives.unit ->
      ('a, [> `Command_line of Internal_pervasives.string ] as 'b)
        Internal_pervasives.Asynchronous_result.t) ->
  f:(Flexmasa.Internal_pervasives.Sexp.t Internal_pervasives.list -> 'a) ->
  ('a, 'b) Internal_pervasives.Asynchronous_result.t

val get_int_exn : 
  Flexmasa.Internal_pervasives.Sexp.t Internal_pervasives.list ->
  Flexmasa.Internal_pervasives.Int.t

val get_float_exn : 
  Flexmasa.Internal_pervasives.Sexp.t Internal_pervasives.list ->
  Flexmasa.Internal_pervasives.Float.t

val port_number_doc : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  default_port:Internal_pervasives.int ->
  t

val port_number : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; env_config : Environment_configuration.t
    ; runner : Running_processes.State.t.. > ->
  default_port:Internal_pervasives.int ->
  Flexmasa.Internal_pervasives.Sexp.t Internal_pervasives.list ->
  (Internal_pervasives.int, [> `Command_line of Internal_pervasives.string ])
    Internal_pervasives.Asynchronous_result.t

val fmt_sexp : 
  Flexmasa.Internal_pervasives.Sexp.t ->
  Internal_pervasives.string

val fmt_sexps : 
  Flexmasa.Internal_pervasives.Sexp.t Internal_pervasives.list ->
  Internal_pervasives.string