From bfa353f8e75e06363bea565cc50f8de52090ae95 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Tue, 7 Aug 2012 14:03:19 +0200
Subject: Add a TCP Echo protocol example

---
 examples/tcp_echo/src/echo_protocol.erl | 21 +++++++++++++++++++++
 examples/tcp_echo/src/tcp_echo.app.src  | 15 +++++++++++++++
 examples/tcp_echo/src/tcp_echo.erl      | 12 ++++++++++++
 examples/tcp_echo/src/tcp_echo_app.erl  | 19 +++++++++++++++++++
 examples/tcp_echo/src/tcp_echo_sup.erl  | 22 ++++++++++++++++++++++
 5 files changed, 89 insertions(+)
 create mode 100644 examples/tcp_echo/src/echo_protocol.erl
 create mode 100644 examples/tcp_echo/src/tcp_echo.app.src
 create mode 100644 examples/tcp_echo/src/tcp_echo.erl
 create mode 100644 examples/tcp_echo/src/tcp_echo_app.erl
 create mode 100644 examples/tcp_echo/src/tcp_echo_sup.erl

(limited to 'examples/tcp_echo/src')

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.
diff --git a/examples/tcp_echo/src/tcp_echo.app.src b/examples/tcp_echo/src/tcp_echo.app.src
new file mode 100644
index 0000000..103fd56
--- /dev/null
+++ b/examples/tcp_echo/src/tcp_echo.app.src
@@ -0,0 +1,15 @@
+%% Feel free to use, reuse and abuse the code in this file.
+
+{application, tcp_echo, [
+	{description, "Ranch TCP Echo example."},
+	{vsn, "1"},
+	{modules, []},
+	{registered, []},
+	{applications, [
+		kernel,
+		stdlib,
+		ranch
+	]},
+	{mod, {tcp_echo_app, []}},
+	{env, []}
+]}.
diff --git a/examples/tcp_echo/src/tcp_echo.erl b/examples/tcp_echo/src/tcp_echo.erl
new file mode 100644
index 0000000..46d31da
--- /dev/null
+++ b/examples/tcp_echo/src/tcp_echo.erl
@@ -0,0 +1,12 @@
+%% Feel free to use, reuse and abuse the code in this file.
+
+-module(tcp_echo).
+
+%% API.
+-export([start/0]).
+
+%% API.
+
+start() ->
+	ok = application:start(ranch),
+	ok = application:start(tcp_echo).
diff --git a/examples/tcp_echo/src/tcp_echo_app.erl b/examples/tcp_echo/src/tcp_echo_app.erl
new file mode 100644
index 0000000..7fac685
--- /dev/null
+++ b/examples/tcp_echo/src/tcp_echo_app.erl
@@ -0,0 +1,19 @@
+%% Feel free to use, reuse and abuse the code in this file.
+
+%% @private
+-module(tcp_echo_app).
+-behaviour(application).
+
+%% API.
+-export([start/2]).
+-export([stop/1]).
+
+%% API.
+
+start(_Type, _Args) ->
+	{ok, _} = ranch:start_listener(tcp_echo, 1,
+		ranch_tcp, [{port, 5555}], echo_protocol, []),
+	tcp_echo_sup:start_link().
+
+stop(_State) ->
+	ok.
diff --git a/examples/tcp_echo/src/tcp_echo_sup.erl b/examples/tcp_echo/src/tcp_echo_sup.erl
new file mode 100644
index 0000000..8f33593
--- /dev/null
+++ b/examples/tcp_echo/src/tcp_echo_sup.erl
@@ -0,0 +1,22 @@
+%% Feel free to use, reuse and abuse the code in this file.
+
+%% @private
+-module(tcp_echo_sup).
+-behaviour(supervisor).
+
+%% API.
+-export([start_link/0]).
+
+%% supervisor.
+-export([init/1]).
+
+%% API.
+
+-spec start_link() -> {ok, pid()}.
+start_link() ->
+	supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%% supervisor.
+
+init([]) ->
+	{ok, {{one_for_one, 10, 10}, []}}.
-- 
cgit v1.2.3