Traffic_generation.Multisig
val deploy_multisig :
?protocol_kind:Mavryk_protocol.Protocol_kind.t ->
?counter:Internal_pervasives.int ->
Internal_pervasives.int ->
branch:Internal_pervasives.string ->
signers:Internal_pervasives.string Internal_pervasives.list ->
src:Internal_pervasives.string ->
fee:Internal_pervasives.float ->
balance:Internal_pervasives.int ->
Ezjsonm.value
val hash_multisig_data :
< application_name : Internal_pervasives.string
; console : Console.t
; operations_log : Log_recorder.Operations.t
; paths : Paths.t
; runner : Running_processes.State.t
; env_config : Environment_configuration.t
; test_baking : Internal_pervasives.bool.. > ->
Mavryk_client.t ->
Internal_pervasives.int ->
chain_id:Internal_pervasives.string ->
contract_addr:Internal_pervasives.string ->
dest:Internal_pervasives.string ->
(Internal_pervasives.string,
[> Internal_pervasives.Process_result.Error.t
| Internal_pervasives.System_error.t ])
Internal_pervasives.Asynchronous_result.t
val sign_multisig :
< application_name : Internal_pervasives.string
; console : Console.t
; operations_log : Log_recorder.Operations.t
; paths : Paths.t
; runner : Running_processes.State.t
; env_config : Environment_configuration.t
; test_baking : Internal_pervasives.bool.. > ->
Mavryk_client.Keyed.t ->
contract_addr:Internal_pervasives.string ->
amt:Internal_pervasives.int ->
to_acct:Internal_pervasives.string ->
signer_name:Internal_pervasives.string ->
(Internal_pervasives.string,
[> Internal_pervasives.Process_result.Error.t
| Internal_pervasives.System_error.t ])
Internal_pervasives.Asynchronous_result.t
val transfer_from_multisig :
?protocol_kind:Mavryk_protocol.Protocol_kind.t ->
?counter:Internal_pervasives.int ->
Internal_pervasives.float ->
branch:Internal_pervasives.string ->
src:Internal_pervasives.string ->
destination:Internal_pervasives.string ->
contract:Internal_pervasives.string ->
amount:Internal_pervasives.int ->
signatures:Internal_pervasives.string Internal_pervasives.list ->
Ezjsonm.value
val deploy_and_transfer :
?initial_counter_override:Internal_pervasives.int ->
< application_name : Internal_pervasives.string
; console : Console.t
; operations_log : Log_recorder.Operations.t
; paths : Paths.t
; runner : Running_processes.State.t
; env_config : Environment_configuration.t
; test_baking : Internal_pervasives.bool.. > ->
Mavryk_client.Keyed.t ->
Mavryk_node.t Internal_pervasives.list ->
src:Internal_pervasives.string ->
fee:Internal_pervasives.float ->
num_signers:Internal_pervasives.int ->
outer_repeat:Internal_pervasives.int ->
contract_repeat:Internal_pervasives.int ->
(Internal_pervasives.unit,
[> Internal_pervasives.Process_result.Error.t
| Internal_pervasives.System_error.t
| `Waiting_for of Internal_pervasives.string * [ `Time_out ] ])
Internal_pervasives.Asynchronous_result.t
val get_signer_names :
Internal_pervasives.string Internal_pervasives.list ->
Internal_pervasives.int ->
Internal_pervasives.string Internal_pervasives.list