IRC程序学习

 

%%聊天的中转站，将{chan,MM,Msg}形式的信息转化为 {mm, MM, Msg}形式

-module(mod_chat_controller).

-export([start/3]).

-import(lib_chan_mm, [send/2]).



start(MM, _, _) ->

    process_flag(trap_exit, true),

    io:format("mod_chat_controller off we go ...~p~n",[MM]),

    loop(MM).



loop(MM) ->

     receive

     {chan, MM, Msg} ->

         chat_server ! {mm, MM, Msg},

         loop(MM);

     {'EXIT', MM, _Why} ->

         chat_server ! {mm_closed, MM};

     Other ->

         io:format("mod_chat_controller unexpected message =~p (MM=~p)~n",

               [Other, MM]),

         loop(MM)

    end.

mod_chat_controller

 

%%聊天服务器

-module(chat_server).

-import(lib_chan_mm, [send/2, controller/2]).

-import(lists, [delete/2, foreach/2, map/2, member/2,reverse/2]).



-compile(export_all).



%%用chat.conf的配置启动服务器，每个连接到服务器的socket将调用mod_chat_controller模块的start函数

%%{port, 2223}.

%%{service, chat, password,"AsDT67aQ",mfa,mod_chat_controller,start,[]}.

start() ->

    start_server(),

    lib_chan:start_server("D:\\code\\erlcode\\socket_dist\\chat.conf").



start_server() ->

    register(chat_server, 

         spawn(fun() ->

               process_flag(trap_exit, true),

               Val= (catch server_loop([])),

               io:format("Server terminated with:~p~n",[Val])

           end)).





%%新启的进程，注册为chat_server,用来接收客户端用户的登录消息，当收到某一群组的登录信息时，如果该群组已经存在则传消息给该群组，如果不在则创建群组

server_loop(L) ->

    receive

    {mm, Channel, {login, Group, Nick}} ->

        case lookup(Group, L) of

        {ok, Pid} ->

            Pid ! {login, Channel, Nick},

            server_loop(L);

        error ->

            Pid = spawn_link(fun() ->

                         chat_group:start(Channel, Nick) 

                     end),

            server_loop([{Group,Pid}|L])

        end;

    {mm_closed, _} ->

        server_loop(L); 

    {'EXIT', Pid, allGone} ->

        L1 = remove_group(Pid, L),

        server_loop(L1);

    Msg ->

        io:format("Server received Msg=~p~n",

              [Msg]),

        server_loop(L)

    end.







lookup(G, [{G,Pid}|_]) -> {ok, Pid};

lookup(G, [_|T])       -> lookup(G, T);

lookup(_,[])           -> error.



remove_group(Pid, [{G,Pid}|T]) -> io:format("~p removed~n",[G]), T;

remove_group(Pid, [H|T])       -> [H|remove_group(Pid, T)];

remove_group(_, [])            -> [].

chat_server

 

%%聊天群组，包含各个连接进该群组的进程id

-module(chat_group).

-import(lib_chan_mm, [send/2, controller/2]).

-import(lists, [foreach/2, reverse/2]).



-export([start/2]).



start(C, Nick) ->

    process_flag(trap_exit, true),

    controller(C, self()),

    send(C, ack),

    self() ! {chan, C, {relay, Nick, "I'm starting the group"}},

    group_controller([{C,Nick}]).







delete(Pid, [{Pid,Nick}|T], L) -> {Nick, reverse(T, L)};

delete(Pid, [H|T], L)          -> delete(Pid, T, [H|L]);

delete(_, [], L)               -> {"????", L}.







group_controller([]) ->

    exit(allGone);

group_controller(L) ->

    receive

    {chan, C, {relay, Nick, Str}} ->

        foreach(fun({Pid,_}) -> send(Pid, {msg,Nick,C,Str}) end, L),

        group_controller(L);

    {login, C, Nick} ->

        controller(C, self()),

        send(C, ack),

        self() ! {chan, C, {relay, Nick, "I'm joining the group"}},

        group_controller([{C,Nick}|L]);

    {chan_closed, C} ->

        {Nick, L1} = delete(C, L, []),

        self() ! {chan, C, {relay, Nick, "I'm leaving the group"}},

        group_controller(L1);

    Any ->

        io:format("group controller received Msg=~p~n", [Any]),

        group_controller(L)

    end.

chat_group

 

