add keys-array sequence wrapper

db4
U-VICTORIA\Administrator 2008-07-26 22:35:40 -07:00
parent f053c25875
commit ab4d41169b
1 changed files with 15 additions and 0 deletions

View File

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