2008-08-13 16:18:50 -04:00
|
|
|
! Copyright (C) 2008 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-08-13 22:51:25 -04:00
|
|
|
USING: alien.syntax kernel sequences system serial ;
|
2008-08-13 16:18:50 -04:00
|
|
|
IN: serial.unix
|
|
|
|
|
|
|
|
|
|
M: bsd lookup-baud ( m -- n )
|
|
|
|
|
dup {
|
|
|
|
|
0 50 75 110 134 150 200 300 600 1200 1800 2400 4800
|
|
|
|
|
7200 9600 14400 19200 28800 38400 57600 76800 115200
|
|
|
|
|
230400 460800 921600
|
|
|
|
|
} member? [ invalid-baud ] unless ;
|
2008-08-13 22:51:25 -04:00
|
|
|
|
|
|
|
|
: TCSANOW 0 ; inline
|
|
|
|
|
: TCSADRAIN 1 ; inline
|
|
|
|
|
: TCSAFLUSH 2 ; inline
|
|
|
|
|
: TCSASOFT HEX: 10 ; inline
|
|
|
|
|
|
|
|
|
|
: TCIFLUSH 1 ; inline
|
|
|
|
|
: TCOFLUSH 2 ; inline
|
|
|
|
|
: TCIOFLUSH 3 ; inline
|
|
|
|
|
: TCOOFF 1 ; inline
|
|
|
|
|
: TCOON 2 ; inline
|
|
|
|
|
: TCIOFF 3 ; inline
|
|
|
|
|
: TCION 4 ; inline
|
