erlang/translate_service.erl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

-module(translate_service).
-export([loop/0, translate/2]).

loop() ->
	receive
		die -> exit({translator,died,violently,at,erlang:time()});
		{From, "casa"} ->
			From ! "house",
			loop();
		{From, "blanca"} ->
			From ! "white",
			loop();
		{From, _} ->
			From ! "I don't understand.",
			loop()
	end.

translate(To, Word) ->
	To ! {self(), Word},
	receive
		Translation -> Translation
	end.