2016-09-08 19:13:10 +02:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
2018-02-05 21:17:03 +01:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2016-09-08 19:13:10 +02:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
(** Tezos Protocol Implementation - Protocol Signature Instance *)
|
|
|
|
|
|
2018-02-20 18:27:08 +01:00
|
|
|
type validation_mode =
|
|
|
|
|
| Application of {
|
|
|
|
|
block_header : Alpha_context.Block_header.t ;
|
|
|
|
|
baker : Alpha_context.public_key_hash ;
|
|
|
|
|
}
|
|
|
|
|
| Partial_construction of {
|
|
|
|
|
predecessor : Block_hash.t ;
|
|
|
|
|
}
|
|
|
|
|
| Full_construction of {
|
|
|
|
|
predecessor : Block_hash.t ;
|
|
|
|
|
protocol_data : Alpha_context.Block_header.protocol_data ;
|
|
|
|
|
baker : Alpha_context.public_key_hash ;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
type validation_state =
|
|
|
|
|
{ mode : validation_mode ;
|
|
|
|
|
ctxt : Alpha_context.t ;
|
|
|
|
|
op_count : int }
|
|
|
|
|
|
2018-02-11 19:17:39 +01:00
|
|
|
include Updater.PROTOCOL with type operation = Alpha_context.Operation.t
|
2018-02-20 18:27:08 +01:00
|
|
|
and type validation_state := validation_state
|
