From 4646c9a35619408bc23852e3bc9fd1067d94f236 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 24 Oct 2015 16:05:34 +0200 Subject: Whitespace --- mess_server.erl | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'mess_server.erl') diff --git a/mess_server.erl b/mess_server.erl index 3a25a98..98afb52 100644 --- a/mess_server.erl +++ b/mess_server.erl @@ -1,7 +1,9 @@ %%% This is the server process of the messenger service -module(mess_server). + -export([server_start/0, server/0]). + -include("mess_interface.hrl"). server() -> @@ -12,13 +14,13 @@ server() -> server(User_List) -> io:format("User list = ~p~n", [User_List]), receive - #logon{client_pid=From, username=Name} -> + #logon{client_pid = From, username = Name} -> New_User_List = server_logon(From, Name, User_List), server(New_User_List); {'EXIT', From, _} -> New_User_List = server_logoff(From, User_List), server(New_User_List); - #message{client_pid=From, to_name=ToName, message=Message} -> + #message{client_pid = From, to_name = ToName, message = Message} -> server_transfer(From, ToName, Message, User_List), server(User_List) end. @@ -32,10 +34,10 @@ server_logon(From, Name, User_List) -> %% check if logged on anyone else case lists:keymember(Name, 2, User_List) of true -> - From ! #abort_client{message=user_exists_at_other_node}, + From ! #abort_client{message = user_exists_at_other_node}, User_List; false -> - From ! #server_reply{message=logged_on}, + From ! #server_reply{message = logged_on}, link(From), [{From, Name} | User_List] % add user to the list end. @@ -49,7 +51,7 @@ server_transfer(From, To, Message, User_List) -> %% check that the user is logged on and who he is case lists:keysearch(From, 1, User_List) of false -> - From ! #abort_client{message=you_are_not_logged_on}; + From ! #abort_client{message = you_are_not_logged_on}; {value, {_, Name}} -> server_transfer(From, Name, To, Message, User_List) end. @@ -58,8 +60,8 @@ server_transfer(From, To, Message, User_List) -> server_transfer(From, Name, To, Message, User_List) -> case lists:keysearch(To, 2, User_List) of false -> - From ! #server_reply{message=receiver_not_found}; + From ! #server_reply{message = receiver_not_found}; {value, {ToPid, To}} -> - ToPid ! #message_from{from_name=Name, message=Message}, - From ! #server_reply{message=sent} + ToPid ! #message_from{from_name = Name, message = Message}, + From ! #server_reply{message = sent} end. -- cgit v1.2.3