(**************************************************************************)
(*                                                                        *)
(*    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