Merge branch 'master' of git://github.com/erikcharlebois/factor

db4
Slava Pestov 2010-01-20 18:10:25 +13:00
commit 21c07397d2
9 changed files with 13 additions and 12 deletions

View File

@ -4,9 +4,10 @@ continuations game.input game.input.dinput.keys-array
io.encodings.utf16 io.encodings.utf16n kernel locals math
math.bitwise math.rectangles namespaces parser sequences
shuffle specialized-arrays ui.backend.windows vectors
windows.com windows.dinput windows.dinput.constants
windows.errors windows.kernel32 windows.messages
windows.ole32 windows.user32 classes.struct alien.data ;
windows.com windows.directx.dinput
windows.directx.dinput.constants .errors windows.kernel32
windows.messages .ole32 windows.user32 classes.struct
alien.data ;
SPECIALIZED-ARRAY: DIDEVICEOBJECTDATA
IN: game.input.dinput

View File

@ -1,5 +0,0 @@
IN: windows.dinput.constants.tests
USING: tools.test windows.dinput.constants.private ;
[ ] [ define-constants ] unit-test
[ ] [ free-dinput-constants ] unit-test

View File

@ -0,0 +1,5 @@
IN: windows.directx.dinput.constants.tests
USING: tools.test windows.directx.dinput.constants.private ;
[ ] [ define-constants ] unit-test
[ ] [ free-dinput-constants ] unit-test

View File

@ -1,11 +1,11 @@
USING: windows.dinput windows.kernel32 windows.ole32 windows.com
USING: windows.directx.dinput windows.kernel32 windows.ole32 windows.com
windows.com.syntax alien alien.c-types alien.data alien.syntax
kernel system namespaces combinators sequences fry math accessors
macros words quotations libc continuations generalizations
splitting locals assocs init specialized-arrays memoize
classes.struct strings arrays ;
SPECIALIZED-ARRAY: DIOBJECTDATAFORMAT
IN: windows.dinput.constants
IN: windows.directx.dinput.constants
! Some global variables aren't provided by the DirectInput DLL (they're in the
! dinput8.lib import library), so we lovingly hand-craft equivalent values here
@ -831,7 +831,7 @@ M: array array-base-type first ;
define-guid-constants
define-format-constants ;
[ define-constants ] "windows.dinput.constants" add-startup-hook
[ define-constants ] "windows.directx.dinput.constants" add-startup-hook
: uninitialize ( variable quot -- )
'[ _ when* f ] change-global ; inline

View File

@ -1,7 +1,7 @@
USING: windows.kernel32 windows.ole32 windows.com windows.com.syntax
alien alien.c-types alien.syntax kernel system namespaces math
classes.struct windows.types ;
IN: windows.dinput
IN: windows.directx.dinput
LIBRARY: dinput