1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-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) ->
{ok, Pid} = ?GEN_SERVER:start(?MODULE, State, []),
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.
|
