Packages

fswitch

1.2.8
1.4.1 1.4.0 1.3.6 1.3.5 1.3.4 1.3.2 1.3.1 1.3.0 1.2.14 1.2.13 1.2.12 1.2.11 1.2.10 1.2.9 1.2.8 1.2.7 1.2.6 1.2.5 1.2.4 1.2.3 1.2.2 1.2.1 1.2.0 1.1.7 1.1.6 1.1.5 1.1.4 1.1.3 1.1.2 1.1.1 1.1.0 1.0.4 1.0.3 1.0.2 1.0.1 1.0.0

FreeSWITCH Erlang interface

Current section

Files

Jump to
Readme
36 Versions
2 Dependencies
Dependants
Files
Activity
fswitch src util_core.erl
Raw

src/util_core.erl 

-module(util_core).

-export([match_maps/2, seconds_from/1, ns_from/1, ms_from/1, flatten/1, explode/1]).



flatten(M) -> lists:flatten(flatten([], M)).



flatten(Pk, M) when is_map(M) ->

	[ flatten(Pk++[K], V) || {K, V} <- maps:to_list(M) ];

flatten(K, V) ->

	{K, V}.



explode(L) -> lists:foldl(fun({K,V}, M) -> explode(K, V, M) end, #{}, L).

explode([K], V, M) -> M#{ K => V };

explode([K|Rest], V, M) -> M#{ K => explode(Rest, V, maps:get(K, M, #{})) }.



match_maps(_, undefined) -> false;

match_maps(Inner, Outer) ->

	L = flatten(Inner) -- flatten(Outer),

	case erlang:length(L) of

		0 -> true;

		_N -> false

	end.



seconds_from(Ts) ->

	erlang:convert_time_unit(erlang:monotonic_time() - Ts, native, second).



ms_from(Ts) ->

	erlang:convert_time_unit(erlang:monotonic_time() - Ts, native, millisecond).



ns_from(Ts) ->

	erlang:convert_time_unit(erlang:monotonic_time() - Ts, native, microsecond).