码迷,mamicode.com
首页 > 其他好文 > 详细

[Erlang之旅 0004] gen_server

时间:2014-07-23 12:18:56      阅读:221      评论:0      收藏:0      [点我收藏+]

标签:style   blog   color   使用   数据   io   

 

gen_server:start_link(ServerName, Module, Args, Options) -> Result

     ServerName={local, Name}|{global, GlobalName}|{via, Module, ViaName}

     Option = {debug, Dbgs}|{timeout, Time}|{spawn ——opt, Sopts}

     Module: 回调模块的名称

     Args: 传给回调模块中init函数的参数

call(ServerRef, Request) -> Reply    %%handle_call之间的交互, 实现远程调用

abcast(Name, Request) -> abcast

muti_call(Name, Request) -> Result

gen_server 和回调模块中的回调函数对应关系

gen_server module                         Callback module

--------------------------                  -----------------------

gen_server:start_link       --------> Module:init/1

gen_server:call

gen_server:multi_call      ---------> Module:handle_call/3    %% 函数的同步调用

gen_server:cast

gen_server:abcast          ----------> Module:handle_cast/2   %% 函数的异步调用

-                                   ----------> Module:handle_info/2    %% 处理发给服务器的原生消息,handle_call /handle_cast不处理的消息

-                                   ----------> Module:terminate/2       %% 服务器终止,可以对State 的数据进行处理

-                                   ----------> Module:code_change/3    %% 对于代码的升级和替换

 

 以代码说明其使用

 1 -module(tcp_socket2).                                                           
  2 -behaviour(gen_server).                                                         
  3                                                                                 
  4 -export([start/0, stop/0, login/1]).                                                                                                                                               
  5                                                                                 
  6 -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
  7                                                                                 
  8 start() ->                                                                      
  9     io:format("[~p] start()~n", [calendar:now_to_local_time(erlang:now())]),    
 10     gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).                   
 11                                                                                 
 12                                                                                 
 13 stop() ->                                                                       
 14     io:format("[~p] stop() ~n", [calendar:now_to_local_time(erlang:now())]),    
 15     gen_server:call(?MODULE, stop).                                             
 16                                                                                 
 17                                                                                 
 18 login(Who) ->                                                                   
 19     io:format("[~p] login(~p) ~n", [calendar:now_to_local_time(erlang:now()), Who]),
 20     gen_server:call(?MODULE, {login, Who}).                                     
 21                                                                                 
 22 init([]) ->                                                                     
 23     io:format("[~p] init() ~n", [calendar:now_to_local_time(erlang:now())]),    
 24     {ok, ets:new(?MODULE, [])}.                                                 
 25                                                                                 
 26 handle_call({login, Who}, _From, Tab) ->                                        
 27     io:format("[~p] handle_call({login, ~p})", [calendar:now_to_local_time(erlang:now()), Who]),
 28     Reply = case ets:lookup(Tab, Who) of                                        
 29         [] -> ets:insert(Tab, {Who,0}),                                         
 30             {welcome, Who}                                                      
 31     end,                                                                        
 32     {reply, Reply, Tab};                                                        
 33 handle_call(stop, _From, Tab) ->                                                
 34     {stop, normal, stopped, Tab}.                                               
 35 handle_cast(_Msg, State) -> {noreply, State}.                                   
 36 handle_info(_Info, State) -> {noreply, State}.                                  
 37 terminate(_Reason, _State) ->                                                   
 38     ok.                                                                         
 39 code_change(_OldVsn, State, Extra) -> {ok, State}.       

在一个终端显示的信息,可以观察其启动函数的顺序 start -> init   login -> handle_call

1> c(tcp_socket2).

tcp_socket2.erl:39: Warning: variable ‘Extra‘ is unused

{ok,tcp_socket2}

2> tcp_socket2:start().

[{{2014,7,15},{14,34,21}}] start()

[{{2014,7,15},{14,34,21}}] init() 

{ok,<0.40.0>}

3> tcp_socket2:login("nike").

[{{2014,7,15},{14,34,45}}] login("nike") 

[{{2014,7,15},{14,34,45}}] handle_call({login, "nike"}){welcome,"nike"}

4> tcp_socket2:stop().

[{{2014,7,15},{14,45,26}}] stop() 

stopped

5>

[Erlang之旅 0004] gen_server,布布扣,bubuko.com

[Erlang之旅 0004] gen_server

标签:style   blog   color   使用   数据   io   

原文地址:http://www.cnblogs.com/hanbird/p/3844534.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!