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