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 gen_safe.erl
Raw

src/gen_safe.erl 

-module(gen_safe).

-include_lib("stdlib/include/qlc.hrl").

-export([call/3, call/4, cast/3]).

-export([subscribe/1, unsubscribe/1, subscriptions/1, subscriptions/2]).



call(Id, _PidF, Msg) when is_pid(Id) -> gen_server:call(Id, Msg);

call(Id, PidF, Msg) ->

	case PidF(Id) of

		undefined -> {error, no_pid, Id};

		Pid -> gen_server:call(Pid, Msg)

	end.



call(Id, _PidF, Msg, Timeout) when is_pid(Id) -> gen_server:call(Id, Msg, Timeout);

call(Id, PidF, Msg, Timeout) ->

	case PidF(Id) of

		undefined -> {error, no_pid, Id};

		Pid -> gen_server:call(Pid, Msg, Timeout)

	end.



cast(Id, _Pid, Msg) when is_pid(Id) -> gen_server:cast(Id, Msg);

cast(Id, PidF, Msg) ->

	case PidF(Id) of

		undefined -> {error, no_pid, Id};

		Pid -> gen_server:cast(Pid, Msg)

	end.



% allow multiple calls to subscribe from the same pid



subscribe(K) ->

	case subscriptions(K, self()) of

		[] -> gproc:reg({p, l, K}, subscribe);

		_ -> skip

	end.



unsubscribe(K) ->

	Self = self(),

	case subscriptions(K, Self) of

		[Self] -> gproc:unreg({p, l, K});

		_ -> skip

	end.



subscriptions(K) ->

	Q = qlc:q([ Pid || {{p, l, Ks}, Pid, subscribe} <- gproc:table({l, p}), Ks =:= K ]),

	qlc:e(Q).



subscriptions(K, P) ->

	Q = qlc:q([ Pid || {{p, l, Ks}, Pid, subscribe} <- gproc:table({l, p}), Ks =:= K, Pid =:= P ]),

	qlc:e(Q).