extra/openal/openal.factor

   1 ! Copyright (C) 2007 Chris Double.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel accessors arrays alien system combinators
   4 alien.syntax namespaces alien.c-types sequences vocabs.loader
   5 shuffle openal.backend alien.libraries generalizations
   6 specialized-arrays alien.destructors ;
   7 FROM: alien.c-types => float short ;
   8 SPECIALIZED-ARRAY: uint
   9 IN: openal
  10
  11 << "alut" {
  12         { [ os windows? ]  [ "alut.dll" ] }
  13         { [ os macosx? ] [
  14             "/System/Library/Frameworks/OpenAL.framework/OpenAL"
  15         ] }
  16         { [ os unix?  ]  [ "libalut.so" ] }
  17     } cond "cdecl" add-library >>
  18
  19 << "openal" {
  20         { [ os windows? ]  [ "OpenAL32.dll" ] }
  21         { [ os macosx? ] [
  22             "/System/Library/Frameworks/OpenAL.framework/OpenAL"
  23         ] }
  24         { [ os unix?  ]  [ "libopenal.so" ] }
  25     } cond "cdecl" add-library >>
  26
  27 << os macosx? [ "openal" deploy-library "alut" deploy-library ] unless >>
  28
  29 LIBRARY: openal
  30
  31 TYPEDEF: char ALboolean
  32 TYPEDEF: char ALchar
  33 TYPEDEF: char ALbyte
  34 TYPEDEF: uchar ALubyte
  35 TYPEDEF: short ALshort
  36 TYPEDEF: ushort ALushort
  37 TYPEDEF: int ALint
  38 TYPEDEF: uint ALuint
  39 TYPEDEF: int ALsizei
  40 TYPEDEF: int ALenum
  41 TYPEDEF: float ALfloat
  42 TYPEDEF: double ALdouble
  43
  44 CONSTANT: AL_INVALID -1
  45 CONSTANT: AL_NONE 0
  46 CONSTANT: AL_FALSE 0
  47 CONSTANT: AL_TRUE 1
  48 CONSTANT: AL_SOURCE_RELATIVE HEX: 202
  49 CONSTANT: AL_CONE_INNER_ANGLE HEX: 1001
  50 CONSTANT: AL_CONE_OUTER_ANGLE HEX: 1002
  51 CONSTANT: AL_PITCH HEX: 1003
  52 CONSTANT: AL_POSITION HEX: 1004
  53 CONSTANT: AL_DIRECTION HEX: 1005
  54 CONSTANT: AL_VELOCITY HEX: 1006
  55 CONSTANT: AL_LOOPING HEX: 1007
  56 CONSTANT: AL_BUFFER HEX: 1009
  57 CONSTANT: AL_GAIN HEX: 100A
  58 CONSTANT: AL_MIN_GAIN HEX: 100D
  59 CONSTANT: AL_MAX_GAIN HEX: 100E
  60 CONSTANT: AL_ORIENTATION HEX: 100F
  61 CONSTANT: AL_CHANNEL_MASK HEX: 3000
  62 CONSTANT: AL_SOURCE_STATE HEX: 1010
  63 CONSTANT: AL_INITIAL HEX: 1011
  64 CONSTANT: AL_PLAYING HEX: 1012
  65 CONSTANT: AL_PAUSED HEX: 1013
  66 CONSTANT: AL_STOPPED HEX: 1014
  67 CONSTANT: AL_BUFFERS_QUEUED HEX: 1015
  68 CONSTANT: AL_BUFFERS_PROCESSED HEX: 1016
  69 CONSTANT: AL_SEC_OFFSET HEX: 1024
  70 CONSTANT: AL_SAMPLE_OFFSET HEX: 1025
  71 CONSTANT: AL_BYTE_OFFSET HEX: 1026
  72 CONSTANT: AL_SOURCE_TYPE HEX: 1027
  73 CONSTANT: AL_STATIC HEX: 1028
  74 CONSTANT: AL_STREAMING HEX: 1029
  75 CONSTANT: AL_UNDETERMINED HEX: 1030
  76 CONSTANT: AL_FORMAT_MONO8 HEX: 1100
  77 CONSTANT: AL_FORMAT_MONO16 HEX: 1101
  78 CONSTANT: AL_FORMAT_STEREO8 HEX: 1102
  79 CONSTANT: AL_FORMAT_STEREO16 HEX: 1103
  80 CONSTANT: AL_REFERENCE_DISTANCE HEX: 1020
  81 CONSTANT: AL_ROLLOFF_FACTOR HEX: 1021
  82 CONSTANT: AL_CONE_OUTER_GAIN HEX: 1022
  83 CONSTANT: AL_MAX_DISTANCE HEX: 1023
  84 CONSTANT: AL_FREQUENCY HEX: 2001
  85 CONSTANT: AL_BITS HEX: 2002
  86 CONSTANT: AL_CHANNELS HEX: 2003
  87 CONSTANT: AL_SIZE HEX: 2004
  88 CONSTANT: AL_UNUSED HEX: 2010
  89 CONSTANT: AL_PENDING HEX: 2011
  90 CONSTANT: AL_PROCESSED HEX: 2012
  91 CONSTANT: AL_NO_ERROR AL_FALSE
  92 CONSTANT: AL_INVALID_NAME HEX: A001
  93 CONSTANT: AL_ILLEGAL_ENUM HEX: A002
  94 CONSTANT: AL_INVALID_ENUM HEX: A002
  95 CONSTANT: AL_INVALID_VALUE HEX: A003
  96 CONSTANT: AL_ILLEGAL_COMMAND HEX: A004
  97 CONSTANT: AL_INVALID_OPERATION HEX: A004
  98 CONSTANT: AL_OUT_OF_MEMORY HEX: A005
  99 CONSTANT: AL_VENDOR HEX: B001
 100 CONSTANT: AL_VERSION HEX: B002
 101 CONSTANT: AL_RENDERER HEX: B003
 102 CONSTANT: AL_EXTENSIONS HEX: B004
 103 CONSTANT: AL_DOPPLER_FACTOR HEX: C000
 104 CONSTANT: AL_DOPPLER_VELOCITY HEX: C001
 105 CONSTANT: AL_SPEED_OF_SOUND HEX: C003
 106 CONSTANT: AL_DISTANCE_MODEL HEX: D000
 107 CONSTANT: AL_INVERSE_DISTANCE HEX: D001
 108 CONSTANT: AL_INVERSE_DISTANCE_CLAMPED HEX: D002
 109 CONSTANT: AL_LINEAR_DISTANCE HEX: D003
 110 CONSTANT: AL_LINEAR_DISTANCE_CLAMPED HEX: D004
 111 CONSTANT: AL_EXPONENT_DISTANCE HEX: D005
 112 CONSTANT: AL_EXPONENT_DISTANCE_CLAMPED HEX: D006
 113
 114 FUNCTION: void alEnable ( ALenum capability ) ;
 115 FUNCTION: void alDisable ( ALenum capability ) ;
 116 FUNCTION: ALboolean alIsEnabled ( ALenum capability ) ;
 117 FUNCTION: ALchar* alGetString ( ALenum param ) ;
 118 FUNCTION: void alGetBooleanv ( ALenum param, ALboolean* data ) ;
 119 FUNCTION: void alGetIntegerv ( ALenum param, ALint* data ) ;
 120 FUNCTION: void alGetFloatv ( ALenum param, ALfloat* data ) ;
 121 FUNCTION: void alGetDoublev ( ALenum param, ALdouble* data ) ;
 122 FUNCTION: ALboolean alGetBoolean ( ALenum param ) ;
 123 FUNCTION: ALint alGetInteger ( ALenum param ) ;
 124 FUNCTION: ALfloat alGetFloat ( ALenum param ) ;
 125 FUNCTION: ALdouble alGetDouble ( ALenum param ) ;
 126 FUNCTION: ALenum alGetError (  ) ;
 127 FUNCTION: ALboolean alIsExtensionPresent ( ALchar* extname ) ;
 128 FUNCTION: void* alGetProcAddress ( ALchar* fname ) ;
 129 FUNCTION: ALenum alGetEnumValue ( ALchar* ename ) ;
 130 FUNCTION: void alListenerf ( ALenum param, ALfloat value ) ;
 131 FUNCTION: void alListener3f ( ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ) ;
 132 FUNCTION: void alListenerfv ( ALenum param, ALfloat* values ) ;
 133 FUNCTION: void alListeneri ( ALenum param, ALint value ) ;
 134 FUNCTION: void alListener3i ( ALenum param, ALint value1, ALint value2, ALint value3 ) ;
 135 FUNCTION: void alListeneriv ( ALenum param, ALint* values ) ;
 136 FUNCTION: void alGetListenerf ( ALenum param, ALfloat* value ) ;
 137 FUNCTION: void alGetListener3f ( ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3 ) ;
 138 FUNCTION: void alGetListenerfv ( ALenum param, ALfloat* values ) ;
 139 FUNCTION: void alGetListeneri ( ALenum param, ALint* value ) ;
 140 FUNCTION: void alGetListener3i ( ALenum param, ALint* value1, ALint* value2, ALint* value3 ) ;
 141 FUNCTION: void alGetListeneriv ( ALenum param, ALint* values ) ;
 142 FUNCTION: void alGenSources ( ALsizei n, ALuint* sources ) ;
 143 FUNCTION: void alDeleteSources ( ALsizei n, ALuint* sources ) ;
 144 FUNCTION: ALboolean alIsSource ( ALuint sid ) ;
 145 FUNCTION: void alSourcef ( ALuint sid, ALenum param, ALfloat value ) ;
 146 FUNCTION: void alSource3f ( ALuint sid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ) ;
 147 FUNCTION: void alSourcefv ( ALuint sid, ALenum param, ALfloat* values ) ;
 148 FUNCTION: void alSourcei ( ALuint sid, ALenum param, ALint value ) ;
 149 FUNCTION: void alSource3i ( ALuint sid, ALenum param, ALint value1, ALint value2, ALint value3 ) ;
 150 FUNCTION: void alSourceiv ( ALuint sid, ALenum param, ALint* values ) ;
 151 FUNCTION: void alGetSourcef ( ALuint sid, ALenum param, ALfloat* value ) ;
 152 FUNCTION: void alGetSource3f ( ALuint sid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3) ;
 153 FUNCTION: void alGetSourcefv ( ALuint sid, ALenum param, ALfloat* values ) ;
 154 FUNCTION: void alGetSourcei ( ALuint sid,  ALenum param, ALint* value ) ;
 155 FUNCTION: void alGetSource3i ( ALuint sid, ALenum param, ALint* value1, ALint* value2, ALint* value3) ;
 156 FUNCTION: void alGetSourceiv ( ALuint sid,  ALenum param, ALint* values ) ;
 157 FUNCTION: void alSourcePlayv ( ALsizei ns, ALuint* sids ) ;
 158 FUNCTION: void alSourceStopv ( ALsizei ns, ALuint* sids ) ;
 159 FUNCTION: void alSourceRewindv ( ALsizei ns, ALuint* sids ) ;
 160 FUNCTION: void alSourcePausev ( ALsizei ns, ALuint* sids ) ;
 161 FUNCTION: void alSourcePlay ( ALuint sid ) ;
 162 FUNCTION: void alSourceStop ( ALuint sid ) ;
 163 FUNCTION: void alSourceRewind ( ALuint sid ) ;
 164 FUNCTION: void alSourcePause ( ALuint sid ) ;
 165 FUNCTION: void alSourceQueueBuffers ( ALuint sid, ALsizei numEntries, ALuint* bids ) ;
 166 FUNCTION: void alSourceUnqueueBuffers ( ALuint sid, ALsizei numEntries, ALuint* bids ) ;
 167 FUNCTION: void alGenBuffers ( ALsizei n, ALuint* buffers ) ;
 168 FUNCTION: void alDeleteBuffers ( ALsizei n, ALuint* buffers ) ;
 169 FUNCTION: ALboolean alIsBuffer ( ALuint bid ) ;
 170 FUNCTION: void alBufferData ( ALuint bid, ALenum format, void* data, ALsizei size, ALsizei freq ) ;
 171 FUNCTION: void alBufferf ( ALuint bid, ALenum param, ALfloat value ) ;
 172 FUNCTION: void alBuffer3f ( ALuint bid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ) ;
 173 FUNCTION: void alBufferfv ( ALuint bid, ALenum param, ALfloat* values ) ;
 174 FUNCTION: void alBufferi ( ALuint bid, ALenum param, ALint value ) ;
 175 FUNCTION: void alBuffer3i ( ALuint bid, ALenum param, ALint value1, ALint value2, ALint value3 ) ;
 176 FUNCTION: void alBufferiv ( ALuint bid, ALenum param, ALint* values ) ;
 177 FUNCTION: void alGetBufferf ( ALuint bid, ALenum param, ALfloat* value ) ;
 178 FUNCTION: void alGetBuffer3f ( ALuint bid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3) ;
 179 FUNCTION: void alGetBufferfv ( ALuint bid, ALenum param, ALfloat* values ) ;
 180 FUNCTION: void alGetBufferi ( ALuint bid, ALenum param, ALint* value ) ;
 181 FUNCTION: void alGetBuffer3i ( ALuint bid, ALenum param, ALint* value1, ALint* value2, ALint* value3) ;
 182 FUNCTION: void alGetBufferiv ( ALuint bid, ALenum param, ALint* values ) ;
 183 FUNCTION: void alDopplerFactor ( ALfloat value ) ;
 184 FUNCTION: void alDopplerVelocity ( ALfloat value ) ;
 185 FUNCTION: void alSpeedOfSound ( ALfloat value ) ;
 186 FUNCTION: void alDistanceModel ( ALenum distanceModel ) ;
 187
 188 C-TYPE: ALCdevice
 189 C-TYPE: ALCcontext
 190 TYPEDEF: char ALCboolean
 191 TYPEDEF: char ALCchar
 192 TYPEDEF: int ALCenum
 193 TYPEDEF: int ALCint
 194 TYPEDEF: int ALCsizei
 195 TYPEDEF: uint ALCuint
 196
 197 CONSTANT: ALC_FALSE                                0
 198 CONSTANT: ALC_TRUE                                 1
 199 CONSTANT: ALC_FREQUENCY                            HEX: 1007
 200 CONSTANT: ALC_REFRESH                              HEX: 1008
 201 CONSTANT: ALC_SYNC                                 HEX: 1009
 202 CONSTANT: ALC_MONO_SOURCES                         HEX: 1010
 203 CONSTANT: ALC_STEREO_SOURCES                       HEX: 1011
 204
 205 CONSTANT: ALC_NO_ERROR                             0
 206
 207 CONSTANT: ALC_INVALID_DEVICE                       HEX: A001
 208 CONSTANT: ALC_INVALID_CONTEXT                      HEX: A002
 209 CONSTANT: ALC_INVALID_ENUM                         HEX: A003
 210 CONSTANT: ALC_INVALID_VALUE                        HEX: A004
 211 CONSTANT: ALC_OUT_OF_MEMORY                        HEX: A005
 212
 213 CONSTANT: ALC_DEFAULT_DEVICE_SPECIFIER             HEX: 1004
 214 CONSTANT: ALC_DEVICE_SPECIFIER                     HEX: 1005
 215 CONSTANT: ALC_EXTENSIONS                           HEX: 1006
 216
 217 CONSTANT: ALC_MAJOR_VERSION                        HEX: 1000
 218 CONSTANT: ALC_MINOR_VERSION                        HEX: 1001
 219
 220 CONSTANT: ALC_ATTRIBUTES_SIZE                      HEX: 1002
 221 CONSTANT: ALC_ALL_ATTRIBUTES                       HEX: 1003
 222 CONSTANT: ALC_DEFAULT_ALL_DEVICES_SPECIFIER        HEX: 1012
 223 CONSTANT: ALC_ALL_DEVICES_SPECIFIER                HEX: 1013
 224 CONSTANT: ALC_CAPTURE_DEVICE_SPECIFIER             HEX: 310
 225 CONSTANT: ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER     HEX: 311
 226 CONSTANT: ALC_CAPTURE_SAMPLES                      HEX: 312
 227
 228 FUNCTION: ALCdevice* alcOpenDevice ( ALCchar* deviceSpecifier ) ;
 229 FUNCTION: ALCboolean alcCloseDevice ( ALCdevice* deviceHandle ) ;
 230
 231 : alcCloseDevice* ( deviceHandle -- )
 232     alcCloseDevice drop ;
 233
 234 FUNCTION: ALCcontext* alcCreateContext ( ALCdevice* deviceHandle, ALCint* attrList ) ;
 235 FUNCTION: ALCboolean alcMakeContextCurrent ( ALCcontext* context ) ;
 236 FUNCTION: void alcProcessContext ( ALCcontext* context ) ;
 237 FUNCTION: void alcSuspendContext ( ALCcontext* context ) ;
 238 FUNCTION: void alcDestroyContext ( ALCcontext* context ) ;
 239 FUNCTION: ALCcontext* alcGetCurrentContext ( ) ;
 240 FUNCTION: ALCdevice* alcGetContextsDevice ( ALCcontext* context ) ;
 241 FUNCTION: ALCboolean alcIsExtensionPresent ( ALCdevice* deviceHandle, ALCchar* extName ) ;
 242 FUNCTION: void* alcGetProcAddress ( ALCdevice* deviceHandle, ALCchar* funcName ) ;
 243 FUNCTION: ALCenum alcGetEnumValue ( ALCdevice* deviceHandle, ALCchar* enumName ) ;
 244 FUNCTION: ALCenum alcGetError ( ALCdevice* deviceHandle ) ;
 245 FUNCTION: ALCchar* alcGetString ( ALCdevice* deviceHandle, ALCenum token ) ;
 246 FUNCTION: void alcGetIntegerv ( ALCdevice* deviceHandle, ALCenum token, ALCsizei size, ALCint* dest ) ;
 247
 248 FUNCTION: ALCdevice* alcCaptureOpenDevice ( ALCchar* deviceName, ALCuint freq, ALCenum fmt, ALCsizei bufsize ) ;
 249 FUNCTION: ALCboolean alcCaptureCloseDevice ( ALCdevice* device ) ;
 250 FUNCTION: void alcCaptureStart ( ALCdevice* device ) ;
 251 FUNCTION: void alcCaptureStop ( ALCdevice* device ) ;
 252 FUNCTION: void alcCaptureSamples ( ALCdevice* device, void* buf, ALCsizei samps ) ;
 253
 254 DESTRUCTOR: alcCloseDevice*
 255 DESTRUCTOR: alcDestroyContext
 256
 257 LIBRARY: alut
 258
 259 CONSTANT: ALUT_API_MAJOR_VERSION 1
 260 CONSTANT: ALUT_API_MINOR_VERSION 1
 261 CONSTANT: ALUT_ERROR_NO_ERROR 0
 262 CONSTANT: ALUT_ERROR_OUT_OF_MEMORY HEX: 200
 263 CONSTANT: ALUT_ERROR_INVALID_ENUM HEX: 201
 264 CONSTANT: ALUT_ERROR_INVALID_VALUE HEX: 202
 265 CONSTANT: ALUT_ERROR_INVALID_OPERATION HEX: 203
 266 CONSTANT: ALUT_ERROR_NO_CURRENT_CONTEXT HEX: 204
 267 CONSTANT: ALUT_ERROR_AL_ERROR_ON_ENTRY HEX: 205
 268 CONSTANT: ALUT_ERROR_ALC_ERROR_ON_ENTRY HEX: 206
 269 CONSTANT: ALUT_ERROR_OPEN_DEVICE HEX: 207
 270 CONSTANT: ALUT_ERROR_CLOSE_DEVICE HEX: 208
 271 CONSTANT: ALUT_ERROR_CREATE_CONTEXT HEX: 209
 272 CONSTANT: ALUT_ERROR_MAKE_CONTEXT_CURRENT HEX: 20A
 273 CONSTANT: ALUT_ERROR_DESTRY_CONTEXT HEX: 20B
 274 CONSTANT: ALUT_ERROR_GEN_BUFFERS HEX: 20C
 275 CONSTANT: ALUT_ERROR_BUFFER_DATA HEX: 20D
 276 CONSTANT: ALUT_ERROR_IO_ERROR HEX: 20E
 277 CONSTANT: ALUT_ERROR_UNSUPPORTED_FILE_TYPE HEX: 20F
 278 CONSTANT: ALUT_ERROR_UNSUPPORTED_FILE_SUBTYPE HEX: 210
 279 CONSTANT: ALUT_ERROR_CORRUPT_OR_TRUNCATED_DATA HEX: 211
 280 CONSTANT: ALUT_WAVEFORM_SINE HEX: 100
 281 CONSTANT: ALUT_WAVEFORM_SQUARE HEX: 101
 282 CONSTANT: ALUT_WAVEFORM_SAWTOOTH HEX: 102
 283 CONSTANT: ALUT_WAVEFORM_WHITENOISE HEX: 103
 284 CONSTANT: ALUT_WAVEFORM_IMPULSE HEX: 104
 285 CONSTANT: ALUT_LOADER_BUFFER HEX: 300
 286 CONSTANT: ALUT_LOADER_MEMORY HEX: 301
 287
 288 FUNCTION: ALboolean alutInit ( int* argcp, char** argv ) ;
 289 FUNCTION: ALboolean alutInitWithoutContext ( int* argcp, char** argv ) ;
 290 FUNCTION: ALboolean alutExit ( ) ;
 291 FUNCTION: ALenum alutGetError ( ) ;
 292 FUNCTION: char* alutGetErrorString ( ALenum error ) ;
 293 FUNCTION: ALuint alutCreateBufferFromFile ( char* fileName ) ;
 294 FUNCTION: ALuint alutCreateBufferFromFileImage ( void* data, ALsizei length ) ;
 295 FUNCTION: ALuint alutCreateBufferHelloWorld ( ) ;
 296 FUNCTION: ALuint alutCreateBufferWaveform ( ALenum waveshape, ALfloat frequency, ALfloat phase, ALfloat duration ) ;
 297 FUNCTION: void* alutLoadMemoryFromFile ( char* fileName, ALenum* format, ALsizei* size, ALfloat* frequency ) ;
 298 FUNCTION: void* alutLoadMemoryFromFileImage ( void* data, ALsizei length, ALenum* format, ALsizei* size, ALfloat* frequency ) ;
 299 FUNCTION: void* alutLoadMemoryHelloWorld ( ALenum* format, ALsizei* size, ALfloat* frequency ) ;
 300 FUNCTION: void* alutLoadMemoryWaveform ( ALenum waveshape, ALfloat frequency, ALfloat phase, ALfloat duration, ALenum* format, ALsizei* size, ALfloat* freq ) ;
 301 FUNCTION: char* alutGetMIMETypes ( ALenum loader ) ;
 302 FUNCTION: ALint alutGetMajorVersion ( ) ;
 303 FUNCTION: ALint alutGetMinorVersion ( ) ;
 304 FUNCTION: ALboolean alutSleep ( ALfloat duration ) ;
 305
 306 FUNCTION: void alutUnloadWAV ( ALenum format, void* data, ALsizei size, ALsizei frequency ) ;
 307
 308 SYMBOL: init
 309
 310 : init-openal ( -- )
 311     init get-global expired? [
 312         f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when
 313         1337 <alien> init set-global
 314     ] when ;
 315
 316 : exit-openal ( -- )
 317     init get-global expired? [
 318         alutExit 0 = [ "Could not close OpenAL" throw ] when
 319         f init set-global
 320     ] unless ;
 321
 322 : gen-sources ( size -- seq )
 323     dup <uint-array> [ alGenSources ] keep ;
 324
 325 : gen-buffers ( size -- seq )
 326     dup <uint-array> [ alGenBuffers ] keep ;
 327
 328 : gen-buffer ( -- buffer ) 1 gen-buffers first ;
 329
 330 : create-buffer-from-file ( filename -- buffer )
 331     alutCreateBufferFromFile dup AL_NONE = [
 332         "create-buffer-from-file failed" throw
 333     ] when ;
 334
 335 os macosx? "openal.macosx" "openal.other" ? require
 336
 337 : create-buffer-from-wav ( filename -- buffer )
 338     gen-buffer dup rot load-wav-file
 339     [ alBufferData ] 4 nkeep alutUnloadWAV ;
 340
 341 : queue-buffers ( source buffers -- )
 342     [ length ] [ >uint-array ] bi alSourceQueueBuffers ;
 343
 344 : queue-buffer ( source buffer -- )
 345     1array queue-buffers ;
 346
 347 : set-source-param ( source param value -- )
 348     alSourcei ;
 349
 350 : get-source-param ( source param -- value )
 351     0 <uint> dup [ alGetSourcei ] dip *uint ;
 352
 353 : set-buffer-param ( source param value -- )
 354     alBufferi ;
 355
 356 : get-buffer-param ( source param -- value )
 357     0 <uint> dup [ alGetBufferi ] dip *uint ;
 358
 359 : source-play ( source -- ) alSourcePlay ;
 360
 361 : source-stop ( source -- ) alSourceStop ;
 362
 363 : check-error ( -- )
 364     alGetError dup ALUT_ERROR_NO_ERROR = [
 365         drop
 366     ] [
 367         alGetString throw
 368     ] if ;
 369
 370 : source-playing? ( source -- bool )
 371     AL_SOURCE_STATE get-source-param AL_PLAYING = ;