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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Joe Groff 2009-09-28 20:38:03 -05:00
parent d7db62a145 02666b2491
commit 29404db2d9
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/game-input/dinput/dinput.factor
View File

@ -1,12 +1,12 @@
USING: accessors alien alien.c-types alien.strings arrays USING: accessors alien alien.c-types alien.strings arrays
assocs byte-arrays combinators continuations game-input assocs byte-arrays combinators combinators.short-circuit
game-input.dinput.keys-array io.encodings.utf16 continuations game-input game-input.dinput.keys-array
io.encodings.utf16n kernel locals math math.bitwise io.encodings.utf16 io.encodings.utf16n kernel locals math
math.rectangles namespaces parser sequences shuffle math.bitwise math.rectangles namespaces parser sequences
specialized-arrays ui.backend.windows vectors windows.com shuffle specialized-arrays ui.backend.windows vectors
windows.dinput windows.dinput.constants windows.errors windows.com windows.dinput windows.dinput.constants
windows.kernel32 windows.messages windows.ole32 windows.errors windows.kernel32 windows.messages
windows.user32 classes.struct alien.data ; windows.ole32 windows.user32 classes.struct alien.data ;
SPECIALIZED-ARRAY: DIDEVICEOBJECTDATA SPECIALIZED-ARRAY: DIDEVICEOBJECTDATA
IN: game-input.dinput IN: game-input.dinput
@ -265,7 +265,7 @@ M: dinput-game-input-backend instance-id
handle>> device-guid ; handle>> device-guid ;
:: with-acquisition ( device acquired-quot succeeded-quot failed-quot -- result/f ) :: with-acquisition ( device acquired-quot succeeded-quot failed-quot -- result/f )
device IDirectInputDevice8W::Acquire succeeded? [ device { [ ] [ IDirectInputDevice8W::Acquire succeeded? ] } 1&& [
device acquired-quot call device acquired-quot call
succeeded-quot call succeeded-quot call
] failed-quot if ; inline ] failed-quot if ; inline