Erlang学习：事件行为(gen_event behaviour)

转自：http://www.kongqingquan.com/archives/80

代码：

common.hrl

-define(PRINT(Msg),io:format("~w ~w ~w:" ++ Msg ++ "~n",[self(),?MODULE,?LINE])).
-define(PRINT(Format,Msg),io:format("~w,~w ~w:" ++ Format ++ "~n",[self(),?MODULE,?LINE] ++ Msg)).

event.erl

-module(event).

-export([init/1,handle_event/2,handle_call/2,handle_info/2,
 terminate/2,code_change/3,format_status/2]).

-include("common.hrl").

-record(state,{}).

init(Args) ->
	?PRINT("Init Args:~w",[Args]),
	{ok,#state{}}.

handle_event(log,State) ->
	?PRINT("handel log"),
	{ok,State};

handle_event(Msg,State) ->
	?PRINT("Handle Event,Msg:~w",[Msg]),
	{ok,State}.

handle_call(Request,State) ->
	?PRINT("Handle Call:~w",[Request]),
	{ok,ok,State}.

handle_info(Request,State) ->
	?PRINT("Handle Info:~w",[Request]),
	{ok,State}.

terminate(Reason,_State) ->
	?PRINT("Terminate:~w",[Reason]),
	ok.

code_change(_OldVsn,State,_Extra) ->
	{ok,State}.

format_status(Op,State) ->
	?PRINT("Format State:~w",Op),
	{ok,State}.

event2.erl

-module(event2).

-export([init/1,handle_event/2,handle_call/2,handle_info/2,
terminate/2,code_change/3,format_status/2]).

-include("common.hrl").

-record(state,{}).

init(Args) ->
	?PRINT("Init Args:~w",[Args]),
	{ok,#state{}}.

handle_event(log,State) ->
	?PRINT("handel log"),
	{ok,State};

handle_event(crash,State) ->
	?PRINT("handel crash"),
	1 = 2,
	{ok,State};

handle_event(Msg,State) ->
	?PRINT("Handle Event,Msg:~w",[Msg]),
	{ok,State}.

handle_call(Request,State) ->
	?PRINT("Handle Call:~w",[Request]),
	{ok,ok,State}.

handle_info(Request,State) ->
	?PRINT("Handle Info:~w",[Request]),
	{ok,State}.

terminate(Reason,_State) ->
	?PRINT("Terminate:~w",[Reason]),
	ok.

code_change(_OldVsn,State,_Extra) ->
	{ok,State}.

format_status(Op,State) ->
	?PRINT("Format State:~w",Op),
	{ok,State}.

(bin@mac)1> gen_event:start({local,test_event}).
{ok,<0.572.0>}
(bin@mac)2> gen_event:add_handler(test_event,event,"test add event").
<0.572.0>,event 11:Init Args:[116,101,115,116,32,97,100,100,32,101,118,101,110,116]
ok
(bin@mac)3> gen_event:notify(test_event,log).
<0.572.0> event 15:handel log
ok
(bin@mac)4> gen_event:add_handler(test_event,event2,"test add event").
<0.572.0>,event2 11:Init Args:[116,101,115,116,32,97,100,100,32,101,118,101,110,116]
ok
(bin@mac)5> gen_event:notify(test_event,log).
<0.572.0> event2 15:handel log
<0.572.0> event 15:handel log
ok
(bin@mac)6> gen_event:notify(test_event,crash).
<0.572.0> event2 19:handel crash
<0.572.0>,event2 36:Terminate:{error,{'EXIT',{{badmatch,2},[{event2,handle_event,2,[{file,[47,85,115,101,114,115,47,98,105,110,46,115,104,101,110,47,73,68,69,47,101,99,108,105,112,115,101,95,101,114,108,97,110,103,47,119,111,114,107,115,112,97,99,101,47,66,101,104,97,118,105,111,114,115,47,115,114,99,47,101,118,101,110,116,50,46,101,114,108]},{line,20}]},{gen_event,server_update,4,[{file,[103,101,110,95,101,118,101,110,116,46,101,114,108]},{line,522}]},{gen_event,server_notify,4,[{file,[103,101,110,95,101,118,101,110,116,46,101,114,108]},{line,504}]},{gen_event,handle_msg,5,[{file,[103,101,110,95,101,118,101,110,116,46,101,114,108]},{line,266}]},{proc_lib,init_p_do_apply,3,[{file,[112,114,111,99,95,108,105,98,46,101,114,108]},{line,239}]}]}}}
ok
<0.572.0>,event 19:Handle Event,Msg:crash

其他资料：

http://www.rritw.com/a/bianchengyuyan/C__/20121230/239414.html

http://erlangdisplay.iteye.com/blog/315391

http://my.oschina.net/gameserver/blog/73722

http://www.lisdn.com/html/65/n-17365.html