Add v{add, sub}{s, u}{b, h, w}s instructions
[qemu/mini2440.git] / audio / dsoundaudio.c
blobdf4b2f04d93815a4a708a8c06eae0e160c7f414c
1 /*
2 * QEMU DirectSound audio driver
4 * Copyright (c) 2005 Vassili Karpov (malc)
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22 * THE SOFTWARE.
26 * SEAL 1.07 by Carlos 'pel' Hasan was used as documentation
29 #include "qemu-common.h"
30 #include "audio.h"
32 #define AUDIO_CAP "dsound"
33 #include "audio_int.h"
35 #define WIN32_LEAN_AND_MEAN
36 #include <windows.h>
37 #include <mmsystem.h>
38 #include <objbase.h>
39 #include <dsound.h>
41 /* #define DEBUG_DSOUND */
43 static struct {
44 int lock_retries;
45 int restore_retries;
46 int getstatus_retries;
47 int set_primary;
48 int bufsize_in;
49 int bufsize_out;
50 struct audsettings settings;
51 int latency_millis;
52 } conf = {
57 16384,
58 16384,
60 44100,
62 AUD_FMT_S16
67 typedef struct {
68 LPDIRECTSOUND dsound;
69 LPDIRECTSOUNDCAPTURE dsound_capture;
70 LPDIRECTSOUNDBUFFER dsound_primary_buffer;
71 struct audsettings settings;
72 } dsound;
74 static dsound glob_dsound;
76 typedef struct {
77 HWVoiceOut hw;
78 LPDIRECTSOUNDBUFFER dsound_buffer;
79 DWORD old_pos;
80 int first_time;
81 #ifdef DEBUG_DSOUND
82 DWORD old_ppos;
83 DWORD played;
84 DWORD mixed;
85 #endif
86 } DSoundVoiceOut;
88 typedef struct {
89 HWVoiceIn hw;
90 int first_time;
91 LPDIRECTSOUNDCAPTUREBUFFER dsound_capture_buffer;
92 } DSoundVoiceIn;
94 static void dsound_log_hresult (HRESULT hr)
96 const char *str = "BUG";
98 switch (hr) {
99 case DS_OK:
100 str = "The method succeeded";
101 break;
102 #ifdef DS_NO_VIRTUALIZATION
103 case DS_NO_VIRTUALIZATION:
104 str = "The buffer was created, but another 3D algorithm was substituted";
105 break;
106 #endif
107 #ifdef DS_INCOMPLETE
108 case DS_INCOMPLETE:
109 str = "The method succeeded, but not all the optional effects were obtained";
110 break;
111 #endif
112 #ifdef DSERR_ACCESSDENIED
113 case DSERR_ACCESSDENIED:
114 str = "The request failed because access was denied";
115 break;
116 #endif
117 #ifdef DSERR_ALLOCATED
118 case DSERR_ALLOCATED:
119 str = "The request failed because resources, such as a priority level, were already in use by another caller";
120 break;
121 #endif
122 #ifdef DSERR_ALREADYINITIALIZED
123 case DSERR_ALREADYINITIALIZED:
124 str = "The object is already initialized";
125 break;
126 #endif
127 #ifdef DSERR_BADFORMAT
128 case DSERR_BADFORMAT:
129 str = "The specified wave format is not supported";
130 break;
131 #endif
132 #ifdef DSERR_BADSENDBUFFERGUID
133 case DSERR_BADSENDBUFFERGUID:
134 str = "The GUID specified in an audiopath file does not match a valid mix-in buffer";
135 break;
136 #endif
137 #ifdef DSERR_BUFFERLOST
138 case DSERR_BUFFERLOST:
139 str = "The buffer memory has been lost and must be restored";
140 break;
141 #endif
142 #ifdef DSERR_BUFFERTOOSMALL
143 case DSERR_BUFFERTOOSMALL:
144 str = "The buffer size is not great enough to enable effects processing";
145 break;
146 #endif
147 #ifdef DSERR_CONTROLUNAVAIL
148 case DSERR_CONTROLUNAVAIL:
149 str = "The buffer control (volume, pan, and so on) requested by the caller is not available. Controls must be specified when the buffer is created, using the dwFlags member of DSBUFFERDESC";
150 break;
151 #endif
152 #ifdef DSERR_DS8_REQUIRED
153 case DSERR_DS8_REQUIRED:
154 str = "A DirectSound object of class CLSID_DirectSound8 or later is required for the requested functionality. For more information, see IDirectSound8 Interface";
155 break;
156 #endif
157 #ifdef DSERR_FXUNAVAILABLE
158 case DSERR_FXUNAVAILABLE:
159 str = "The effects requested could not be found on the system, or they are in the wrong order or in the wrong location; for example, an effect expected in hardware was found in software";
160 break;
161 #endif
162 #ifdef DSERR_GENERIC
163 case DSERR_GENERIC :
164 str = "An undetermined error occurred inside the DirectSound subsystem";
165 break;
166 #endif
167 #ifdef DSERR_INVALIDCALL
168 case DSERR_INVALIDCALL:
169 str = "This function is not valid for the current state of this object";
170 break;
171 #endif
172 #ifdef DSERR_INVALIDPARAM
173 case DSERR_INVALIDPARAM:
174 str = "An invalid parameter was passed to the returning function";
175 break;
176 #endif
177 #ifdef DSERR_NOAGGREGATION
178 case DSERR_NOAGGREGATION:
179 str = "The object does not support aggregation";
180 break;
181 #endif
182 #ifdef DSERR_NODRIVER
183 case DSERR_NODRIVER:
184 str = "No sound driver is available for use, or the given GUID is not a valid DirectSound device ID";
185 break;
186 #endif
187 #ifdef DSERR_NOINTERFACE
188 case DSERR_NOINTERFACE:
189 str = "The requested COM interface is not available";
190 break;
191 #endif
192 #ifdef DSERR_OBJECTNOTFOUND
193 case DSERR_OBJECTNOTFOUND:
194 str = "The requested object was not found";
195 break;
196 #endif
197 #ifdef DSERR_OTHERAPPHASPRIO
198 case DSERR_OTHERAPPHASPRIO:
199 str = "Another application has a higher priority level, preventing this call from succeeding";
200 break;
201 #endif
202 #ifdef DSERR_OUTOFMEMORY
203 case DSERR_OUTOFMEMORY:
204 str = "The DirectSound subsystem could not allocate sufficient memory to complete the caller's request";
205 break;
206 #endif
207 #ifdef DSERR_PRIOLEVELNEEDED
208 case DSERR_PRIOLEVELNEEDED:
209 str = "A cooperative level of DSSCL_PRIORITY or higher is required";
210 break;
211 #endif
212 #ifdef DSERR_SENDLOOP
213 case DSERR_SENDLOOP:
214 str = "A circular loop of send effects was detected";
215 break;
216 #endif
217 #ifdef DSERR_UNINITIALIZED
218 case DSERR_UNINITIALIZED:
219 str = "The Initialize method has not been called or has not been called successfully before other methods were called";
220 break;
221 #endif
222 #ifdef DSERR_UNSUPPORTED
223 case DSERR_UNSUPPORTED:
224 str = "The function called is not supported at this time";
225 break;
226 #endif
227 default:
228 AUD_log (AUDIO_CAP, "Reason: Unknown (HRESULT %#lx)\n", hr);
229 return;
232 AUD_log (AUDIO_CAP, "Reason: %s\n", str);
235 static void GCC_FMT_ATTR (2, 3) dsound_logerr (
236 HRESULT hr,
237 const char *fmt,
241 va_list ap;
243 va_start (ap, fmt);
244 AUD_vlog (AUDIO_CAP, fmt, ap);
245 va_end (ap);
247 dsound_log_hresult (hr);
250 static void GCC_FMT_ATTR (3, 4) dsound_logerr2 (
251 HRESULT hr,
252 const char *typ,
253 const char *fmt,
257 va_list ap;
259 AUD_log (AUDIO_CAP, "Could not initialize %s\n", typ);
260 va_start (ap, fmt);
261 AUD_vlog (AUDIO_CAP, fmt, ap);
262 va_end (ap);
264 dsound_log_hresult (hr);
267 static DWORD millis_to_bytes (struct audio_pcm_info *info, DWORD millis)
269 return (millis * info->bytes_per_second) / 1000;
272 #ifdef DEBUG_DSOUND
273 static void print_wave_format (WAVEFORMATEX *wfx)
275 dolog ("tag = %d\n", wfx->wFormatTag);
276 dolog ("nChannels = %d\n", wfx->nChannels);
277 dolog ("nSamplesPerSec = %ld\n", wfx->nSamplesPerSec);
278 dolog ("nAvgBytesPerSec = %ld\n", wfx->nAvgBytesPerSec);
279 dolog ("nBlockAlign = %d\n", wfx->nBlockAlign);
280 dolog ("wBitsPerSample = %d\n", wfx->wBitsPerSample);
281 dolog ("cbSize = %d\n", wfx->cbSize);
283 #endif
285 static int dsound_restore_out (LPDIRECTSOUNDBUFFER dsb)
287 HRESULT hr;
288 int i;
290 for (i = 0; i < conf.restore_retries; ++i) {
291 hr = IDirectSoundBuffer_Restore (dsb);
293 switch (hr) {
294 case DS_OK:
295 return 0;
297 case DSERR_BUFFERLOST:
298 continue;
300 default:
301 dsound_logerr (hr, "Could not restore playback buffer\n");
302 return -1;
306 dolog ("%d attempts to restore playback buffer failed\n", i);
307 return -1;
310 static int waveformat_from_audio_settings (WAVEFORMATEX *wfx,
311 struct audsettings *as)
313 memset (wfx, 0, sizeof (*wfx));
315 wfx->wFormatTag = WAVE_FORMAT_PCM;
316 wfx->nChannels = as->nchannels;
317 wfx->nSamplesPerSec = as->freq;
318 wfx->nAvgBytesPerSec = as->freq << (as->nchannels == 2);
319 wfx->nBlockAlign = 1 << (as->nchannels == 2);
320 wfx->cbSize = 0;
322 switch (as->fmt) {
323 case AUD_FMT_S8:
324 case AUD_FMT_U8:
325 wfx->wBitsPerSample = 8;
326 break;
328 case AUD_FMT_S16:
329 case AUD_FMT_U16:
330 wfx->wBitsPerSample = 16;
331 wfx->nAvgBytesPerSec <<= 1;
332 wfx->nBlockAlign <<= 1;
333 break;
335 case AUD_FMT_S32:
336 case AUD_FMT_U32:
337 wfx->wBitsPerSample = 32;
338 wfx->nAvgBytesPerSec <<= 2;
339 wfx->nBlockAlign <<= 2;
340 break;
342 default:
343 dolog ("Internal logic error: Bad audio format %d\n", as->freq);
344 return -1;
347 return 0;
350 static int waveformat_to_audio_settings (WAVEFORMATEX *wfx,
351 struct audsettings *as)
353 if (wfx->wFormatTag != WAVE_FORMAT_PCM) {
354 dolog ("Invalid wave format, tag is not PCM, but %d\n",
355 wfx->wFormatTag);
356 return -1;
359 if (!wfx->nSamplesPerSec) {
360 dolog ("Invalid wave format, frequency is zero\n");
361 return -1;
363 as->freq = wfx->nSamplesPerSec;
365 switch (wfx->nChannels) {
366 case 1:
367 as->nchannels = 1;
368 break;
370 case 2:
371 as->nchannels = 2;
372 break;
374 default:
375 dolog (
376 "Invalid wave format, number of channels is not 1 or 2, but %d\n",
377 wfx->nChannels
379 return -1;
382 switch (wfx->wBitsPerSample) {
383 case 8:
384 as->fmt = AUD_FMT_U8;
385 break;
387 case 16:
388 as->fmt = AUD_FMT_S16;
389 break;
391 case 32:
392 as->fmt = AUD_FMT_S32;
393 break;
395 default:
396 dolog ("Invalid wave format, bits per sample is not "
397 "8, 16 or 32, but %d\n",
398 wfx->wBitsPerSample);
399 return -1;
402 return 0;
405 #include "dsound_template.h"
406 #define DSBTYPE_IN
407 #include "dsound_template.h"
408 #undef DSBTYPE_IN
410 static int dsound_get_status_out (LPDIRECTSOUNDBUFFER dsb, DWORD *statusp)
412 HRESULT hr;
413 int i;
415 for (i = 0; i < conf.getstatus_retries; ++i) {
416 hr = IDirectSoundBuffer_GetStatus (dsb, statusp);
417 if (FAILED (hr)) {
418 dsound_logerr (hr, "Could not get playback buffer status\n");
419 return -1;
422 if (*statusp & DSERR_BUFFERLOST) {
423 if (dsound_restore_out (dsb)) {
424 return -1;
426 continue;
428 break;
431 return 0;
434 static int dsound_get_status_in (LPDIRECTSOUNDCAPTUREBUFFER dscb,
435 DWORD *statusp)
437 HRESULT hr;
439 hr = IDirectSoundCaptureBuffer_GetStatus (dscb, statusp);
440 if (FAILED (hr)) {
441 dsound_logerr (hr, "Could not get capture buffer status\n");
442 return -1;
445 return 0;
448 static void dsound_write_sample (HWVoiceOut *hw, uint8_t *dst, int dst_len)
450 int src_len1 = dst_len;
451 int src_len2 = 0;
452 int pos = hw->rpos + dst_len;
453 struct st_sample *src1 = hw->mix_buf + hw->rpos;
454 struct st_sample *src2 = NULL;
456 if (pos > hw->samples) {
457 src_len1 = hw->samples - hw->rpos;
458 src2 = hw->mix_buf;
459 src_len2 = dst_len - src_len1;
460 pos = src_len2;
463 if (src_len1) {
464 hw->clip (dst, src1, src_len1);
467 if (src_len2) {
468 dst = advance (dst, src_len1 << hw->info.shift);
469 hw->clip (dst, src2, src_len2);
472 hw->rpos = pos % hw->samples;
475 static void dsound_clear_sample (HWVoiceOut *hw, LPDIRECTSOUNDBUFFER dsb)
477 int err;
478 LPVOID p1, p2;
479 DWORD blen1, blen2, len1, len2;
481 err = dsound_lock_out (
482 dsb,
483 &hw->info,
485 hw->samples << hw->info.shift,
486 &p1, &p2,
487 &blen1, &blen2,
490 if (err) {
491 return;
494 len1 = blen1 >> hw->info.shift;
495 len2 = blen2 >> hw->info.shift;
497 #ifdef DEBUG_DSOUND
498 dolog ("clear %p,%ld,%ld %p,%ld,%ld\n",
499 p1, blen1, len1,
500 p2, blen2, len2);
501 #endif
503 if (p1 && len1) {
504 audio_pcm_info_clear_buf (&hw->info, p1, len1);
507 if (p2 && len2) {
508 audio_pcm_info_clear_buf (&hw->info, p2, len2);
511 dsound_unlock_out (dsb, p1, p2, blen1, blen2);
514 static void dsound_close (dsound *s)
516 HRESULT hr;
518 if (s->dsound_primary_buffer) {
519 hr = IDirectSoundBuffer_Release (s->dsound_primary_buffer);
520 if (FAILED (hr)) {
521 dsound_logerr (hr, "Could not release primary buffer\n");
523 s->dsound_primary_buffer = NULL;
527 static int dsound_open (dsound *s)
529 int err;
530 HRESULT hr;
531 WAVEFORMATEX wfx;
532 DSBUFFERDESC dsbd;
533 HWND hwnd;
535 hwnd = GetForegroundWindow ();
536 hr = IDirectSound_SetCooperativeLevel (
537 s->dsound,
538 hwnd,
539 DSSCL_PRIORITY
542 if (FAILED (hr)) {
543 dsound_logerr (hr, "Could not set cooperative level for window %p\n",
544 hwnd);
545 return -1;
548 if (!conf.set_primary) {
549 return 0;
552 err = waveformat_from_audio_settings (&wfx, &conf.settings);
553 if (err) {
554 return -1;
557 memset (&dsbd, 0, sizeof (dsbd));
558 dsbd.dwSize = sizeof (dsbd);
559 dsbd.dwFlags = DSBCAPS_PRIMARYBUFFER;
560 dsbd.dwBufferBytes = 0;
561 dsbd.lpwfxFormat = NULL;
563 hr = IDirectSound_CreateSoundBuffer (
564 s->dsound,
565 &dsbd,
566 &s->dsound_primary_buffer,
567 NULL
569 if (FAILED (hr)) {
570 dsound_logerr (hr, "Could not create primary playback buffer\n");
571 return -1;
574 hr = IDirectSoundBuffer_SetFormat (s->dsound_primary_buffer, &wfx);
575 if (FAILED (hr)) {
576 dsound_logerr (hr, "Could not set primary playback buffer format\n");
579 hr = IDirectSoundBuffer_GetFormat (
580 s->dsound_primary_buffer,
581 &wfx,
582 sizeof (wfx),
583 NULL
585 if (FAILED (hr)) {
586 dsound_logerr (hr, "Could not get primary playback buffer format\n");
587 goto fail0;
590 #ifdef DEBUG_DSOUND
591 dolog ("Primary\n");
592 print_wave_format (&wfx);
593 #endif
595 err = waveformat_to_audio_settings (&wfx, &s->settings);
596 if (err) {
597 goto fail0;
600 return 0;
602 fail0:
603 dsound_close (s);
604 return -1;
607 static int dsound_ctl_out (HWVoiceOut *hw, int cmd, ...)
609 HRESULT hr;
610 DWORD status;
611 DSoundVoiceOut *ds = (DSoundVoiceOut *) hw;
612 LPDIRECTSOUNDBUFFER dsb = ds->dsound_buffer;
614 if (!dsb) {
615 dolog ("Attempt to control voice without a buffer\n");
616 return 0;
619 switch (cmd) {
620 case VOICE_ENABLE:
621 if (dsound_get_status_out (dsb, &status)) {
622 return -1;
625 if (status & DSBSTATUS_PLAYING) {
626 dolog ("warning: Voice is already playing\n");
627 return 0;
630 dsound_clear_sample (hw, dsb);
632 hr = IDirectSoundBuffer_Play (dsb, 0, 0, DSBPLAY_LOOPING);
633 if (FAILED (hr)) {
634 dsound_logerr (hr, "Could not start playing buffer\n");
635 return -1;
637 break;
639 case VOICE_DISABLE:
640 if (dsound_get_status_out (dsb, &status)) {
641 return -1;
644 if (status & DSBSTATUS_PLAYING) {
645 hr = IDirectSoundBuffer_Stop (dsb);
646 if (FAILED (hr)) {
647 dsound_logerr (hr, "Could not stop playing buffer\n");
648 return -1;
651 else {
652 dolog ("warning: Voice is not playing\n");
654 break;
656 return 0;
659 static int dsound_write (SWVoiceOut *sw, void *buf, int len)
661 return audio_pcm_sw_write (sw, buf, len);
664 static int dsound_run_out (HWVoiceOut *hw)
666 int err;
667 HRESULT hr;
668 DSoundVoiceOut *ds = (DSoundVoiceOut *) hw;
669 LPDIRECTSOUNDBUFFER dsb = ds->dsound_buffer;
670 int live, len, hwshift;
671 DWORD blen1, blen2;
672 DWORD len1, len2;
673 DWORD decr;
674 DWORD wpos, ppos, old_pos;
675 LPVOID p1, p2;
676 int bufsize;
678 if (!dsb) {
679 dolog ("Attempt to run empty with playback buffer\n");
680 return 0;
683 hwshift = hw->info.shift;
684 bufsize = hw->samples << hwshift;
686 live = audio_pcm_hw_get_live_out (hw);
688 hr = IDirectSoundBuffer_GetCurrentPosition (
689 dsb,
690 &ppos,
691 ds->first_time ? &wpos : NULL
693 if (FAILED (hr)) {
694 dsound_logerr (hr, "Could not get playback buffer position\n");
695 return 0;
698 len = live << hwshift;
700 if (ds->first_time) {
701 if (conf.latency_millis) {
702 DWORD cur_blat;
704 cur_blat = audio_ring_dist (wpos, ppos, bufsize);
705 ds->first_time = 0;
706 old_pos = wpos;
707 old_pos +=
708 millis_to_bytes (&hw->info, conf.latency_millis) - cur_blat;
709 old_pos %= bufsize;
710 old_pos &= ~hw->info.align;
712 else {
713 old_pos = wpos;
715 #ifdef DEBUG_DSOUND
716 ds->played = 0;
717 ds->mixed = 0;
718 #endif
720 else {
721 if (ds->old_pos == ppos) {
722 #ifdef DEBUG_DSOUND
723 dolog ("old_pos == ppos\n");
724 #endif
725 return 0;
728 #ifdef DEBUG_DSOUND
729 ds->played += audio_ring_dist (ds->old_pos, ppos, hw->bufsize);
730 #endif
731 old_pos = ds->old_pos;
734 if ((old_pos < ppos) && ((old_pos + len) > ppos)) {
735 len = ppos - old_pos;
737 else {
738 if ((old_pos > ppos) && ((old_pos + len) > (ppos + bufsize))) {
739 len = bufsize - old_pos + ppos;
743 if (audio_bug (AUDIO_FUNC, len < 0 || len > bufsize)) {
744 dolog ("len=%d bufsize=%d old_pos=%ld ppos=%ld\n",
745 len, bufsize, old_pos, ppos);
746 return 0;
749 len &= ~hw->info.align;
750 if (!len) {
751 return 0;
754 #ifdef DEBUG_DSOUND
755 ds->old_ppos = ppos;
756 #endif
757 err = dsound_lock_out (
758 dsb,
759 &hw->info,
760 old_pos,
761 len,
762 &p1, &p2,
763 &blen1, &blen2,
766 if (err) {
767 return 0;
770 len1 = blen1 >> hwshift;
771 len2 = blen2 >> hwshift;
772 decr = len1 + len2;
774 if (p1 && len1) {
775 dsound_write_sample (hw, p1, len1);
778 if (p2 && len2) {
779 dsound_write_sample (hw, p2, len2);
782 dsound_unlock_out (dsb, p1, p2, blen1, blen2);
783 ds->old_pos = (old_pos + (decr << hwshift)) % bufsize;
785 #ifdef DEBUG_DSOUND
786 ds->mixed += decr << hwshift;
788 dolog ("played %lu mixed %lu diff %ld sec %f\n",
789 ds->played,
790 ds->mixed,
791 ds->mixed - ds->played,
792 abs (ds->mixed - ds->played) / (double) hw->info.bytes_per_second);
793 #endif
794 return decr;
797 static int dsound_ctl_in (HWVoiceIn *hw, int cmd, ...)
799 HRESULT hr;
800 DWORD status;
801 DSoundVoiceIn *ds = (DSoundVoiceIn *) hw;
802 LPDIRECTSOUNDCAPTUREBUFFER dscb = ds->dsound_capture_buffer;
804 if (!dscb) {
805 dolog ("Attempt to control capture voice without a buffer\n");
806 return -1;
809 switch (cmd) {
810 case VOICE_ENABLE:
811 if (dsound_get_status_in (dscb, &status)) {
812 return -1;
815 if (status & DSCBSTATUS_CAPTURING) {
816 dolog ("warning: Voice is already capturing\n");
817 return 0;
820 /* clear ?? */
822 hr = IDirectSoundCaptureBuffer_Start (dscb, DSCBSTART_LOOPING);
823 if (FAILED (hr)) {
824 dsound_logerr (hr, "Could not start capturing\n");
825 return -1;
827 break;
829 case VOICE_DISABLE:
830 if (dsound_get_status_in (dscb, &status)) {
831 return -1;
834 if (status & DSCBSTATUS_CAPTURING) {
835 hr = IDirectSoundCaptureBuffer_Stop (dscb);
836 if (FAILED (hr)) {
837 dsound_logerr (hr, "Could not stop capturing\n");
838 return -1;
841 else {
842 dolog ("warning: Voice is not capturing\n");
844 break;
846 return 0;
849 static int dsound_read (SWVoiceIn *sw, void *buf, int len)
851 return audio_pcm_sw_read (sw, buf, len);
854 static int dsound_run_in (HWVoiceIn *hw)
856 int err;
857 HRESULT hr;
858 DSoundVoiceIn *ds = (DSoundVoiceIn *) hw;
859 LPDIRECTSOUNDCAPTUREBUFFER dscb = ds->dsound_capture_buffer;
860 int live, len, dead;
861 DWORD blen1, blen2;
862 DWORD len1, len2;
863 DWORD decr;
864 DWORD cpos, rpos;
865 LPVOID p1, p2;
866 int hwshift;
868 if (!dscb) {
869 dolog ("Attempt to run without capture buffer\n");
870 return 0;
873 hwshift = hw->info.shift;
875 live = audio_pcm_hw_get_live_in (hw);
876 dead = hw->samples - live;
877 if (!dead) {
878 return 0;
881 hr = IDirectSoundCaptureBuffer_GetCurrentPosition (
882 dscb,
883 &cpos,
884 ds->first_time ? &rpos : NULL
886 if (FAILED (hr)) {
887 dsound_logerr (hr, "Could not get capture buffer position\n");
888 return 0;
891 if (ds->first_time) {
892 ds->first_time = 0;
893 if (rpos & hw->info.align) {
894 ldebug ("warning: Misaligned capture read position %ld(%d)\n",
895 rpos, hw->info.align);
897 hw->wpos = rpos >> hwshift;
900 if (cpos & hw->info.align) {
901 ldebug ("warning: Misaligned capture position %ld(%d)\n",
902 cpos, hw->info.align);
904 cpos >>= hwshift;
906 len = audio_ring_dist (cpos, hw->wpos, hw->samples);
907 if (!len) {
908 return 0;
910 len = audio_MIN (len, dead);
912 err = dsound_lock_in (
913 dscb,
914 &hw->info,
915 hw->wpos << hwshift,
916 len << hwshift,
917 &p1,
918 &p2,
919 &blen1,
920 &blen2,
923 if (err) {
924 return 0;
927 len1 = blen1 >> hwshift;
928 len2 = blen2 >> hwshift;
929 decr = len1 + len2;
931 if (p1 && len1) {
932 hw->conv (hw->conv_buf + hw->wpos, p1, len1, &nominal_volume);
935 if (p2 && len2) {
936 hw->conv (hw->conv_buf, p2, len2, &nominal_volume);
939 dsound_unlock_in (dscb, p1, p2, blen1, blen2);
940 hw->wpos = (hw->wpos + decr) % hw->samples;
941 return decr;
944 static void dsound_audio_fini (void *opaque)
946 HRESULT hr;
947 dsound *s = opaque;
949 if (!s->dsound) {
950 return;
953 hr = IDirectSound_Release (s->dsound);
954 if (FAILED (hr)) {
955 dsound_logerr (hr, "Could not release DirectSound\n");
957 s->dsound = NULL;
959 if (!s->dsound_capture) {
960 return;
963 hr = IDirectSoundCapture_Release (s->dsound_capture);
964 if (FAILED (hr)) {
965 dsound_logerr (hr, "Could not release DirectSoundCapture\n");
967 s->dsound_capture = NULL;
970 static void *dsound_audio_init (void)
972 int err;
973 HRESULT hr;
974 dsound *s = &glob_dsound;
976 hr = CoInitialize (NULL);
977 if (FAILED (hr)) {
978 dsound_logerr (hr, "Could not initialize COM\n");
979 return NULL;
982 hr = CoCreateInstance (
983 &CLSID_DirectSound,
984 NULL,
985 CLSCTX_ALL,
986 &IID_IDirectSound,
987 (void **) &s->dsound
989 if (FAILED (hr)) {
990 dsound_logerr (hr, "Could not create DirectSound instance\n");
991 return NULL;
994 hr = IDirectSound_Initialize (s->dsound, NULL);
995 if (FAILED (hr)) {
996 dsound_logerr (hr, "Could not initialize DirectSound\n");
998 hr = IDirectSound_Release (s->dsound);
999 if (FAILED (hr)) {
1000 dsound_logerr (hr, "Could not release DirectSound\n");
1002 s->dsound = NULL;
1003 return NULL;
1006 hr = CoCreateInstance (
1007 &CLSID_DirectSoundCapture,
1008 NULL,
1009 CLSCTX_ALL,
1010 &IID_IDirectSoundCapture,
1011 (void **) &s->dsound_capture
1013 if (FAILED (hr)) {
1014 dsound_logerr (hr, "Could not create DirectSoundCapture instance\n");
1016 else {
1017 hr = IDirectSoundCapture_Initialize (s->dsound_capture, NULL);
1018 if (FAILED (hr)) {
1019 dsound_logerr (hr, "Could not initialize DirectSoundCapture\n");
1021 hr = IDirectSoundCapture_Release (s->dsound_capture);
1022 if (FAILED (hr)) {
1023 dsound_logerr (hr, "Could not release DirectSoundCapture\n");
1025 s->dsound_capture = NULL;
1029 err = dsound_open (s);
1030 if (err) {
1031 dsound_audio_fini (s);
1032 return NULL;
1035 return s;
1038 static struct audio_option dsound_options[] = {
1039 {"LOCK_RETRIES", AUD_OPT_INT, &conf.lock_retries,
1040 "Number of times to attempt locking the buffer", NULL, 0},
1041 {"RESTOURE_RETRIES", AUD_OPT_INT, &conf.restore_retries,
1042 "Number of times to attempt restoring the buffer", NULL, 0},
1043 {"GETSTATUS_RETRIES", AUD_OPT_INT, &conf.getstatus_retries,
1044 "Number of times to attempt getting status of the buffer", NULL, 0},
1045 {"SET_PRIMARY", AUD_OPT_BOOL, &conf.set_primary,
1046 "Set the parameters of primary buffer", NULL, 0},
1047 {"LATENCY_MILLIS", AUD_OPT_INT, &conf.latency_millis,
1048 "(undocumented)", NULL, 0},
1049 {"PRIMARY_FREQ", AUD_OPT_INT, &conf.settings.freq,
1050 "Primary buffer frequency", NULL, 0},
1051 {"PRIMARY_CHANNELS", AUD_OPT_INT, &conf.settings.nchannels,
1052 "Primary buffer number of channels (1 - mono, 2 - stereo)", NULL, 0},
1053 {"PRIMARY_FMT", AUD_OPT_FMT, &conf.settings.fmt,
1054 "Primary buffer format", NULL, 0},
1055 {"BUFSIZE_OUT", AUD_OPT_INT, &conf.bufsize_out,
1056 "(undocumented)", NULL, 0},
1057 {"BUFSIZE_IN", AUD_OPT_INT, &conf.bufsize_in,
1058 "(undocumented)", NULL, 0},
1059 {NULL, 0, NULL, NULL, NULL, 0}
1062 static struct audio_pcm_ops dsound_pcm_ops = {
1063 dsound_init_out,
1064 dsound_fini_out,
1065 dsound_run_out,
1066 dsound_write,
1067 dsound_ctl_out,
1069 dsound_init_in,
1070 dsound_fini_in,
1071 dsound_run_in,
1072 dsound_read,
1073 dsound_ctl_in
1076 struct audio_driver dsound_audio_driver = {
1077 INIT_FIELD (name = ) "dsound",
1078 INIT_FIELD (descr = )
1079 "DirectSound http://wikipedia.org/wiki/DirectSound",
1080 INIT_FIELD (options = ) dsound_options,
1081 INIT_FIELD (init = ) dsound_audio_init,
1082 INIT_FIELD (fini = ) dsound_audio_fini,
1083 INIT_FIELD (pcm_ops = ) &dsound_pcm_ops,
1084 INIT_FIELD (can_be_default = ) 1,
1085 INIT_FIELD (max_voices_out = ) INT_MAX,
1086 INIT_FIELD (max_voices_in = ) 1,
1087 INIT_FIELD (voice_size_out = ) sizeof (DSoundVoiceOut),
1088 INIT_FIELD (voice_size_in = ) sizeof (DSoundVoiceIn)