X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=life%2F001%2Fsrc%2Flife_lib.erl;fp=life%2F001%2Fsrc%2Flife_lib.erl;h=3b26b0824fe9bf5b8ab2f78cfdfd3e926fb80c9b;hb=8d06c463b83b79e046250fbe60e5429f182e3a7a;hp=0000000000000000000000000000000000000000;hpb=4eb3be32ce405e69f39573b5e38171764cd0d789;p=cellular-automata.git

diff --git a/life/001/src/life_lib.erl b/life/001/src/life_lib.erl
new file mode 100644
index 0000000..3b26b08
--- /dev/null
+++ b/life/001/src/life_lib.erl
@@ -0,0 +1,20 @@
+-module(life_lib).
+
+-export([cast_one2all/2
+        ,cast_all2one/2
+        ]).
+
+
+% Cast all messages to one destination
+cast_all2one(_, []) -> ok;
+cast_all2one(Server, [Msg | Msgs]) ->
+    ok = gen_server:cast(Server, Msg),
+    cast_all2one(Server, Msgs).
+
+
+% Cast one message to all destinations
+cast_one2all([], _) -> ok;
+cast_one2all([Server | Servers], Msg) ->
+    ok = gen_server:cast(Server, Msg),
+    cast_one2all(Servers, Msg).
+