extra/openal/openal.factor

   1 ! Copyright (C) 2007 Chris Double.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.data alien.destructors
   4 alien.libraries alien.syntax arrays combinators kernel sequences
   5 system ;
   6 FROM: alien.c-types => char double float int short uchar uint
   7 ushort void ;
   8 IN: openal
   9
  10 << "openal" {
  11         { [ os windows? ]  [ "OpenAL32.dll" ] }
  12         { [ os macosx? ] [
  13             "/System/Library/Frameworks/OpenAL.framework/OpenAL"
  14         ] }
  15         { [ os unix?  ]  [ "libopenal.so" ] }
  16     } cond cdecl add-library >>
  17
  18 << os unix? [ "openal" deploy-library ] unless >>
  19
  20 LIBRARY: openal
  21
  22 TYPEDEF: char ALboolean
  23 TYPEDEF: char ALchar
  24 TYPEDEF: char ALbyte
  25 TYPEDEF: uchar ALubyte
  26 TYPEDEF: short ALshort
  27 TYPEDEF: ushort ALushort
  28 TYPEDEF: int ALint
  29 TYPEDEF: uint ALuint
  30 TYPEDEF: int ALsizei
  31 TYPEDEF: int ALenum
  32 TYPEDEF: float ALfloat
  33 TYPEDEF: double ALdouble
  34
  35 CONSTANT: AL_INVALID -1
  36 CONSTANT: AL_NONE 0
  37 CONSTANT: AL_FALSE 0
  38 CONSTANT: AL_TRUE 1
  39 CONSTANT: AL_SOURCE_RELATIVE 0x202
  40 CONSTANT: AL_CONE_INNER_ANGLE 0x1001
  41 CONSTANT: AL_CONE_OUTER_ANGLE 0x1002
  42 CONSTANT: AL_PITCH 0x1003
  43 CONSTANT: AL_POSITION 0x1004
  44 CONSTANT: AL_DIRECTION 0x1005
  45 CONSTANT: AL_VELOCITY 0x1006
  46 CONSTANT: AL_LOOPING 0x1007
  47 CONSTANT: AL_BUFFER 0x1009
  48 CONSTANT: AL_GAIN 0x100A
  49 CONSTANT: AL_MIN_GAIN 0x100D
  50 CONSTANT: AL_MAX_GAIN 0x100E
  51 CONSTANT: AL_ORIENTATION 0x100F
  52 CONSTANT: AL_CHANNEL_MASK 0x3000
  53 CONSTANT: AL_SOURCE_STATE 0x1010
  54 CONSTANT: AL_INITIAL 0x1011
  55 CONSTANT: AL_PLAYING 0x1012
  56 CONSTANT: AL_PAUSED 0x1013
  57 CONSTANT: AL_STOPPED 0x1014
  58 CONSTANT: AL_BUFFERS_QUEUED 0x1015
  59 CONSTANT: AL_BUFFERS_PROCESSED 0x1016
  60 CONSTANT: AL_SEC_OFFSET 0x1024
  61 CONSTANT: AL_SAMPLE_OFFSET 0x1025
  62 CONSTANT: AL_BYTE_OFFSET 0x1026
  63 CONSTANT: AL_SOURCE_TYPE 0x1027
  64 CONSTANT: AL_STATIC 0x1028
  65 CONSTANT: AL_STREAMING 0x1029
  66 CONSTANT: AL_UNDETERMINED 0x1030
  67 CONSTANT: AL_FORMAT_MONO8 0x1100
  68 CONSTANT: AL_FORMAT_MONO16 0x1101
  69 CONSTANT: AL_FORMAT_STEREO8 0x1102
  70 CONSTANT: AL_FORMAT_STEREO16 0x1103
  71 CONSTANT: AL_REFERENCE_DISTANCE 0x1020
  72 CONSTANT: AL_ROLLOFF_FACTOR 0x1021
  73 CONSTANT: AL_CONE_OUTER_GAIN 0x1022
  74 CONSTANT: AL_MAX_DISTANCE 0x1023
  75 CONSTANT: AL_FREQUENCY 0x2001
  76 CONSTANT: AL_BITS 0x2002
  77 CONSTANT: AL_CHANNELS 0x2003
  78 CONSTANT: AL_SIZE 0x2004
  79 CONSTANT: AL_UNUSED 0x2010
  80 CONSTANT: AL_PENDING 0x2011
  81 CONSTANT: AL_PROCESSED 0x2012
  82 CONSTANT: AL_NO_ERROR AL_FALSE
  83 CONSTANT: AL_INVALID_NAME 0xA001
  84 CONSTANT: AL_ILLEGAL_ENUM 0xA002
  85 CONSTANT: AL_INVALID_ENUM 0xA002
  86 CONSTANT: AL_INVALID_VALUE 0xA003
  87 CONSTANT: AL_ILLEGAL_COMMAND 0xA004
  88 CONSTANT: AL_INVALID_OPERATION 0xA004
  89 CONSTANT: AL_OUT_OF_MEMORY 0xA005
  90 CONSTANT: AL_VENDOR 0xB001
  91 CONSTANT: AL_VERSION 0xB002
  92 CONSTANT: AL_RENDERER 0xB003
  93 CONSTANT: AL_EXTENSIONS 0xB004
  94 CONSTANT: AL_DOPPLER_FACTOR 0xC000
  95 CONSTANT: AL_DOPPLER_VELOCITY 0xC001
  96 CONSTANT: AL_SPEED_OF_SOUND 0xC003
  97 CONSTANT: AL_DISTANCE_MODEL 0xD000
  98 CONSTANT: AL_INVERSE_DISTANCE 0xD001
  99 CONSTANT: AL_INVERSE_DISTANCE_CLAMPED 0xD002
 100 CONSTANT: AL_LINEAR_DISTANCE 0xD003
 101 CONSTANT: AL_LINEAR_DISTANCE_CLAMPED 0xD004
 102 CONSTANT: AL_EXPONENT_DISTANCE 0xD005
 103 CONSTANT: AL_EXPONENT_DISTANCE_CLAMPED 0xD006
 104
 105 FUNCTION: void alEnable ( ALenum capability )
 106 FUNCTION: void alDisable ( ALenum capability )
 107 FUNCTION: ALboolean alIsEnabled ( ALenum capability )
 108 FUNCTION: ALchar* alGetString ( ALenum param )
 109 FUNCTION: void alGetBooleanv ( ALenum param, ALboolean* data )
 110 FUNCTION: void alGetIntegerv ( ALenum param, ALint* data )
 111 FUNCTION: void alGetFloatv ( ALenum param, ALfloat* data )
 112 FUNCTION: void alGetDoublev ( ALenum param, ALdouble* data )
 113 FUNCTION: ALboolean alGetBoolean ( ALenum param )
 114 FUNCTION: ALint alGetInteger ( ALenum param )
 115 FUNCTION: ALfloat alGetFloat ( ALenum param )
 116 FUNCTION: ALdouble alGetDouble ( ALenum param )
 117 FUNCTION: ALenum alGetError (  )
 118 FUNCTION: ALboolean alIsExtensionPresent ( ALchar* extname )
 119 FUNCTION: void* alGetProcAddress ( ALchar* fname )
 120 FUNCTION: ALenum alGetEnumValue ( ALchar* ename )
 121 FUNCTION: void alListenerf ( ALenum param, ALfloat value )
 122 FUNCTION: void alListener3f ( ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 )
 123 FUNCTION: void alListenerfv ( ALenum param, ALfloat* values )
 124 FUNCTION: void alListeneri ( ALenum param, ALint value )
 125 FUNCTION: void alListener3i ( ALenum param, ALint value1, ALint value2, ALint value3 )
 126 FUNCTION: void alListeneriv ( ALenum param, ALint* values )
 127 FUNCTION: void alGetListenerf ( ALenum param, ALfloat* value )
 128 FUNCTION: void alGetListener3f ( ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3 )
 129 FUNCTION: void alGetListenerfv ( ALenum param, ALfloat* values )
 130 FUNCTION: void alGetListeneri ( ALenum param, ALint* value )
 131 FUNCTION: void alGetListener3i ( ALenum param, ALint* value1, ALint* value2, ALint* value3 )
 132 FUNCTION: void alGetListeneriv ( ALenum param, ALint* values )
 133 FUNCTION: void alGenSources ( ALsizei n, ALuint* sources )
 134 FUNCTION: void alDeleteSources ( ALsizei n, ALuint* sources )
 135 FUNCTION: ALboolean alIsSource ( ALuint sid )
 136 FUNCTION: void alSourcef ( ALuint sid, ALenum param, ALfloat value )
 137 FUNCTION: void alSource3f ( ALuint sid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 )
 138 FUNCTION: void alSourcefv ( ALuint sid, ALenum param, ALfloat* values )
 139 FUNCTION: void alSourcei ( ALuint sid, ALenum param, ALint value )
 140 FUNCTION: void alSource3i ( ALuint sid, ALenum param, ALint value1, ALint value2, ALint value3 )
 141 FUNCTION: void alSourceiv ( ALuint sid, ALenum param, ALint* values )
 142 FUNCTION: void alGetSourcef ( ALuint sid, ALenum param, ALfloat* value )
 143 FUNCTION: void alGetSource3f ( ALuint sid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3 )
 144 FUNCTION: void alGetSourcefv ( ALuint sid, ALenum param, ALfloat* values )
 145 FUNCTION: void alGetSourcei ( ALuint sid,  ALenum param, ALint* value )
 146 FUNCTION: void alGetSource3i ( ALuint sid, ALenum param, ALint* value1, ALint* value2, ALint* value3 )
 147 FUNCTION: void alGetSourceiv ( ALuint sid,  ALenum param, ALint* values )
 148 FUNCTION: void alSourcePlayv ( ALsizei ns, ALuint* sids )
 149 FUNCTION: void alSourceStopv ( ALsizei ns, ALuint* sids )
 150 FUNCTION: void alSourceRewindv ( ALsizei ns, ALuint* sids )
 151 FUNCTION: void alSourcePausev ( ALsizei ns, ALuint* sids )
 152 FUNCTION: void alSourcePlay ( ALuint sid )
 153 FUNCTION: void alSourceStop ( ALuint sid )
 154 FUNCTION: void alSourceRewind ( ALuint sid )
 155 FUNCTION: void alSourcePause ( ALuint sid )
 156 FUNCTION: void alSourceQueueBuffers ( ALuint sid, ALsizei numEntries, ALuint* bids )
 157 FUNCTION: void alSourceUnqueueBuffers ( ALuint sid, ALsizei numEntries, ALuint* bids )
 158 FUNCTION: void alGenBuffers ( ALsizei n, ALuint* buffers )
 159 FUNCTION: void alDeleteBuffers ( ALsizei n, ALuint* buffers )
 160 FUNCTION: ALboolean alIsBuffer ( ALuint bid )
 161 FUNCTION: void alBufferData ( ALuint bid, ALenum format, void* data, ALsizei size, ALsizei freq )
 162 FUNCTION: void alBufferf ( ALuint bid, ALenum param, ALfloat value )
 163 FUNCTION: void alBuffer3f ( ALuint bid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 )
 164 FUNCTION: void alBufferfv ( ALuint bid, ALenum param, ALfloat* values )
 165 FUNCTION: void alBufferi ( ALuint bid, ALenum param, ALint value )
 166 FUNCTION: void alBuffer3i ( ALuint bid, ALenum param, ALint value1, ALint value2, ALint value3 )
 167 FUNCTION: void alBufferiv ( ALuint bid, ALenum param, ALint* values )
 168 FUNCTION: void alGetBufferf ( ALuint bid, ALenum param, ALfloat* value )
 169 FUNCTION: void alGetBuffer3f ( ALuint bid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3 )
 170 FUNCTION: void alGetBufferfv ( ALuint bid, ALenum param, ALfloat* values )
 171 FUNCTION: void alGetBufferi ( ALuint bid, ALenum param, ALint* value )
 172 FUNCTION: void alGetBuffer3i ( ALuint bid, ALenum param, ALint* value1, ALint* value2, ALint* value3 )
 173 FUNCTION: void alGetBufferiv ( ALuint bid, ALenum param, ALint* values )
 174 FUNCTION: void alDopplerFactor ( ALfloat value )
 175 FUNCTION: void alDopplerVelocity ( ALfloat value )
 176 FUNCTION: void alSpeedOfSound ( ALfloat value )
 177 FUNCTION: void alDistanceModel ( ALenum distanceModel )
 178
 179 C-TYPE: ALCdevice
 180 C-TYPE: ALCcontext
 181 TYPEDEF: char ALCboolean
 182 TYPEDEF: char ALCchar
 183 TYPEDEF: int ALCenum
 184 TYPEDEF: int ALCint
 185 TYPEDEF: int ALCsizei
 186 TYPEDEF: uint ALCuint
 187
 188 CONSTANT: ALC_FALSE                                0
 189 CONSTANT: ALC_TRUE                                 1
 190 CONSTANT: ALC_FREQUENCY                            0x1007
 191 CONSTANT: ALC_REFRESH                              0x1008
 192 CONSTANT: ALC_SYNC                                 0x1009
 193 CONSTANT: ALC_MONO_SOURCES                         0x1010
 194 CONSTANT: ALC_STEREO_SOURCES                       0x1011
 195
 196 CONSTANT: ALC_NO_ERROR                             0
 197
 198 CONSTANT: ALC_INVALID_DEVICE                       0xA001
 199 CONSTANT: ALC_INVALID_CONTEXT                      0xA002
 200 CONSTANT: ALC_INVALID_ENUM                         0xA003
 201 CONSTANT: ALC_INVALID_VALUE                        0xA004
 202 CONSTANT: ALC_OUT_OF_MEMORY                        0xA005
 203
 204 CONSTANT: ALC_DEFAULT_DEVICE_SPECIFIER             0x1004
 205 CONSTANT: ALC_DEVICE_SPECIFIER                     0x1005
 206 CONSTANT: ALC_EXTENSIONS                           0x1006
 207
 208 CONSTANT: ALC_MAJOR_VERSION                        0x1000
 209 CONSTANT: ALC_MINOR_VERSION                        0x1001
 210
 211 CONSTANT: ALC_ATTRIBUTES_SIZE                      0x1002
 212 CONSTANT: ALC_ALL_ATTRIBUTES                       0x1003
 213 CONSTANT: ALC_DEFAULT_ALL_DEVICES_SPECIFIER        0x1012
 214 CONSTANT: ALC_ALL_DEVICES_SPECIFIER                0x1013
 215 CONSTANT: ALC_CAPTURE_DEVICE_SPECIFIER             0x310
 216 CONSTANT: ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER     0x311
 217 CONSTANT: ALC_CAPTURE_SAMPLES                      0x312
 218
 219 FUNCTION: ALCdevice* alcOpenDevice ( ALCchar* deviceSpecifier )
 220 FUNCTION: ALCboolean alcCloseDevice ( ALCdevice* deviceHandle )
 221
 222 : alcCloseDevice* ( deviceHandle -- )
 223     alcCloseDevice drop ;
 224
 225 FUNCTION: ALCcontext* alcCreateContext ( ALCdevice* deviceHandle, ALCint* attrList )
 226 FUNCTION: ALCboolean alcMakeContextCurrent ( ALCcontext* context )
 227 FUNCTION: void alcProcessContext ( ALCcontext* context )
 228 FUNCTION: void alcSuspendContext ( ALCcontext* context )
 229 FUNCTION: void alcDestroyContext ( ALCcontext* context )
 230 FUNCTION: ALCcontext* alcGetCurrentContext ( )
 231 FUNCTION: ALCdevice* alcGetContextsDevice ( ALCcontext* context )
 232 FUNCTION: ALCboolean alcIsExtensionPresent ( ALCdevice* deviceHandle, ALCchar* extName )
 233 FUNCTION: void* alcGetProcAddress ( ALCdevice* deviceHandle, ALCchar* funcName )
 234 FUNCTION: ALCenum alcGetEnumValue ( ALCdevice* deviceHandle, ALCchar* enumName )
 235 FUNCTION: ALCenum alcGetError ( ALCdevice* deviceHandle )
 236 FUNCTION: ALCchar* alcGetString ( ALCdevice* deviceHandle, ALCenum token )
 237 FUNCTION: void alcGetIntegerv ( ALCdevice* deviceHandle, ALCenum token, ALCsizei size, ALCint* dest )
 238
 239 FUNCTION: ALCdevice* alcCaptureOpenDevice ( ALCchar* deviceName, ALCuint freq, ALCenum fmt, ALCsizei bufsize )
 240 FUNCTION: ALCboolean alcCaptureCloseDevice ( ALCdevice* device )
 241 FUNCTION: void alcCaptureStart ( ALCdevice* device )
 242 FUNCTION: void alcCaptureStop ( ALCdevice* device )
 243 FUNCTION: void alcCaptureSamples ( ALCdevice* device, void* buf, ALCsizei samps )
 244
 245 DESTRUCTOR: alcCloseDevice*
 246 DESTRUCTOR: alcDestroyContext
 247
 248 : gen-sources ( size -- seq )
 249     dup uint <c-array> [ alGenSources ] keep ;
 250
 251 : gen-buffers ( size -- seq )
 252     dup uint <c-array> [ alGenBuffers ] keep ;
 253
 254 : gen-buffer ( -- buffer ) 1 gen-buffers first ;
 255
 256 : queue-buffers ( source buffers -- )
 257     [ length ] [ uint >c-array ] bi alSourceQueueBuffers ;
 258
 259 : queue-buffer ( source buffer -- )
 260     1array queue-buffers ;
 261
 262 : set-source-param ( source param value -- )
 263     alSourcei ;
 264
 265 : get-source-param ( source param -- value )
 266     0 uint <ref> dup [ alGetSourcei ] dip uint deref ;
 267
 268 : set-buffer-param ( source param value -- )
 269     alBufferi ;
 270
 271 : get-buffer-param ( source param -- value )
 272     0 uint <ref> dup [ alGetBufferi ] dip uint deref ;
 273
 274 : source-play ( source -- ) alSourcePlay ;
 275
 276 : source-stop ( source -- ) alSourceStop ;
 277
 278 : source-playing? ( source -- bool )
 279     AL_SOURCE_STATE get-source-param AL_PLAYING = ;