factor/extra/key-logger/key-logger.factor

! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors timers bit-arrays calendar game.input io
io.binary io.encodings.binary io.files kernel literals math
namespaces system threads ;
IN: key-logger

CONSTANT: frequency $[ 1/30 seconds ]

CONSTANT: path "resource:key-log.txt"

: update-key-caps-state ( -- )
    read-keyboard keys>>
    path binary [
        [ gmt unix-1970 time- duration>nanoseconds >integer ]
        [ bit-array>integer ] bi*
        [ 8 >be write ] bi@ flush
    ] with-file-appender ;

SYMBOL: key-logger

: start-key-logger ( -- )
    key-logger get-global [
        [
            open-game-input
            [ update-key-caps-state ] frequency every key-logger set-global
        ] in-thread
    ] unless ;

: stop-key-logger ( -- )
    key-logger get-global [ stop-timer ] when*
    f key-logger set-global
    close-game-input ;

MAIN: start-key-logger