octez-protocol-alpha-libs 20.1

include module type of struct include Common end

val memo_size_of_int : 
  int ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Memo_size.t

val int_of_memo_size : 
  Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Memo_size.t ->
  int

val assert_true : (bool, 'a) result Lwt.t -> (unit, 'a) result Lwt.t

val assert_false : (bool, 'a) result Lwt.t -> (unit, 'a) result Lwt.t

val assert_some : ('a option, 'b) result Lwt.t -> ('c, 'b) result Lwt.t

val assert_none : ('a option, 'b) result Lwt.t -> (unit, 'b) result Lwt.t

val assert_error : ('a, 'b) result Lwt.t -> (unit, 'c) result Lwt.t

val print : ?prefix:string -> 'a Data_encoding.Encoding.t -> 'b -> unit

val to_hex : 'a -> 'b Data_encoding.Encoding.t -> string

val randomized_byte : ?pos:int -> 'a -> 'b Data_encoding.Encoding.t -> 'c

type wallet = Common.wallet = {

sk : Tezos_sapling.Core.Wallet.Spending_key.t;
vk : Tezos_sapling.Core.Wallet.Viewing_key.t;

}

val wallet_gen : unit -> wallet

val gen_addr : 
  int ->
  Tezos_sapling.Core.Client.Viewing_key.t ->
  Tezos_sapling.Core.Client.Viewing_key.address list

val gen_nf : unit -> Tezos_sapling.Core.Client.Nullifier.t

val gen_cm_cipher : 
  memo_size:int ->
  unit ->
  Tezos_sapling.Core.Client.Commitment.t
  * Tezos_sapling.Core.Client.Ciphertext.t

val client_state_of_diff : 
  memo_size:int ->
  (Tezos_sapling.Core.Validator.Hash.t
   * Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.diff) ->
  Tezos_sapling.Storage.state

val init : 
  unit ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.context,
    Tezos_base.TzPervasives.tztrace)
    result
    Lwt.t

val finalize : 
  Tezos_raw_protocol_alpha__Alpha_context.t ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.state ->
  (Tezos_raw_protocol_alpha__Alpha_context.t
   * Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t)
    Tezos_base.TzPervasives.tzresult
    Lwt.t

val verify_update : 
  Tezos_raw_protocol_alpha__Alpha_context.t ->
  ?memo_size:int ->
  ?id:Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t ->
  Tezos_protocol_alpha.Environment.Sapling.UTXO.transaction ->
  ((Tezos_protocol_alpha.Protocol.Alpha_context.context
    * Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t)
     option,
    Tezos_base.TzPervasives.tztrace)
    result
    Lwt.t

val verify_update_legacy : 
  Tezos_raw_protocol_alpha__Alpha_context.t ->
  ?memo_size:int ->
  ?id:Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t ->
  Tezos_protocol_alpha.Environment.Sapling.UTXO.Legacy.transaction ->
  ((Tezos_protocol_alpha.Protocol.Alpha_context.context
    * Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t)
     option,
    Tezos_base.TzPervasives.tztrace)
    result
    Lwt.t

val transfer_inputs_outputs : 
  wallet ->
  Tezos_sapling.Storage.state ->
  int list ->
  Tezos_sapling.Forge.Input.t list * Tezos_sapling.Forge.output list

val transfer : 
  wallet ->
  Tezos_sapling.Storage.state ->
  int list ->
  Tezos_sapling.Forge.Core.UTXO.transaction

val transfer_legacy : 
  wallet ->
  Tezos_sapling.Storage.state ->
  int list ->
  Tezos_sapling.Forge.Core.UTXO.Legacy.transaction

val client_state_alpha : 
  Tezos_raw_protocol_alpha__Alpha_context.t ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t ->
  Tezos_sapling.Storage.state Tezos_base.TzPervasives.tzresult Lwt.t

package octez-protocol-alpha-libs