64 lines
2.1 KiB
OCaml
64 lines
2.1 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
open Proto_alpha.Tezos_context
|
||
|
|
|
||
|
|
(** Facilities to deal with accounts , bootstrap accounts and make new
|
||
|
|
accounts *)
|
||
|
|
|
||
|
|
(** Explicit account type *)
|
||
|
|
type account = {
|
||
|
|
hpub : Ed25519.Public_key_hash.t;
|
||
|
|
pub : Ed25519.Public_key.t;
|
||
|
|
ppk : Ed25519.Secret_key.t;
|
||
|
|
contract :
|
||
|
|
Contract.contract;
|
||
|
|
}
|
||
|
|
type t = account
|
||
|
|
|
||
|
|
(** Bootstrap accounts of the sandbox *)
|
||
|
|
val bootstrap_accounts : account list
|
||
|
|
|
||
|
|
(** Generates a new (pub , ppk) pair and the associated default_contract *)
|
||
|
|
val new_account : unit -> account
|
||
|
|
|
||
|
|
(** Amount of cents in a new account *)
|
||
|
|
val init_amount : int
|
||
|
|
|
||
|
|
(** Credits a new account *)
|
||
|
|
val init_account :
|
||
|
|
tc:context -> account ->
|
||
|
|
(account * context) Proto_alpha.tzresult Lwt.t
|
||
|
|
|
||
|
|
(** Generates a new account and credits it *)
|
||
|
|
val make_account :
|
||
|
|
tc:context ->
|
||
|
|
(account * context) Proto_alpha.tzresult Lwt.t
|
||
|
|
|
||
|
|
(** Generates a list of new accounts and credits them *)
|
||
|
|
val make_accounts :
|
||
|
|
tc:context -> int ->
|
||
|
|
(account list * context) Proto_alpha.tzresult Lwt.t
|
||
|
|
|
||
|
|
(** Better typed "make_accounts tc 2" *)
|
||
|
|
val make_2_accounts :
|
||
|
|
tc:context ->
|
||
|
|
((account * account) * context) Proto_alpha.tzresult Lwt.t
|
||
|
|
|
||
|
|
(** Better typed "make_accounts tc 4" *)
|
||
|
|
val make_4_accounts :
|
||
|
|
tc:context ->
|
||
|
|
((t * t * t * t) * context) Proto_alpha.tzresult Lwt.t
|
||
|
|
|
||
|
|
(** Debug : Displays an account and its balance *)
|
||
|
|
val display_account : tc:context -> account -> unit Lwt.t
|
||
|
|
|
||
|
|
(** Debug : Displays several accounts and their balances *)
|
||
|
|
val display_accounts : tc:context -> account list -> unit Lwt.t
|