ex3b.erl

ex3b.erl — Erlang source code, 329 bytes

Continguts del fitxer

-module(ex3b).
-export([proxy/3,bucle_proxy/2]).

proxy(N,Nom,Pid)->%N es la mida total
  B = spawn(ex3b,bucle_proxy,[Nom,Pid]),
  register(bot8,bots:nou(N,B)).

bucle_proxy(Nom,Pid)->
  receive
    {clicked,Pis} ->
	  Pid!{Nom,clicked,Pis},
	  bucle_proxy(Nom,Pid);
	
	abort ->
	  Pid!{Nom,abort},
	  ok
  end.