gistfile1.hrl

-module(chat).

-compile(export_all).

start() ->
  Pid = spawn(fun loop/0),
  register(chatroom, Pid),
  Pid.

loop() ->
  loop([]).
loop(State) ->
  io:format("LOOOOOP~n"),
  receive
    pid ->
      io:format("Pid ~p~n", [self()]),
      loop(State);
    {join, Pid} ->
      io:format("Join~n"),
      loop([Pid|State]);
    {say, _FromPid, Msg} ->
      io:format("Say~n"),
      say(Msg, State),
      loop(State);
    {rec, FromPid, Msg} ->
      io:format("Rec~n"),
      io:format("Pid: ~p said ~p~n", [FromPid, Msg]),
      loop(State);
    Other ->
      io:format("Receive something else: ~p~n", [Other]),
      loop(State)
  end.


say(_Msg, []) -> ok;
say(Msg, [Pid|T]) ->
  io:format("Saying to ~p~n", [Pid]),
  Pid ! {rec, self(), Msg},
  say(Msg, T).