factor/basis/game/input/dinput/keys-array/keys-array.factor

USING: sequences sequences.private math
accessors alien.c-types ;
IN: game.input.dinput.keys-array

TUPLE: keys-array
    { underlying sequence read-only }
    { length integer read-only } ;
C: <keys-array> keys-array

: >key ( byte -- ? )
    0x80 bitand c-bool> ;

M: keys-array length length>> ;
M: keys-array nth-unsafe underlying>> nth-unsafe >key ;

INSTANCE: keys-array sequence
move some allocation words that don't really have much to do with c types out of alien.c-types into a new alien.data vocab 2009-09-17 23:07:21 -04:00			`USING: sequences sequences.private math`
game.input.dinput.keys-array: fix load error 2009-11-05 02:54:49 -05:00			`accessors alien.c-types ;`
move game-* to game.* and update all usages 2009-10-08 02:42:54 -04:00			`IN: game.input.dinput.keys-array`
$U-VICTORIA\Administrator$ add keys-array sequence wrapper 2008-07-27 01:35:40 -04:00
clean up some game-input.dinput code to take advantage of structs and specialized arrays 2009-08-31 12:31:01 -04:00			`TUPLE: keys-array`
			`{ underlying sequence read-only }`
			`{ length integer read-only } ;`
$U-VICTORIA\Administrator$ add keys-array sequence wrapper 2008-07-27 01:35:40 -04:00			`C: <keys-array> keys-array`

			`: >key ( byte -- ? )`
use radix literals 2011-11-23 21:49:33 -05:00			`0x80 bitand c-bool> ;`
$U-VICTORIA\Administrator$ add keys-array sequence wrapper 2008-07-27 01:35:40 -04:00
clean up some game-input.dinput code to take advantage of structs and specialized arrays 2009-08-31 12:31:01 -04:00			`M: keys-array length length>> ;`
$U-VICTORIA\Administrator$ add keys-array sequence wrapper 2008-07-27 01:35:40 -04:00			`M: keys-array nth-unsafe underlying>> nth-unsafe >key ;`

			`INSTANCE: keys-array sequence`