From ca7a0bfa5dd63fc45df0a46800a76d7048e70f2b Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Thu, 17 Jun 2010 02:23:53 +0200
Subject: Started writing GUI

---
 core/ephraim_conv.erl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 core/ephraim_conv.erl

(limited to 'core/ephraim_conv.erl')

diff --git a/core/ephraim_conv.erl b/core/ephraim_conv.erl
new file mode 100644
index 0000000..99c7668
--- /dev/null
+++ b/core/ephraim_conv.erl
@@ -0,0 +1,23 @@
+-module(ephraim_conv).
+-compile([debug_info, export_all]).
+
+-record(conv_state, {
+	  jid :: exmpp_jid:jid()
+	 }).
+
+-spec init(exmpp_jid:jid()) -> ok.
+init(JID) ->
+    loop(#conv_state{jid=JID}).
+
+-spec loop(#conv_state{}) -> ok.
+loop(State) ->
+    receive
+        stop ->
+	    ok;
+	{receive_message, Packet} ->
+	    io:format("Received packet from ~p: ~p~n", [State#conv_state.jid, Packet]),
+	    loop(State);
+	Msg ->
+	    io:format("ephraim_conv (~p): ~p~n", [State#conv_state.jid, Msg]),
+	    loop(State)
+    end.
-- 
cgit v1.2.3