balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rebase modifications

Browse Source
This commit is contained in:
Vincent Botbol 2018-06-11 15:51:59 +02:00 committed by Grégoire Henry
parent f63b96dbd8
commit cbcc808abc
3 changed files with 34 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/proto_alpha/lib_delegate/client_baking_endorsement.ml
View File

@ -187,7 +187,7 @@ let endorse_for cctxt = function
name
Operation_hash.pp_short oph >>= return
let prepare_endorsement (cctxt : #Proto_alpha.full) ~(max_past:Time.t) state bis =
let prepare_endorsement (cctxt : #Proto_alpha.full) ~(max_past:Time.t) state bi =
let may_endorse (block: Client_baking_blocks.block_info) delegate time =
Client_keys.Public_key_hash.name cctxt delegate >>=? fun name ->
lwt_log_info "May endorse block %a for %s"
@ -213,18 +213,16 @@ let prepare_endorsement (cctxt : #Proto_alpha.full) ~(max_past:Time.t) state bis
get_delegates cctxt state >>=? fun delegates ->
iter_p
(fun delegate ->
iter_p
(fun (bi : Client_baking_blocks.block_info) ->
if Time.compare bi.timestamp (Time.now ()) > 0 then
lwt_log_info "Ignore block %a: forged in the future"
Block_hash.pp_short bi.hash >>= return
else if Time.(min (now ()) bi.timestamp > max_past) then
lwt_log_info "Ignore block %a: forged too far the past"
Block_hash.pp_short bi.hash >>= return
else
let time = Time.(add (now ()) state.delay) in
may_endorse bi delegate time
) bis
let open Client_baking_blocks in
if Time.compare bi.timestamp (Time.now ()) > 0 then
lwt_log_info "Ignore block %a: forged in the future"
Block_hash.pp_short bi.hash >>= return
else if Time.(min (now ()) bi.timestamp > max_past) then
lwt_log_info "Ignore block %a: forged too far the past"
Block_hash.pp_short bi.hash >>= return
else
let time = Time.(add (now ()) state.delay) in
may_endorse bi delegate time
)
delegates
@ -266,13 +264,12 @@ let check_error f =
errs >>= fun () ->
Lwt.return_unit
let create (cctxt : #Proto_alpha.full) ?(max_past=(Time.of_seconds 110L)) ~delay contracts block_stream =
let create (cctxt : #Proto_alpha.full) ?(max_past=(Time.of_seconds 110L)) ~delay contracts (block_stream : Client_baking_blocks.block_info tzresult Lwt_stream.t) =
lwt_log_info "Starting endorsement daemon" >>= fun () ->
Lwt_stream.get block_stream >>= function
| None | Some (Ok []) | Some (Error _) ->
| None | Some (Error _) ->
cctxt#error "Can't fetch the current block head."
| Some (Ok initial_heads) ->
| Some (Ok head) ->
let last_get_block = ref None in
let get_block () =
match !last_get_block with
@ -288,13 +285,13 @@ let create (cctxt : #Proto_alpha.full) ?(max_past=(Time.of_seconds 110L)) ~delay
(get_block () >|= fun b -> `Hash b) ] >>= function
| `Hash (None | Some (Error _)) ->
Lwt.return_unit
| `Hash (Some (Ok bis)) ->
| `Hash (Some (Ok bi)) ->
Lwt.cancel timeout;
last_get_block := None ;
check_error (prepare_endorsement cctxt ~max_past state bis) >>= fun () ->
check_error (prepare_endorsement cctxt ~max_past state bi) >>= fun () ->
worker_loop ()
| `Timeout ->
check_error (endorse_for cctxt state.to_endorse) >>= fun () ->
worker_loop () in
check_error (prepare_endorsement cctxt ~max_past state initial_heads) >>= fun () ->
check_error (prepare_endorsement cctxt ~max_past state head) >>= fun () ->
worker_loop ()

2
src/proto_alpha/lib_delegate/client_baking_endorsement.mli
View File

@ -25,4 +25,4 @@ val create :
?max_past:Time.t ->
delay:int ->
public_key_hash list ->
Client_baking_blocks.block_info list tzresult Lwt_stream.t -> unit Lwt.t
Client_baking_blocks.block_info tzresult Lwt_stream.t -> unit Lwt.t

31
src/proto_alpha/lib_delegate/client_daemon.ml
View File

@ -10,9 +10,23 @@
module Endorser = struct
let run (cctxt : #Proto_alpha.full) ~delay ?min_date delegates =
Client_baking_blocks.monitor
cctxt ?min_date ~min_heads:1 () >>=? fun block_stream ->
Client_baking_blocks.monitor_heads
cctxt `Main >>=? fun block_stream ->
Client_baking_endorsement.create cctxt ~delay delegates block_stream >>= fun () ->
ignore min_date;
return ()
end
module Baker = struct
let run (cctxt : #Proto_alpha.full) ?max_priority ?min_date delegates =
Client_baking_blocks.monitor_heads
cctxt `Main >>=? fun block_stream ->
Client_baking_forge.create cctxt
?max_priority delegates block_stream >>=? fun () ->
ignore min_date;
return ()
end
@ -26,16 +40,3 @@ module Accuser = struct
return ()
end
module Baker = struct
let run (cctxt : #Proto_alpha.full) ?max_priority ?min_date delegates =
Client_baking_blocks.monitor
cctxt ?min_date ~min_heads:1 () >>=? fun block_stream ->
Client_baking_operations.monitor_endorsement
cctxt >>=? fun endorsement_stream ->
Client_baking_forge.create cctxt
?max_priority delegates block_stream endorsement_stream >>=? fun () ->
return ()
end