From 7295d365f6b1e1202cb32456a553cd460f695f4a Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@sunet.se>
Date: Wed, 19 Jun 2019 11:52:26 +0200
Subject: add p11p-daemon skeleton

---
 p11p-daemon/src/p11p_sup.erl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 p11p-daemon/src/p11p_sup.erl

(limited to 'p11p-daemon/src/p11p_sup.erl')

diff --git a/p11p-daemon/src/p11p_sup.erl b/p11p-daemon/src/p11p_sup.erl
new file mode 100644
index 0000000..b8bffe2
--- /dev/null
+++ b/p11p-daemon/src/p11p_sup.erl
@@ -0,0 +1,24 @@
+-module(p11p_sup).
+-behaviour(supervisor).
+
+%% API.
+-export([start_link/0]).
+
+%% Supervisor callbacks.
+-export([init/1]).
+
+%% From supervisor.
+-type start_link_err() :: {already_started, pid()} | shutdown | term().
+-type start_link_ret() :: {ok, pid()} | ignore | {error, start_link_err()}.
+
+-spec start_link() -> start_link_ret().
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+-define(CHILD(I, Type), {I, {I, start_link, []}, permanent, 5000, Type, [I]}).
+
+%% Child :: {Id,StartFunc,Restart,Shutdown,Type,Modules}
+init([]) ->
+    {ok, {{one_for_all, 10, 10}, [
+                                  ?CHILD(p11p_config, worker)
+                                 ]}}.
-- 
cgit v1.1