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

Update windows.dinput for specialized-arrays

db4
U-SLAVA-DFB8FF805\Slava 2008-12-03 09:55:11 -06:00
parent 35df2fd480
commit 852e00c57a
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/windows/dinput/constants/constants.factor Normal file → Executable file
View File

@ -1,7 +1,8 @@
USING: windows.dinput windows.kernel32 windows.ole32 windows.com USING: windows.dinput windows.kernel32 windows.ole32 windows.com
windows.com.syntax alien alien.c-types alien.syntax kernel system namespaces windows.com.syntax alien alien.c-types alien.syntax kernel system namespaces
combinators sequences symbols fry math accessors macros words quotations combinators sequences symbols fry math accessors macros words quotations
libc continuations generalizations splitting locals assocs init ; libc continuations generalizations splitting locals assocs init
struct-arrays ;
IN: windows.dinput.constants IN: windows.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
@ -52,14 +53,14 @@ SYMBOLS:
} cleave } cleave
"DIOBJECTDATAFORMAT" <c-object> (DIOBJECTDATAFORMAT) ; "DIOBJECTDATAFORMAT" <c-object> (DIOBJECTDATAFORMAT) ;
: malloc-DIOBJECTDATAFORMAT-array ( struct array -- alien ) :: malloc-DIOBJECTDATAFORMAT-array ( struct array -- alien )
[ nip length "DIOBJECTDATAFORMAT" malloc-array dup ] [let | alien [ array length "DIOBJECTDATAFORMAT" malloc-struct-array ] |
[ array [| args i |
-rot [| args i alien struct |
struct args <DIOBJECTDATAFORMAT> struct args <DIOBJECTDATAFORMAT>
i alien set-DIOBJECTDATAFORMAT-nth i alien set-nth
] 2curry each-index ] each-index
] 2bi ; alien underlying>>
] ;
: (DIDATAFORMAT) ( dwSize dwObjSize dwFlags dwDataSize dwNumObjs rgodf alien -- alien ) : (DIDATAFORMAT) ( dwSize dwObjSize dwFlags dwDataSize dwNumObjs rgodf alien -- alien )
[ { [ {