(no commit message)

diff --git a/src/gacela_server.scm b/src/gacela_server.scm
index e7a69c67ee717a6ffccb574a5caccc3f9f0ec361..548488efcb637ed8517931f44f0f48883711e8c2 100644 (file)
--- a/src/gacela_server.scm
+++ b/src/gacela_server.scm
@@ -16,12 +16,24 @@
 
 
 (define start-server #f)
+(define check-connections #f)
+(define stop-server #f)
 
 (let ((server-socket #f) (clients '()))
   (set! start-server
        (lambda (port)
          (set! server-socket (socket PF_INET SOCK_STREAM 0))
+         (fcntl server-socket F_SETFL (logior O_NONBLOCK (fcntl server-socket F_GETFL)))
          (setsockopt server-socket SOL_SOCKET SO_REUSEADDR 1)
          (bind server-socket AF_INET INADDR_ANY port)
          (listen server-socket 5)))
-)
+
+  (set! check-connections
+       (lambda ()
+         (catch #t
+                (lambda () (set! clients (cons (accept server-socket) clients)))
+                (lambda (key . args) #f))))
+
+  (set! stop-server
+       (lambda ()
+         (cond (server-socket (close server-socket) (set! server-socket #f)))
\ No newline at end of file