comctl32: Use the appropriate color format when loading a DIB in ImageList_LoadImageW.
[wine] / dlls / winecoreaudio.drv / audiounit.c
1 /*
2  * Wine Driver for CoreAudio / AudioUnit
3  *
4  * Copyright 2005, 2006 Emmanuel Maillard
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22
23 #ifdef HAVE_AUDIOUNIT_AUDIOUNIT_H
24
25 #define ULONG CoreFoundation_ULONG
26 #define HRESULT CoreFoundation_HRESULT
27 #include <CoreServices/CoreServices.h>
28 #include <AudioUnit/AudioUnit.h>
29 #include <AudioToolbox/AudioToolbox.h>
30 #undef ULONG
31 #undef HRESULT
32
33 #undef DPRINTF
34 #undef STDMETHODCALLTYPE
35 #include "coreaudio.h"
36 #include "wine/debug.h"
37
38 WINE_DEFAULT_DEBUG_CHANNEL(wave);
39 WINE_DECLARE_DEBUG_CHANNEL(midi);
40
41 static const char *streamDescription(const AudioStreamBasicDescription* stream)
42 {
43     return wine_dbg_sprintf("\n mSampleRate : %f\n mFormatID : %s\n mFormatFlags : %lX\n mBytesPerPacket : %lu\n mFramesPerPacket : %lu\n mBytesPerFrame : %lu\n mChannelsPerFrame : %lu\n mBitsPerChannel : %lu\n",
44         stream->mSampleRate,
45         wine_dbgstr_fourcc(stream->mFormatID),
46         stream->mFormatFlags,
47         stream->mBytesPerPacket,
48         stream->mFramesPerPacket,
49         stream->mBytesPerFrame,
50         stream->mChannelsPerFrame,
51         stream->mBitsPerChannel);
52 }
53
54 extern OSStatus CoreAudio_woAudioUnitIOProc(void *inRefCon, 
55                                 AudioUnitRenderActionFlags *ioActionFlags, 
56                                 const AudioTimeStamp *inTimeStamp, 
57                                 UInt32 inBusNumber, 
58                                 UInt32 inNumberFrames, 
59                                 AudioBufferList *ioData);
60
61 extern OSStatus CoreAudio_wiAudioUnitIOProc(void *inRefCon,
62                                 AudioUnitRenderActionFlags *ioActionFlags,
63                                 const AudioTimeStamp *inTimeStamp,
64                                 UInt32 inBusNumber,
65                                 UInt32 inNumberFrames,
66                                 AudioBufferList *ioData);
67
68 int AudioUnit_CreateDefaultAudioUnit(void *wwo, AudioUnit *au)
69 {
70     OSStatus err;
71     Component comp;
72     ComponentDescription desc;
73     AURenderCallbackStruct callbackStruct;
74
75     TRACE("\n");
76     
77     desc.componentType = kAudioUnitType_Output;
78     desc.componentSubType = kAudioUnitSubType_DefaultOutput;
79     desc.componentManufacturer = kAudioUnitManufacturer_Apple;
80     desc.componentFlags = 0;
81     desc.componentFlagsMask = 0;
82
83     comp = FindNextComponent(NULL, &desc);
84     if (comp == NULL)
85         return 0;
86     
87     err = OpenAComponent(comp, au);
88     if (err != noErr || *au == NULL)
89         return 0;
90         
91     callbackStruct.inputProc = CoreAudio_woAudioUnitIOProc;
92     callbackStruct.inputProcRefCon = wwo;
93
94     err = AudioUnitSetProperty( *au, 
95                                 kAudioUnitProperty_SetRenderCallback, 
96                                 kAudioUnitScope_Input,
97                                 0, 
98                                 &callbackStruct, 
99                                 sizeof(callbackStruct));
100     return (err == noErr);
101 }
102
103 int AudioUnit_CloseAudioUnit(AudioUnit au)
104 {
105     OSStatus err = CloseComponent(au);
106     return (err == noErr);
107 }
108
109 int AudioUnit_InitializeWithStreamDescription(AudioUnit au, AudioStreamBasicDescription *stream)
110 {
111     OSStatus err = noErr;
112         
113     TRACE("input format: %s\n", streamDescription(stream));
114
115     err = AudioUnitSetProperty(au, kAudioUnitProperty_StreamFormat, kAudioUnitScope_Input,
116                                 0, stream, sizeof(*stream));
117
118     if (err != noErr)
119     {
120         ERR("AudioUnitSetProperty return an error %s\n", wine_dbgstr_fourcc(err));
121         return 0;
122     }
123     
124     err = AudioUnitInitialize(au);
125     if (err != noErr)
126     {
127         ERR("AudioUnitInitialize return an error %s\n", wine_dbgstr_fourcc(err));
128         return 0;
129     }
130     return 1;
131 }
132
133 int AudioUnit_SetVolume(AudioUnit au, float left, float right)
134 {
135     OSStatus err = noErr;
136     static int once;
137
138     if (!once++) FIXME("independent left/right volume not implemented (%f, %f)\n", left, right);
139    
140     err = AudioUnitSetParameter(au, kHALOutputParam_Volume, kAudioUnitParameterFlag_Output, 0, left, 0);
141                                 
142     if (err != noErr)
143     {
144         ERR("AudioUnitSetParameter return an error %s\n", wine_dbgstr_fourcc(err));
145         return 0;
146     }
147     return 1;
148 }
149
150 int AudioUnit_GetVolume(AudioUnit au, float *left, float *right)
151 {
152     OSStatus err = noErr;
153     static int once;
154
155     if (!once++) FIXME("independent left/right volume not implemented\n");
156     
157     err = AudioUnitGetParameter(au, kHALOutputParam_Volume, kAudioUnitParameterFlag_Output, 0, left);
158     if (err != noErr)
159     {
160         ERR("AudioUnitGetParameter return an error %s\n", wine_dbgstr_fourcc(err));
161         return 0;
162     }
163     *right = *left;
164     return 1;
165 }
166
167
168 /* FIXME: implement sample rate conversion on input */
169 int AudioUnit_GetInputDeviceSampleRate(void)
170 {
171     AudioDeviceID               defaultInputDevice;
172     UInt32                      param;
173     Float64                     sampleRate;
174     OSStatus                    err;
175
176     param = sizeof(defaultInputDevice);
177     err = AudioHardwareGetProperty(kAudioHardwarePropertyDefaultInputDevice, &param, &defaultInputDevice);
178     if (err != noErr || defaultInputDevice == kAudioDeviceUnknown)
179     {
180         ERR("Couldn't get the default audio input device ID: %08lx\n", err);
181         return 0;
182     }
183
184     param = sizeof(sampleRate);
185     err = AudioDeviceGetProperty(defaultInputDevice, 0, 1, kAudioDevicePropertyNominalSampleRate, &param, &sampleRate);
186     if (err != noErr)
187     {
188         ERR("Couldn't get the device sample rate: %08lx\n", err);
189         return 0;
190     }
191
192     return sampleRate;
193 }
194
195
196 int AudioUnit_CreateInputUnit(void* wwi, AudioUnit* out_au,
197         WORD nChannels, DWORD nSamplesPerSec, WORD wBitsPerSample,
198         UInt32* outFrameCount)
199 {
200     OSStatus                    err = noErr;
201     ComponentDescription        description;
202     Component                   component;
203     AudioUnit                   au;
204     UInt32                      param;
205     AURenderCallbackStruct      callback;
206     AudioDeviceID               defaultInputDevice;
207     AudioStreamBasicDescription desiredFormat;
208
209
210     if (!outFrameCount)
211     {
212         ERR("Invalid parameter\n");
213         return 0;
214     }
215
216     /* Open the AudioOutputUnit */
217     description.componentType           = kAudioUnitType_Output;
218     description.componentSubType        = kAudioUnitSubType_HALOutput;
219     description.componentManufacturer   = kAudioUnitManufacturer_Apple;
220     description.componentFlags          = 0;
221     description.componentFlagsMask      = 0;
222
223     component = FindNextComponent(NULL, &description);
224     if (!component)
225     {
226         ERR("FindNextComponent(kAudioUnitSubType_HALOutput) failed\n");
227         return 0;
228     }
229
230     err = OpenAComponent(component, &au);
231     if (err != noErr || au == NULL)
232     {
233         ERR("OpenAComponent failed: %08lx\n", err);
234         return 0;
235     }
236
237     /* Configure the AudioOutputUnit */
238     /* The AUHAL has two buses (AKA elements).  Bus 0 is output from the app
239      * to the device.  Bus 1 is input from the device to the app.  Each bus
240      * has two ends (AKA scopes).  Data goes from the input scope to the
241      * output scope.  The terminology is somewhat confusing because the terms
242      * "input" and "output" have two meanings.  Here's a summary:
243      *
244      *      Bus 0, input scope: refers to the source of data to be output as sound
245      *      Bus 0, output scope: refers to the actual sound output device
246      *      Bus 1, input scope: refers to the actual sound input device
247      *      Bus 1, output scope: refers to the destination of data received by the input device
248      */
249
250     /* Enable input on the AUHAL */
251     param = 1;
252     err = AudioUnitSetProperty(au, kAudioOutputUnitProperty_EnableIO, kAudioUnitScope_Input, 1, &param, sizeof(param));
253     if (err != noErr)
254     {
255         ERR("Couldn't enable input on AUHAL: %08lx\n", err);
256         goto error;
257     }
258
259     /* Disable Output on the AUHAL */
260     param = 0;
261     err = AudioUnitSetProperty(au, kAudioOutputUnitProperty_EnableIO, kAudioUnitScope_Output, 0, &param, sizeof(param));
262     if (err != noErr)
263     {
264         ERR("Couldn't disable output on AUHAL: %08lx\n", err);
265         goto error;
266     }
267
268     /* Find the default input device */
269     param = sizeof(defaultInputDevice);
270     err = AudioHardwareGetProperty(kAudioHardwarePropertyDefaultInputDevice, &param, &defaultInputDevice);
271     if (err != noErr || defaultInputDevice == kAudioDeviceUnknown)
272     {
273         ERR("Couldn't get the default audio device ID: %08lx\n", err);
274         goto error;
275     }
276
277     /* Set the current device to the default input device. */
278     err = AudioUnitSetProperty(au, kAudioOutputUnitProperty_CurrentDevice, kAudioUnitScope_Global, 0, &defaultInputDevice, sizeof(defaultInputDevice));
279     if (err != noErr)
280     {
281         ERR("Couldn't set current device of AUHAL to default input device: %08lx\n", err);
282         goto error;
283     }
284
285     /* Setup render callback */
286     /* This will be called when the AUHAL has input data.  However, it won't
287      * be passed the data itself.  The callback will have to all AudioUnitRender. */
288     callback.inputProc = CoreAudio_wiAudioUnitIOProc;
289     callback.inputProcRefCon = wwi;
290     err = AudioUnitSetProperty(au, kAudioOutputUnitProperty_SetInputCallback, kAudioUnitScope_Global, 0, &callback, sizeof(callback));
291     if (err != noErr)
292     {
293         ERR("Couldn't set input callback of AUHAL: %08lx\n", err);
294         goto error;
295     }
296
297     /* Setup the desired data format. */
298     /* FIXME: implement sample rate conversion on input.  We shouldn't set
299      * the mSampleRate of this to the desired sample rate.  We need to query
300      * the input device and use that.  If they don't match, we need to set up
301      * an AUConverter to do the sample rate conversion on a separate thread. */
302     desiredFormat.mFormatID         = kAudioFormatLinearPCM;
303     desiredFormat.mFormatFlags      = kLinearPCMFormatFlagIsPacked;
304     if (wBitsPerSample != 8)
305         desiredFormat.mFormatFlags |= kLinearPCMFormatFlagIsSignedInteger;
306     desiredFormat.mSampleRate       = nSamplesPerSec;
307     desiredFormat.mChannelsPerFrame = nChannels;
308     desiredFormat.mFramesPerPacket  = 1;
309     desiredFormat.mBitsPerChannel   = wBitsPerSample;
310     desiredFormat.mBytesPerFrame    = desiredFormat.mBitsPerChannel * desiredFormat.mChannelsPerFrame / 8;
311     desiredFormat.mBytesPerPacket   = desiredFormat.mBytesPerFrame * desiredFormat.mFramesPerPacket;
312
313     /* Set the AudioOutputUnit output data format */
314     err = AudioUnitSetProperty(au, kAudioUnitProperty_StreamFormat, kAudioUnitScope_Output, 1, &desiredFormat, sizeof(desiredFormat));
315     if (err != noErr)
316     {
317         ERR("Couldn't set desired input format of AUHAL: %08lx\n", err);
318         goto error;
319     }
320
321     /* Get the number of frames in the IO buffer(s) */
322     param = sizeof(*outFrameCount);
323     err = AudioUnitGetProperty(au, kAudioDevicePropertyBufferFrameSize, kAudioUnitScope_Global, 0, outFrameCount, &param);
324     if (err != noErr)
325     {
326         ERR("Failed to get audio sample size: %08lx\n", err);
327         goto error;
328     }
329
330     TRACE("Frame count: %lu\n", *outFrameCount);
331
332     /* Initialize the AU */
333     err = AudioUnitInitialize(au);
334     if (err != noErr)
335     {
336         ERR("Failed to initialize AU: %08lx\n", err);
337         goto error;
338     }
339
340     *out_au = au;
341
342     return 1;
343
344 error:
345     if (au)
346         CloseComponent(au);
347     return 0;
348 }
349
350 /*
351  *  MIDI Synth Unit
352  */
353 int SynthUnit_CreateDefaultSynthUnit(AUGraph *graph, AudioUnit *synth)
354 {
355     OSStatus err;
356     ComponentDescription desc;
357     AUNode synthNode;
358     AUNode outNode;
359
360     err = NewAUGraph(graph);
361     if (err != noErr)
362     {
363         ERR_(midi)("NewAUGraph return %s\n", wine_dbgstr_fourcc(err));
364         return 0;
365     }
366
367     desc.componentManufacturer = kAudioUnitManufacturer_Apple;
368     desc.componentFlags = 0;
369     desc.componentFlagsMask = 0;
370
371     /* create synth node */
372     desc.componentType = kAudioUnitType_MusicDevice;
373     desc.componentSubType = kAudioUnitSubType_DLSSynth;
374
375     err = AUGraphNewNode(*graph, &desc, 0, NULL, &synthNode);
376     if (err != noErr)
377     {
378         ERR_(midi)("AUGraphNewNode cannot create synthNode : %s\n", wine_dbgstr_fourcc(err));
379         return 0;
380     }
381
382     /* create out node */
383     desc.componentType = kAudioUnitType_Output;
384     desc.componentSubType = kAudioUnitSubType_DefaultOutput;
385
386     err = AUGraphNewNode(*graph, &desc, 0, NULL, &outNode);
387     if (err != noErr)
388     {
389         ERR_(midi)("AUGraphNewNode cannot create outNode %s\n", wine_dbgstr_fourcc(err));
390         return 0;
391     }
392
393     err = AUGraphOpen(*graph);
394     if (err != noErr)
395     {
396         ERR_(midi)("AUGraphOpen return %s\n", wine_dbgstr_fourcc(err));
397         return 0;
398     }
399
400     /* connecting the nodes */
401     err = AUGraphConnectNodeInput(*graph, synthNode, 0, outNode, 0);
402     if (err != noErr)
403     {
404         ERR_(midi)("AUGraphConnectNodeInput cannot connect synthNode to outNode : %s\n", wine_dbgstr_fourcc(err));
405         return 0;
406     }
407
408     /* Get the synth unit */
409     err = AUGraphGetNodeInfo(*graph, synthNode, 0, 0, 0, synth);
410     if (err != noErr)
411     {
412         ERR_(midi)("AUGraphGetNodeInfo return %s\n", wine_dbgstr_fourcc(err));
413         return 0;
414     }
415
416     return 1;
417 }
418
419 int SynthUnit_Initialize(AudioUnit synth, AUGraph graph)
420 {
421     OSStatus err = noErr;
422
423     err = AUGraphInitialize(graph);
424     if (err != noErr)
425     {
426         ERR_(midi)("AUGraphInitialize(%p) return %s\n", graph, wine_dbgstr_fourcc(err));
427         return 0;
428     }
429
430     err = AUGraphStart(graph);
431     if (err != noErr)
432     {
433         ERR_(midi)("AUGraphStart(%p) return %s\n", graph, wine_dbgstr_fourcc(err));
434         return 0;
435     }
436
437     return 1;
438 }
439
440 int SynthUnit_Close(AUGraph graph)
441 {
442     OSStatus err = noErr;
443
444     err = AUGraphStop(graph);
445     if (err != noErr)
446     {
447         ERR_(midi)("AUGraphStop(%p) return %s\n", graph, wine_dbgstr_fourcc(err));
448         return 0;
449     }
450
451     err = DisposeAUGraph(graph);
452     if (err != noErr)
453     {
454         ERR_(midi)("DisposeAUGraph(%p) return %s\n", graph, wine_dbgstr_fourcc(err));
455         return 0;
456     }
457
458     return 1;
459 }
460
461 #endif