erlang의 유니버설 서버 길 (1)

-module(server1).

%%% =================================================================
%%% API functions
%%% =================================================================
-export([start/2,
		 rpc/2]).



%%% =================================================================
%%% Internal functions
%%% =================================================================


start(Name,Mod) ->
	register(Name,spawn(fun()->loop(Name,Mod,Mod:init())end)).
rpc(Name,Request) ->
	Name ! {self(),Request},
	receive
		{Name,Response} ->Response
	end.
loop(Name,Mod,State)->
	receive
		{From,Request} ->
			{Response,State1} = Mod:handle(Request,State),
			From ! {Name,Response},
			loop(Name,Mod,State1)
	end.

-module(name_server).

%%% =================================================================
%%% API functions
%%% =================================================================
-export([init/0,add/2,find/1,handle/2]).
-import(server1,[rpc/2]).



%%% =================================================================
%%%  
%%% =================================================================


add(Name,Place) ->rpc(name_server,{add,Name,Place}).
find(Name)      ->rpc(name_server,{find,Name}).

%% 
init() ->dict:new().
handle({add,Name,Place},Dict)->{ok,dict:store(Name, Place, Dict)};
handle({find,Name},Dict) ->{dict:find(Name, Dict),Dict}.

([email protected])2> make:all().
Recompile: src/server1
Recompile: src/name_server
up_to_date
([email protected])3> server1:start(name_server,name_server).
true
([email protected])4> name_server:add(joe,"at home").
ok
([email protected])5> name_server:find(joe).
{ok,"at home"}
([email protected])6>