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

use CONSTANT:

db4
Doug Coleman 2009-02-22 18:00:43 -06:00
parent adf6e97e17
commit 7aa8e7320d
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
extra/game-input/iokit/iokit.factor
View File

@ -21,33 +21,33 @@ iokit-game-input-backend game-input-backend set-global
[ &CFRelease NSFastEnumeration>vector ] [ f ] if* [ &CFRelease NSFastEnumeration>vector ] [ f ] if*
] with-destructors ; ] with-destructors ;
: game-devices-matching-seq CONSTANT: game-devices-matching-seq
{ {
H{ { "DeviceUsage" 4 } { "DeviceUsagePage" 1 } } ! joysticks H{ { "DeviceUsage" 4 } { "DeviceUsagePage" 1 } } ! joysticks
H{ { "DeviceUsage" 5 } { "DeviceUsagePage" 1 } } ! gamepads H{ { "DeviceUsage" 5 } { "DeviceUsagePage" 1 } } ! gamepads
H{ { "DeviceUsage" 6 } { "DeviceUsagePage" 1 } } ! keyboards H{ { "DeviceUsage" 6 } { "DeviceUsagePage" 1 } } ! keyboards
} ; inline }
: buttons-matching-hash CONSTANT: buttons-matching-hash
H{ { "UsagePage" 9 } { "Type" 2 } } ; inline H{ { "UsagePage" 9 } { "Type" 2 } }
: keys-matching-hash CONSTANT: keys-matching-hash
H{ { "UsagePage" 7 } { "Type" 2 } } ; inline H{ { "UsagePage" 7 } { "Type" 2 } }
: x-axis-matching-hash CONSTANT: x-axis-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 30 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 30 } { "Type" 1 } }
: y-axis-matching-hash CONSTANT: y-axis-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 31 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 31 } { "Type" 1 } }
: z-axis-matching-hash CONSTANT: z-axis-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 32 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 32 } { "Type" 1 } }
: rx-axis-matching-hash CONSTANT: rx-axis-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 33 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 33 } { "Type" 1 } }
: ry-axis-matching-hash CONSTANT: ry-axis-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 34 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 34 } { "Type" 1 } }
: rz-axis-matching-hash CONSTANT: rz-axis-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 35 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 35 } { "Type" 1 } }
: slider-matching-hash CONSTANT: slider-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 36 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 36 } { "Type" 1 } }
: hat-switch-matching-hash CONSTANT: hat-switch-matching-hash
H{ { "UsagePage" 1 } { "Usage" HEX: 39 } { "Type" 1 } } ; inline H{ { "UsagePage" 1 } { "Usage" HEX: 39 } { "Type" 1 } }
: device-elements-matching ( device matching-hash -- vector ) : device-elements-matching ( device matching-hash -- vector )
[ [