65 lines
2.8 KiB
OCaml
65 lines
2.8 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Proto_alpha
|
|
open Alpha_context
|
|
|
|
type block_info = {
|
|
hash: Block_hash.t ;
|
|
chain_id: Chain_id.t ;
|
|
predecessor: Block_hash.t ;
|
|
fitness: MBytes.t list ;
|
|
timestamp: Time.t ;
|
|
protocol: Protocol_hash.t ;
|
|
next_protocol: Protocol_hash.t ;
|
|
level: Level.t ;
|
|
}
|
|
|
|
let info cctxt ?(chain = `Main) block =
|
|
Chain_services.chain_id cctxt ~chain () >>=? fun chain_id ->
|
|
Block_services.hash cctxt ~chain ~block () >>=? fun hash ->
|
|
Block_services.Header.shell_header cctxt ~chain ~block () >>=? fun header ->
|
|
Block_services.Metadata.next_protocol_hash
|
|
cctxt ~chain ~block () >>=? fun next_protocol ->
|
|
Block_services.Metadata.protocol_hash
|
|
cctxt ~chain ~block () >>=? fun protocol ->
|
|
Block_services.Metadata.protocol_data cctxt ~chain ~block () >>=? fun { level } ->
|
|
let { Tezos_base.Block_header.predecessor ; fitness ; timestamp ; _ } = header in
|
|
return { hash ; chain_id ; predecessor ; fitness ;
|
|
timestamp ; protocol ; next_protocol ; level }
|
|
|
|
let monitor_valid_blocks cctxt ?chains ?protocols ?next_protocols () =
|
|
Shell_services.Monitor.valid_blocks cctxt
|
|
?chains ?protocols ?next_protocols () >>=? fun (block_stream, _stop) ->
|
|
return (Lwt_stream.map_s
|
|
(fun (chain, block) ->
|
|
info cctxt ~chain:(`Hash chain) (`Hash (block, 0))) block_stream)
|
|
|
|
let monitor_heads cctxt ?next_protocols chain =
|
|
Shell_services.Monitor.heads
|
|
cctxt ?next_protocols chain >>=? fun (block_stream, _stop) ->
|
|
return (Lwt_stream.map_s
|
|
(fun block -> info cctxt ~chain (`Hash (block, 0)))
|
|
block_stream)
|
|
|
|
let blocks_from_cycle cctxt ?(chain = `Main) block cycle =
|
|
Block_services.hash cctxt ~chain ~block () >>=? fun hash ->
|
|
Block_services.Metadata.protocol_data cctxt ~chain ~block () >>=? fun { level } ->
|
|
Alpha_services.Helpers.levels cctxt (chain, block) cycle >>=? fun (first, last) ->
|
|
let length = Int32.to_int (Raw_level.diff level.level first) in
|
|
Chain_services.Blocks.list cctxt ~heads:[hash] ~length () >>=? fun blocks ->
|
|
let blocks =
|
|
List.remove
|
|
(length - (Int32.to_int (Raw_level.diff last first)))
|
|
(List.hd blocks) in
|
|
if Raw_level.(level.level = last) then
|
|
return (hash :: blocks)
|
|
else
|
|
return blocks
|