Merge pull request #854 from shishirpy/master

Erlang "hw*" example to chumak

examples/Erlang/hwclient.erl

@@ -0,0 +1,21 @@
+-module(hwclient).
+-export([main/0]).
+
+%%
+%% "Hello world" client example.
+%% Connects to tcp://localhost:5555
+%% Sends <<"Hello">> to server and prints the response
+%%
+
+main() ->
+    application:start(chumak),
+    {ok, Socket} = chumak:socket(req, "my-req"),
+    {ok, Pid} = chumak:connect(Socket, tcp, "localhost", 5555),
+    loop(Socket).
+
+
+loop(Socket) ->
+    chumak:send(Socket, "Hello"),
+    {ok, RecvMessage} = chumak:recv(Socket),
+    io:format("Recv Reply: ~p\n", [RecvMessage]),
+    loop(Socket).

examples/Erlang/hwserver.erl

@@ -0,0 +1,20 @@
+-module(hwserver).
+-export([main/0]).
+
+%% Starts a local hello server.
+%% Binds to tcp://localhost:5555
+
+main() ->
+    application:start(chumak),
+    {ok, Socket} = chumak:socket(rep, "my-rep"),
+    {ok, Pid} = chumak:bind(Socket, tcp, "localhost", 5555),
+    loop(Socket).
+
+loop(Socket) ->
+    {ok, RecvMessage} = chumak:recv(Socket),
+    io:format("Received request : ~p\n", [RecvMessage]),
+
+    timer:sleep(1000),
+
+    chumak:send(Socket, "World"),
+    loop(Socket).