From 366264fbabf29251ce3d7e7155ec29f055f7c1a2 Mon Sep 17 00:00:00 2001 From: "Paul R. Tagliamonte" Date: Wed, 27 Mar 2013 20:09:42 -0400 Subject: [PATCH] Toying with gevent --- eg/gevent/sockets/socket-server.hy | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 eg/gevent/sockets/socket-server.hy diff --git a/eg/gevent/sockets/socket-server.hy b/eg/gevent/sockets/socket-server.hy new file mode 100644 index 0000000..0ac9de5 --- /dev/null +++ b/eg/gevent/sockets/socket-server.hy @@ -0,0 +1,11 @@ + +(import-from gevent.server StreamServer) + +(defn handle [socket address] + (.send socket "Hello from Lisp!\n") + (for [x (range 5)] (.send socket (+ (str x) "\n"))) + (.close socket)) + + +(def server (StreamServer (, "127.0.0.1" 5000) handle)) +(.serve-forever server)