Add parenscript dependency

[eow] / empire.lisp

diff --git a/empire.lisp b/empire.lisp
index 417a0e45d98e60c2eb0b292ce9e54ce1aa87de28..5d1b950b5cfa6a81fb24066239f3de0438f7bb72 100644 (file)
--- a/empire.lisp
+++ b/empire.lisp
@@ -136,15 +136,20 @@ this stream.")
          (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)))
+    (format log "handle-data ~a~%" message)
+    (empire-web:data message)))
 
 (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)) ;;FIXME DANGEROUS
+            (btus (read s)))
+       (format log "[~a:~a]: ~%" minutes btus)
+       (empire-web:prompt minutes btus)))))
 
 (defparameter *line-type-dispatch*
   (list `(,+C_DATA+ . handle-data)