sg_as_sup: introduc get_as_fsm_name/1
diff --git a/src/sg_as_sup.erl b/src/sg_as_sup.erl
index ee5f06c..6a2f2f2 100644
--- a/src/sg_as_sup.erl
+++ b/src/sg_as_sup.erl
@@ -37,8 +37,10 @@
-export([init/1, start_link/2]).
+-export([get_as_fsm_name/1]).
+
init([Name, Options]) ->
- AsName = list_to_atom("sg_as_" ++ Name ++ "_fsm"),
+ AsName = get_as_fsm_name(Name),
StartArgs = [{local, AsName}, xua_as_fsm, [self()], Options],
StartFunc = {gen_fsm, start_link, StartArgs},
ChildSpec = {as_fsm, StartFunc, permanent, 4000, worker, [xua_as_fsm]},
@@ -50,3 +52,6 @@
start_link(Name, Options) ->
supervisor:start_link(?MODULE, [Name, Options]).
+
+get_as_fsm_name(Name) ->
+ list_to_atom("sg_as_" ++ Name ++ "_fsm").