159 lines
6.7 KiB
OCaml
159 lines
6.7 KiB
OCaml
(*****************************************************************************)
|
|
(* *)
|
|
(* Open Source License *)
|
|
(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* Permission is hereby granted, free of charge, to any person obtaining a *)
|
|
(* copy of this software and associated documentation files (the "Software"),*)
|
|
(* to deal in the Software without restriction, including without limitation *)
|
|
(* the rights to use, copy, modify, merge, publish, distribute, sublicense, *)
|
|
(* and/or sell copies of the Software, and to permit persons to whom the *)
|
|
(* Software is furnished to do so, subject to the following conditions: *)
|
|
(* *)
|
|
(* The above copyright notice and this permission notice shall be included *)
|
|
(* in all copies or substantial portions of the Software. *)
|
|
(* *)
|
|
(* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR*)
|
|
(* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, *)
|
|
(* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL *)
|
|
(* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER*)
|
|
(* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING *)
|
|
(* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *)
|
|
(* DEALINGS IN THE SOFTWARE. *)
|
|
(* *)
|
|
(*****************************************************************************)
|
|
|
|
open Protocol
|
|
|
|
let constants_mainnet =
|
|
Constants_repr.
|
|
{
|
|
preserved_cycles = 5;
|
|
blocks_per_cycle = 4096l;
|
|
blocks_per_commitment = 32l;
|
|
blocks_per_roll_snapshot = 256l;
|
|
blocks_per_voting_period = 32768l;
|
|
time_between_blocks = List.map Period_repr.of_seconds_exn [60L; 40L];
|
|
endorsers_per_block = 32;
|
|
hard_gas_limit_per_operation = Z.of_int 1_040_000;
|
|
hard_gas_limit_per_block = Z.of_int 10_400_000;
|
|
proof_of_work_threshold = Int64.(sub (shift_left 1L 46) 1L);
|
|
tokens_per_roll = Tez_repr.(mul_exn one 8_000);
|
|
michelson_maximum_type_size = 1000;
|
|
seed_nonce_revelation_tip =
|
|
(match Tez_repr.(one /? 8L) with Ok c -> c | Error _ -> assert false);
|
|
origination_size = 257;
|
|
block_security_deposit = Tez_repr.(mul_exn one 512);
|
|
endorsement_security_deposit = Tez_repr.(mul_exn one 64);
|
|
baking_reward_per_endorsement =
|
|
Tez_repr.[of_mutez_exn 1_250_000L; of_mutez_exn 187_500L];
|
|
endorsement_reward =
|
|
Tez_repr.[of_mutez_exn 1_250_000L; of_mutez_exn 833_333L];
|
|
hard_storage_limit_per_operation = Z.of_int 60_000;
|
|
cost_per_byte = Tez_repr.of_mutez_exn 1_000L;
|
|
test_chain_duration = Int64.mul 32768L 60L;
|
|
quorum_min = 20_00l;
|
|
(* quorum is in centile of a percentage *)
|
|
quorum_max = 70_00l;
|
|
min_proposal_quorum = 5_00l;
|
|
initial_endorsers = 24;
|
|
delay_per_missing_endorsement = Period_repr.of_seconds_exn 8L;
|
|
}
|
|
|
|
let constants_sandbox =
|
|
Constants_repr.
|
|
{
|
|
constants_mainnet with
|
|
preserved_cycles = 2;
|
|
blocks_per_cycle = 8l;
|
|
blocks_per_commitment = 4l;
|
|
blocks_per_roll_snapshot = 4l;
|
|
blocks_per_voting_period = 64l;
|
|
time_between_blocks = List.map Period_repr.of_seconds_exn [1L; 0L];
|
|
proof_of_work_threshold = Int64.of_int (-1);
|
|
initial_endorsers = 1;
|
|
delay_per_missing_endorsement = Period_repr.of_seconds_exn 1L;
|
|
}
|
|
|
|
let constants_test =
|
|
Constants_repr.
|
|
{
|
|
constants_mainnet with
|
|
blocks_per_cycle = 128l;
|
|
blocks_per_commitment = 4l;
|
|
blocks_per_roll_snapshot = 32l;
|
|
blocks_per_voting_period = 256l;
|
|
time_between_blocks = List.map Period_repr.of_seconds_exn [1L; 0L];
|
|
proof_of_work_threshold = Int64.of_int (-1);
|
|
initial_endorsers = 1;
|
|
delay_per_missing_endorsement = Period_repr.of_seconds_exn 1L;
|
|
}
|
|
|
|
let bootstrap_accounts_strings =
|
|
[ "edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav";
|
|
"edpktzNbDAUjUk697W7gYg2CRuBQjyPxbEg8dLccYYwKSKvkPvjtV9";
|
|
"edpkuTXkJDGcFd5nh6VvMz8phXxU3Bi7h6hqgywNFi1vZTfQNnS1RV";
|
|
"edpkuFrRoDSEbJYgxRtLx2ps82UdaYc1WwfS9sE11yhauZt5DgCHbU";
|
|
"edpkv8EUUH68jmo3f7Um5PezmfGrRF24gnfLpH3sVNwJnV5bVCxL2n" ]
|
|
|
|
let boostrap_balance = Tez_repr.of_mutez_exn 4_000_000_000_000L
|
|
|
|
let bootstrap_accounts =
|
|
List.map
|
|
(fun s ->
|
|
let public_key = Signature.Public_key.of_b58check_exn s in
|
|
let public_key_hash = Signature.Public_key.hash public_key in
|
|
Parameters_repr.
|
|
{
|
|
public_key_hash;
|
|
public_key = Some public_key;
|
|
amount = boostrap_balance;
|
|
})
|
|
bootstrap_accounts_strings
|
|
|
|
(* TODO this could be generated from OCaml together with the faucet
|
|
for now these are harcoded values in the tests *)
|
|
let commitments =
|
|
let json_result =
|
|
Data_encoding.Json.from_string
|
|
{json|
|
|
[
|
|
[ "btz1bRL4X5BWo2Fj4EsBdUwexXqgTf75uf1qa", "23932454669343" ],
|
|
[ "btz1SxjV1syBgftgKy721czKi3arVkVwYUFSv", "72954577464032" ],
|
|
[ "btz1LtoNCjiW23txBTenALaf5H6NKF1L3c1gw", "217487035428348" ],
|
|
[ "btz1SUd3mMhEBcWudrn8u361MVAec4WYCcFoy", "4092742372031" ],
|
|
[ "btz1MvBXf4orko1tsGmzkjLbpYSgnwUjEe81r", "17590039016550" ],
|
|
[ "btz1LoDZ3zsjgG3k3cqTpUMc9bsXbchu9qMXT", "26322312350555" ],
|
|
[ "btz1RMfq456hFV5AeDiZcQuZhoMv2dMpb9hpP", "244951387881443" ],
|
|
[ "btz1Y9roTh4A7PsMBkp8AgdVFrqUDNaBE59y1", "80065050465525" ],
|
|
[ "btz1Q1N2ePwhVw5ED3aaRVek6EBzYs1GDkSVD", "3569618927693" ],
|
|
[ "btz1VFFVsVMYHd5WfaDTAt92BeQYGK8Ri4eLy", "9034781424478" ]
|
|
]|json}
|
|
in
|
|
match json_result with
|
|
| Error err ->
|
|
raise (Failure err)
|
|
| Ok json ->
|
|
Data_encoding.Json.destruct
|
|
(Data_encoding.list Commitment_repr.encoding)
|
|
json
|
|
|
|
let make_bootstrap_account (pkh, pk, amount) =
|
|
Parameters_repr.{public_key_hash = pkh; public_key = Some pk; amount}
|
|
|
|
let parameters_of_constants ?(bootstrap_accounts = bootstrap_accounts)
|
|
?(bootstrap_contracts = []) ?(with_commitments = false) constants =
|
|
let commitments = if with_commitments then commitments else [] in
|
|
Parameters_repr.
|
|
{
|
|
bootstrap_accounts;
|
|
bootstrap_contracts;
|
|
commitments;
|
|
constants;
|
|
security_deposit_ramp_up_cycles = None;
|
|
no_reward_cycles = None;
|
|
}
|
|
|
|
let json_of_parameters parameters =
|
|
Data_encoding.Json.construct Parameters_repr.encoding parameters
|