用sys:log調(diào)試gen_fsm

shijiang1130

1. 16> gen_fsm:send_event(fsm,{button,"000000"}).
   
2. buttion: "000000", So far: [], Code: "afw"
   
3. wrong passwd: "000000"
   
4. ok
   
5. 17> sys:log(fsm,get,5000).                    
   
6. {ok,[{{in,{'$gen_all_state_event',{button,"aaa"}}},
   
7.       {fsm,initial_state_name},
   
8.       #Fun<gen_fsm.0.64764857>},
   
9.      {return,{fsm,initial_state_name},#Fun<gen_fsm.1.64764857>},
   
10.      {{in,{'$gen_event',{button,"aaa"}}},
    
11.       {fsm,initial_state_name},
    
12.       #Fun<gen_fsm.0.64764857>},
    
13.      {return,{fsm,initial_state_name},#Fun<gen_fsm.1.64764857>},
    
14.      {{in,{'$gen_event',{button,"000000"}}},
    
15.       {fsm,initial_state_name},
    
16.       #Fun<gen_fsm.0.64764857>},
    
17.      {return,{fsm,initial_state_name},#Fun<gen_fsm.1.64764857>}]}
    
18. 18>

復制代碼

shijiang1130

1. -module(fsm).
   
2. -behaviour(gen_fsm).
   
3. -define(SERVER, ?MODULE).
   
4. 
   
5. %% ------------------------------------------------------------------
   
6. %% API Function Exports
   
7. %% ------------------------------------------------------------------
   
8. 
   
9. 
   
10. %% ------------------------------------------------------------------
    
11. %% gen_fsm Function Exports
    
12. %% ------------------------------------------------------------------
    
13. 
    
14. -export([init/1, state_name/2, state_name/3, handle_event/3,
    
15.          handle_sync_event/4, handle_info/3, terminate/3,
    
16.          code_change/4]).
    
17. -compile(export_all).
    
18. %% ------------------------------------------------------------------
    
19. %% API Function Definitions
    
20. %% ------------------------------------------------------------------
    
21. 
    
22. start_link(_Args) ->
    
23.     gen_fsm:start_link({local, ?SERVER}, ?MODULE, _Args, []).
    
24. 
    
25. %% ------------------------------------------------------------------
    
26. %% gen_fsm Function Definitions
    
27. %% ------------------------------------------------------------------
    
28. 
    
29. init(_Args) ->
    
30.     {ok, initial_state_name, {[],_Args}}.
    
31. 
    
32. state_name(_Event, State) ->
    
33. io:format("state_event /2"),
    
34.     {next_state, state_name, State}.
    
35. 
    
36. state_name(_Event, _From, State) ->
    
37. io:format("state_event /3"),
    
38.     {reply, ok, state_name, State}.
    
39. 
    
40. handle_event(_Event, StateName, State) ->
    
41. io:format("i handle it"),
    
42.     {next_state, StateName, State}.
    
43. 
    
44. handle_sync_event(_Event, _From, StateName, State) ->
    
45.     {reply, ok, StateName, State}.
    
46. 
    
47. handle_info(_Info, StateName, State) ->
    
48.     {next_state, StateName, State}.
    
49. 
    
50. terminate(_Reason, _StateName, _State) ->
    
51.     ok.
    
52. 
    
53. code_change(_OldVsn, StateName, State, _Extra) ->
    
54.     {ok, StateName, State}.
    
55. 
    
56. %% ------------------------------------------------------------------
    
57. %% Internal Function Definitions
    
58. %% ------------------------------------------------------------------
    
59. 
    
60. initial_state_name({button,Digit},{SoFar,Code})->
    
61.     io:format("buttion: ~p, So far: ~p, Code: ~p~n", [Digit, SoFar, Code]),  
    
62.     InputDigits = lists:append(SoFar, Digit),  
    
63.     case InputDigits of  
    
64.         Code ->  
    
65.             do_unlock(),  
    
66.             {next_state, open, {[], Code}, 10000};  
    
67.         Incomplete when length(Incomplete)<length(Code) ->  
    
68.             {next_state, initial_state_name, {Incomplete, Code}, 5000};  
    
69.         Wrong ->  
    
70.             io:format("wrong passwd: ~p~n", [Wrong]),  
    
71.             {next_state, initial_state_name, {[], Code}}  
    
72.     end;  
    
73. initial_state_name(timeout, {_SoFar, Code}) ->  
    
74.     io:format("timout when waiting button inputting, clean the input, button again plz~n"),  
    
75.     {next_state, initial_state_name, {[], Code}}.  
    
76. 
    
77. open(timeout, State) ->  
    
78.     do_lock(),  
    
79.     {next_state, initial_state_name, State}.  
    
80. 
    
81. do_unlock() ->  
    
82.     io:format("passwd is right, open the DOOR.~n").  
    
83.   
    
84. do_lock() ->  
    
85.     io:format("over, close the DOOR.~n").  

復制代碼

shijiang1130

function_clause erlang

No matching function clause is found when evaluating a function call.