erlang
/
osmo_ss7
mirror of https://gerrit.osmocom.org/erlang/osmo_ss7
4
0
Fork 0
Code Issues Projects Releases Wiki Activity

isup_codec: add gen_party_number() helper

This commit is contained in:
Harald Welte 2013-06-24 07:59:52 +02:00
parent a0d2d96566
commit 049ee73509
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/isup_codec.erl
View File

@ -35,7 +35,8 @@
-author('Harald Welte <laforge@gnumonks.org>').
-include("isup.hrl").
-export([parse_isup_msg/1, encode_isup_msg/1, parse_isup_party/2, encode_isup_party/1]).
-export([parse_isup_msg/1, encode_isup_msg/1, parse_isup_party/2,
encode_isup_party/1, gen_party_number/3]).
-compile(export_all).
@ -485,3 +486,34 @@ encode_isup_msg(Msg = #isup_msg{msg_type = MsgType}) ->
HdrBin = encode_isup_hdr(Msg),
Remain = encode_isup_msgt(MsgType, Msg),
<<HdrBin/binary, Remain/binary>>.
listify(L) when is_list(L) ->
L;
listify(L) when is_integer(L) ->
osmo_util:int2digit_list(L).
encode_nature(international) ->
?ISUP_ADDR_NAT_INTERNATIONAL;
encode_nature(national) ->
?ISUP_ADDR_NAT_NATIONAL;
encode_nature(subscriber) ->
?ISUP_ADDR_NAT_SUBSCRIBER;
encode_nature(Int) when is_integer(Int) ->
Int.
encode_numplan(isdn) ->
1;
encode_numplan(telephony) ->
1;
encode_numplan(data) ->
3;
encode_numplan(telex) ->
4;
encode_numplan(Int) when is_integer(Int) ->
Int.
gen_party_number(NAI, NumPlan, Number) ->
#party_number{nature_of_addr_ind = encode_nature(NAI),
numbering_plan = encode_numplan(NumPlan),
phone_number = listify(Number)}.