From 0671f09eb9c44aae49bb438a19a1de3abd1c0202 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Thu, 17 Jun 2010 16:23:15 +0200
Subject: Improved interaction between core and GUI

---
 src/core/ephraim.erl       | 30 ++++++++++++++++++++----------
 src/core/ephraim_conv.erl  |  4 +++-
 src/ephraim                |  3 +++
 src/gui/CoreConnector.vala |  6 +++++-
 4 files changed, 31 insertions(+), 12 deletions(-)
 create mode 100755 src/ephraim

diff --git a/src/core/ephraim.erl b/src/core/ephraim.erl
index 6a68de0..7be93d2 100644
--- a/src/core/ephraim.erl
+++ b/src/core/ephraim.erl
@@ -4,7 +4,7 @@
 -record(state, {
 	  conn  :: pid(),
 	  convs :: dict(),
-	  guis  :: set()
+	  uis   :: set()
 	 }).
 
 -spec start() -> ok.
@@ -13,7 +13,8 @@ start() ->
     case register(ephraim, Pid) of
 	true ->
 	    ok
-    end.
+    end,
+    open_port({spawn_executable, "ephraim-gtk"}, [stream, use_stdio, out]).
 
 -spec stop() -> ok.
 stop() ->
@@ -23,11 +24,12 @@ stop() ->
 -spec init() -> ok.
 init() ->
     Conn = spawn(ephraim_conn, init, []),
-    loop(#state{conn=Conn,convs=dict:new(),guis=sets:new()}).
+    loop(#state{conn=Conn,convs=dict:new(),uis=sets:new()}),
+    init:stop().
 
 -spec get_conv(#state{},exmpp_jid:jid()) -> {#state{},pid()}.
 get_conv(State, JID) ->
-    Key = exmpp_jid:to_lower(exmpp_jid:bare(JID)),
+    Key = exmpp_jid:to_lower(JID),
     case dict:find(Key, State#state.convs) of
 	{ok, Conv} ->
 	    {State, Conv};
@@ -44,13 +46,21 @@ loop(State) ->
 	    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)},
+	{register_ui, Pid} ->
+	    io:format("Registered UI ~p~n", [Pid]),
+	    UIs = State#state.uis,
+	    State2 = State#state{uis=sets:add_element(Pid,UIs)},
 	    loop(State2);
-	{unregister_gui, Pid} ->
-	    GUIs = State#state.guis,
-	    State2 = State#state{guis=sets:del_element(Pid,GUIs)},
+	{unregister_ui, Pid} ->
+	    io:format("Unregistered UI ~p~n", [Pid]),
+	    UIs = State#state.uis,
+	    State2 = State#state{uis=sets:del_element(Pid,UIs)},
+	    Size = sets:size(State2#state.uis),
+	    if Size =:= 0 ->
+		    self() ! stop;
+	       true ->
+		    ok
+	    end,
 	    loop(State2);
 	{receive_message, From, Packet} ->
 	    {State2, Conv} = get_conv(State, From),
diff --git a/src/core/ephraim_conv.erl b/src/core/ephraim_conv.erl
index 99c7668..00b2bc1 100644
--- a/src/core/ephraim_conv.erl
+++ b/src/core/ephraim_conv.erl
@@ -7,7 +7,9 @@
 
 -spec init(exmpp_jid:jid()) -> ok.
 init(JID) ->
-    loop(#conv_state{jid=JID}).
+    io:format("Starting a conversation with ~p~n", [JID]),
+    loop(#conv_state{jid=JID}),
+    io:format("Stopping a conversation with ~p~n", [JID]).
 
 -spec loop(#conv_state{}) -> ok.
 loop(State) ->
diff --git a/src/ephraim b/src/ephraim
new file mode 100755
index 0000000..5a6b8b8
--- /dev/null
+++ b/src/ephraim
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+erl -pa core -name ephraim-core@avalon.local -setcookie magiccookie -run ephraim
diff --git a/src/gui/CoreConnector.vala b/src/gui/CoreConnector.vala
index 08ed43f..9edbc7d 100644
--- a/src/gui/CoreConnector.vala
+++ b/src/gui/CoreConnector.vala
@@ -40,7 +40,9 @@ public class CoreConnector {
     Erl.Node node = Erl.Node("ephraim-gtk", "magiccookie", 0);
     Erl.Connection con = node.connect("ephraim-core@avalon.local");
     
-    con.reg_send("ephraim", Erl.mk_self_pid(node));
+    Erl.Term self = Erl.mk_self_pid(node);
+    
+    con.reg_send("ephraim", Erl.format("{register_ui,~w}", self));
     
     while(running) {
       TermStore response = new TermStore();
@@ -62,6 +64,8 @@ public class CoreConnector {
       }
     }
     
+    con.reg_send("ephraim", Erl.format("{unregister_ui,~w}", self));
+    
     return null;
   }
   
-- 
cgit v1.2.3