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

18
scsh/tty.scm
View File

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