From 8880b7e585e4cc3281f278f2190070b157742b3b Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Wed, 12 Oct 2011 17:18:49 +0200
Subject: [PATCH] allow non-integer (tuple) point codes to be used in function
 arguments

---
 src/sccp_user.erl | 30 ++++++++++++++++++++++--------
 1 file changed, 22 insertions(+), 8 deletions(-)

diff --git a/src/sccp_user.erl b/src/sccp_user.erl
index 203f621..0795afb 100644
--- a/src/sccp_user.erl
+++ b/src/sccp_user.erl
@@ -56,14 +56,20 @@ init(_Arg) ->
 
 % client side code
 
-bind_ssn(Ssn, Pc) ->
-	gen_server:call(?MODULE, {bind_ssn, Ssn, Pc}).
+bind_ssn(Ssn, Pc) when is_integer(Ssn), is_integer(Pc) ->
+	gen_server:call(?MODULE, {bind_ssn, Ssn, Pc});
+bind_ssn(Ssn, Pc) when is_integer(Ssn), is_tuple(Pc) ->
+	PcInt = osmo_util:pointcode2int(Pc),
+	bind_ssn(Ssn, PcInt).
 
-unbind_ssn(Ssn, Pc) ->
-	gen_server:call(?MODULE, {unbind_ssn, Ssn, Pc}).
+unbind_ssn(Ssn, Pc) when is_integer(Pc) ->
+	gen_server:call(?MODULE, {unbind_ssn, Ssn, Pc});
+unbind_ssn(Ssn, Pc) when is_integer(Ssn), is_tuple(Pc) ->
+	PcInt = osmo_util:pointcode2int(Pc),
+	unbind_ssn(Ssn, PcInt).
 
 % determine the pid registered for a given {Ssn, PC}
-pid_for_ssn(Ssn, Pc) ->
+pid_for_ssn(Ssn, Pc) when is_integer(Ssn), is_integer(Pc) ->
 	% as this is only a read access, we read the ets table directly
 	% rather than going through call/2
 	case ets:lookup(sccp_user_tbl, {Ssn, Pc}) of
@@ -71,15 +77,23 @@ pid_for_ssn(Ssn, Pc) ->
 		{ok, UserPid};
 	    _ ->
 		{error, no_such_ssn}
-	end.
+	end;
+pid_for_ssn(Ssn, Pc) when is_integer(Ssn), is_tuple(Pc) ->
+	PcInt = osmo_util:pointcode2int(Pc),
+	pid_for_ssn(Ssn, PcInt).
 
-local_ssn_avail(Ssn, Pc) ->
+
+local_ssn_avail(Ssn, Pc) when is_integer(Ssn), is_integer(Pc) ->
 	case pid_for_ssn(Ssn, Pc) of
 	    {ok, UserPid} ->
 		true;
 	    _ ->
 		false
-	end.
+	end;
+local_ssn_avail(Ssn, Pc) when is_integer(Ssn), is_tuple(Pc) ->
+	PcInt = osmo_util:pointcode2int(Pc),
+	local_ssn_avail(Ssn, Pc).
+
 
 dump() ->
 	List = ets:tab2list(sccp_user_tbl),