-module(chat_client).



-import(io_widget, 

    [get_state/1, insert_str/2, set_prompt/2, set_state/2, 

     set_title/2, set_handler/2, update_state/3]).



-export([start/0, test/0, connect/5]).





start() -> 

    connect("localhost", 2223, "AsDT67aQ", "general", "joe").





test() ->

    connect("localhost", 2223, "AsDT67aQ", "general", "joe"),

    connect("localhost", 2223, "AsDT67aQ", "general", "jane"),

    connect("localhost", 2223, "AsDT67aQ", "general", "jim"),

    connect("localhost", 2223, "AsDT67aQ", "general", "sue").

       



connect(Host, Port, HostPsw, Group, Nick) ->

    spawn(fun() -> handler(Host, Port, HostPsw, Group, Nick) end).

                 

handler(Host, Port, HostPsw, Group, Nick) ->

    process_flag(trap_exit, true),

    Widget = io_widget:start(self()),

    set_title(Widget, Nick),

    set_state(Widget, Nick),

    set_prompt(Widget, [Nick, " > "]),

    set_handler(Widget, fun parse_command/1),

    start_connector(Host, Port, HostPsw),    

    disconnected(Widget, Group, Nick).





%%接收服务器的连接反馈信息，连接上后进行登录

disconnected(Widget, Group, Nick) ->

    receive

    {connected, MM} ->

        insert_str(Widget, "connected to server\nsending data\n"),

        lib_chan_mm:send(MM, {login, Group, Nick}),

        wait_login_response(Widget, MM);

    {Widget, destroyed} ->

        exit(died);

    {status, S} ->

        insert_str(Widget, to_str(S)),

        disconnected(Widget, Group, Nick);

    Other ->

        io:format("chat_client disconnected unexpected:~p~n",[Other]),

        disconnected(Widget, Group, Nick)

    end.





%%接收服务器的登录反馈信息

wait_login_response(Widget, MM) ->

    receive

    {chan, MM, ack} ->

        active(Widget, MM);

    Other ->

        io:format("chat_client login unexpected:~p~n",[Other]),

        wait_login_response(Widget, MM)

    end. 





%%登录后获取客户端的反馈，并接受传到客户端的信息

active(Widget, MM) ->

     receive

     {Widget, Nick, Str} ->

         lib_chan_mm:send(MM, {relay, Nick, Str}),

         active(Widget, MM);

     {chan, MM, {msg, From, Pid, Str}} ->

         insert_str(Widget, [From,"@",pid_to_list(Pid)," ", Str, "\n"]),

         active(Widget, MM);

     {'EXIT',Widget,windowDestroyed} ->

         lib_chan_mm:close(MM);

     {close, MM} ->

         exit(serverDied);

     Other ->

         io:format("chat_client active unexpected:~p~n",[Other]),

         active(Widget, MM)

     end. 





%%链接chat服务器

start_connector(Host, Port, Pwd) ->

    S = self(),

    spawn_link(fun() -> try_to_connect(S, Host, Port, Pwd) end).

    

try_to_connect(Parent, Host, Port, Pwd) ->

    %% Parent is the Pid of the process that spawned this process

    case lib_chan:connect(Host, Port, chat, Pwd, []) of

    {error, _Why} ->

        Parent ! {status, {cannot, connect, Host, Port}},

        sleep(2000),

        try_to_connect(Parent, Host, Port, Pwd);

    {ok, MM} ->

        lib_chan_mm:controller(MM, Parent),

        Parent ! {connected, MM},

        exit(connectorFinished)

    end.





sleep(T) ->

    receive

    after T -> true

    end.

        

to_str(Term) ->

    io_lib:format("~p~n",[Term]).



parse_command(Str) -> skip_to_gt(Str).



skip_to_gt(">" ++ T) -> T;

skip_to_gt([_|T])    -> skip_to_gt(T);

skip_to_gt([])       -> exit("no >").

chat_client

 

-module(io_widget).



-export([get_state/1,

     start/1, test/0, 

     set_handler/2, 

     set_prompt/2,

     set_state/2,

     set_title/2, insert_str/2, update_state/3]).



start(Pid) ->

    gs:start(),

    spawn_link(fun() -> widget(Pid) end).



get_state(Pid)          -> rpc(Pid, get_state).

set_title(Pid, Str)     -> Pid ! {title, Str}.

