steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

no reason not to use bit-array for game-input key state

db4
Joe Groff 2009-05-14 17:26:54 -05:00
parent 606ed8aaa1
commit 99c6c054c2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/game-input/iokit/iokit.factor
View File

@ -3,7 +3,7 @@ kernel cocoa.enumeration destructors math.parser cocoa.application
sequences locals combinators.short-circuit threads sequences locals combinators.short-circuit threads
namespaces assocs vectors arrays combinators hints alien namespaces assocs vectors arrays combinators hints alien
core-foundation.run-loop accessors sequences.private core-foundation.run-loop accessors sequences.private
alien.c-types math parser game-input vectors ; alien.c-types math parser game-input vectors bit-arrays ;
IN: game-input.iokit IN: game-input.iokit
SINGLETON: iokit-game-input-backend SINGLETON: iokit-game-input-backend
@ -186,7 +186,7 @@ HINTS: record-controller { controller-state alien } ;
rot ?set-nth rot ?set-nth
] [ 3drop ] if ; ] [ 3drop ] if ;
HINTS: record-keyboard { array alien } ; HINTS: record-keyboard { bit-array alien } ;
: record-mouse ( mouse-state value -- ) : record-mouse ( mouse-state value -- )
dup IOHIDValueGetElement { dup IOHIDValueGetElement {
@ -285,7 +285,7 @@ M: iokit-game-input-backend reset-mouse
4 <vector> +controller-states+ set-global 4 <vector> +controller-states+ set-global
0 0 0 0 2 <vector> mouse-state boa 0 0 0 0 2 <vector> mouse-state boa
+mouse-state+ set-global +mouse-state+ set-global
256 f <array> +keyboard-state+ set-global ; 256 <bit-array> +keyboard-state+ set-global ;
M: iokit-game-input-backend (open-game-input) M: iokit-game-input-backend (open-game-input)
hid-manager-matching-game-devices { hid-manager-matching-game-devices {