erlang 프로그래밍 템플릿

ctemplate.erl

-module(ctemplate).
-compile(export_all).

start() ->
  spawn(fun() -> loop([]) end).

loop(X) ->
  receive
    Any ->
      io:format("Received: ~p~n", [Any]),
      loop(X)
  end.

rpc(Pid, Request) ->
  Pid ! {self(), Request},
  receive
    {Pid, Response} -> 
      Response
  end.

kvs.erl

-module(kvs).
-export([start/0, store/2, lookup/1]).

start() -> register(kvs, spawn(fun() -> loop() end)).

store(Key, Value) -> rpc({store, Key, Value}).

lookup(Key) -> rpc({lookup, Key}).

rpc(Q) ->
  kvs ! {self(), Q},
  receive
    {kvs, Reply} ->
      Reply
  end.

loop() ->
  receive
    {From, {store, Key, Value}} ->
      put(Key, {ok, Value}),
      From ! {kvs, true},
      loop();
    {From, {lookup, Key}} ->
      From ! {kvs, get(Key)},
      loop()
  end.