(**************************************************************************)
(*                                                                        *)
(*    Copyright (c) 2014 - 2016.                                          *)
(*    Dynamic Ledger Solutions, Inc. <contact@tezos.com>                  *)
(*                                                                        *)
(*    All rights reserved. No warranty, explicit or implicit, provided.   *)
(*                                                                        *)
(**************************************************************************)

(** Functions to build and apply operations *)

open Proto_alpha.Tezos_context

val operation :
  tc:context -> ?baker:Helpers_account.t -> ?src:Helpers_account.t ->
  Block_hash.t -> Tezos_base.Operation.shell_header -> proto_operation ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val transaction :
  tc:context -> ?fee:int -> ?baker:Helpers_account.t -> Block_hash.t ->
  Tezos_base.Operation.shell_header -> Helpers_account.t -> Helpers_account.t -> int ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val transaction_pred :
  ?tc:t -> pred:Helpers_block.result -> ?baker:Helpers_account.t ->
  Helpers_account.t * Helpers_account.t * int * int option ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val script_origination :
  tc:context -> Block_hash.t -> Tezos_base.Operation.shell_header ->
  Script.t option -> Helpers_account.t -> int ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val origination :
  tc:context -> ?baker:Helpers_account.t -> ?spendable:bool -> ?fee:int ->
  ?delegatable:bool -> Block_hash.t -> Tezos_base.Operation.shell_header ->
  Helpers_account.t -> int ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val script_origination_pred :
  ?tc:t -> pred:Helpers_block.result -> Script.t * Helpers_account.t * int ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val origination_pred :
  ?tc:t -> ?baker:Helpers_account.t -> pred:Helpers_block.result ->
  Helpers_account.t * int * bool * bool * int ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val delegation :
  tc:context -> ?baker:Helpers_account.t -> ?fee:int -> Block_hash.t ->
  Tezos_base.Operation.shell_header -> Helpers_account.t -> public_key_hash ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t

val delegation_pred :
  ?tc:t -> ?baker:Helpers_account.t -> pred:Helpers_block.result ->
  Helpers_account.t * public_key_hash * int ->
  ((Contract.contract list * Proto_alpha.error list option) * context) Proto_alpha.tzresult Lwt.t