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

http://github.com/abeaumont/factor · Factor · 35 lines · 26 code · 7 blank · 2 comment · 2 complexity · 1a91a91994909ea4545be033cd81b78f MD5 · raw file 

    

  1. ! Copyright (C) 2010 Doug Coleman.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: accessors timers bit-arrays calendar game.input io
    4. 

  4. io.binary io.encodings.binary io.files kernel literals math
    5. 

  5. namespaces system threads ;
    6. 

  6. IN: key-logger
    7. 

  7. 

  8. CONSTANT: frequency $[ 1/30 seconds ]
    9. 

  9. 

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

  11. 

  12. : update-key-caps-state ( -- )
    13. 

  13.     read-keyboard keys>>
    14. 

  14.     path binary [
    15. 

  15.         [ gmt unix-1970 time- duration>nanoseconds >integer ]
    16. 

  16.         [ bit-array>integer ] bi*
    17. 

  17.         [ 8 >be write ] bi@ flush
    18. 

  18.     ] with-file-appender ;
    19. 

  19. 

  20. SYMBOL: key-logger
    21. 

  21. 

  22. : start-key-logger ( -- )
    23. 

  23.     key-logger get-global [
    24. 

  24.         [
    25. 

  25.             open-game-input
    26. 

  26.             [ update-key-caps-state ] frequency every key-logger set-global
    27. 

  27.         ] in-thread
    28. 

  28.     ] unless ;
    29. 

  29. 

  30. : stop-key-logger ( -- )
    31. 

  31.     key-logger get-global [ stop-timer ] when*
    32. 

  32.     f key-logger set-global
    33. 

  33.     close-game-input ;
    34. 

  34. 

  35. MAIN: start-key-logger
    36.