46 lines
1.5 KiB
OCaml
46 lines
1.5 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
(* Tezos Protocol Implementation - Protocol Signature Instance *)
|
||
|
|
|
||
|
|
type operation = Tezos_context.operation
|
||
|
|
|
||
|
|
let parse_operation = Tezos_context.Operation.parse
|
||
|
|
|
||
|
|
let max_operation_data_length =
|
||
|
|
Tezos_context.Operation.max_operation_data_length
|
||
|
|
|
||
|
|
type block_header =
|
||
|
|
Tezos_context.Block.header
|
||
|
|
|
||
|
|
let parse_block_header =
|
||
|
|
Tezos_context.Block.parse_header
|
||
|
|
|
||
|
|
let max_number_of_operations =
|
||
|
|
Tezos_context.Constants.max_number_of_operations
|
||
|
|
|
||
|
|
let max_block_header_length =
|
||
|
|
Tezos_context.Block.max_header_length
|
||
|
|
|
||
|
|
let rpc_services = Services_registration.rpc_services
|
||
|
|
|
||
|
|
let fitness ctxt =
|
||
|
|
begin
|
||
|
|
Tezos_context.init ctxt >>=? fun ctxt ->
|
||
|
|
Tezos_context.Fitness.get ctxt
|
||
|
|
end >|= function
|
||
|
|
| Ok fitness -> fitness
|
||
|
|
| Error _ -> []
|
||
|
|
|
||
|
|
let apply ctxt header ops = Apply.apply ctxt true header ops
|
||
|
|
|
||
|
|
let preapply = Apply.preapply
|
||
|
|
|
||
|
|
let configure_sandbox = Tezos_context.configure_sandbox
|