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: - src/code/exports.lisp - src/code/unix-glibc2.lisp 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) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/13513a76f8a8813a56af22f20...