dlls/winealsa.drv/dsoutput.c

   1 /*
   2  * Sample Wine Driver for Advanced Linux Sound System (ALSA)
   3  *      Based on version <final> of the ALSA API
   4  *
   5  * Copyright    2002 Eric Pouech
   6  *              2002 Marco Pietrobono
   7  *              2003 Christian Costa : WaveIn support
   8  *              2006-2007 Maarten Lankhorst
   9  *
  10  * This library is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU Lesser General Public
  12  * License as published by the Free Software Foundation; either
  13  * version 2.1 of the License, or (at your option) any later version.
  14  *
  15  * This library is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * Lesser General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU Lesser General Public
  21  * License along with this library; if not, write to the Free Software
  22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  23  */
  24
  25 /*======================================================================*
  26  *              Low level dsound output implementation                  *
  27  *======================================================================*/
  28
  29 #include "config.h"
  30 #include "wine/port.h"
  31
  32 #include <stdlib.h>
  33 #include <assert.h>
  34 #include <stdarg.h>
  35 #include <stdio.h>
  36 #include <string.h>
  37 #ifdef HAVE_UNISTD_H
  38 # include <unistd.h>
  39 #endif
  40 #include <errno.h>
  41 #include <limits.h>
  42 #include <fcntl.h>
  43 #ifdef HAVE_SYS_IOCTL_H
  44 # include <sys/ioctl.h>
  45 #endif
  46 #ifdef HAVE_SYS_MMAN_H
  47 # include <sys/mman.h>
  48 #endif
  49 #include "windef.h"
  50 #include "winbase.h"
  51 #include "wingdi.h"
  52 #include "winerror.h"
  53 #include "winuser.h"
  54 #include "mmddk.h"
  55
  56 #include "alsa.h"
  57 #include "wine/library.h"
  58 #include "wine/unicode.h"
  59 #include "wine/debug.h"
  60
  61 #ifdef HAVE_ALSA
  62
  63 WINE_DEFAULT_DEBUG_CHANNEL(dsalsa);
  64
  65 typedef struct IDsDriverImpl IDsDriverImpl;
  66 typedef struct IDsDriverBufferImpl IDsDriverBufferImpl;
  67
  68 struct IDsDriverImpl
  69 {
  70     /* IUnknown fields */
  71     const IDsDriverVtbl *lpVtbl;
  72     LONG ref;
  73
  74     /* IDsDriverImpl fields */
  75     IDsDriverBufferImpl* primary;
  76     UINT wDevID;
  77 };
  78
  79 struct IDsDriverBufferImpl
  80 {
  81     const IDsDriverBufferVtbl *lpVtbl;
  82     LONG ref;
  83     IDsDriverImpl* drv;
  84
  85     CRITICAL_SECTION pcm_crst;
  86     LPVOID mmap_buffer;
  87     DWORD mmap_buflen_bytes;
  88
  89     snd_pcm_t *pcm;
  90     snd_pcm_hw_params_t *hw_params;
  91     snd_pcm_sw_params_t *sw_params;
  92     snd_pcm_uframes_t mmap_buflen_frames, mmap_pos, mmap_commitahead;
  93 };
  94
  95 /** Fill buffers, for starting and stopping
  96  * Alsa won't start playing until everything is filled up
  97  * This also updates mmap_pos
  98  *
  99  * Returns: Amount of periods in use so snd_pcm_avail_update
 100  * doesn't have to be called up to 4x in GetPosition()
 101  */
 102 static snd_pcm_uframes_t CommitAll(IDsDriverBufferImpl *This)
 103 {
 104     const snd_pcm_channel_area_t *areas;
 105     snd_pcm_uframes_t used;
 106     const snd_pcm_uframes_t commitahead = This->mmap_commitahead;
 107
 108     used = This->mmap_buflen_frames - snd_pcm_avail_update(This->pcm);
 109     TRACE("%p needs to commit to %lu, used: %lu\n", This, commitahead, used);
 110     if (used < commitahead)
 111     {
 112         snd_pcm_uframes_t done, putin = commitahead - used;
 113         snd_pcm_mmap_begin(This->pcm, &areas, &This->mmap_pos, &putin);
 114         done = snd_pcm_mmap_commit(This->pcm, This->mmap_pos, putin);
 115         This->mmap_pos += done;
 116         used += done;
 117         putin = commitahead - used;
 118
 119         if (This->mmap_pos == This->mmap_buflen_frames && (snd_pcm_sframes_t)putin > 0)
 120         {
 121             snd_pcm_mmap_begin(This->pcm, &areas, &This->mmap_pos, &putin);
 122             done = snd_pcm_mmap_commit(This->pcm, This->mmap_pos, putin);
 123             This->mmap_pos += done;
 124             used += done;
 125         }
 126     }
 127
 128     if (This->mmap_pos == This->mmap_buflen_frames)
 129         This->mmap_pos = 0;
 130
 131     return used;
 132 }
 133
 134 static void CheckXRUN(IDsDriverBufferImpl* This)
 135 {
 136     snd_pcm_state_t state = snd_pcm_state(This->pcm);
 137     snd_pcm_sframes_t delay;
 138     int err;
 139
 140     snd_pcm_hwsync(This->pcm);
 141     snd_pcm_delay(This->pcm, &delay);
 142     if ( state == SND_PCM_STATE_XRUN )
 143     {
 144         err = snd_pcm_prepare(This->pcm);
 145         CommitAll(This);
 146         snd_pcm_start(This->pcm);
 147         WARN("xrun occurred\n");
 148         if ( err < 0 )
 149             ERR("recovery from xrun failed, prepare failed: %s\n", snd_strerror(err));
 150     }
 151     else if ( state == SND_PCM_STATE_SUSPENDED )
 152     {
 153         int err = snd_pcm_resume(This->pcm);
 154         TRACE("recovery from suspension occurred\n");
 155         if (err < 0 && err != -EAGAIN){
 156             err = snd_pcm_prepare(This->pcm);
 157             if (err < 0)
 158                 ERR("recovery from suspend failed, prepare failed: %s\n", snd_strerror(err));
 159         }
 160     } else if ( state != SND_PCM_STATE_RUNNING ) {
 161         FIXME("Unhandled state: %d\n", state);
 162     }
 163 }
 164
 165 /**
 166  * Allocate the memory-mapped buffer for direct sound, and set up the
 167  * callback.
 168  */
 169 static int DSDB_CreateMMAP(IDsDriverBufferImpl* pdbi)
 170 {
 171     snd_pcm_t *pcm = pdbi->pcm;
 172     snd_pcm_format_t format;
 173     snd_pcm_uframes_t frames, ofs, avail, psize, boundary;
 174     unsigned int channels, bits_per_sample, bits_per_frame;
 175     int err, mmap_mode;
 176     const snd_pcm_channel_area_t *areas;
 177     snd_pcm_hw_params_t *hw_params = pdbi->hw_params;
 178     snd_pcm_sw_params_t *sw_params = pdbi->sw_params;
 179
 180     mmap_mode = snd_pcm_type(pcm);
 181
 182     if (mmap_mode == SND_PCM_TYPE_HW)
 183         TRACE("mmap'd buffer is a direct hardware buffer.\n");
 184     else if (mmap_mode == SND_PCM_TYPE_DMIX)
 185         TRACE("mmap'd buffer is an ALSA dmix buffer\n");
 186     else
 187         TRACE("mmap'd buffer is an ALSA type %d buffer\n", mmap_mode);
 188
 189     err = snd_pcm_hw_params_get_period_size(hw_params, &psize, NULL);
 190
 191     err = snd_pcm_hw_params_get_format(hw_params, &format);
 192     err = snd_pcm_hw_params_get_buffer_size(hw_params, &frames);
 193     err = snd_pcm_hw_params_get_channels(hw_params, &channels);
 194     bits_per_sample = snd_pcm_format_physical_width(format);
 195     bits_per_frame = bits_per_sample * channels;
 196
 197     if (TRACE_ON(dsalsa))
 198         ALSA_TraceParameters(hw_params, NULL, FALSE);
 199
 200     TRACE("format=%s  frames=%ld  channels=%d  bits_per_sample=%d  bits_per_frame=%d\n",
 201           snd_pcm_format_name(format), frames, channels, bits_per_sample, bits_per_frame);
 202
 203     pdbi->mmap_buflen_frames = frames;
 204     pdbi->mmap_buflen_bytes = snd_pcm_frames_to_bytes( pcm, frames );
 205
 206     snd_pcm_sw_params_current(pcm, sw_params);
 207     snd_pcm_sw_params_set_start_threshold(pcm, sw_params, 0);
 208     snd_pcm_sw_params_get_boundary(sw_params, &boundary);
 209     snd_pcm_sw_params_set_stop_threshold(pcm, sw_params, boundary);
 210     snd_pcm_sw_params_set_silence_threshold(pcm, sw_params, INT_MAX);
 211     snd_pcm_sw_params_set_silence_size(pcm, sw_params, 0);
 212     snd_pcm_sw_params_set_avail_min(pcm, sw_params, 0);
 213     snd_pcm_sw_params_set_xrun_mode(pcm, sw_params, SND_PCM_XRUN_NONE);
 214     err = snd_pcm_sw_params(pcm, sw_params);
 215
 216     avail = snd_pcm_avail_update(pcm);
 217     if (avail < 0)
 218     {
 219         ERR("No buffer is available: %s.\n", snd_strerror(avail));
 220         return DSERR_GENERIC;
 221     }
 222     err = snd_pcm_mmap_begin(pcm, &areas, &ofs, &avail);
 223     if ( err < 0 )
 224     {
 225         ERR("Can't map sound device for direct access: %s\n", snd_strerror(err));
 226         return DSERR_GENERIC;
 227     }
 228     snd_pcm_format_set_silence(format, areas->addr, pdbi->mmap_buflen_frames);
 229     pdbi->mmap_pos = ofs + snd_pcm_mmap_commit(pcm, ofs, 0);
 230     pdbi->mmap_buffer = areas->addr;
 231
 232     TRACE("created mmap buffer of %ld frames (%d bytes) at %p\n",
 233         frames, pdbi->mmap_buflen_bytes, pdbi->mmap_buffer);
 234
 235     return DS_OK;
 236 }
 237
 238 static HRESULT WINAPI IDsDriverBufferImpl_QueryInterface(PIDSDRIVERBUFFER iface, REFIID riid, LPVOID *ppobj)
 239 {
 240     /* IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface; */
 241     FIXME("(): stub!\n");
 242     return DSERR_UNSUPPORTED;
 243 }
 244
 245 static ULONG WINAPI IDsDriverBufferImpl_AddRef(PIDSDRIVERBUFFER iface)
 246 {
 247     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 248     ULONG refCount = InterlockedIncrement(&This->ref);
 249
 250     TRACE("(%p)->(ref before=%u)\n",This, refCount - 1);
 251
 252     return refCount;
 253 }
 254
 255 static ULONG WINAPI IDsDriverBufferImpl_Release(PIDSDRIVERBUFFER iface)
 256 {
 257     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 258     ULONG refCount = InterlockedDecrement(&This->ref);
 259
 260     TRACE("(%p)->(ref before=%u)\n",This, refCount + 1);
 261
 262     if (refCount)
 263         return refCount;
 264
 265     TRACE("mmap buffer %p destroyed\n", This->mmap_buffer);
 266
 267     if (This == This->drv->primary)
 268         This->drv->primary = NULL;
 269
 270     This->pcm_crst.DebugInfo->Spare[0] = 0;
 271     DeleteCriticalSection(&This->pcm_crst);
 272
 273     snd_pcm_drop(This->pcm);
 274     snd_pcm_close(This->pcm);
 275     This->pcm = NULL;
 276     HeapFree(GetProcessHeap(), 0, This->sw_params);
 277     HeapFree(GetProcessHeap(), 0, This->hw_params);
 278     HeapFree(GetProcessHeap(), 0, This);
 279     return 0;
 280 }
 281
 282 static HRESULT WINAPI IDsDriverBufferImpl_Lock(PIDSDRIVERBUFFER iface,
 283                                                LPVOID*ppvAudio1,LPDWORD pdwLen1,
 284                                                LPVOID*ppvAudio2,LPDWORD pdwLen2,
 285                                                DWORD dwWritePosition,DWORD dwWriteLen,
 286                                                DWORD dwFlags)
 287 {
 288     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 289     snd_pcm_uframes_t writepos;
 290
 291     TRACE("%d bytes from %d\n", dwWriteLen, dwWritePosition);
 292
 293     /* **** */
 294     EnterCriticalSection(&This->pcm_crst);
 295
 296     if (dwFlags & DSBLOCK_ENTIREBUFFER)
 297         dwWriteLen = This->mmap_buflen_bytes;
 298
 299     if (dwWriteLen > This->mmap_buflen_bytes || dwWritePosition >= This->mmap_buflen_bytes)
 300     {
 301         /* **** */
 302         LeaveCriticalSection(&This->pcm_crst);
 303         return DSERR_INVALIDPARAM;
 304     }
 305
 306     if (ppvAudio2) *ppvAudio2 = NULL;
 307     if (pdwLen2) *pdwLen2 = 0;
 308
 309     *ppvAudio1 = (LPBYTE)This->mmap_buffer + dwWritePosition;
 310     *pdwLen1 = dwWriteLen;
 311
 312     if (dwWritePosition+dwWriteLen > This->mmap_buflen_bytes)
 313     {
 314         DWORD remainder = This->mmap_buflen_bytes - dwWritePosition;
 315         *pdwLen1 = remainder;
 316
 317         if (ppvAudio2 && pdwLen2)
 318         {
 319             *ppvAudio2 = This->mmap_buffer;
 320             *pdwLen2 = dwWriteLen - remainder;
 321         }
 322         else dwWriteLen = remainder;
 323     }
 324
 325     writepos = snd_pcm_bytes_to_frames(This->pcm, dwWritePosition);
 326     if (writepos == This->mmap_pos)
 327     {
 328         const snd_pcm_channel_area_t *areas;
 329         snd_pcm_uframes_t writelen = snd_pcm_bytes_to_frames(This->pcm, dwWriteLen), putin = writelen;
 330         TRACE("Hit mmap_pos, locking data!\n");
 331         snd_pcm_mmap_begin(This->pcm, &areas, &This->mmap_pos, &putin);
 332     }
 333
 334     LeaveCriticalSection(&This->pcm_crst);
 335     /* **** */
 336     return DS_OK;
 337 }
 338
 339 static HRESULT WINAPI IDsDriverBufferImpl_Unlock(PIDSDRIVERBUFFER iface,
 340                                                  LPVOID pvAudio1,DWORD dwLen1,
 341                                                  LPVOID pvAudio2,DWORD dwLen2)
 342 {
 343     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 344     snd_pcm_uframes_t writepos;
 345
 346     if (!dwLen1)
 347         return DS_OK;
 348
 349     /* **** */
 350     EnterCriticalSection(&This->pcm_crst);
 351
 352     writepos = snd_pcm_bytes_to_frames(This->pcm, (DWORD_PTR)pvAudio1 - (DWORD_PTR)This->mmap_buffer);
 353     if (writepos == This->mmap_pos)
 354     {
 355         const snd_pcm_channel_area_t *areas;
 356         snd_pcm_uframes_t writelen = snd_pcm_bytes_to_frames(This->pcm, dwLen1);
 357         TRACE("Committing data\n");
 358         This->mmap_pos += snd_pcm_mmap_commit(This->pcm, This->mmap_pos, writelen);
 359         if (This->mmap_pos == This->mmap_buflen_frames)
 360             This->mmap_pos = 0;
 361         if (!This->mmap_pos && dwLen2)
 362         {
 363             writelen = snd_pcm_bytes_to_frames(This->pcm, dwLen2);
 364             snd_pcm_mmap_begin(This->pcm, &areas, &This->mmap_pos, &writelen);
 365             This->mmap_pos += snd_pcm_mmap_commit(This->pcm, This->mmap_pos, writelen);
 366             assert(This->mmap_pos < This->mmap_buflen_frames);
 367         }
 368     }
 369     LeaveCriticalSection(&This->pcm_crst);
 370     /* **** */
 371
 372     return DS_OK;
 373 }
 374
 375 static HRESULT SetFormat(IDsDriverBufferImpl *This, LPWAVEFORMATEX pwfx)
 376 {
 377     snd_pcm_t *pcm = NULL;
 378     snd_pcm_hw_params_t *hw_params = This->hw_params;
 379     unsigned int buffer_time = 500000;
 380     snd_pcm_format_t format = -1;
 381     snd_pcm_uframes_t psize;
 382     DWORD rate = pwfx->nSamplesPerSec;
 383     int err=0;
 384
 385     switch (pwfx->wBitsPerSample)
 386     {
 387         case  8: format = SND_PCM_FORMAT_U8; break;
 388         case 16: format = SND_PCM_FORMAT_S16_LE; break;
 389         case 24: format = SND_PCM_FORMAT_S24_3LE; break;
 390         case 32: format = SND_PCM_FORMAT_S32_LE; break;
 391         default: FIXME("Unsupported bpp: %d\n", pwfx->wBitsPerSample); return DSERR_GENERIC;
 392     }
 393
 394     err = snd_pcm_open(&pcm, WOutDev[This->drv->wDevID].pcmname, SND_PCM_STREAM_PLAYBACK, SND_PCM_NONBLOCK);
 395     if (err < 0)
 396     {
 397         if (errno != EBUSY || !This->pcm)
 398         {
 399             WARN("Cannot open sound device: %s\n", snd_strerror(err));
 400             return DSERR_GENERIC;
 401         }
 402         snd_pcm_drop(This->pcm);
 403         snd_pcm_close(This->pcm);
 404         This->pcm = NULL;
 405         err = snd_pcm_open(&pcm, WOutDev[This->drv->wDevID].pcmname, SND_PCM_STREAM_PLAYBACK, SND_PCM_NONBLOCK);
 406         if (err < 0)
 407         {
 408             WARN("Cannot open sound device: %s\n", snd_strerror(err));
 409             return DSERR_BUFFERLOST;
 410         }
 411     }
 412
 413     /* Set some defaults */
 414     snd_pcm_hw_params_any(pcm, hw_params);
 415     err = snd_pcm_hw_params_set_channels(pcm, hw_params, pwfx->nChannels);
 416     if (err < 0) { WARN("Could not set channels to %d\n", pwfx->nChannels); goto err; }
 417
 418     err = snd_pcm_hw_params_set_format(pcm, hw_params, format);
 419     if (err < 0) { WARN("Could not set format to %d bpp\n", pwfx->wBitsPerSample); goto err; }
 420
 421     /* Alsa's rate resampling is only used if the application specifically requests
 422      * a buffer at a certain frequency, else it is better to disable it due to unwanted
 423      * side effects, which may include: Less granular pointer, changing buffer sizes, etc
 424      */
 425 #if SND_LIB_VERSION >= 0x010009
 426     snd_pcm_hw_params_set_rate_resample(pcm, hw_params, 0);
 427 #endif
 428
 429     err = snd_pcm_hw_params_set_rate_near(pcm, hw_params, &rate, NULL);
 430     if (err < 0) { rate = pwfx->nSamplesPerSec; WARN("Could not set rate\n"); goto err; }
 431
 432     if (!ALSA_NearMatch(rate, pwfx->nSamplesPerSec))
 433     {
 434         WARN("Could not set sound rate to %d, but instead to %d\n", pwfx->nSamplesPerSec, rate);
 435         pwfx->nSamplesPerSec = rate;
 436         pwfx->nAvgBytesPerSec = rate * pwfx->nBlockAlign;
 437         /* Let DirectSound detect this */
 438     }
 439
 440     snd_pcm_hw_params_set_periods_integer(pcm, hw_params);
 441     snd_pcm_hw_params_set_buffer_time_near(pcm, hw_params, &buffer_time, NULL);
 442     buffer_time = 10000;
 443     snd_pcm_hw_params_set_period_time_near(pcm, hw_params, &buffer_time, NULL);
 444     err = snd_pcm_hw_params(pcm, hw_params);
 445     err = snd_pcm_sw_params(pcm, This->sw_params);
 446     snd_pcm_prepare(pcm);
 447
 448     err = snd_pcm_hw_params_get_period_size(hw_params, &psize, NULL);
 449     TRACE("Period size is: %lu\n", psize);
 450
 451     /* ALSA needs at least 3 buffers to work successfully */
 452     This->mmap_commitahead = 3 * psize;
 453     while (This->mmap_commitahead <= 512)
 454         This->mmap_commitahead += psize;
 455
 456     if (This->pcm)
 457     {
 458         snd_pcm_drop(This->pcm);
 459         snd_pcm_close(This->pcm);
 460     }
 461     This->pcm = pcm;
 462     snd_pcm_prepare(This->pcm);
 463     DSDB_CreateMMAP(This);
 464     return S_OK;
 465
 466     err:
 467     if (err < 0)
 468         WARN("Failed to apply changes: %s\n", snd_strerror(err));
 469
 470     if (!This->pcm)
 471         This->pcm = pcm;
 472     else
 473         snd_pcm_close(pcm);
 474
 475     if (This->pcm)
 476         snd_pcm_hw_params_current(This->pcm, This->hw_params);
 477
 478     return DSERR_BADFORMAT;
 479 }
 480
 481 static HRESULT WINAPI IDsDriverBufferImpl_SetFormat(PIDSDRIVERBUFFER iface, LPWAVEFORMATEX pwfx)
 482 {
 483     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 484     HRESULT hr = S_OK;
 485
 486     TRACE("(%p, %p)\n", iface, pwfx);
 487
 488     /* **** */
 489     EnterCriticalSection(&This->pcm_crst);
 490     hr = SetFormat(This, pwfx);
 491     /* **** */
 492     LeaveCriticalSection(&This->pcm_crst);
 493
 494     if (hr == DS_OK)
 495         return S_FALSE;
 496     return hr;
 497 }
 498
 499 static HRESULT WINAPI IDsDriverBufferImpl_SetFrequency(PIDSDRIVERBUFFER iface, DWORD dwFreq)
 500 {
 501     /* IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface; */
 502     FIXME("(%p,%d): stub\n",iface,dwFreq);
 503     return S_OK;
 504 }
 505
 506 static HRESULT WINAPI IDsDriverBufferImpl_SetVolumePan(PIDSDRIVERBUFFER iface, PDSVOLUMEPAN pVolPan)
 507 {
 508     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 509     FIXME("(%p,%p): stub\n",This,pVolPan);
 510     /* TODO: Bring volume control back */
 511     return DS_OK;
 512 }
 513
 514 static HRESULT WINAPI IDsDriverBufferImpl_SetPosition(PIDSDRIVERBUFFER iface, DWORD dwNewPos)
 515 {
 516     /* IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface; */
 517     /* I don't even think alsa allows this */
 518     FIXME("(%p,%d): stub\n",iface,dwNewPos);
 519     return DSERR_UNSUPPORTED;
 520 }
 521
 522 static HRESULT WINAPI IDsDriverBufferImpl_GetPosition(PIDSDRIVERBUFFER iface,
 523                                                       LPDWORD lpdwPlay, LPDWORD lpdwWrite)
 524 {
 525     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 526     snd_pcm_uframes_t hw_pptr, hw_wptr;
 527     snd_pcm_state_t state;
 528
 529     /* **** */
 530     EnterCriticalSection(&This->pcm_crst);
 531
 532     if (!This->pcm)
 533     {
 534         FIXME("Bad pointer for pcm: %p\n", This->pcm);
 535         LeaveCriticalSection(&This->pcm_crst);
 536         return DSERR_GENERIC;
 537     }
 538
 539     if (!lpdwPlay && !lpdwWrite)
 540         CommitAll(This);
 541
 542     state = snd_pcm_state(This->pcm);
 543
 544     if (state != SND_PCM_STATE_PREPARED && state != SND_PCM_STATE_RUNNING)
 545     {
 546         CheckXRUN(This);
 547         state = snd_pcm_state(This->pcm);
 548     }
 549     if (state == SND_PCM_STATE_RUNNING)
 550     {
 551         snd_pcm_uframes_t used = This->mmap_buflen_frames - snd_pcm_avail_update(This->pcm);
 552
 553         if (This->mmap_pos > used)
 554             hw_pptr = This->mmap_pos - used;
 555         else
 556             hw_pptr = This->mmap_buflen_frames + This->mmap_pos - used;
 557         hw_pptr %= This->mmap_buflen_frames;
 558
 559         TRACE("At position: %ld (%ld) - Used %ld\n", hw_pptr, This->mmap_pos, used);
 560     }
 561     else hw_pptr = This->mmap_pos;
 562     hw_wptr = This->mmap_pos;
 563
 564     LeaveCriticalSection(&This->pcm_crst);
 565     /* **** */
 566
 567     if (lpdwPlay)
 568         *lpdwPlay = snd_pcm_frames_to_bytes(This->pcm, hw_pptr);
 569     if (lpdwWrite)
 570         *lpdwWrite = snd_pcm_frames_to_bytes(This->pcm, hw_wptr);
 571
 572     TRACE("hw_pptr=0x%08x, hw_wptr=0x%08x playpos=%d, writepos=%d\n", (unsigned int)hw_pptr, (unsigned int)hw_wptr, lpdwPlay?*lpdwPlay:-1, lpdwWrite?*lpdwWrite:-1);
 573     return DS_OK;
 574 }
 575
 576 static HRESULT WINAPI IDsDriverBufferImpl_Play(PIDSDRIVERBUFFER iface, DWORD dwRes1, DWORD dwRes2, DWORD dwFlags)
 577 {
 578     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 579     TRACE("(%p,%x,%x,%x)\n",iface,dwRes1,dwRes2,dwFlags);
 580
 581     /* **** */
 582     EnterCriticalSection(&This->pcm_crst);
 583     snd_pcm_start(This->pcm);
 584     /* **** */
 585     LeaveCriticalSection(&This->pcm_crst);
 586     return DS_OK;
 587 }
 588
 589 static HRESULT WINAPI IDsDriverBufferImpl_Stop(PIDSDRIVERBUFFER iface)
 590 {
 591     const snd_pcm_channel_area_t *areas;
 592     snd_pcm_uframes_t avail;
 593     snd_pcm_format_t format;
 594     IDsDriverBufferImpl *This = (IDsDriverBufferImpl *)iface;
 595     TRACE("(%p)\n",iface);
 596
 597     /* **** */
 598     EnterCriticalSection(&This->pcm_crst);
 599     avail = This->mmap_buflen_frames;
 600     snd_pcm_drop(This->pcm);
 601     snd_pcm_prepare(This->pcm);
 602     avail = snd_pcm_avail_update(This->pcm);
 603     snd_pcm_mmap_begin(This->pcm, &areas, &This->mmap_pos, &avail);
 604     snd_pcm_hw_params_get_format(This->hw_params, &format);
 605     snd_pcm_format_set_silence(format, areas->addr, This->mmap_buflen_frames);
 606     snd_pcm_mmap_commit(This->pcm, This->mmap_pos, 0);
 607
 608     /* **** */
 609     LeaveCriticalSection(&This->pcm_crst);
 610     return DS_OK;
 611 }
 612
 613 static const IDsDriverBufferVtbl dsdbvt =
 614 {
 615     IDsDriverBufferImpl_QueryInterface,
 616     IDsDriverBufferImpl_AddRef,
 617     IDsDriverBufferImpl_Release,
 618     IDsDriverBufferImpl_Lock,
 619     IDsDriverBufferImpl_Unlock,
 620     IDsDriverBufferImpl_SetFormat,
 621     IDsDriverBufferImpl_SetFrequency,
 622     IDsDriverBufferImpl_SetVolumePan,
 623     IDsDriverBufferImpl_SetPosition,
 624     IDsDriverBufferImpl_GetPosition,
 625     IDsDriverBufferImpl_Play,
 626     IDsDriverBufferImpl_Stop
 627 };
 628
 629 static HRESULT WINAPI IDsDriverImpl_QueryInterface(PIDSDRIVER iface, REFIID riid, LPVOID *ppobj)
 630 {
 631     /* IDsDriverImpl *This = (IDsDriverImpl *)iface; */
 632     FIXME("(%p): stub!\n",iface);
 633     return DSERR_UNSUPPORTED;
 634 }
 635
 636 static ULONG WINAPI IDsDriverImpl_AddRef(PIDSDRIVER iface)
 637 {
 638     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 639     ULONG refCount = InterlockedIncrement(&This->ref);
 640
 641     TRACE("(%p)->(ref before=%u)\n",This, refCount - 1);
 642
 643     return refCount;
 644 }
 645
 646 static ULONG WINAPI IDsDriverImpl_Release(PIDSDRIVER iface)
 647 {
 648     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 649     ULONG refCount = InterlockedDecrement(&This->ref);
 650
 651     TRACE("(%p)->(ref before=%u)\n",This, refCount + 1);
 652
 653     if (refCount)
 654         return refCount;
 655
 656     HeapFree(GetProcessHeap(), 0, This);
 657     return 0;
 658 }
 659
 660 static HRESULT WINAPI IDsDriverImpl_GetDriverDesc(PIDSDRIVER iface, PDSDRIVERDESC pDesc)
 661 {
 662     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 663     TRACE("(%p,%p)\n",iface,pDesc);
 664     memcpy(pDesc, &(WOutDev[This->wDevID].ds_desc), sizeof(DSDRIVERDESC));
 665     pDesc->dwFlags              = DSDDESC_DONTNEEDSECONDARYLOCK | DSDDESC_DONTNEEDWRITELEAD;
 666     pDesc->dnDevNode            = WOutDev[This->wDevID].waveDesc.dnDevNode;
 667     pDesc->wVxdId               = 0;
 668     pDesc->wReserved            = 0;
 669     pDesc->ulDeviceNum          = This->wDevID;
 670     pDesc->dwHeapType           = DSDHEAP_NOHEAP;
 671     pDesc->pvDirectDrawHeap     = NULL;
 672     pDesc->dwMemStartAddress    = 0xDEAD0000;
 673     pDesc->dwMemEndAddress      = 0xDEAF0000;
 674     pDesc->dwMemAllocExtra      = 0;
 675     pDesc->pvReserved1          = NULL;
 676     pDesc->pvReserved2          = NULL;
 677     return DS_OK;
 678 }
 679
 680 static HRESULT WINAPI IDsDriverImpl_Open(PIDSDRIVER iface)
 681 {
 682     HRESULT hr = S_OK;
 683     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 684     int err=0;
 685     snd_pcm_t *pcm = NULL;
 686     snd_pcm_hw_params_t *hw_params;
 687
 688     /* While this is not really needed, it is a good idea to do this,
 689      * to see if sound can be initialized */
 690
 691     hw_params = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, snd_pcm_hw_params_sizeof());
 692
 693     if (!hw_params)
 694     {
 695         hr = DSERR_OUTOFMEMORY;
 696         goto unalloc;
 697     }
 698
 699     err = snd_pcm_open(&pcm, WOutDev[This->wDevID].pcmname, SND_PCM_STREAM_PLAYBACK, SND_PCM_NONBLOCK);
 700     if (err < 0) goto err;
 701     err = snd_pcm_hw_params_any(pcm, hw_params);
 702     if (err < 0) goto err;
 703     err = snd_pcm_hw_params_set_access (pcm, hw_params, SND_PCM_ACCESS_MMAP_INTERLEAVED);
 704     if (err < 0) goto err;
 705
 706     TRACE("Success\n");
 707     snd_pcm_close(pcm);
 708     goto unalloc;
 709
 710     err:
 711     hr = DSERR_GENERIC;
 712     FIXME("Failed to open device: %s\n", snd_strerror(err));
 713     if (pcm)
 714         snd_pcm_close(pcm);
 715     unalloc:
 716     HeapFree(GetProcessHeap(), 0, hw_params);
 717     if (hr != S_OK)
 718         WARN("--> %08x\n", hr);
 719     return hr;
 720 }
 721
 722 static HRESULT WINAPI IDsDriverImpl_Close(PIDSDRIVER iface)
 723 {
 724     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 725     TRACE("(%p) stub, harmless\n",This);
 726     return DS_OK;
 727 }
 728
 729 static HRESULT WINAPI IDsDriverImpl_GetCaps(PIDSDRIVER iface, PDSDRIVERCAPS pCaps)
 730 {
 731     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 732     TRACE("(%p,%p)\n",iface,pCaps);
 733     memcpy(pCaps, &(WOutDev[This->wDevID].ds_caps), sizeof(DSDRIVERCAPS));
 734     return DS_OK;
 735 }
 736
 737 static HRESULT WINAPI IDsDriverImpl_CreateSoundBuffer(PIDSDRIVER iface,
 738                                                       LPWAVEFORMATEX pwfx,
 739                                                       DWORD dwFlags, DWORD dwCardAddress,
 740                                                       LPDWORD pdwcbBufferSize,
 741                                                       LPBYTE *ppbBuffer,
 742                                                       LPVOID *ppvObj)
 743 {
 744     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 745     IDsDriverBufferImpl** ippdsdb = (IDsDriverBufferImpl**)ppvObj;
 746     HRESULT err;
 747
 748     TRACE("(%p,%p,%x,%x)\n",iface,pwfx,dwFlags,dwCardAddress);
 749     /* we only support primary buffers... for now */
 750     if (!(dwFlags & DSBCAPS_PRIMARYBUFFER))
 751         return DSERR_UNSUPPORTED;
 752     if (This->primary)
 753         return DSERR_ALLOCATED;
 754
 755     *ippdsdb = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IDsDriverBufferImpl));
 756     if (*ippdsdb == NULL)
 757         return DSERR_OUTOFMEMORY;
 758
 759     (*ippdsdb)->hw_params = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, snd_pcm_hw_params_sizeof());
 760     (*ippdsdb)->sw_params = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, snd_pcm_sw_params_sizeof());
 761     if (!(*ippdsdb)->hw_params || !(*ippdsdb)->sw_params)
 762     {
 763         HeapFree(GetProcessHeap(), 0, (*ippdsdb)->sw_params);
 764         HeapFree(GetProcessHeap(), 0, (*ippdsdb)->hw_params);
 765         return DSERR_OUTOFMEMORY;
 766     }
 767     (*ippdsdb)->lpVtbl  = &dsdbvt;
 768     (*ippdsdb)->ref     = 1;
 769     (*ippdsdb)->drv     = This;
 770     InitializeCriticalSection(&(*ippdsdb)->pcm_crst);
 771     (*ippdsdb)->pcm_crst.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": ALSA_DSOUTPUT.pcm_crst");
 772
 773     /* SetFormat has to re-initialize pcm here anyway */
 774     err = SetFormat(*ippdsdb, pwfx);
 775     if (FAILED(err))
 776     {
 777         WARN("Error occurred: %08x\n", err);
 778         goto err;
 779     }
 780
 781     if (dwFlags & DSBCAPS_PRIMARYBUFFER)
 782         This->primary = *ippdsdb;
 783
 784     *pdwcbBufferSize = (*ippdsdb)->mmap_buflen_bytes;
 785     *ppbBuffer = (*ippdsdb)->mmap_buffer;
 786
 787     /* buffer is ready to go */
 788     TRACE("buffer created at %p\n", *ippdsdb);
 789     return err;
 790
 791     err:
 792     HeapFree(GetProcessHeap(), 0, (*ippdsdb)->sw_params);
 793     HeapFree(GetProcessHeap(), 0, (*ippdsdb)->hw_params);
 794     HeapFree(GetProcessHeap(), 0, *ippdsdb);
 795     *ippdsdb = NULL;
 796     return err;
 797 }
 798
 799 static HRESULT WINAPI IDsDriverImpl_DuplicateSoundBuffer(PIDSDRIVER iface,
 800                                                          PIDSDRIVERBUFFER pBuffer,
 801                                                          LPVOID *ppvObj)
 802 {
 803     IDsDriverImpl *This = (IDsDriverImpl *)iface;
 804     FIXME("(%p,%p): stub\n",This,pBuffer);
 805     return DSERR_INVALIDCALL;
 806 }
 807
 808 static const IDsDriverVtbl dsdvt =
 809 {
 810     IDsDriverImpl_QueryInterface,
 811     IDsDriverImpl_AddRef,
 812     IDsDriverImpl_Release,
 813     IDsDriverImpl_GetDriverDesc,
 814     IDsDriverImpl_Open,
 815     IDsDriverImpl_Close,
 816     IDsDriverImpl_GetCaps,
 817     IDsDriverImpl_CreateSoundBuffer,
 818     IDsDriverImpl_DuplicateSoundBuffer
 819 };
 820
 821 DWORD wodDsCreate(UINT wDevID, PIDSDRIVER* drv)
 822 {
 823     IDsDriverImpl** idrv = (IDsDriverImpl**)drv;
 824
 825     TRACE("driver created\n");
 826
 827     /* the HAL isn't much better than the HEL if we can't do mmap() */
 828     if (!(WOutDev[wDevID].outcaps.dwSupport & WAVECAPS_DIRECTSOUND))
 829     {
 830         WARN("MMAP not supported for this device, falling back to waveout, should be harmless\n");
 831         return MMSYSERR_NOTSUPPORTED;
 832     }
 833
 834     *idrv = HeapAlloc(GetProcessHeap(),0,sizeof(IDsDriverImpl));
 835     if (!*idrv)
 836         return MMSYSERR_NOMEM;
 837     (*idrv)->lpVtbl     = &dsdvt;
 838     (*idrv)->ref        = 1;
 839
 840     (*idrv)->wDevID     = wDevID;
 841     (*idrv)->primary    = NULL;
 842     return MMSYSERR_NOERROR;
 843 }
 844
 845 DWORD wodDsDesc(UINT wDevID, PDSDRIVERDESC desc)
 846 {
 847     memcpy(desc, &(WOutDev[wDevID].ds_desc), sizeof(DSDRIVERDESC));
 848     return MMSYSERR_NOERROR;
 849 }
 850
 851 #endif /* HAVE_ALSA */