Commands (flexmasa.Flexmasa.Interactive

val no_args : 
  'a Internal_pervasives.list ->
  (Internal_pervasives.unit, [> `Command_line of Internal_pervasives.string ])
    Internal_pervasives.Asynchronous_result.t

val flag : 
  Internal_pervasives.string ->
  Base.Sexp.t Internal_pervasives.list ->
  Internal_pervasives.bool

val unit_loop_no_args : 
  description:Internal_pervasives.string ->
  Internal_pervasives.string Internal_pervasives.list ->
  (Internal_pervasives.unit ->
    (Internal_pervasives.unit,
      [ `Command_line of Internal_pervasives.string
      | Internal_pervasives.System_error.t
      | Internal_pervasives.Process_result.Error.t ])
      Internal_pervasives.Asynchronous_result.t) ->
  Console.Prompt.item

val du_sh_root : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  Console.Prompt.item

val processes : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; runner : Running_processes.State.t.. > ->
  Console.Prompt.item

val do_jq : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t.. > ->
  msg:Internal_pervasives.string ->
  f:(Ezjsonm.value -> 'b) ->
  Ezjsonm.value Internal_pervasives.option ->
  ('b, [> `Command_line of Internal_pervasives.string ])
    Internal_pervasives.Asynchronous_result.t

val curl_unit_display : 
  ?jq:(Ezjsonm.value -> Ezjsonm.value) ->
  ?pp_json:
    (Flexmasa.Internal_pervasives.Formatter.t ->
      Ezjsonm.value ->
      Internal_pervasives.unit) ->
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  Internal_pervasives.string Internal_pervasives.list ->
  default_port:Internal_pervasives.int ->
  path:Internal_pervasives.string ->
  doc:Internal_pervasives.string ->
  Console.Prompt.item

val curl_metadata : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  default_port:Internal_pervasives.int ->
  Console.Prompt.item

val curl_level : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  default_port:Internal_pervasives.int ->
  Console.Prompt.item

val curl_baking_rights : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  default_port:Internal_pervasives.int ->
  Console.Prompt.item

val all_levels : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  nodes:Mavryk_node.t Internal_pervasives.list ->
  Console.Prompt.item

val show_process : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  Console.Prompt.item

val kill_all : < runner : Running_processes.State.t.. > -> Console.Prompt.item

val secret_keys : 
  < application_name : Internal_pervasives.string ; console : Console.t.. > ->
  protocol:Mavryk_protocol.t ->
  Console.Prompt.item

val better_call_dev : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  default_port:Internal_pervasives.int ->
  Console.Prompt.item

val arbitrary_command_on_all_clients : 
  ?make_admin:(Mavryk_client.t -> Mavryk_admin_client.t) ->
  ?command_names:Internal_pervasives.string Internal_pervasives.list ->
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  clients:Mavryk_client.t Internal_pervasives.list ->
  Console.Prompt.item

val arbitrary_commands_for_each_client : 
  ?make_admin:(Mavryk_client.t -> Mavryk_admin_client.t) ->
  ?make_command_names:
    (Internal_pervasives.int ->
      Internal_pervasives.string Internal_pervasives.list) ->
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  clients:Mavryk_client.t Internal_pervasives.list ->
  Console.Prompt.item Internal_pervasives.list

val arbitrary_commands_for_each_and_all_clients : 
  ?make_admin:(Mavryk_client.t -> Mavryk_admin_client.t) ->
  ?make_individual_command_names:
    (Internal_pervasives.int ->
      Internal_pervasives.string Internal_pervasives.list) ->
  ?all_clients_command_names:
    Internal_pervasives.string Internal_pervasives.list ->
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; env_config : Environment_configuration.t
    ; runner : Running_processes.State.t.. > ->
  clients:Mavryk_client.t Internal_pervasives.list ->
  Console.Prompt.item Internal_pervasives.list

val bake_command : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; operations_log : Log_recorder.Operations.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  clients:Mavryk_client.Keyed.t Internal_pervasives.list ->
  Console.Prompt.item

val forge_and_inject_piece_of_json : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  clients:Mavryk_client.Keyed.t Internal_pervasives.list ->
  Console.Prompt.item

val generate_and_import_keys : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t
    ; env_config : Environment_configuration.t.. > ->
  Mavryk_client.t ->
  Internal_pervasives.string Internal_pervasives.list ->
  (Internal_pervasives.unit,
    [> Internal_pervasives.System_error.t
    | Internal_pervasives.Process_result.Error.t ])
    Internal_pervasives.Asynchronous_result.t

val generate_traffic_command : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; operations_log : Log_recorder.Operations.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t
    ; test_baking : Internal_pervasives.bool.. > ->
  clients:Mavryk_client.Keyed.t Internal_pervasives.list ->
  nodes:Mavryk_node.t Internal_pervasives.list ->
  Console.Prompt.item

val all_defaults : 
  < 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.. > ->
  nodes:Mavryk_node.t Internal_pervasives.list ->
  Console.Prompt.item Internal_pervasives.list