Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv25146/doc/examples
Modified Files:
rawkey.wisp
Log Message:
Dropped |sys:raw:ioctl|.
Index: rawkey.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/rawkey.wisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- rawkey.wisp 22 Jul 2002 14:53:06 -0000 1.7
+++ rawkey.wisp 18 Sep 2002 20:54:23 -0000 1.8
@@ -11,10 +11,10 @@
(print "Type #\\q in order to quit.\n\n")
(my termios (tcgetattr-raw *stdin*)
- (cfmakeraw *stdin*)
- (let (loop)
- (my k (read-key *stdin*)
- (print "You typed $[k]\r\n")
- (if (not (eq? k #\q))
- (loop))))
- (tcsetattr-raw *stdin* 'now termios))
+ (cfmakeraw *stdin*)
+ (let (loop)
+ (my k (read-key *stdin*)
+ (print "You typed $[k]\r\n")
+ (if (not (eqv? k #\q))
+ (loop))))
+ (tcsetattr-raw *stdin* 'now termios))
|
