2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
val tez_sym: string
|
|
|
|
|
2017-09-19 13:31:35 +04:00
|
|
|
open Cli_entries
|
2017-11-07 20:38:11 +04:00
|
|
|
val init_arg: (string, Client_commands.full_context) arg
|
|
|
|
val fee_arg: (Tez.t, Client_commands.full_context) arg
|
|
|
|
val arg_arg: (string, Client_commands.full_context) arg
|
|
|
|
val source_arg: (string option, Client_commands.full_context) arg
|
2017-09-19 13:31:35 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
val delegate_arg: (string option, Client_commands.full_context) arg
|
|
|
|
val delegatable_switch: (bool, Client_commands.full_context) arg
|
|
|
|
val spendable_switch: (bool, Client_commands.full_context) arg
|
|
|
|
val max_priority_arg: (int option, Client_commands.full_context) arg
|
|
|
|
val free_baking_switch: (bool, Client_commands.full_context) arg
|
|
|
|
val force_switch: (bool, Client_commands.full_context) arg
|
|
|
|
val endorsement_delay_arg: (int, Client_commands.full_context) arg
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
val no_print_source_flag : (bool, Client_commands.full_context) arg
|
2017-11-03 14:53:54 +04:00
|
|
|
|
2017-07-19 13:35:01 +04:00
|
|
|
val tez_arg :
|
|
|
|
default:string ->
|
2017-09-19 13:31:35 +04:00
|
|
|
parameter:string ->
|
|
|
|
doc:string ->
|
2017-11-07 20:38:11 +04:00
|
|
|
(Tez.t, Client_commands.full_context) arg
|
2016-09-08 21:13:10 +04:00
|
|
|
val tez_param :
|
2016-11-22 17:23:40 +04:00
|
|
|
name:string ->
|
2016-09-08 21:13:10 +04:00
|
|
|
desc:string ->
|
2017-11-07 20:38:11 +04:00
|
|
|
('a, Client_commands.full_context, 'ret) Cli_entries.params ->
|
|
|
|
(Tez.t -> 'a, Client_commands.full_context, 'ret) Cli_entries.params
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
module Daemon : sig
|
2017-11-07 20:38:11 +04:00
|
|
|
val baking_switch: (bool, Client_commands.full_context) arg
|
|
|
|
val endorsement_switch: (bool, Client_commands.full_context) arg
|
|
|
|
val denunciation_switch: (bool, Client_commands.full_context) arg
|
2016-09-08 21:13:10 +04:00
|
|
|
end
|
2017-09-27 11:55:20 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
val string_parameter : (string, Client_commands.full_context) Cli_entries.parameter
|