Merge branch 'master' of git://factorcode.org/git/factor
commit
29404db2d9
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue