factor/extra/io/serial/unix/unix-tests.factor

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

: serial-obj ( -- obj )
    serial new
    "/dev/ttyS0" >>path ! linux
    ! "/dev/dty00" >>path ! netbsd
    ! "/dev/ttyd0" >>path ! freebsd
    ! "/dev/ttyU0" >>path ! openbsd
    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 ;