Initial commitHEADmaster

1 files changed, 29 insertions, 0 deletions

diff --git a/src/coaperl_sup.erl b/src/coaperl_sup.erl
new file mode 100644
index 0000000..b57c918
--- /dev/null
+++ b/src/coaperl_sup.erl
@@ -0,0 +1,29 @@
+-module(coaperl_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+%% Helper macro for declaring children of supervisor
+-define(CHILD(I, Type, Args), {I, {I, start_link, [Args]}, permanent, 5000, Type, [I]}).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+
+init([]) ->
+    {ok, { {one_for_one, 5, 10}
+%           [?CHILD(udp, worker, [])]
+         } }.
+