大家讨论一下gen fsm吧

shijiang1130

1. -module(myfsm).
   
2. -behaviour(gen_fsm).
   
3. -define(SERVER, ?MODULE).
   
4. 
   
5. %% ------------------------------------------------------------------
   
6. %% API Function Exports
   
7. %% ------------------------------------------------------------------
   
8. 
   
9. -export([start_link/0]).
   
10. 
    
11. %% ------------------------------------------------------------------
    
12. %% gen_fsm Function Exports
    
13. %% ------------------------------------------------------------------
    
14. 
    
15. -export([init/1, state_name/2, state_name/3, handle_event/3,
    
16.          handle_sync_event/4, handle_info/3, terminate/3,
    
17.          code_change/4]).
    
18. 
    
19. %% ------------------------------------------------------------------
    
20. %% API Function Definitions
    
21. %% ------------------------------------------------------------------
    
22. 
    
23. start_link() ->
    
24.     gen_fsm:start_link({local, ?SERVER}, ?MODULE, [], []).
    
25. 
    
26. %% ------------------------------------------------------------------
    
27. %% gen_fsm Function Definitions
    
28. %% ------------------------------------------------------------------
    
29. 
    
30. init(_Args) ->
    
31.     {ok, initial_state_name, initial_state}.
    
32. 
    
33. state_name(_Event, State) ->
    
34.     {next_state, state_name, State}.
    
35. 
    
36. state_name(_Event, _From, State) ->
    
37.     {reply, ok, state_name, State}.
    
38. 
    
39. handle_event(_Event, StateName, State) ->
    
40.     {next_state, StateName, State}.
    
41. 
    
42. handle_sync_event(_Event, _From, StateName, State) ->
    
43.     {reply, ok, StateName, State}.
    
44. 
    
45. handle_info(_Info, StateName, State) ->
    
46.     {next_state, StateName, State}.
    
47. 
    
48. terminate(_Reason, _StateName, _State) ->
    
49.     ok.
    
50. 
    
51. code_change(_OldVsn, StateName, State, _Extra) ->
    
52.     {ok, StateName, State}.
    
53. 
    
54. %% ------------------------------------------------------------------
    
55. %% Internal Function Definitions
    
56. %% ------------------------------------------------------------------
    

复制代码

shijiang1130

gen_fsm:start_link                               -----> Module:init/1
gen_fsm:send_event                            -----> Module:StateName/2
gen_fsm:send_all_state_event              -----> Module:handle_event/3
gen_fsm:sync_send_event                   -----> Module:StateName/3
gen_fsm:sync_send_all_state_event      -----> Module:handle_sync_event/4

q1208c

我只看到书上说过这个, 还没用过 .

shijiang1130

q1208c 发表于 2014-07-14 12:19
我只看到书上说过这个, 还没用过 .

听说文本解析，模式匹配、游戏逻辑等等方面的处理都是它的强项，还以为你用这个做的解析呢

q1208c

回复 4# shijiang1130

我还不太会用.
   

shijiang1130

-module(t).  
-behaviour(gen_fsm).  
-compile(export_all).  

start(PassWord) ->  
  gen_fsm:start_link({local, ?MODULE}, t, PassWord, []).  

init(PassWord) ->  
  {ok, locked, {[], PassWord}}.  
  
button(Digit) ->  
  gen_fsm:send_event(t, {button, Digit}).  
  
locked({button, Digit}, {SoFar, PassWord}) ->  
  io:format("PassWord you input is: ~w~n", [SoFar ++ [Digit]]),
  case SoFar ++ [Digit] of  
    PassWord ->  
      io:format("Open!~n"),  
      {next_state, open, {[], PassWord}, 3000};  
    Input when length(Input) < length(PassWord) ->  
      {next_state, locked, {Input, PassWord}};  
    _Wrong ->  
      io:format("小子，错啦! 再赌一把!~n"),  
      {next_state, locked, {[], PassWord}}  
  end.
  
open(timeout, State) ->  
  io:format("不能再等了Lock!~n"),  
  {next_state, locked, State}.