add constants for bsd serial

extra/serial/unix/bsd/bsd.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel sequences system serial ;
+USING: alien.syntax kernel sequences system serial ;
 IN: serial.unix
 
 M: bsd lookup-baud ( m -- n )
@@ -9,3 +9,16 @@ M: bsd lookup-baud ( m -- n )
         7200 9600 14400 19200 28800 38400 57600 76800 115200
         230400 460800 921600
     } member? [ invalid-baud ] unless ;
+
+: 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

extra/serial/unix/termios/bsd/bsd.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel sequences system ;
+USING: alien.syntax kernel sequences system ;
 IN: serial.unix.termios
 
 : NCCS 20 ; inline

extra/serial/unix/unix.factor

@@ -5,10 +5,10 @@ io.streams.duplex io.unix.backend system kernel math math.bitfields
 vocabs.loader unix serial serial.unix.termios ;
 IN: serial.unix
 
-{
+<< {
     { [ os linux? ] [ "serial.unix.linux" ] }
     { [ os bsd? ] [ "serial.unix.bsd" ] }
-} cond require
+} cond require >>
 
 FUNCTION: speed_t cfgetispeed ( termios* t ) ;
 FUNCTION: speed_t cfgetospeed ( termios* t ) ;