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 io.encodings.utf16 io.encodings.utf16n kernel locals math
math.bitwise math.rectangles namespaces parser sequences math.bitwise math.rectangles namespaces parser sequences
shuffle specialized-arrays ui.backend.windows vectors shuffle specialized-arrays ui.backend.windows vectors
windows.com windows.dinput windows.dinput.constants windows.com windows.directx.dinput
windows.errors windows.kernel32 windows.messages windows.directx.dinput.constants .errors windows.kernel32
windows.ole32 windows.user32 classes.struct alien.data ; windows.messages .ole32 windows.user32 classes.struct
alien.data ;
SPECIALIZED-ARRAY: DIDEVICEOBJECTDATA SPECIALIZED-ARRAY: DIDEVICEOBJECTDATA
IN: game.input.dinput 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 windows.com.syntax alien alien.c-types alien.data alien.syntax
kernel system namespaces combinators sequences fry math accessors kernel system namespaces combinators sequences fry math accessors
macros words quotations libc continuations generalizations macros words quotations libc continuations generalizations
splitting locals assocs init specialized-arrays memoize splitting locals assocs init specialized-arrays memoize
classes.struct strings arrays ; classes.struct strings arrays ;
SPECIALIZED-ARRAY: DIOBJECTDATAFORMAT 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 ! 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 ! 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-guid-constants
define-format-constants ; define-format-constants ;
[ define-constants ] "windows.dinput.constants" add-startup-hook [ define-constants ] "windows.directx.dinput.constants" add-startup-hook
: uninitialize ( variable quot -- ) : uninitialize ( variable quot -- )
'[ _ when* f ] change-global ; inline '[ _ when* f ] change-global ; inline

View File

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