2008-07-29 22:53:00 -04:00
|
|
|
USING: multiline system parser combinators ;
|
2008-07-25 23:31:37 -04:00
|
|
|
IN: game-input.backend
|
|
|
|
|
2008-07-29 22:53:00 -04:00
|
|
|
STRING: set-backend-for-macosx
|
|
|
|
USING: namespaces game-input.backend.iokit game-input ;
|
|
|
|
iokit-game-input-backend game-input-backend set-global
|
|
|
|
;
|
|
|
|
|
|
|
|
STRING: set-backend-for-windows
|
|
|
|
USING: namespaces game-input.backend.dinput game-input ;
|
|
|
|
dinput-game-input-backend game-input-backend set-global
|
|
|
|
;
|
|
|
|
|
|
|
|
{
|
|
|
|
{ [ os macosx? ] [ set-backend-for-macosx eval ] }
|
|
|
|
{ [ os windows? ] [ set-backend-for-windows eval ] }
|
2008-07-25 23:31:37 -04:00
|
|
|
{ [ t ] [ ] }
|
2008-07-29 22:53:00 -04:00
|
|
|
} cond
|
|
|
|
|