Move windows.dinput to windows.directx.dinput.
							parent
							
								
									20d27198b0
								
							
						
					
					
						commit
						281103ec7e
					
				| 
						 | 
				
			
			@ -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
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
							
								
								
									
										0
									
								
								basis/windows/dinput/authors.txt → basis/windows/directx/dinput/authors.txt
								
								
								
								
									
									
									Executable file → Normal file
								
							
							
						
						
									
										0
									
								
								basis/windows/dinput/authors.txt → basis/windows/directx/dinput/authors.txt
								
								
								
								
									
									
									Executable file → Normal 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
 | 
			
		||||
							
								
								
									
										6
									
								
								basis/windows/dinput/constants/constants.factor → basis/windows/directx/dinput/constants/constants.factor
								
								
								
								
									
									
									Executable file → Normal file
								
							
							
						
						
									
										6
									
								
								basis/windows/dinput/constants/constants.factor → basis/windows/directx/dinput/constants/constants.factor
								
								
								
								
									
									
									Executable file → Normal 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
 | 
			
		||||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
 | 
			
		||||
							
								
								
									
										0
									
								
								basis/windows/dinput/summary.txt → basis/windows/directx/dinput/summary.txt
								
								
								
								
									
									
									Executable file → Normal file
								
							
							
						
						
									
										0
									
								
								basis/windows/dinput/summary.txt → basis/windows/directx/dinput/summary.txt
								
								
								
								
									
									
									Executable file → Normal file
								
							
							
								
								
									
										0
									
								
								basis/windows/dinput/tags.txt → basis/windows/directx/dinput/tags.txt
								
								
								
								
									
									
									Executable file → Normal file
								
							
							
						
						
									
										0
									
								
								basis/windows/dinput/tags.txt → basis/windows/directx/dinput/tags.txt
								
								
								
								
									
									
									Executable file → Normal file
								
							
		Loading…
	
		Reference in New Issue