Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Toying with gevent

Browse Source
This commit is contained in:
Paul R. Tagliamonte 2013-03-27 20:09:42 -04:00
parent 7eed26f0c3
commit 366264fbab
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
eg/gevent/sockets/socket-server.hy Normal file
View File

@ -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)