 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 ) ;

USING: kernel accessors arrays alien system combinators
alien.syntax namespaces alien.c-types sequences vocabs.loader
shuffle openal.backend alien.libraries generalizations
specialized-arrays ;
FROM: alien.c-types => float short ;
SPECIALIZED-ARRAY: uint
IN: openal

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

