No smart quotes here
[factor/jcg.git] / extra / game-input / dinput / keys-array / keys-array.factor
blob12ad07244985d3cf84ae008232fd556c6d93bab6
1 USING: sequences sequences.private math alien.c-types
2 accessors ;
3 IN: game-input.dinput.keys-array
5 TUPLE: keys-array underlying ;
6 C: <keys-array> keys-array
8 : >key ( byte -- ? )
9     HEX: 80 bitand c-bool> ;
11 M: keys-array length underlying>> length ;
12 M: keys-array nth-unsafe underlying>> nth-unsafe >key ;
14 INSTANCE: keys-array sequence