2008-08-13 16:18:50 -04:00
|
|
|
! Copyright (C) 2008 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-09-05 20:29:14 -04:00
|
|
|
USING: accessors kernel math.bitwise serial serial.unix ;
|
2008-08-13 16:18:50 -04:00
|
|
|
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 ;
|
