extra/game-input/backend/backend.factor

   1 USING: eval multiline system combinators ;
   2 IN: game-input.backend
   3
   4 STRING: set-backend-for-macosx
   5 USING: namespaces parser game-input.backend.iokit ;
   6 << "game-input" (use+) >>
   7 iokit-game-input-backend game-input-backend set-global
   8 ;
   9
  10 STRING: set-backend-for-windows
  11 USING: namespaces parser game-input.backend.dinput ;
  12 << "game-input" (use+) >>
  13 dinput-game-input-backend game-input-backend set-global
  14 ;
  15
  16 {
  17     { [ os macosx? ] [ set-backend-for-macosx eval ] }
  18     { [ os windows? ] [ set-backend-for-windows eval ] }
  19     { [ t ] [ ] }
  20 } cond
  21