8285899dba
For example:
% make clean
% make stage
And then configure 3 FLUs:
% echo '{p_srvr, a, machi_flu1_client, "localhost", 39000, []}.' > rel/machi/etc/flu-config/a
% echo '{p_srvr, b, machi_flu1_client, "localhost", 39001, []}.' > rel/machi/etc/flu-config/b
% echo '{p_srvr, c, machi_flu1_client, "localhost", 39002, []}.' > rel/machi/etc/flu-config/c
And then configure a chain to use 2 of those 3 FLUs:
% echo '{chain_def_v1,c1,ap_mode,[{p_srvr,a,machi_flu1_client,"localhost",39000,[]},{p_srvr,b,machi_flu1_client,"localhost",39001,[]}],[],[]}.' > rel/machi/etc/chain-config/c1
... then start Machi e.g.
% ./rel/machi/bin/machi console
... you should see the following console messages scroll by (including a :
=PROGRESS REPORT==== 8-Dec-2015::22:01:44 ===
supervisor: {local,machi_flu_sup}
started: [{pid,<0.145.0>},
{name,a},
{mfargs,
{machi_flu_psup,start_link,
[a,39000,"./data/flu/a",[]]}},
{restart_type,permanent},
{shutdown,5000},
{child_type,supervisor}]
[... and also for the other two FLUs, including a bunch of progress
reports for processes that started underneath that sub-supervisor.]
22:01:44.446 [info] Running FLUs: [a,b,c]
22:01:44.446 [info] Running FLUs at epoch 0: [a,b,c]
22:01:44.532 [warning] The following FLUs are defined but are not also members of a defined chain: [c]
88 lines
3.2 KiB
Erlang
88 lines
3.2 KiB
Erlang
%% -------------------------------------------------------------------
|
|
%%
|
|
%% Copyright (c) 2007-2014 Basho Technologies, Inc. All Rights Reserved.
|
|
%%
|
|
%% This file is provided to you under the Apache License,
|
|
%% Version 2.0 (the "License"); you may not use this file
|
|
%% except in compliance with the License. You may obtain
|
|
%% a copy of the License at
|
|
%%
|
|
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
%%
|
|
%% Unless required by applicable law or agreed to in writing,
|
|
%% software distributed under the License is distributed on an
|
|
%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
|
%% KIND, either express or implied. See the License for the
|
|
%% specific language governing permissions and limitations
|
|
%% under the License.
|
|
%%
|
|
%% -------------------------------------------------------------------
|
|
|
|
-ifndef(MACHI_PROJECTION_HRL).
|
|
-define(MACHI_PROJECTION_HRL, true).
|
|
|
|
-type pv1_consistency_mode() :: 'ap_mode' | 'cp_mode'.
|
|
-type pv1_chain_name():: atom().
|
|
-type pv1_csum() :: binary().
|
|
-type pv1_epoch() :: {pv1_epoch_n(), pv1_csum()}.
|
|
-type pv1_epoch_n() :: non_neg_integer().
|
|
-type pv1_server() :: atom().
|
|
-type pv1_timestamp() :: {non_neg_integer(), non_neg_integer(), non_neg_integer()}.
|
|
|
|
-record(p_srvr, {
|
|
name :: pv1_server(),
|
|
proto_mod = 'machi_flu1_client' :: atom(), % Module name
|
|
address :: term(), % Protocol-specific
|
|
port :: term(), % Protocol-specific
|
|
props = [] :: list() % proplist for other related info
|
|
}).
|
|
|
|
-record(flap_i, {
|
|
flap_count :: {term(), term()},
|
|
all_hosed :: list(),
|
|
all_flap_counts :: list(),
|
|
my_unique_prop_count :: non_neg_integer()
|
|
}).
|
|
|
|
-type p_srvr() :: #p_srvr{}.
|
|
-type p_srvr_dict() :: orddict:orddict().
|
|
|
|
-define(DUMMY_PV1_EPOCH, {0,<<0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>}).
|
|
|
|
%% Kludge for spam gossip. TODO: replace me
|
|
-define(SPAM_PROJ_EPOCH, ((1 bsl 32) - 7)).
|
|
|
|
-record(projection_v1, {
|
|
epoch_number :: pv1_epoch_n() | ?SPAM_PROJ_EPOCH,
|
|
epoch_csum :: pv1_csum(),
|
|
author_server :: pv1_server(),
|
|
chain_name = ch_not_def_yet :: pv1_chain_name(),
|
|
all_members :: [pv1_server()],
|
|
witnesses = [] :: [pv1_server()],
|
|
creation_time :: pv1_timestamp(),
|
|
mode = ap_mode :: pv1_consistency_mode(),
|
|
upi :: [pv1_server()],
|
|
repairing :: [pv1_server()],
|
|
down :: [pv1_server()],
|
|
dbg :: list(), %proplist(), is checksummed
|
|
dbg2 :: list(), %proplist(), is not checksummed
|
|
members_dict :: p_srvr_dict()
|
|
}).
|
|
|
|
-define(MACHI_DEFAULT_TCP_PORT, 50000).
|
|
|
|
-define(SHA_MAX, (1 bsl (20*8))).
|
|
|
|
%% Set a limit to the maximum chain length, so that it's easier to
|
|
%% create a consistent projection ranking score.
|
|
-define(MAX_CHAIN_LENGTH, 64).
|
|
|
|
-record(chain_def_v1, {
|
|
name :: atom(),
|
|
mode :: pv1_consistency_mode(),
|
|
full :: [p_srvr()],
|
|
witnesses :: [p_srvr()],
|
|
props = [] :: list() % proplist for other related info
|
|
}).
|
|
|
|
-endif. % !MACHI_PROJECTION_HRL
|