add DESTRUCTOR:s for alcCloseDevice and alcDestroyContext

db4
Joe Groff 2010-01-19 10:28:36 -08:00
parent ee0eaf4ede
commit 5f8755a30c
1 changed files with 7 additions and 1 deletions

View File

@ -3,7 +3,7 @@
USING: kernel accessors arrays alien system combinators USING: kernel accessors arrays alien system combinators
alien.syntax namespaces alien.c-types sequences vocabs.loader alien.syntax namespaces alien.c-types sequences vocabs.loader
shuffle openal.backend alien.libraries generalizations shuffle openal.backend alien.libraries generalizations
specialized-arrays ; specialized-arrays alien.destructors ;
FROM: alien.c-types => float short ; FROM: alien.c-types => float short ;
SPECIALIZED-ARRAY: uint SPECIALIZED-ARRAY: uint
IN: openal IN: openal
@ -226,6 +226,9 @@ CONSTANT: ALC_CAPTURE_SAMPLES HEX: 312
FUNCTION: ALCdevice* alcOpenDevice ( ALCchar* deviceSpecifier ) ; FUNCTION: ALCdevice* alcOpenDevice ( ALCchar* deviceSpecifier ) ;
FUNCTION: ALCboolean alcCloseDevice ( ALCdevice* deviceHandle ) ; FUNCTION: ALCboolean alcCloseDevice ( ALCdevice* deviceHandle ) ;
: alcCloseDevice* ( deviceHandle -- )
alcCloseDevice drop ;
FUNCTION: ALCcontext* alcCreateContext ( ALCdevice* deviceHandle, ALCint* attrList ) ; FUNCTION: ALCcontext* alcCreateContext ( ALCdevice* deviceHandle, ALCint* attrList ) ;
FUNCTION: ALCboolean alcMakeContextCurrent ( ALCcontext* context ) ; FUNCTION: ALCboolean alcMakeContextCurrent ( ALCcontext* context ) ;
FUNCTION: void alcProcessContext ( ALCcontext* context ) ; FUNCTION: void alcProcessContext ( ALCcontext* context ) ;
@ -246,6 +249,9 @@ FUNCTION: void alcCaptureStart ( ALCdevice* device ) ;
FUNCTION: void alcCaptureStop ( ALCdevice* device ) ; FUNCTION: void alcCaptureStop ( ALCdevice* device ) ;
FUNCTION: void alcCaptureSamples ( ALCdevice* device, void* buf, ALCsizei samps ) ; FUNCTION: void alcCaptureSamples ( ALCdevice* device, void* buf, ALCsizei samps ) ;
DESTRUCTOR: alcCloseDevice*
DESTRUCTOR: alcDestroyContext
LIBRARY: alut LIBRARY: alut
CONSTANT: ALUT_API_MAJOR_VERSION 1 CONSTANT: ALUT_API_MAJOR_VERSION 1