Merge branch 'master' of github.com:angbrav/CRDTDSS

SyncFree · Jan 21, 2014 · f943e8c · f943e8c
2 parents 10888c1 + 6e90e0b
commit f943e8c
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/apps/mfmn/src/mfmn_client.erl b/apps/mfmn/src/mfmn_client.erl
@@ -0,0 +1,24 @@
+-module(mfmn_client).
+
+-export([start/0,connect/1, createClient/1, addObject/2, checkClient/1]).
+
+start() ->
+   ets:new(servertable,[private, named_table, set]).
+
+createClient(ID) ->
+   [{_,Server}] = ets:lookup(servertable, server),
+   io:format("~w~n",[Server]),
+   rpc:call(Server, mfmn, new, [ID, mfmn_dt_gset]).
+
+addObject(ID, Elem) ->
+   [{_,Server}] = ets:lookup(servertable, server),
+   io:format("~w~n",[Server]),
+   rpc:call(Server, mfmn, add, [ID, Elem]).
+
+checkClient(ID) ->
+   [{_,Server}] = ets:lookup(servertable, server),
+   io:format("~w~n",[Server]),
+   rpc:call(Server, mfmn, value, [ID]).
+
+connect(Server) ->
+  ets:insert(servertable, {server, Server}).