steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed a bug in the linux version of game.input

db4
William Schlieper 2010-02-20 08:35:02 -05:00
parent e342e92f86
commit 47666f0049
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/game/input/linux/linux.factor
View File

@ -4,6 +4,9 @@ USING: alien.c-types alien.syntax arrays kernel game.input namespaces
classes bit-arrays sequences vectors x11 x11.xlib ; classes bit-arrays sequences vectors x11 x11.xlib ;
IN: game.input.linux IN: game.input.linux
LIBRARY: xlib
FUNCTION: int XQueryKeymap ( Display* display, char[32] keys_return ) ;
SINGLETON: linux-game-input-backend SINGLETON: linux-game-input-backend
linux-game-input-backend game-input-backend set-global linux-game-input-backend game-input-backend set-global
@ -74,9 +77,9 @@ CONSTANT: x>hid-bit-order {
} }
: x-bits>hid-bits ( bit-array -- bit-array ) : x-bits>hid-bits ( bit-array -- bit-array )
256 iota [ 2array ] 2map [ first ] filter [ second ] map 256 iota [ 2array ] { } 2map-as [ first ] filter [ second ] map
x>hid-bit-order [ nth ] with map x>hid-bit-order [ nth ] curry map
?{ } swap [ t swap pick set-nth ] each ; 256 <bit-array> swap [ t swap pick set-nth ] each ;
M: linux-game-input-backend read-keyboard M: linux-game-input-backend read-keyboard
dpy get 256 <bit-array> [ XQueryKeymap drop ] keep dpy get 256 <bit-array> [ XQueryKeymap drop ] keep