ligo/src/proto/alpha/block_repr.ml

(**************************************************************************)
(*                                                                        *)
(*    Copyright (c) 2014 - 2016.                                          *)
(*    Dynamic Ledger Solutions, Inc. <contact@tezos.com>                  *)
(*                                                                        *)
(*    All rights reserved. No warranty, explicit or implicit, provided.   *)
(*                                                                        *)
(**************************************************************************)

open Tezos_hash

(** Block header *)

(** Exported type *)
type header = {
  shell: Updater.shell_block ;
  proto: proto_header ;
  signature: Ed25519.Signature.t ;
}

and proto_header = {
  mining_slot: mining_slot ;
  seed_nonce_hash: Nonce_hash.t ;
  proof_of_work_nonce: MBytes.t ;
}

and mining_slot = {
  level: Raw_level_repr.t ;
  priority: int ;
}

let mining_slot_encoding =
  let open Data_encoding in
  conv
    (fun { level ; priority } -> level, priority)
    (fun (level, priority) -> { level ; priority })
    (obj2
       (req "level" Raw_level_repr.encoding)
       (req "priority" uint16))

let proto_header_encoding =
  let open Data_encoding in
  conv
    (fun { mining_slot ; seed_nonce_hash ; proof_of_work_nonce } ->
       (mining_slot, (seed_nonce_hash, proof_of_work_nonce)))
    (fun (mining_slot, (seed_nonce_hash, proof_of_work_nonce)) ->
       { mining_slot ; seed_nonce_hash ; proof_of_work_nonce })
    (merge_objs
       mining_slot_encoding
       (obj2
          (req "seed_nonce_hash" Nonce_hash.encoding)
          (req "proof_of_work_nonce" (Fixed.bytes Constants_repr.proof_of_work_nonce_size))))

let signed_proto_header_encoding =
  let open Data_encoding in
  merge_objs
    proto_header_encoding
    (obj1 (req "signature" Ed25519.Signature.encoding))

let unsigned_header_encoding =
  let open Data_encoding in
  merge_objs
    Updater.shell_block_encoding
    proto_header_encoding

(** Constants *)

let max_header_length =
  match Data_encoding.classify signed_proto_header_encoding with
  | `Fixed n -> n
  | `Dynamic | `Variable -> assert false

(** Header parsing entry point  *)

type error +=
  | Cant_parse_proto_header

let parse_header
    ({ shell = { net_id ; predecessor ; timestamp ; fitness ; operations } ;
       proto } : Updater.raw_block) : header tzresult =
  match Data_encoding.Binary.of_bytes signed_proto_header_encoding proto with
  | None -> Error [Cant_parse_proto_header]
  | Some (proto, signature) ->
      let shell =
        { Updater.net_id ; predecessor ; timestamp ; fitness ; operations } in
      Ok { shell ; proto ; signature }

let forge_header shell proto =
  Data_encoding.Binary.to_bytes unsigned_header_encoding (shell, proto)