extra/serial/unix/unix-tests.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel math.bitwise serial serial.unix ;
   4 IN: serial.unix
   5
   6 : serial-obj ( -- obj )
   7     serial new
   8     "/dev/ttyS0" >>path
   9     19200 >>baud
  10     { IGNPAR ICRNL } flags >>iflag
  11     { } flags >>oflag
  12     { CS8 CLOCAL CREAD } flags >>cflag
  13     { ICANON } flags >>lflag ;
  14
  15 : serial-test ( -- serial )
  16     serial-obj
  17     open-serial
  18     dup get-termios >>termios
  19     dup configure-termios
  20     dup tciflush
  21     dup apply-termios ;