[movitz-cvs] CVS movitz/losp/x86-pc

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory clnet:/tmp/cvs-serv17892

Modified Files:
	textmode.lisp 
Log Message:
Add a trivial e9-output "steam" function.


--- /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp	2007/03/26 21:43:21	1.16
+++ /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp	2007/04/09 16:05:25	1.17
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Nov  9 15:38:56 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: textmode.lisp,v 1.16 2007/03/26 21:43:21 ffjeld Exp $
+;;;; $Id: textmode.lisp,v 1.17 2007/04/09 16:05:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -240,6 +240,17 @@
 (defun write-word-lowlevel (word dest)
   (write-word-lowlevel-macro word dest))
 
+(defun e9-output (op &rest args)
+  (declare (dynamic-extent args))
+  (ecase op
+    (muerte::stream-write-char
+     (setf (io-port #xe9 :unsigned-byte8) (char-code (car args))))
+    (muerte::stream-fresh-line
+     (e9-output 'muerte::stream-write-char #\Newline)
+     t)
+    (local-echo-p
+     nil)))
+
 (defun textmode-console (op &rest args)
   "This function can act as *terminal-io* without/before CLOS support."
   (declare (dynamic-extent args))