USING: sequences sequences.private math
-accessors alien.data ;
+accessors alien.c-types ;
IN: game.input.dinput.keys-array
TUPLE: keys-array
C: <keys-array> keys-array
: >key ( byte -- ? )
- HEX: 80 bitand c-bool> ;
+ 0x80 bitand c-bool> ;
M: keys-array length length>> ;
M: keys-array nth-unsafe underlying>> nth-unsafe >key ;