25 lines
655 B
Factor
25 lines
655 B
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 ;
|