set_handler(Pid, Fun)   -> Pid ! {handler, Fun}.

set_prompt(Pid, Str)    -> Pid ! {prompt, Str}.

set_state(Pid, State)   -> Pid ! {state, State}.

insert_str(Pid, Str)    -> Pid ! {insert, Str}.

update_state(Pid, N, X) -> Pid ! {updateState, N, X}. 



rpc(Pid, Q) ->    

    Pid ! {self(), Q},

    receive

    {Pid, R} ->

        R

    end.



widget(Pid) ->

    Size = [{width,500},{height,200}],

    Win = gs:window(gs:start(),

            [{map,true},{configure,true},{title,"window"}|Size]),

    gs:frame(packer, Win,[{packer_x, [{stretch,1,500}]},

              {packer_y, [{stretch,10,100,120},

                      {stretch,1,15,15}]}]),

    gs:create(editor,editor,packer, [{pack_x,1},{pack_y,1},{vscroll,right}]),

    gs:create(entry, entry, packer, [{pack_x,1},{pack_y,2},{keypress,true}]),

    gs:config(packer, Size),

    Prompt = " > ",

    State = nil,

    gs:config(entry, {insert,{0,Prompt}}),

    loop(Win, Pid, Prompt, State, fun parse/1). 



loop(Win, Pid, Prompt, State, Parse) ->   

    receive

    {From, get_state} ->

        From ! {self(), State},

        loop(Win, Pid, Prompt, State, Parse);

    {handler, Fun} ->

        loop(Win, Pid, Prompt, State, Fun);

    {prompt, Str} ->

        %% this clobbers the line being input ...

        %% this could be fixed - hint

        gs:config(entry, {delete,{0,last}}),

        gs:config(entry, {insert,{0,Str}}),

        loop(Win, Pid, Str, State, Parse);

    {state, S} ->

        loop(Win, Pid, Prompt, S, Parse);

    {title, Str} ->

        gs:config(Win, [{title, Str}]),

        loop(Win, Pid, Prompt, State, Parse);

    {insert, Str} ->

        gs:config(editor, {insert,{'end',Str}}),

        scroll_to_show_last_line(),

        loop(Win, Pid, Prompt, State, Parse);

    {updateState, N, X} ->

        io:format("setelemtn N=~p X=~p State=~p~n",[N,X,State]),

        State1 = setelement(N, State, X),

        loop(Win, Pid, Prompt, State1, Parse);

    {gs,_,destroy,_,_} ->

        io:format("Destroyed~n",[]),

        exit(windowDestroyed);

    {gs, entry,keypress,_,['Return'|_]} ->

        Text = gs:read(entry, text),

        io:format("io_widget:input text:~p~n",[Text]),

          io:format("io_widget:send text to pid:~p~n",[Pid]),

        gs:config(entry, {delete,{0,last}}),

        gs:config(entry, {insert,{0,Prompt}}),

        try Parse(Text) of

        Term ->

            Pid ! {self(), State, Term}

        catch

        _:_ ->

            self() ! {insert, "** bad input**\n** /h for help\n"}

        end,

        loop(Win, Pid, Prompt, State, Parse);

    {gs,_,configure,[],[W,H,_,_]} ->

        gs:config(packer, [{width,W},{height,H}]),

        loop(Win, Pid, Prompt, State, Parse);

    {gs, entry,keypress,_,_} ->

        loop(Win, Pid, Prompt, State, Parse);

    Any ->

        io:format("Discarded:~p~n",[Any]),

        loop(Win, Pid, Prompt, State, Parse)

    end.



scroll_to_show_last_line() ->

    Size       = gs:read(editor, size),

    Height     = gs:read(editor, height),

    CharHeight = gs:read(editor, char_height),

    TopRow     = Size - Height/CharHeight,

    if  TopRow > 0 -> gs:config(editor, {vscrollpos, TopRow});

    true       -> gs:config(editor, {vscrollpos, 0})

    end.



test() ->

    spawn(fun() -> test1() end).



test1() ->

    W = io_widget:start(self()),

    io_widget:set_title(W, "Test window"),

    loop(W).



loop(W) ->

    receive

    {W, {str, Str}} ->

        Str1 = Str ++ "\n",

        io_widget:insert_str(W, Str1),

        loop(W)

    end.



parse(Str) ->

    {str, Str}.

io_widget