From 91396e71e0eeef5483fc31e9086c1aadab7ebefa Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Sat, 18 Oct 2014 09:58:16 -0700 Subject: [PATCH] Adding hello example/test. --- test/hello.scm | 12 ++++++++++++ test/index.html | 13 +++++++++++++ 2 files changed, 25 insertions(+) create mode 100644 test/hello.scm create mode 100644 test/index.html diff --git a/test/hello.scm b/test/hello.scm new file mode 100644 index 0000000..8d73868 --- /dev/null +++ b/test/hello.scm @@ -0,0 +1,12 @@ +(import chicken scheme) +(use spiffy websockets) + +(handle-not-found + (lambda (path) + (when (string= path "/web-socket") + (with-websocket + (lambda () + (send-message (string-append "you said: " (receive-message)))))))) + +(root-path ".") +(start-server port: 8080) diff --git a/test/index.html b/test/index.html new file mode 100644 index 0000000..914f8b0 --- /dev/null +++ b/test/index.html @@ -0,0 +1,13 @@ + + + + +