wip

1 files changed, 22 insertions, 0 deletions

diff --git a/learn-you-some-erlang/reminder/src/sup.erl b/learn-you-some-erlang/reminder/src/sup.erl
new file mode 100644
index 0000000..71a463b
--- /dev/null
+++ b/learn-you-some-erlang/reminder/src/sup.erl
@@ -0,0 +1,22 @@
+-module(sup).
+-export([start/2, start_link/2, init/1, loop/1]).
+
+start(Mod, Args) ->
+    spawn(?MODULE, init, [{Mod, Args}]).
+
+start_link(Mod,Args) ->
+    spawn_link(?MODULE, init, [{Mod, Args}]).
+
+init({Mod,Args}) ->
+    process_flag(trap_exit, true),
+    loop({Mod,start_link,Args}).
+
+loop({M,F,A}) ->
+    Pid = apply(M,F,A),
+    receive
+        {'EXIT', _From, shutdown} ->
+            exit(shutdown); % will kill the child too
+        {'EXIT', Pid, Reason} ->
+            io:format("Process ~p exited for reason ~p~n",[Pid,Reason]),
+            loop({M,F,A})
+    end.