[cmucl/cmucl][rtoy-unix-core] 2 commits: Add terminal-speeds to unix-glibc2.lisp.

[Raymond Toy]

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/13513a76f8a8813a56af22f20a575aee1d76d6a8...bff460145fd2c788dedaad883a3e57fb573f9647
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20150512/f4c84465/attachment.html>