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 alien.libraries generalizations
6 specialized-arrays alien.destructors ;
7 FROM: alien.c-types => float short ;
8 SPECIALIZED-ARRAY: uint
12 { [ os windows? ] [ "OpenAL32.dll" ] }
14 "/System/Library/Frameworks/OpenAL.framework/OpenAL"
16 { [ os unix? ] [ "libopenal.so" ] }
17 } cond cdecl add-library >>
19 << os macosx? [ "openal" deploy-library ] unless >>
23 TYPEDEF: char ALboolean
26 TYPEDEF: uchar ALubyte
27 TYPEDEF: short ALshort
28 TYPEDEF: ushort ALushort
33 TYPEDEF: float ALfloat
34 TYPEDEF: double ALdouble
36 CONSTANT: AL_INVALID -1
40 CONSTANT: AL_SOURCE_RELATIVE HEX: 202
41 CONSTANT: AL_CONE_INNER_ANGLE HEX: 1001
42 CONSTANT: AL_CONE_OUTER_ANGLE HEX: 1002
43 CONSTANT: AL_PITCH HEX: 1003
44 CONSTANT: AL_POSITION HEX: 1004
45 CONSTANT: AL_DIRECTION HEX: 1005
46 CONSTANT: AL_VELOCITY HEX: 1006
47 CONSTANT: AL_LOOPING HEX: 1007
48 CONSTANT: AL_BUFFER HEX: 1009
49 CONSTANT: AL_GAIN HEX: 100A
50 CONSTANT: AL_MIN_GAIN HEX: 100D
51 CONSTANT: AL_MAX_GAIN HEX: 100E
52 CONSTANT: AL_ORIENTATION HEX: 100F
53 CONSTANT: AL_CHANNEL_MASK HEX: 3000
54 CONSTANT: AL_SOURCE_STATE HEX: 1010
55 CONSTANT: AL_INITIAL HEX: 1011
56 CONSTANT: AL_PLAYING HEX: 1012
57 CONSTANT: AL_PAUSED HEX: 1013
58 CONSTANT: AL_STOPPED HEX: 1014
59 CONSTANT: AL_BUFFERS_QUEUED HEX: 1015
60 CONSTANT: AL_BUFFERS_PROCESSED HEX: 1016
61 CONSTANT: AL_SEC_OFFSET HEX: 1024
62 CONSTANT: AL_SAMPLE_OFFSET HEX: 1025
63 CONSTANT: AL_BYTE_OFFSET HEX: 1026
64 CONSTANT: AL_SOURCE_TYPE HEX: 1027
65 CONSTANT: AL_STATIC HEX: 1028
66 CONSTANT: AL_STREAMING HEX: 1029
67 CONSTANT: AL_UNDETERMINED HEX: 1030
68 CONSTANT: AL_FORMAT_MONO8 HEX: 1100
69 CONSTANT: AL_FORMAT_MONO16 HEX: 1101
70 CONSTANT: AL_FORMAT_STEREO8 HEX: 1102
71 CONSTANT: AL_FORMAT_STEREO16 HEX: 1103
72 CONSTANT: AL_REFERENCE_DISTANCE HEX: 1020
73 CONSTANT: AL_ROLLOFF_FACTOR HEX: 1021
74 CONSTANT: AL_CONE_OUTER_GAIN HEX: 1022
75 CONSTANT: AL_MAX_DISTANCE HEX: 1023
76 CONSTANT: AL_FREQUENCY HEX: 2001
77 CONSTANT: AL_BITS HEX: 2002
78 CONSTANT: AL_CHANNELS HEX: 2003
79 CONSTANT: AL_SIZE HEX: 2004
80 CONSTANT: AL_UNUSED HEX: 2010
81 CONSTANT: AL_PENDING HEX: 2011
82 CONSTANT: AL_PROCESSED HEX: 2012
83 CONSTANT: AL_NO_ERROR AL_FALSE
84 CONSTANT: AL_INVALID_NAME HEX: A001
85 CONSTANT: AL_ILLEGAL_ENUM HEX: A002
86 CONSTANT: AL_INVALID_ENUM HEX: A002
87 CONSTANT: AL_INVALID_VALUE HEX: A003
88 CONSTANT: AL_ILLEGAL_COMMAND HEX: A004
89 CONSTANT: AL_INVALID_OPERATION HEX: A004
90 CONSTANT: AL_OUT_OF_MEMORY HEX: A005
91 CONSTANT: AL_VENDOR HEX: B001
92 CONSTANT: AL_VERSION HEX: B002
93 CONSTANT: AL_RENDERER HEX: B003
94 CONSTANT: AL_EXTENSIONS HEX: B004
95 CONSTANT: AL_DOPPLER_FACTOR HEX: C000
96 CONSTANT: AL_DOPPLER_VELOCITY HEX: C001
97 CONSTANT: AL_SPEED_OF_SOUND HEX: C003
98 CONSTANT: AL_DISTANCE_MODEL HEX: D000
99 CONSTANT: AL_INVERSE_DISTANCE HEX: D001
100 CONSTANT: AL_INVERSE_DISTANCE_CLAMPED HEX: D002
101 CONSTANT: AL_LINEAR_DISTANCE HEX: D003
102 CONSTANT: AL_LINEAR_DISTANCE_CLAMPED HEX: D004
103 CONSTANT: AL_EXPONENT_DISTANCE HEX: D005
104 CONSTANT: AL_EXPONENT_DISTANCE_CLAMPED HEX: D006
106 FUNCTION: void alEnable ( ALenum capability ) ;
107 FUNCTION: void alDisable ( ALenum capability ) ;
108 FUNCTION: ALboolean alIsEnabled ( ALenum capability ) ;
109 FUNCTION: ALchar* alGetString ( ALenum param ) ;
110 FUNCTION: void alGetBooleanv ( ALenum param, ALboolean* data ) ;
111 FUNCTION: void alGetIntegerv ( ALenum param, ALint* data ) ;
112 FUNCTION: void alGetFloatv ( ALenum param, ALfloat* data ) ;
113 FUNCTION: void alGetDoublev ( ALenum param, ALdouble* data ) ;
114 FUNCTION: ALboolean alGetBoolean ( ALenum param ) ;
115 FUNCTION: ALint alGetInteger ( ALenum param ) ;
116 FUNCTION: ALfloat alGetFloat ( ALenum param ) ;
117 FUNCTION: ALdouble alGetDouble ( ALenum param ) ;
118 FUNCTION: ALenum alGetError ( ) ;
119 FUNCTION: ALboolean alIsExtensionPresent ( ALchar* extname ) ;
120 FUNCTION: void* alGetProcAddress ( ALchar* fname ) ;
121 FUNCTION: ALenum alGetEnumValue ( ALchar* ename ) ;
122 FUNCTION: void alListenerf ( ALenum param, ALfloat value ) ;
123 FUNCTION: void alListener3f ( ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ) ;
124 FUNCTION: void alListenerfv ( ALenum param, ALfloat* values ) ;
125 FUNCTION: void alListeneri ( ALenum param, ALint value ) ;
126 FUNCTION: void alListener3i ( ALenum param, ALint value1, ALint value2, ALint value3 ) ;
127 FUNCTION: void alListeneriv ( ALenum param, ALint* values ) ;
128 FUNCTION: void alGetListenerf ( ALenum param, ALfloat* value ) ;
129 FUNCTION: void alGetListener3f ( ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3 ) ;
130 FUNCTION: void alGetListenerfv ( ALenum param, ALfloat* values ) ;
131 FUNCTION: void alGetListeneri ( ALenum param, ALint* value ) ;
132 FUNCTION: void alGetListener3i ( ALenum param, ALint* value1, ALint* value2, ALint* value3 ) ;
133 FUNCTION: void alGetListeneriv ( ALenum param, ALint* values ) ;
134 FUNCTION: void alGenSources ( ALsizei n, ALuint* sources ) ;
135 FUNCTION: void alDeleteSources ( ALsizei n, ALuint* sources ) ;
136 FUNCTION: ALboolean alIsSource ( ALuint sid ) ;
137 FUNCTION: void alSourcef ( ALuint sid, ALenum param, ALfloat value ) ;
138 FUNCTION: void alSource3f ( ALuint sid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ) ;
139 FUNCTION: void alSourcefv ( ALuint sid, ALenum param, ALfloat* values ) ;
140 FUNCTION: void alSourcei ( ALuint sid, ALenum param, ALint value ) ;
141 FUNCTION: void alSource3i ( ALuint sid, ALenum param, ALint value1, ALint value2, ALint value3 ) ;
142 FUNCTION: void alSourceiv ( ALuint sid, ALenum param, ALint* values ) ;
143 FUNCTION: void alGetSourcef ( ALuint sid, ALenum param, ALfloat* value ) ;
144 FUNCTION: void alGetSource3f ( ALuint sid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3) ;
145 FUNCTION: void alGetSourcefv ( ALuint sid, ALenum param, ALfloat* values ) ;
146 FUNCTION: void alGetSourcei ( ALuint sid, ALenum param, ALint* value ) ;
147 FUNCTION: void alGetSource3i ( ALuint sid, ALenum param, ALint* value1, ALint* value2, ALint* value3) ;
148 FUNCTION: void alGetSourceiv ( ALuint sid, ALenum param, ALint* values ) ;
149 FUNCTION: void alSourcePlayv ( ALsizei ns, ALuint* sids ) ;
150 FUNCTION: void alSourceStopv ( ALsizei ns, ALuint* sids ) ;
151 FUNCTION: void alSourceRewindv ( ALsizei ns, ALuint* sids ) ;
152 FUNCTION: void alSourcePausev ( ALsizei ns, ALuint* sids ) ;
153 FUNCTION: void alSourcePlay ( ALuint sid ) ;
154 FUNCTION: void alSourceStop ( ALuint sid ) ;
155 FUNCTION: void alSourceRewind ( ALuint sid ) ;
156 FUNCTION: void alSourcePause ( ALuint sid ) ;
157 FUNCTION: void alSourceQueueBuffers ( ALuint sid, ALsizei numEntries, ALuint* bids ) ;
158 FUNCTION: void alSourceUnqueueBuffers ( ALuint sid, ALsizei numEntries, ALuint* bids ) ;
159 FUNCTION: void alGenBuffers ( ALsizei n, ALuint* buffers ) ;
160 FUNCTION: void alDeleteBuffers ( ALsizei n, ALuint* buffers ) ;
161 FUNCTION: ALboolean alIsBuffer ( ALuint bid ) ;
162 FUNCTION: void alBufferData ( ALuint bid, ALenum format, void* data, ALsizei size, ALsizei freq ) ;
163 FUNCTION: void alBufferf ( ALuint bid, ALenum param, ALfloat value ) ;
164 FUNCTION: void alBuffer3f ( ALuint bid, ALenum param, ALfloat value1, ALfloat value2, ALfloat value3 ) ;
165 FUNCTION: void alBufferfv ( ALuint bid, ALenum param, ALfloat* values ) ;
166 FUNCTION: void alBufferi ( ALuint bid, ALenum param, ALint value ) ;
167 FUNCTION: void alBuffer3i ( ALuint bid, ALenum param, ALint value1, ALint value2, ALint value3 ) ;
168 FUNCTION: void alBufferiv ( ALuint bid, ALenum param, ALint* values ) ;
169 FUNCTION: void alGetBufferf ( ALuint bid, ALenum param, ALfloat* value ) ;
170 FUNCTION: void alGetBuffer3f ( ALuint bid, ALenum param, ALfloat* value1, ALfloat* value2, ALfloat* value3) ;
171 FUNCTION: void alGetBufferfv ( ALuint bid, ALenum param, ALfloat* values ) ;
172 FUNCTION: void alGetBufferi ( ALuint bid, ALenum param, ALint* value ) ;
173 FUNCTION: void alGetBuffer3i ( ALuint bid, ALenum param, ALint* value1, ALint* value2, ALint* value3) ;
174 FUNCTION: void alGetBufferiv ( ALuint bid, ALenum param, ALint* values ) ;
175 FUNCTION: void alDopplerFactor ( ALfloat value ) ;
176 FUNCTION: void alDopplerVelocity ( ALfloat value ) ;
177 FUNCTION: void alSpeedOfSound ( ALfloat value ) ;
178 FUNCTION: void alDistanceModel ( ALenum distanceModel ) ;
182 TYPEDEF: char ALCboolean
183 TYPEDEF: char ALCchar
186 TYPEDEF: int ALCsizei
187 TYPEDEF: uint ALCuint
189 CONSTANT: ALC_FALSE 0
191 CONSTANT: ALC_FREQUENCY HEX: 1007
192 CONSTANT: ALC_REFRESH HEX: 1008
193 CONSTANT: ALC_SYNC HEX: 1009
194 CONSTANT: ALC_MONO_SOURCES HEX: 1010
195 CONSTANT: ALC_STEREO_SOURCES HEX: 1011
197 CONSTANT: ALC_NO_ERROR 0
199 CONSTANT: ALC_INVALID_DEVICE HEX: A001
200 CONSTANT: ALC_INVALID_CONTEXT HEX: A002
201 CONSTANT: ALC_INVALID_ENUM HEX: A003
202 CONSTANT: ALC_INVALID_VALUE HEX: A004
203 CONSTANT: ALC_OUT_OF_MEMORY HEX: A005
205 CONSTANT: ALC_DEFAULT_DEVICE_SPECIFIER HEX: 1004
206 CONSTANT: ALC_DEVICE_SPECIFIER HEX: 1005
207 CONSTANT: ALC_EXTENSIONS HEX: 1006
209 CONSTANT: ALC_MAJOR_VERSION HEX: 1000
210 CONSTANT: ALC_MINOR_VERSION HEX: 1001
212 CONSTANT: ALC_ATTRIBUTES_SIZE HEX: 1002
213 CONSTANT: ALC_ALL_ATTRIBUTES HEX: 1003
214 CONSTANT: ALC_DEFAULT_ALL_DEVICES_SPECIFIER HEX: 1012
215 CONSTANT: ALC_ALL_DEVICES_SPECIFIER HEX: 1013
216 CONSTANT: ALC_CAPTURE_DEVICE_SPECIFIER HEX: 310
217 CONSTANT: ALC_CAPTURE_DEFAULT_DEVICE_SPECIFIER HEX: 311
218 CONSTANT: ALC_CAPTURE_SAMPLES HEX: 312
220 FUNCTION: ALCdevice* alcOpenDevice ( ALCchar* deviceSpecifier ) ;
221 FUNCTION: ALCboolean alcCloseDevice ( ALCdevice* deviceHandle ) ;
223 : alcCloseDevice* ( deviceHandle -- )
224 alcCloseDevice drop ;
226 FUNCTION: ALCcontext* alcCreateContext ( ALCdevice* deviceHandle, ALCint* attrList ) ;
227 FUNCTION: ALCboolean alcMakeContextCurrent ( ALCcontext* context ) ;
228 FUNCTION: void alcProcessContext ( ALCcontext* context ) ;
229 FUNCTION: void alcSuspendContext ( ALCcontext* context ) ;
230 FUNCTION: void alcDestroyContext ( ALCcontext* context ) ;
231 FUNCTION: ALCcontext* alcGetCurrentContext ( ) ;
232 FUNCTION: ALCdevice* alcGetContextsDevice ( ALCcontext* context ) ;
233 FUNCTION: ALCboolean alcIsExtensionPresent ( ALCdevice* deviceHandle, ALCchar* extName ) ;
234 FUNCTION: void* alcGetProcAddress ( ALCdevice* deviceHandle, ALCchar* funcName ) ;
235 FUNCTION: ALCenum alcGetEnumValue ( ALCdevice* deviceHandle, ALCchar* enumName ) ;
236 FUNCTION: ALCenum alcGetError ( ALCdevice* deviceHandle ) ;
237 FUNCTION: ALCchar* alcGetString ( ALCdevice* deviceHandle, ALCenum token ) ;
238 FUNCTION: void alcGetIntegerv ( ALCdevice* deviceHandle, ALCenum token, ALCsizei size, ALCint* dest ) ;
240 FUNCTION: ALCdevice* alcCaptureOpenDevice ( ALCchar* deviceName, ALCuint freq, ALCenum fmt, ALCsizei bufsize ) ;
241 FUNCTION: ALCboolean alcCaptureCloseDevice ( ALCdevice* device ) ;
242 FUNCTION: void alcCaptureStart ( ALCdevice* device ) ;
243 FUNCTION: void alcCaptureStop ( ALCdevice* device ) ;
244 FUNCTION: void alcCaptureSamples ( ALCdevice* device, void* buf, ALCsizei samps ) ;
246 DESTRUCTOR: alcCloseDevice*
247 DESTRUCTOR: alcDestroyContext
249 : gen-sources ( size -- seq )
250 dup <uint-array> [ alGenSources ] keep ;
252 : gen-buffers ( size -- seq )
253 dup <uint-array> [ alGenBuffers ] keep ;
255 : gen-buffer ( -- buffer ) 1 gen-buffers first ;
257 : queue-buffers ( source buffers -- )
258 [ length ] [ >uint-array ] bi alSourceQueueBuffers ;
260 : queue-buffer ( source buffer -- )
261 1array queue-buffers ;
263 : set-source-param ( source param value -- )
266 : get-source-param ( source param -- value )
267 0 uint <ref> dup [ alGetSourcei ] dip uint deref ;
269 : set-buffer-param ( source param value -- )
272 : get-buffer-param ( source param -- value )
273 0 uint <ref> dup [ alGetBufferi ] dip uint deref ;
275 : source-play ( source -- ) alSourcePlay ;
277 : source-stop ( source -- ) alSourceStop ;
279 : source-playing? ( source -- bool )
280 AL_SOURCE_STATE get-source-param AL_PLAYING = ;