summaryrefslogtreecommitdiffstats
path: root/core/ephraim.erl
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2010-06-17 13:07:17 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2010-06-17 13:07:17 +0200
commitbdaae5b6704e29919ec7f284b9e3abe54f96f2f8 (patch)
tree75b3860a2cea86ec7e55d978730b13e41c8015da /core/ephraim.erl
parentca7a0bfa5dd63fc45df0a46800a76d7048e70f2b (diff)
downloadephraim-bdaae5b6704e29919ec7f284b9e3abe54f96f2f8.tar
ephraim-bdaae5b6704e29919ec7f284b9e3abe54f96f2f8.zip
Added CMake build system
Diffstat (limited to 'core/ephraim.erl')
-rw-r--r--core/ephraim.erl62
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.