modified: src/bael_fsm.erl

	modified:   src/bael_xml.erl

src/bael_fsm.erl

@@ -3,29 +3,64 @@
 -export([start_link/0]).
 -export([init/1, handle_event/3, handle_sync_event/4, handle_info/3,
 	terminate/3, code_change/4]).
--export([sleep/2]).
+-export([idle/2, idle/3, work/2, work/3]).
 
 start_link()->
 	gen_fsm:start_link(?MODULE, [], []).
 
 init([])->
-	{ok, sleep, {}}.
+	{ok, idle, {}}.
 
+handle_event(test_timer, StateName, StateData)->
+	io:format("handle send_all_state_event: ~p~n", [test_timer]),
+	io:format("fsm(~p) state: ~p~n", [self(), StateName]),
+	gen_fsm:start_timer(1000, hello),
+	{next_state, idle, StateData};
+handle_event(just_test, StateName, StateData)->
+	io:format("handle send_all_state_event: ~p~n", [just_test]),
+	io:format("fsm(~p) state: ~p~n", [self(), StateName]),
+	{next_state, idle, StateData};
 handle_event(_Event, _StateName, StateData)->
-	{next_state, sleep, StateData}.
+	{next_state, idle, StateData}.
 
+handle_sync_event(just_test, From, StateName, StateData)->
+	io:format("handle sync_send_all_state_event(from: ~p): ~p~n", 
+	 [From, just_test]),
+	io:format("fsm(~p) state: ~p~n", [self(), StateName]),
+	{reply, {self(), reply}, idle, StateData, hibernate};
 handle_sync_event(_Event, _From, _StateName, StateData)->
-	%{next_state, sleep, StateData}.
-	{reply, null, sleep, StateData}.
+	%{next_state, idle, StateData}.
+	{reply, null, idle, StateData}.
 
 handle_info(_Info, _StateName, StateData)->
-	{next_state, sleep, StateData}.
+	{next_state, idle, StateData}.
 
 terminate(_Reason, _StateName, _StateData)->
 	ok.
 
 code_change(_OldVsn, _StateName, StateData, _Extra)->
-	{ok, sleep, StateData}.
+	{ok, idle, StateData}.
 
-sleep(_Event, StateData)->
-	{next_state, sleep, StateData}.
+idle({timeout, _Ref, Msg}, StateData)->
+	io:format("handle start_timer: ~p~n", [Msg]),
+	io:format("fsm(~p) state: idle~n", [self()]),
+	{next_state, idle, StateData};
+idle(Event, StateData)->
+	io:format("handle send_event: ~p~n", [Event]),
+	io:format("fsm(~p) state: idle~n", [self()]),
+	{next_state, idle, StateData}.
+
+idle(Event, From, StateData)->
+	io:format("handle sync_send_event(from ~p): ~p~n", [From, Event]),
+	io:format("fsm(~p) state: idle~n", [self()]),
+	{reply, {self(), reply}, idle, StateData}.
+
+work(Event, StateData)->
+	io:format("handle send_event: ~p~n", [Event]),
+	io:format("fsm(~p) state: work~n", [self()]),
+	{next_state, idle, StateData}.
+
+work(Event, From, StateData)->
+	io:format("handle sync_send_event(from ~p): ~p~n", [From, Event]),
+	io:format("fsm(~p) state: work~n", [self()]),
+	{reply, {self(), reply}, idle, StateData}.

src/bael_xml.erl

@@ -104,8 +104,7 @@ filter_xml_content([])->
 	ok;
 filter_xml_content(Content)->
 	[Head|Tail]=Content,
-	[Type|_]=tuple_to_list(Head),
-	Key=case Type of
+	Key=case hd(tuple_to_list(Head)) of
 		xmlText->?XML_TEXT_LIST;
 		xmlElement->?XML_ELEMENT_LIST
 	end,