erlang trap_exit标记

设置了 trap_exit 为 true 的进程，在收到 非kill 的退出信号时候，会把该信号转换为普通的消息，而不会退出；
通过 gen_server:handle_msg/5 和 gen_server:handle_msg/6 函数可知，若进程自身发生错误的时候，即使设置了 trap_exit 为 true，进程最终也会调用 ?MODULE:terminate/2 进行退出。 

用简单的例子验证：

 1 -module(test_gen_server).
 2 
 3 -behavior(gen_server).
 4 
 5 %% apis
 6 -export([
 7     start/0,
 8     start_link/0
 9 ]).
10 
11 %% callbacks
12 -export([
13     init/1,
14     handle_call/3,
15     handle_cast/2,
16     handle_info/2,
17     terminate/2,
18     code_change/3
19 ]).
20 
21 %% 字符串宏
22 -define(str_concat(Format, Args), lists:flatten(io_lib:format(Format, Args))).
23 
24 %% 日志宏
25 -define(err(Format, Args), error_logger:error_report(?str_concat("Module: ~p, Line:~p~n" ++ Format, [?MODULE, ?LINE | Args]))).
26 -define(info(Format, Args), io:format(?str_concat(Format ++ " in Module: ~p at Line: ~p~n", Args ++ [?MODULE, ?LINE]), [])).
27 
28 %% 进程状态结构定义
29 -record(state, {}).
30 
31 %% Apis -------------------------------
32 start() ->
33     gen_server:start({local, ?MODULE}, ?MODULE, [], []).
34 
35 start_link() ->
36     gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
37 
38 %% Callbacks --------------------------
39 init([]) ->
40     ?info("gen_server: ~p init !", [?MODULE]),
41     erlang:process_flag(trap_exit, true),
42     {ok, #state{}}.
43 
44 handle_call(_Msg, _From, State) ->
45     {reply, reply, State}.
46 
47 handle_cast(_Msg, State) ->
48     {noreply, State}.
49 
50 handle_info(Msg, State) ->
51     ?info("recv info msg: ~p !", [Msg]),
52     {noreply, State}.
53 
54 terminate(normal, _State) ->
55     ?info("gen_server: ~p stopped, reason: normal", [?MODULE]);
56 terminate(Reason, _State) ->
57     ?err("gen_server: ~p stopped, reason: ~p", [?MODULE, Reason]).
58 
59 code_change(_OldVsn, State, _Extra) ->
60     {ok, State}.
61 
62 %% Privates ---------------------------

编译这个 test_gen_server 模块，然后在erlang shell里面做如下测试：

E:\Worksapce\erlang_test>erl -pa ebin/
Eshell V7.1  (abort with ^G)
1> {ok, Pid} = test_gen_server:start().
gen_server: test_gen_server init ! in Module: test_gen_server at Line: 34
{ok,<0.33.0>}
2> erlang:exit(Pid, stop).
recv info msg: {'EXIT',<0.31.0>,stop} ! in Module: test_gen_server at Line: 45
true
3> erlang:exit(Pid, shutdown).
recv info msg: {'EXIT',<0.31.0>,shutdown} ! in Module: test_gen_server at Line: 45
true
4> erlang:exit(Pid, any).
recv info msg: {'EXIT',<0.31.0>,any} ! in Module: test_gen_server at Line: 45
true
5> erlang:exit(Pid, kill).
true

从上面测试结果来看，在收到 kill 退出信号之前，test_gen_server 都把退出信号转换为普通消息，并通过51行的info宏打印出来了；
但在收到 kill 退出信号时，并没有 ?MODULE:terminate/2 函数的打印，因为 test_gen_server 收到 kill 信号后无条件的马上终止了，而没有执行 ?MODULE:terminate/2 函数。

把设置 trap_exit 进程标记的 41 行注释掉，编译并重新加载 test_gen_server 模块再进行测试：

1> {ok, Pid} = test_gen_server:start().
gen_server: test_gen_server init ! in Module: test_gen_server at Line: 35
{ok,<0.33.0>}
2> erlang:exit(Pid, normal).
true
3> erlang:is_process_alive(Pid).
true
4> erlang:exit(Pid, any).
true
5> erlang:is_process_alive(Pid).
false
6> {ok, Pid2} = test_gen_server:start().
gen_server: test_gen_server init ! in Module: test_gen_server at Line: 35
{ok,<0.39.0>}
7> erlang:exit(Pid2, kill).
true
8> erlang:is_process_alive(Pid2).
false

测试结果表明，向 test_gen_server 发送 非normal 外的任何退出消息， test_gen_server 进程都会终止，且不会调用 ?MODULE:terminate/2 函数。

通过看 supervisor:shutdown/2  函数可知，在子进程退出设置 非brutal_kill 时， supervisor 在结束子进程时，会先发一条 shutdown 退出消息给子进程并等待子进程退出完毕，若退出超时则再次发送一条 kill 的退出消息给子进程，让子进程无条件退出。

所以如果子进程没有设置 trap_exit 进程标记，则子进程会在则收到 shutdown  之后就直接无条件退出了而不调用 ?MODULE:terminate/2 函数；
而设置 trap_exit  的话，子进程调用 ?MODULE:terminate/2 并退出，其退出原因是 shutdown。

通过看 gen_server:decode_msg/8 函数可知，gen_server 进程在收到 Parent 的任何 {'EXIT', Parent, Reason} 消息的时候(如父进程发送的 {'EXIT', Parent, shutdown} 消息)，最终都会调用 ?MODULE:terminate/2 函数进行退出。