aboutsummaryrefslogtreecommitdiff
path: root/lib/octonetcat/servers/echo.ex
diff options
context:
space:
mode:
Diffstat (limited to 'lib/octonetcat/servers/echo.ex')
-rw-r--r--lib/octonetcat/servers/echo.ex25
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/octonetcat/servers/echo.ex b/lib/octonetcat/servers/echo.ex
new file mode 100644
index 0000000..0d7487f
--- /dev/null
+++ b/lib/octonetcat/servers/echo.ex
@@ -0,0 +1,25 @@
+defmodule Octonetcat.Echo do
+ @moduledoc """
+ Echo TCP Socket Server
+
+ Started under a task supervisor, lives for the life of the socket,
+ dies on failure or disconnect.
+ """
+
+ def serve(socket) do
+ socket
+ |> read_line!()
+ |> write_line!(socket)
+
+ serve(socket)
+ end
+
+ def read_line!(socket) do
+ {:ok, line} = :gen_tcp.recv(socket, 0)
+ line
+ end
+
+ def write_line!(line, socket) do
+ :gen_tcp.send(socket, line)
+ end
+ end