aboutsummaryrefslogblamecommitdiffstats
path: root/lib/stdlib/test/stdlib_bench_SUITE_data/generic_server.erl
blob: 3707d00dee741bc0729c112de51bcf0f99630be3 (plain) (tree)
1
2
3
4
5
6
7
8
9
10









                                                             

                                                        


















                                                   
-module(generic_server).

-export([start/1, reply/2, stop/1]).

-export([handle_call/3, handle_cast/2, init/1, terminate/2]).

-behaviour(gen_server).

-define(GEN_SERVER, gen_server).

start([State|Opts]) ->
    {ok, Pid} = ?GEN_SERVER:start(?MODULE, State, Opts),
    Pid.

init(State) ->
    {ok, State}.

stop(P) ->
    ok = ?GEN_SERVER:stop(P).

reply(S, M) ->
    _M = ?GEN_SERVER:call(S, {reply, M}, infinity).

handle_call({reply, M}, _From, State) ->
    {reply, M, State}.

handle_cast(_Msg, State) ->
    {noreply, State}.

terminate(_Reason, _State) ->
    ok.