103 lines
3.6 KiB
OCaml
103 lines
3.6 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Proto_alpha
|
|
open Alpha_context
|
|
|
|
val generate_seed_nonce: unit -> Nonce.t
|
|
(** [generate_seed_nonce ()] is a random nonce that is typically used
|
|
in block headers. When baking, bakers generate random nonces whose
|
|
hash is commited in the block they bake. They will typically
|
|
reveal the aforementionned nonce during the next cycle. *)
|
|
|
|
val inject_block:
|
|
#Proto_alpha.full ->
|
|
?force:bool ->
|
|
?chain:Chain_services.chain ->
|
|
shell_header:Block_header.shell_header ->
|
|
priority:int ->
|
|
?seed_nonce_hash:Nonce_hash.t ->
|
|
src_sk:Client_keys.sk_uri ->
|
|
Operation.raw list list ->
|
|
Block_hash.t tzresult Lwt.t
|
|
(** [inject_block cctxt blk ?force ~priority ~timestamp ~fitness
|
|
~seed_nonce ~src_sk ops] tries to inject a block in the node. If
|
|
[?force] is set, the fitness check will be bypassed. [priority]
|
|
will be used to compute the baking slot (level is
|
|
precomputed). [src_sk] is used to sign the block header. *)
|
|
|
|
type error +=
|
|
| Failed_to_preapply of Tezos_base.Operation.t * error list
|
|
|
|
val forge_block:
|
|
#Proto_alpha.full ->
|
|
?chain:Chain_services.chain ->
|
|
Block_services.block ->
|
|
?threshold:Tez.t ->
|
|
?force:bool ->
|
|
?operations: Operation.packed list ->
|
|
?best_effort:bool ->
|
|
?sort:bool ->
|
|
?timestamp:Time.t ->
|
|
priority:[`Set of int | `Auto of (public_key_hash * int option)] ->
|
|
?seed_nonce_hash:Nonce_hash.t ->
|
|
src_sk:Client_keys.sk_uri ->
|
|
unit ->
|
|
Block_hash.t tzresult Lwt.t
|
|
(** [forge_block cctxt parent_blk ?threshold ?force ?operations ?best_effort
|
|
?sort ?timestamp ?max_priority ?priority ~seed_nonce ~src_sk
|
|
pk_hash] injects a block in the node. In addition of inject_block,
|
|
it will:
|
|
|
|
* Operations: If [?operations] is [None], it will get pending
|
|
operations and add them to the block. Otherwise, provided
|
|
operations will be used. In both cases, they will be validated.
|
|
|
|
* Baking priority: If [`Auto] is used, it will be computed from
|
|
the public key hash of the specified contract, optionally capped
|
|
to a maximum value, and optionnaly restricting for free baking slot.
|
|
|
|
* Timestamp: If [?timestamp] is set, and is compatible with the
|
|
computed baking priority, it will be used. Otherwise, it will be
|
|
set at the best baking priority.
|
|
|
|
* Threshold: If [?threshold] is given, operations with fees lower than it
|
|
are not added to the block.
|
|
*)
|
|
|
|
module State : sig
|
|
val get:
|
|
#Client_context.wallet ->
|
|
Signature.Public_key_hash.t ->
|
|
Raw_level.t option tzresult Lwt.t
|
|
|
|
val record:
|
|
#Client_context.wallet ->
|
|
Signature.Public_key_hash.t ->
|
|
Raw_level.t ->
|
|
unit tzresult Lwt.t
|
|
|
|
end
|
|
|
|
val create:
|
|
#Proto_alpha.full ->
|
|
?threshold:Tez.t ->
|
|
?max_priority: int ->
|
|
context_path: string ->
|
|
public_key_hash list ->
|
|
Client_baking_blocks.block_info tzresult Lwt_stream.t ->
|
|
unit tzresult Lwt.t
|
|
|
|
val get_unrevealed_nonces:
|
|
#Proto_alpha.full ->
|
|
?force:bool ->
|
|
?chain:Chain_services.chain ->
|
|
Block_services.block ->
|
|
(Block_hash.t * (Raw_level.t * Nonce.t)) list tzresult Lwt.t
|