Add convience function 'send' to push javascript update fragments to client.

[eow] / empire.lisp

diff --git a/empire.lisp b/empire.lisp
index 417a0e45d98e60c2eb0b292ce9e54ce1aa87de28..4797ac71e4817e424e26ad250c26ffab57d82ad5 100644 (file)
--- a/empire.lisp
+++ b/empire.lisp
@@ -136,7 +136,7 @@ this stream.")
          (setf play-sent-p t))
        (set-new-mode m 'play-mode))))
 
          (setf play-sent-p t))
        (set-new-mode m 'play-mode))))
 

-(defmethod handle-prompt ((m play-mode) message)
+(defmethod handle-data ((m play-mode) message)

   (let* ((c (connection m))
         (log (logging-stream c)))
     (format log "handle-data ~a~%" message)))
   (let* ((c (connection m))
         (log (logging-stream c)))
     (format log "handle-data ~a~%" message)))


@@ -144,7 +144,10 @@ this stream.")
 (defmethod handle-prompt ((m play-mode) message)
   (let* ((c (connection m))
         (log (logging-stream c)))
 (defmethod handle-prompt ((m play-mode) message)
   (let* ((c (connection m))
         (log (logging-stream c)))

-    (format log "handle-prompt ~a~%" message)))
+    (with-input-from-string (s message)
+      (let* ((minutes (read s))
+            (btus (read s)))
+       (format log "[~a:~a]: ~%" minutes btus)))))

 
 (defparameter *line-type-dispatch*
   (list `(,+C_DATA+ . handle-data)
 
 (defparameter *line-type-dispatch*
   (list `(,+C_DATA+ . handle-data)