extra/serial/windows/windows.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io.files.windows io.streams.duplex kernel math
   4 math.bitwise windows.kernel32 accessors alien.c-types
   5 windows io.files.windows fry locals continuations ;
   6 IN: serial.windows
   7
   8 : <serial-stream> ( path encoding -- duplex )
   9     [ open-r/w dup ] dip <encoder-duplex> ;
  10
  11 : get-comm-state ( duplex -- dcb )
  12     in>> handle>>
  13     "DCB" <c-object> tuck
  14     GetCommState win32-error=0/f ;
  15
  16 : set-comm-state ( duplex dcb -- )
  17     [ in>> handle>> ] dip
  18     SetCommState win32-error=0/f ;
  19
  20 :: with-comm-state ( duplex quot: ( dcb -- ) -- )
  21     duplex get-comm-state :> dcb
  22     dcb clone quot curry [ dcb set-comm-state ] recover ; inline