From 2b115c989d6afdf01c4bf7fa33112234f6ece00f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 28 Jan 2019 22:59:54 -0500
Subject: [PATCH] Initial example

---
 examples/networking/http-server.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 examples/networking/http-server.scm

diff --git a/examples/networking/http-server.scm b/examples/networking/http-server.scm
new file mode 100644
index 00000000..196c755a
--- /dev/null
+++ b/examples/networking/http-server.scm
@@ -0,0 +1,20 @@
+(import 
+  (scheme base) 
+  (scheme write) 
+  ; (srfi 18)
+  (srfi 106))
+
+(define *port* "8080")
+(define svr (make-server-socket *port*))
+
+(let* ((s (socket-accept svr))
+       (data (socket-recv s 2048)))
+  (display `("received: " ,(utf8->string data)))
+  (newline)
+  (socket-send s
+    (string->utf8
+      "HTTP/1.1 200 OK\nContent-Type: text/plain\nContent-Length: 12\n\nHello world!"))
+  (socket-close s))
+
+(socket-close svr)
+