Adds functions for retrieving state from srv/fsm.

archaelus · Mar 27, 2013 · 55a02d2 · 55a02d2
1 parent 26b5ea9
commit 55a02d2
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/gen_state.erl b/gen_state.erl
@@ -0,0 +1,21 @@
+f(State).
+State = fun (Proc) ->
+                {status, _Pid, _, Things} = sys:get_status(Proc),
+                {data, PL} = lists:last(lists:nth(5, Things)),
+                proplists:get_value("State", PL)
+        end.
+
+f(FsmState).
+FsmState = fun (Proc) ->
+                {status, _Pid, _, Things} = sys:get_status(Proc),
+                {data, PL} = lists:last(lists:nth(5, Things)),
+                proplists:get_value("StateData", PL)
+        end.
+
+f(FsmStateName).
+FsmStateName = fun (Proc) ->
+                       {status, _Pid, _, Things} = sys:get_status(Proc),
+                       {data, PL} = lists:nth(2, lists:nth(5, Things)),
+                       proplists:get_value("StateName", PL)
+               end.
+