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

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

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

: >key ( byte -- ? )
    HEX: 80 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`
			`accessors alien.data ;`
game-input doesnt need a backend, now loads dinput or iokit directly 2008-12-16 02:33:51 -05: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 -- ? )`
			`HEX: 80 bitand c-bool> ;`

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`