gistfile1.txt

start(ProcNum, MsgNum, Message) ->
    init(#state{num_procs=ProcNum, msg_num=MsgNum, msg=Message}).


%% first process
init(#state{proc_num=Proc, msg=Message}=State) when Proc == 1 ->
    Pid = spawn(ring, loop, [Proc]),
    Pid ! Message,
    init(State#state{proc_num=Proc+1, first_pid=Pid});
%% last process
init(#state{proc_num=Proc, num_procs=ProcNum, msg=Message, first_pid=FirstPid}) when Proc == ProcNum ->
    spawn(ring, loop, [Proc]),
    FirstPid ! Message;
init(#state{proc_num=Proc, msg=Message}=State) ->
    Pid = spawn(ring, loop, [Proc]),
    Pid ! Message,
    init(State#state{proc_num=Proc+1}).


%%%===================================================================
%%% Internal functions
%%%===================================================================
loop(Num) ->
    receive
        stop ->
            stop;
        Msg ->
            print(Num, Msg),
            loop(Num)
        %% _ ->
        %%     {error, invalid_message}
    end.


print(Num, Msg) ->
    lists:flatten(io_lib:format("Process: ~p recieved: ~p~n", [Num, Msg])).start(ProcNum, MsgNum, Message) ->