22 lines
526 B
Factor
22 lines
526 B
Factor
|
! Copyright (C) 2008 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors kernel math.bitfields 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 ;
|