Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl
Commits:
-
be68140d
by Raymond Toy
at 2015-05-11T19:34:06Z
Add terminal-speeds to unix-glibc2.lisp.
-
bff46014
by Raymond Toy
at 2015-05-11T19:34:39Z
Export FIONREAD and TERMINAL-SPEEDS. Bot unix and unix-glibc2 have
these.
2 changed files:
Changes:
src/code/exports.lisp
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -350,6 +350,8 @@
"USER-INFO-SHELL" "USER-INFO-UID" "VDSUSP" "VEOF" "VEOL" "VEOL2" "VERASE"
"VINTR" "VKILL" "VMIN" "VQUIT" "VSTART" "VSTOP" "VSUSP" "VTIME"
"WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" "WS-YPIXEL" "W_OK" "X_OK"
+ "FIONREAD"
+ "TERMINAL-SPEEDS"
)
#-linux
(:export "TCHARS"
@@ -362,13 +364,13 @@
;; Other symbols from structures, etc.
"DIRECT" "ELOCAL" "EPROCLIM" "EVICEERR" "EVICEOP" "EXECGRP" "EXECOTH"
- "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL" "FIONREAD"
+ "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL"
"FTRUNC" "READGRP" "READOTH" "READOWN" "S-IEXEC" "S-IREAD" "S-ISGID"
"S-ISUID" "S-ISVTX" "S-IWRITE" "SAVETEXT" "SETGIDEXEC" "SETUIDEXEC"
"SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" "SG-OSPEED" "SIGEMT" "SIGSYS"
"T-BRKC" "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC"
"T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCIFLUSH"
- "TCIOFLUSH" "TCOFLUSH" "TERMINAL-SPEEDS" "TIOCFLUSH" "TIOCGETC"
+ "TCIOFLUSH" "TCOFLUSH" "TIOCFLUSH" "TIOCGETC"
"TIOCGETP" "TIOCGLTC" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TTY-CBREAK"
"TTY-CLOCAL" "TTY-CREAD" "TTY-CRMOD" "TTY-CS5" "TTY-CS6" "TTY-CS7"
"TTY-CS8" "TTY-CSIZE" "TTY-CSTOPB" "TTY-HUPCL" "TTY-LCASE" "TTY-PARENB"
src/code/unix-glibc2.lisp
--- a/src/code/unix-glibc2.lisp
+++ b/src/code/unix-glibc2.lisp
@@ -1811,6 +1811,10 @@
;;; termios.h
+(defconstant terminal-speeds
+ '#(0 50 75 110 134 150 200 300 600 1200 1800 2400
+ 4800 9600 19200 38400 57600 115200 230400))
+
(defun unix-cfgetospeed (termios)
_N"Get terminal output speed."
(multiple-value-bind (speed errno)