scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

This commit is contained in:
shivers 1995-10-17 04:33:40 +00:00
parent 9f189dde81
commit 195691c438
2 changed files with 209 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

185
scsh/tty-consts.scm
View File

File diff suppressed because one or more lines are too long

48
scsh/tty.scm
View File

@ -42,10 +42,10 @@
output-speed
min
time
((disclose info) '(tty-info)))
((disclose info) '("tty-info")))
(define tty-info? %tty-info?)
(define type/tty-info %type/tty-info)
(define type/tty-info type/%tty-info)
(define tty-info:control-chars %tty-info:control-chars)
(define tty-info:input-flags %tty-info:input-flags)
@ -55,6 +55,7 @@
(define tty-info:input-speed %tty-info:input-speed)
(define tty-info:output-speed %tty-info:output-speed)
(define tty-info:min %tty-info:min)
(define tty-info:time %tty-info:time)
(define set-tty-info:control-chars set-%tty-info:control-chars)
(define set-tty-info:input-flags set-%tty-info:input-flags)
@ -64,6 +65,7 @@
(define set-tty-info:input-speed set-%tty-info:input-speed)
(define set-tty-info:output-speed set-%tty-info:output-speed)
(define set-tty-info:min set-%tty-info:min)
(define set-tty-info:time set-%tty-info:time)
(define (make-tty-info iflags oflags cflags lflags ispeed ospeed min time)
(make-%tty-info (make-string num-ttychars (ascii->char 0))
@ -108,8 +110,8 @@
ispeed ospeed)
(define-foreign %tty-info/errno
(scheme_tty_info (integer fdes)
(string control-chars))
(scheme_tcgetattr (integer fdes)
(string control-chars))
(to-scheme integer errno_or_false)
integer integer
integer integer
@ -164,21 +166,21 @@
%set-tty-info/errno)
(define-foreign %set-tty-info/errno
(scheme_set_tty_info (integer fdes)
(integer option)
(string control-chars)
(integer iflag-hi8)
(integer iflag-lo24)
(integer oflag-hi8)
(integer oflag-lo24)
(integer cflag-hi8)
(integer cflag-lo24)
(integer lflag-hi8)
(integer lflag-lo24)
(integer ispeed)
(integer ospeed)
(integer min)
(integer time))
(scheme_tcsetattr (integer fdes)
(integer option)
(string control-chars)
(integer iflag-hi8)
(integer iflag-lo24)
(integer oflag-hi8)
(integer oflag-lo24)
(integer cflag-hi8)
(integer cflag-lo24)
(integer lflag-hi8)
(integer lflag-lo24)
(integer ispeed)
(integer ospeed)
(integer min)
(integer time))
(to-scheme integer errno_or_false))
@ -257,10 +259,10 @@
(lambda (fdport)
(call/fdes fdport (lambda (fdes) (%tcflow fdes action)))))
(define start-tty-output (make-tty-flow-controller %tcflow/start-out))
(define stop-tty-output (make-tty-flow-controller %tcflow/stop-out))))
(define start-tty-input (make-tty-flow-controller %tcflow/start-in))
(define stop-tty-input (make-tty-flow-controller %tcflow/stop-in))
(define start-tty-output (make-flow-controller %tcflow/start-out))
(define stop-tty-output (make-flow-controller %tcflow/stop-out))
(define start-tty-input (make-flow-controller %tcflow/start-in))
(define stop-tty-input (make-flow-controller %tcflow/stop-in))
(define-errno-syscall (%tcflow fdes action) %tcflow/errno)