! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel math.bitfields serial serial.unix ;
IN: serial.unix

: serial-obj ( -- obj )
    serial new
    "/dev/ttyS0" >>path
    19200 >>baud
    { IGNPAR ICRNL } flags >>iflag
    { } flags >>oflag
    { CS8 CLOCAL CREAD } flags >>cflag
    { ICANON } flags >>lflag ;

: serial-test ( -- serial )
    serial-obj
    open-serial
    dup get-termios >>termios
    dup configure-termios
    dup tciflush
    dup apply-termios ;