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