Packages

fswitch

1.0.2
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).

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



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.



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

info(Id, PidF, Msg) ->

	case PidF(Id) of

		undefined -> {error, no_pid, Id};

		Pid -> Pid ! Msg

	end.