]> git.jsancho.org Git - gacela.git/commitdiff
(no commit message)
authorjsancho <devnull@localhost>
Wed, 18 Nov 2009 23:34:33 +0000 (23:34 +0000)
committerjsancho <devnull@localhost>
Wed, 18 Nov 2009 23:34:33 +0000 (23:34 +0000)
gacela.lisp

index 8517a9c87c41a8d86189dab2e791dd2530123389..bc5dc4d9acbca0fa31ab6624e1e0814f55b83251 100644 (file)
     (maphash (lambda (key res) (free-resource key)) resources-table)))
 
 
-;;; Gacela Server for development mode
-(let (socket clients)
-  (defun start-server (port)
-    (when (null socket) (setq socket (si::socket port :server #'eval-from-clients))))
+;;; Connection with Gacela Skin
+(let (socket)
+  (defun start-skin-client (port)
+    (when (null socket) (setq socket (si::socket port :host "localhost"))))
 
-  (defun check-server-connections ()
-    (when (and socket (si::listen socket)) (push (si:accept socket) clients)))
+  (defun eval-from-skin ()
+    (when (si::listen socket)
+      (secure-block socket (eval (read-from-string (read-line socket))))))
 
-  (defun eval-from-clients ()
-    (dolist (cli clients)
-      (when (si::listen cli)
-       (secure-block cli (eval (read-from-string (read-line cli)))))))
-
-  (defun stop-server ()
+  (defun stop-skin-client ()
     (when socket
-      (dolist (cli clients) (si::close cli))
       (si::close socket)
-      (setq socket nil clients nil))))
+      (setq socket nil))))
 
 
 ;;; GaCeLa Functions
      (init-video-mode)
      (SDL_WM_SetCaption ,title "")
      (init-frame-time)
-     (check-server-connections)
-     (eval-from-clients)
+     (eval-from-skin)
      (refresh-running-mobs)
      (process-events)
      (do () ((quit?))
         (SDL_GL_SwapBuffers)
         (delay-frame)
         (init-frame-time)
-        (check-server-connections)
-        (eval-from-clients)
+        (eval-from-skin)
         (refresh-running-mobs)
         (process-events)
         (setq running nil))))