erlang supervisor simple_one_for_one实例
http://www.cnblogs.com/little-ant/p/3196201.html
simple_one_for_one vs one_for_one:
相同点：
这种Restart Strategy和one_for_one基本相同(即当一个child process挂掉后，仅仅重启该child process 而不影响其他child process)。
异同点：
1, simple_one_for_one supvisor启动时不会启动任何子进程，所有子进程都只能通过调用 supervisor:start_child(Sup, Args) 来动态启动。
2, simple_one_for_one supvisor持有child process的定义，并有一个dict存放数据， 其实就是如干个child process，共享一份数据。
3, 一个simple_one_for_one supervisor只有一个(single)simple_one_for_one的定义, 也就是说它只能生产出一种类型worker process。
supervisor:start_child(Sup, Args) :
Sup: Supervisor的Pid或者registered Name.
Args: 当supervisor的类型是simple_one_for_one时，Args会追加到spec的参数中。
例如:
-module(simple_sup).
-behaviour(supervisor).
-export([start_link/0]).
-export([init/1]).
start_link() ->
supervisor:start_link({local,?MODULE}, ?MODULE, []).
init(_Args) ->
{M, F, A} = _Args,
{ok, {{simple_one_for_one, 0, 1},
[{M, {M, F, A},
temporary, brutal_kill, worker, [M]}]}}.
调用supervisor:start_child(simple_sup, Args)后，最终启动子进程的代码会是：apply(M, F, A++Args).
调用supervisor:start_child(Sup, Args)可能会遇到的错误：
1， noproc: 可能的原因是在调用supervisor:start_link时没写参数{local, ?MODULE},即上面代码红色部分，此时进程Sup并不存在，所以会产生
noproc错误。
2，undef： 可能的原因是A++Args后，与child process的start_link函数参数不一致。
实例代码：
实例包含两部分，一是监控普通进程(normal_process.erl)，二是监控gen_server进程(gen_server_process.erl)。
common.hrl
%%-define(CALL, normal_process). -define(CALL, gen_server_process).
simple_sup.erl
-module(simple_sup).
-behaviour(supervisor).
-export([start_link/0]).
-export([init/1]).
-include("common.hrl").
start_link() ->
supervisor:start_link({local, ?MODULE}, simple_sup, []).
init(_Args) ->
{ok, {{simple_one_for_one, 0, 1},
[{?CALL, {?CALL, start_link, []},
temporary, brutal_kill, worker, [?CALL]}]}}.
normal_process.erl
-module(normal_process).
-export([start_link/0, start_loop/1]).
start_link() ->
proc_lib:start_link(?MODULE, start_loop, [self()]).
start_loop(Parent) ->
proc_lib:init_ack(Parent, {ok, self()}),
loop().
loop() ->
receive
Args ->
io:format("~p~n", [Args])
end.
gen_server_process.erl
-module(gen_server_process).
-behaviour(gen_server).
-export([start_link/0]).
%% gen_server callbacks
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
terminate/2, code_change/3]).
%% interface
-export([start/0, stop/0, echo/1]).
%% interface implement
start() -> start_link().
stop() -> gen_server:call(?MODULE, stop).
echo(String) -> gen_server:call(?MODULE, {echo, String}).
%% gen_server callbacks implement
start_link() -> gen_server:start_link({local,?MODULE}, ?MODULE, [], []).
init([]) ->
{ok, 0}.
handle_call({echo, String}, _From, Tab) ->
Reply = String,
{reply, Reply, Tab};
handle_call(stop, _From, Tab) ->
{stop, normal, stopped, Tab}.
handle_cast(_Msg, State) -> {noreply, State}.
handle_info(_Info, State) -> {noreply, State}.
terminate(_Reason, _State) -> ok.
code_change(_OldVsn, State, _Extra) -> {ok, State}.
编译命令：
c(simple_sup). c(normal_process). c(gen_server_process).
测试命令:
simple_sup:start_link(). supervisor:start_child(simple_sup, []).
测试通过start_child启动普通进程：
修改common.hrl：-define(CALL, normal_process). 执行编译命令 + 测试命令。
测试通过start_child启动gen_server进程：
修改common.hrl：-define(CALL, gen_server_process). 执行编译命令 + 测试命令。