diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2010-06-17 13:07:17 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2010-06-17 13:07:17 +0200 |
commit | bdaae5b6704e29919ec7f284b9e3abe54f96f2f8 (patch) | |
tree | 75b3860a2cea86ec7e55d978730b13e41c8015da /core/ephraim.erl | |
parent | ca7a0bfa5dd63fc45df0a46800a76d7048e70f2b (diff) | |
download | ephraim-bdaae5b6704e29919ec7f284b9e3abe54f96f2f8.tar ephraim-bdaae5b6704e29919ec7f284b9e3abe54f96f2f8.zip |
Added CMake build system
Diffstat (limited to 'core/ephraim.erl')
-rw-r--r-- | core/ephraim.erl | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/core/ephraim.erl b/core/ephraim.erl deleted file mode 100644 index 6a68de0..0000000 --- a/core/ephraim.erl +++ /dev/null @@ -1,62 +0,0 @@ --module(ephraim). --compile([debug_info, export_all]). - --record(state, { - conn :: pid(), - convs :: dict(), - guis :: set() - }). - --spec start() -> ok. -start() -> - Pid = spawn(?MODULE, init, []), - case register(ephraim, Pid) of - true -> - ok - end. - --spec stop() -> ok. -stop() -> - ephraim ! stop, - ok. - --spec init() -> ok. -init() -> - Conn = spawn(ephraim_conn, init, []), - loop(#state{conn=Conn,convs=dict:new(),guis=sets:new()}). - --spec get_conv(#state{},exmpp_jid:jid()) -> {#state{},pid()}. -get_conv(State, JID) -> - Key = exmpp_jid:to_lower(exmpp_jid:bare(JID)), - case dict:find(Key, State#state.convs) of - {ok, Conv} -> - {State, Conv}; - error -> - Conv = spawn(ephraim_conv, init, [Key]), - Dict = dict:store(Key, Conv, State#state.convs), - {State#state{convs=Dict}, Conv} - end. - --spec loop(#state{}) -> ok. -loop(State) -> - receive - stop -> - dict:fold(fun(_,Conv,Msg) -> Conv ! Msg end, stop, State#state.convs), - State#state.conn ! stop, - ok; - {register_gui, Pid} -> - GUIs = State#state.guis, - State2 = State#state{guis=sets:add_element(Pid,GUIs)}, - loop(State2); - {unregister_gui, Pid} -> - GUIs = State#state.guis, - State2 = State#state{guis=sets:del_element(Pid,GUIs)}, - loop(State2); - {receive_message, From, Packet} -> - {State2, Conv} = get_conv(State, From), - Conv ! {receive_message, Packet}, - loop(State2); - Msg -> - io:format("ephraim: ~p~n", [Msg]), - loop(State) - end. |