Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-15 08:57:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Redefining term-attrs-[io]speed[-set!] in terms of accessor functions,

Browse source 
cfgetispeed, cfgetospeed, cfsetispeed and cfsetospeed, instead of
non-portable field names.
This commit is contained in:
Alex Shinn 2014-07-30 22:44:04 +09:00
parent 6c0c3e53e9
commit cc4ec96001
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/stty.stub
View file

@ -10,8 +10,14 @@
(unsigned-long c_cflag term-attrs-cflag term-attrs-cflag-set!) (unsigned-long c_cflag term-attrs-cflag term-attrs-cflag-set!)
(unsigned-long c_lflag term-attrs-lflag term-attrs-lflag-set!) (unsigned-long c_lflag term-attrs-lflag term-attrs-lflag-set!)
;;(unsigned-char (c_cc 22) term-attrs-cc term-attrs-cc-set!) ;;(unsigned-char (c_cc 22) term-attrs-cc term-attrs-cc-set!)
(unsigned-long c_ispeed term-attrs-ispeed term-attrs-ispeed-set!) ;;(unsigned-long c_ispeed term-attrs-ispeed term-attrs-ispeed-set!)
(unsigned-long c_ospeed term-attrs-ospeed term-attrs-ospeed-set!)) ;;(unsigned-long c_ospeed term-attrs-ospeed term-attrs-ospeed-set!)
)
(define-c unsigned-long (term-attrs-ispeed cfgetispeed) (termios))
(define-c unsigned-long (term-attrs-ospeed cfgetospeed) (termios))
(define-c errno (term-attrs-ispeed-set! cfsetispeed) (termios unsigned-long))
(define-c errno (term-attrs-ospeed-set! cfsetospeed) (termios unsigned-long))
(define-c-struct winsize (define-c-struct winsize
predicate: winsize? predicate: winsize?