fix memory management bugs in game-input.backend.iokit
parent
b5d2f7f219
commit
cad006719f
|
@ -80,15 +80,9 @@ SINGLETON: iokit-game-input-backend
|
||||||
game-devices-matching-seq hid-manager-matching ;
|
game-devices-matching-seq hid-manager-matching ;
|
||||||
|
|
||||||
: device-property ( device key -- value )
|
: device-property ( device key -- value )
|
||||||
[
|
<NSString> IOHIDDeviceGetProperty plist> ;
|
||||||
<NSString> IOHIDDeviceGetProperty
|
|
||||||
[ &CFRelease plist> ] [ f ] if*
|
|
||||||
] with-destructors ;
|
|
||||||
: element-property ( element key -- value )
|
: element-property ( element key -- value )
|
||||||
[
|
<NSString> IOHIDElementGetProperty plist> ;
|
||||||
<NSString> IOHIDElementGetProperty
|
|
||||||
[ &CFRelease plist> ] [ f ] if*
|
|
||||||
] with-destructors ;
|
|
||||||
: set-element-property ( element key value -- )
|
: set-element-property ( element key value -- )
|
||||||
[ <NSString> ] [ >plist ] bi* IOHIDElementSetProperty drop ;
|
[ <NSString> ] [ >plist ] bi* IOHIDElementSetProperty drop ;
|
||||||
: transfer-element-property ( element from-key to-key -- )
|
: transfer-element-property ( element from-key to-key -- )
|
||||||
|
|
Loading…
Reference in New Issue