aboutsummaryrefslogtreecommitdiffstats
path: root/examples/tcp_echo/src/echo_protocol.erl
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2012-08-07 14:03:19 +0200
committerLoïc Hoguin <[email protected]>2012-08-07 14:03:19 +0200
commitbfa353f8e75e06363bea565cc50f8de52090ae95 (patch)
tree317e014411ac24d55df598c3b35eb5f1ca35ce71 /examples/tcp_echo/src/echo_protocol.erl
parentb186d01367a1a744f6195e071611f97f9cc88f8e (diff)
downloadranch-bfa353f8e75e06363bea565cc50f8de52090ae95.tar.gz
ranch-bfa353f8e75e06363bea565cc50f8de52090ae95.tar.bz2
ranch-bfa353f8e75e06363bea565cc50f8de52090ae95.zip
Add a TCP Echo protocol example
Diffstat (limited to 'examples/tcp_echo/src/echo_protocol.erl')
-rw-r--r--examples/tcp_echo/src/echo_protocol.erl21
1 files changed, 21 insertions, 0 deletions
diff --git a/examples/tcp_echo/src/echo_protocol.erl b/examples/tcp_echo/src/echo_protocol.erl
new file mode 100644
index 0000000..b54e294
--- /dev/null
+++ b/examples/tcp_echo/src/echo_protocol.erl
@@ -0,0 +1,21 @@
+%% Feel free to use, reuse and abuse the code in this file.
+
+-module(echo_protocol).
+-export([start_link/4, init/4]).
+
+start_link(ListenerPid, Socket, Transport, Opts) ->
+ Pid = spawn_link(?MODULE, init, [ListenerPid, Socket, Transport, Opts]),
+ {ok, Pid}.
+
+init(ListenerPid, Socket, Transport, _Opts = []) ->
+ ok = ranch:accept_ack(ListenerPid),
+ loop(Socket, Transport).
+
+loop(Socket, Transport) ->
+ case Transport:recv(Socket, 0, 5000) of
+ {ok, Data} ->
+ Transport:send(Socket, Data),
+ loop(Socket, Transport);
+ _ ->
+ ok = Transport:close(Socket)
+ end.