From c1ccf1d1cd0c102caeff98cd7c2b44ff11c391bf Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Fri, 29 Apr 2011 08:56:42 +0200
Subject: [PATCH] osmo_sccp application/supervisors

---
 ebin/osmo_sccp.app    | 11 ++++++++++
 src/osmo_sccp.erl     | 14 ++++++++++++
 src/osmo_sccp_app.erl | 31 ++++++++++++++++++++++++++
 src/osmo_sccp_sup.erl | 51 +++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 107 insertions(+)
 create mode 100644 ebin/osmo_sccp.app
 create mode 100644 src/osmo_sccp.erl
 create mode 100644 src/osmo_sccp_app.erl
 create mode 100644 src/osmo_sccp_sup.erl

diff --git a/ebin/osmo_sccp.app b/ebin/osmo_sccp.app
new file mode 100644
index 0000000..8f9698d
--- /dev/null
+++ b/ebin/osmo_sccp.app
@@ -0,0 +1,11 @@
+{application, osmo_sccp,
+	[{description, "Osmocom SCCP Server"},
+	 {vsn, "1"},
+	 {modules, [	osmo_sccp,
+			osmo_sccp_sup
+		]},
+	 {registered, []},
+	 {applications, []},
+	 {env, [
+	  ]}
+]}.
diff --git a/src/osmo_sccp.erl b/src/osmo_sccp.erl
new file mode 100644
index 0000000..39791c6
--- /dev/null
+++ b/src/osmo_sccp.erl
@@ -0,0 +1,14 @@
+
+-module(osmo_sccp).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+
+-export([start/0, stop/0]).
+
+
+start() ->
+	application:start(tcap).
+
+stop() ->
+	application:stop(tcap).
+
diff --git a/src/osmo_sccp_app.erl b/src/osmo_sccp_app.erl
new file mode 100644
index 0000000..27056c1
--- /dev/null
+++ b/src/osmo_sccp_app.erl
@@ -0,0 +1,31 @@
+-module(osmo_sccp_app).
+-behaviour(application).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+% application behaviour callbacks
+-export([start/2, start_phase/3, prep_stop/1, stop/1, config_change/3]).
+
+-export([reload_config/0]).
+
+start(normal, StartArgs) ->
+	supervisor:start_link({local, osmo_sccp_sup}, osmo_sccp_sup, StartArgs).
+
+
+start_phase(_Phase, _StartType, _PhaseArgs) ->
+	ok.
+
+prep_stop(State) ->
+	State.
+
+stop(_State) ->
+	ok.
+
+config_change(_Changed, _New, _Removed) ->
+	ok.
+
+
+
+reload_config() ->
+	osmo_util:reload_config(),
+	% FIXME: do something
+	ok.
diff --git a/src/osmo_sccp_sup.erl b/src/osmo_sccp_sup.erl
new file mode 100644
index 0000000..b327478
--- /dev/null
+++ b/src/osmo_sccp_sup.erl
@@ -0,0 +1,51 @@
+% OTP Supervisor for Osmocom SCCP
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(osmo_sccp_sup).
+-behavior(supervisor).
+
+-export([start_link/0]).
+-export([init/1]).
+
+-include("osmo_sccp.hrl").
+
+start_link() ->
+	supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+init(Args) ->
+	ScrcChild = {sccp_scrc, {sccp_scrc, start_link, [Args]},
+		     permanent, 2000, worker, [sccp_scrc, sccp_codec]},
+	ScrcChild = {sccp_sclc, {sccp_sclc, start_link, [Args]},
+		     permanent, 2000, worker, [sccp_sclc, sccp_codec]},
+	{ok,{{one_for_one,60,600}, [ScrcChild|SclcChild]}}.
+
+% Add a m3ua link to this supervisor
+add_mtp_link(#sigtran_link{type = m3ua, name = Name,
+			   local = Local, remote = Remote}) ->
+	ChildName = list_to_atom("sccp_link_m3ua_" ++ Name),
+	ChildSpec = {ChildName, {sccp_link_m3ua, start_link, [Args]},
+		     permanent, infinity, worker, [sccp_link_m3ua]},
+	supervisor:start_child(?MODULE, ChildSpec);
+add_mtp_link([]) ->
+	ok;
+add_mtp_link([Head|Tail]) ->
+	add_mtp_link(Head, Tail).
+add_mtp_link(Head, Tail) ->
+	{ok, _Child} = add_mtp_link(Head),
+	add_mtp_link(Tail).