Erlang/OTP Forums

%%% File    : entity.erl
%%% Author  : michal <michalzajda@gmail.com>
%%% Description : spawns and registers receive block
%%% Created :  2 Mar 2010 by michal <michalzajda@nixon>

-module(entity).

-export([start/0,something/1]).

start() ->
    Pid = spawn(?MODULE, something, [lists:seq(1,10)]),
    register(something, Pid).

something(Args) ->
    receive
        stop ->
            io:format("stop~n"),
            exit(normal);
        {exec, Fun} ->
            Result = Fun(Args),
            io:format("executed incoming fun: ~p~n", [Result]),
            something(Result);
        Message ->
            io:format("get a message ~p~n", [Message]),
            something(Args)
    end.

erl -sname node1 -pa ebin

Eshell V5.6.5  (abort with ^G)
(node1@nixon)1> entity:start().
true
(node1@nixon)2> net_kernel:connect(node0@nixon).
true
(node1@nixon)3> {something, node0@nixon} ! {exec, fun(List) -> [2*X||X<-List] end}.
{exec,#Fun<erl_eval.6.13229925>}

(node0@nixon)3> entity:start().
true
executed incoming fun: [2,4,6,8,10,12,14,16,18,20]

-module(aserver).
-export([start/0]).
start() ->
   register(funcy,self()),
   io:format("Started! ~n", []),
   receive
      {Pid} ->
         io:format("Client Requested! ~n", []),
         io:format("connect! ~w ~n", [net_kernel:connect(node0@UniversityUser)]),
         Pid ! {exec,fun(B)->B+1 end}
   end.

-module(aclient).
-export([start2/0]).
start2() ->
   {funcy, node1@UniversityUser} ! {self()},
   receive
      {exec, F} ->
         io:format("Server responded! ~w  ~n", [F]),
         A = F(4),
         io:format("Answer: ~w  ~n", [A])
   end.