105 lines
2.9 KiB
OCaml
105 lines
2.9 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type operation = Operation_hash.t
|
|
let max_operation_data_length = 42
|
|
|
|
let max_block_length = 42
|
|
let validation_passes = []
|
|
let acceptable_passes _op = []
|
|
|
|
let parse_operation h _ = Ok h
|
|
|
|
let compare_operations _ _ = 0
|
|
|
|
type validation_state = {
|
|
context : Context.t ;
|
|
fitness : Int64.t ;
|
|
}
|
|
|
|
let current_context { context } =
|
|
return context
|
|
|
|
module Fitness = struct
|
|
|
|
type error += Invalid_fitness
|
|
type error += Invalid_fitness2
|
|
|
|
let int64_to_bytes i =
|
|
let b = MBytes.create 8 in
|
|
MBytes.set_int64 b 0 i;
|
|
b
|
|
|
|
let int64_of_bytes b =
|
|
if Compare.Int.(MBytes.length b <> 8) then
|
|
fail Invalid_fitness2
|
|
else
|
|
return (MBytes.get_int64 b 0)
|
|
|
|
let from_int64 fitness =
|
|
[ int64_to_bytes fitness ]
|
|
|
|
let to_int64 = function
|
|
| [ fitness ] -> int64_of_bytes fitness
|
|
| [] -> return 0L
|
|
| _ -> fail Invalid_fitness
|
|
|
|
let get { fitness } = fitness
|
|
|
|
end
|
|
|
|
let precheck_block
|
|
~ancestor_context:_
|
|
~ancestor_timestamp:_
|
|
raw_block =
|
|
Fitness.to_int64 raw_block.Block_header.shell.fitness >>=? fun _ ->
|
|
return ()
|
|
|
|
let begin_application
|
|
~predecessor_context:context
|
|
~predecessor_timestamp:_
|
|
~predecessor_fitness:_
|
|
raw_block =
|
|
Fitness.to_int64 raw_block.Block_header.shell.fitness >>=? fun fitness ->
|
|
return { context ; fitness }
|
|
|
|
let begin_construction
|
|
~predecessor_context:context
|
|
~predecessor_timestamp:_
|
|
~predecessor_level:_
|
|
~predecessor_fitness:pred_fitness
|
|
~predecessor:_
|
|
~timestamp:_
|
|
?protocol_data:_ () =
|
|
Fitness.to_int64 pred_fitness >>=? fun pred_fitness ->
|
|
let fitness = Int64.succ pred_fitness in
|
|
return { context ; fitness }
|
|
|
|
let apply_operation ctxt _ =
|
|
return ctxt
|
|
|
|
let finalize_block ctxt =
|
|
let fitness = Fitness.get ctxt in
|
|
let message = Some (Format.asprintf "fitness <- %Ld" fitness) in
|
|
let fitness = Fitness.from_int64 fitness in
|
|
return { Updater.message ; context = ctxt.context ; fitness ;
|
|
max_operations_ttl = 0 ; max_operation_data_length = 0 ;
|
|
last_allowed_fork_level = 0l ;
|
|
}
|
|
|
|
let rpc_services = RPC_directory.empty
|
|
|
|
let init ctxt block_header =
|
|
let fitness = block_header.Block_header.fitness in
|
|
let message = None in
|
|
return { Updater.message ; context = ctxt ; fitness ;
|
|
max_operations_ttl = 0 ; max_operation_data_length = 0 ;
|
|
last_allowed_fork_level = 0l ;
|
|
}
|