Sunday experiment: all-but-remove A29, feels right but definitely not sure yet

This commit is contained in:
Scott Lystig Fritchie 2015-08-30 16:08:14 +09:00
parent 0dc53274d1
commit ec2e7b5669

View file

@ -1160,29 +1160,30 @@ react_to_env_A20(Retries, #ch_mgr{name=MyName}=S) ->
react_to_env_A29(Retries, P_latest, LatestUnanimousP, ReadExtra, react_to_env_A29(Retries, P_latest, LatestUnanimousP, ReadExtra,
#ch_mgr{name=MyName, consistency_mode=CMode, #ch_mgr{name=MyName, consistency_mode=CMode,
proj=P_current} = S) -> proj=P_current} = S) ->
#projection_v1{epoch_number=Epoch_latest, react_to_env_A30(Retries, P_latest, LatestUnanimousP, ReadExtra, S).
author_server=Author_latest} = P_latest, %% #projection_v1{epoch_number=Epoch_latest,
if CMode == cp_mode, %% author_server=Author_latest} = P_latest,
Epoch_latest > P_current#projection_v1.epoch_number, %% if CMode == cp_mode,
Author_latest /= MyName -> %% Epoch_latest > P_current#projection_v1.epoch_number,
put(yyy_hack, []), %% Author_latest /= MyName ->
case make_zerf(P_current, S) of %% put(yyy_hack, []),
Zerf when is_record(Zerf, projection_v1) -> %% case make_zerf(P_current, S) of
?REACT({a29, ?LINE, %% Zerf when is_record(Zerf, projection_v1) ->
[{zerf_filler, true}, %% ?REACT({a29, ?LINE,
{zerf_in, machi_projection:make_summary(Zerf)}]}), %% [{zerf_filler, true},
%% io:format(user, "zerf_in: A29: ~p: ~w\n\t~p\n", [MyName, machi_projection:make_summary(Zerf), get(yyy_hack)]), %% {zerf_in, machi_projection:make_summary(Zerf)}]}),
P_current2 = Zerf#projection_v1{ %% %% io:format(user, "zerf_in: A29: ~p: ~w\n\t~p\n", [MyName, machi_projection:make_summary(Zerf), get(yyy_hack)]),
flap=P_current#projection_v1.flap}, %% P_current2 = Zerf#projection_v1{
S2 = set_proj(S, P_current2), %% flap=P_current#projection_v1.flap},
react_to_env_A30(Retries, P_latest, LatestUnanimousP, %% S2 = set_proj(S, P_current2),
ReadExtra, S2); %% react_to_env_A30(Retries, P_latest, LatestUnanimousP,
Zerf -> %% ReadExtra, S2);
{{{yo_todo_incomplete_fix_me_cp_mode, line, ?LINE, Zerf}}} %% Zerf ->
end; %% {{{yo_todo_incomplete_fix_me_cp_mode, line, ?LINE, Zerf}}}
true -> %% end;
react_to_env_A30(Retries, P_latest, LatestUnanimousP, ReadExtra, S) %% true ->
end. %% react_to_env_A30(Retries, P_latest, LatestUnanimousP, ReadExtra, S)
%% end.
react_to_env_A30(Retries, P_latest, LatestUnanimousP, _ReadExtra, react_to_env_A30(Retries, P_latest, LatestUnanimousP, _ReadExtra,
#ch_mgr{name=MyName, proj=P_current, #ch_mgr{name=MyName, proj=P_current,