From 95f5c51020dd51879300c729b4a87f1e9a09b021 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 3 Aug 2012 13:49:38 -0700
Subject: [PATCH] echo-server: adding a simple echo server.

---
 extra/echo-server/authors.txt        |  1 +
 extra/echo-server/echo-server.factor | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 extra/echo-server/authors.txt
 create mode 100644 extra/echo-server/echo-server.factor

diff --git a/extra/echo-server/authors.txt b/extra/echo-server/authors.txt
new file mode 100644
index 0000000000..e091bb8164
--- /dev/null
+++ b/extra/echo-server/authors.txt
@@ -0,0 +1 @@
+John Benediktsson
diff --git a/extra/echo-server/echo-server.factor b/extra/echo-server/echo-server.factor
new file mode 100644
index 0000000000..8764fbd6da
--- /dev/null
+++ b/extra/echo-server/echo-server.factor
@@ -0,0 +1,23 @@
+! Copyright (C) 2012 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license.
+
+USING: accessors kernel io io.encodings.ascii io.servers ;
+
+IN: echo-server
+
+: echo-loop ( -- )
+    readln [ write "\r\n" write flush echo-loop ] when* ;
+
+: <echo-server> ( port -- server )
+    ascii <threaded-server>
+        swap >>insecure
+        "echo.server" >>name
+        [ echo-loop ] >>handler ;
+
+: echod ( port -- server )
+    <echo-server> start-server ;
+
+: echod-main ( -- ) 1234 echod drop ;
+
+MAIN: echod-main
+