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

   1 USING: sequences sequences.private math alien.c-types
   2 accessors ;
   3 IN: game-input.dinput.keys-array
   4
   5 TUPLE: keys-array underlying ;
   6 C: <keys-array> keys-array
   7
   8 : >key ( byte -- ? )
   9     HEX: 80 bitand c-bool> ;
  10
  11 M: keys-array length underlying>> length ;
  12 M: keys-array nth-unsafe underlying>> nth-unsafe >key ;
  13
  14 INSTANCE: keys-array sequence
  15