cocoa-keycodes>hid ( keycodes -- bits )


Vocabulary
game.input.cocoa

Inputs
keycodesan object


Outputs
bitsan object


Definition
USING: assocs bit-arrays kernel math sequences ;

IN: game.input.cocoa

:: cocoa-keycodes>hid ( keycodes -- bits )
256 <bit-array> :> bits keycodes keys [| code |
code 0 >= code cocoa>hid length < and [
code cocoa>hid nth dup zero?
[ drop ] [ t swap bits set-nth ] if
] when
] each bits ;