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

handle non-tuple return value of TupleCB

This commit is contained in:
Tobias Engel 2013-06-13 11:16:57 +02:00
parent ef770471dc
commit d49aa21366
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/osmo_util.erl
View File

@ -107,10 +107,15 @@ tuple_walk(Tpl, TupleCb, Args) when is_tuple(Tpl), is_function(TupleCb),
tuple_walk(Path, Tpl, TupleCb, Args) when is_list(Path), is_tuple(Tpl),
is_list(Args) ->
% call Callback
NewTpl = TupleCb(Path, Tpl, Args),
[TplName|TplList] = tuple_to_list(NewTpl),
NewTplList = tuple_fieldlist_walk(Path, TplName, TplList, TupleCb, Args),
list_to_tuple([TplName|NewTplList]);
RetVal = TupleCb(Path, Tpl, Args),
if
is_tuple(RetVal) ->
[TplName|TplList] = tuple_to_list(RetVal),
NewTplList = tuple_fieldlist_walk(Path, TplName, TplList, TupleCb, Args),
list_to_tuple([TplName|NewTplList]);
true ->
RetVal
end;
tuple_walk(Path, TplL, TupleCb, Args) when is_list(Path), is_list(TplL),
is_list(Args) ->
tuple_walk_list(Path, TplL, TupleCb, Args, []).