talk.erl

-module(talk).
-compile(export_all).

%% call talk:start() to start the program
start() ->
    Node = chomp(io:get_line('Which node do you want to talk to?')),
	
    %%Registered process where all the magic happens:
    register(me, 	spawn(?MODULE, 		receiving, 	[])),
    register(them, 	spawn(?MODULE, 		sending, 	[list_to_atom(Node)])),
	
    loop().

chomp(Data) ->
    string:strip(Data, both, $\n).
	
loop() ->
    Message = chomp(io:get_line('>>_')),   
	them ! {send, Message},
	loop().
	
sending(ReceivingNode) ->
    receive
        {send, Message} ->
            rpc:call(ReceivingNode, talk, talk, [Message]),			
            sending(ReceivingNode)
    end.
	
talk(Message) ->
    me ! {message, Message}.
	
receiving() ->
    receive
        {message, Message} ->
            io:format("<<~s~n", [Message]),
            receiving()
    end.