Added supervisor structure

src/ggs_sup.erl

@@ -0,0 +1,41 @@
+-module(ggs_sup).
+-behaviour(supervisor).
+
+%% API
+-export([start/1, start_link/1]).
+
+%% Supervisor callbacks
+-export([init/1]).
+-define(SERVER, ?MODULE).
+
+start(Port) ->
+    [FirstArg] = Port, 
+    {IntPort, _} = string:to_integer(FirstArg),
+    start_link(IntPort).
+
+start_link(Port) ->
+    supervisor:start_link({local, ?SERVER}, ?MODULE, [Port]).
+
+init([Port]) ->
+    Dispatcher = {ggs_dispatcher, 
+                    {ggs_dispatcher, start_link, [Port]},
+                    permanent, 
+                    2000, 
+                    worker, 
+                    [ggs_dispatcher]
+                },
+    Coordinator = {ggs_coordinator,
+                    {ggs_coordinator, start_link, []},
+                    permanent, 
+                    2000, 
+                    worker, 
+                    [ggs_dispatcher]
+                },
+    Children = [Dispatcher, Coordinator],
+
+    RestartStrategy = { one_for_one, % Restart only crashing child
+                        10,          % Allow ten crashes per..
+                        1            % 1 second, then crash supervisor.
+                      },
+    {ok, {RestartStrategy, Children}}.
+