Changeset 6912


Ignore:
Timestamp:
Jul 21, 2007, 10:03:33 PM (13 years ago)
Author:
gb
Message:

set-pty-raw.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/library/pty.lisp

    r5908 r6912  
    137137    (when old
    138138      (%set-tty-attributes tty :local-modes (logand old (lognot mask))))))
     139
     140(defun set-tty-raw (tty)
     141  (rlet ((attr :termios))
     142    (#_cfmakeraw attr)
     143    (eql 0 (#_tcsetattr tty #$TCSAFLUSH attr))))
Note: See TracChangeset for help on using the changeset viewer.