1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
6 * Copyright 1993 Martin Ayotte
7 * 1998-2002 Eric Pouech
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
36 #include "wine/debug.h"
38 WINE_DEFAULT_DEBUG_CHANNEL(winmm);
40 typedef struct tagWINE_PLAYSOUND
50 static WINE_PLAYSOUND *PlaySoundCurrent;
51 static BOOL bPlaySoundStop;
53 static HMMIO get_mmioFromFile(LPCWSTR lpszName)
59 ret = mmioOpenW((LPWSTR)lpszName, NULL,
60 MMIO_ALLOCBUF | MMIO_READ | MMIO_DENYWRITE);
61 if (ret != 0) return ret;
62 if (SearchPathW(NULL, lpszName, NULL, sizeof(buf)/sizeof(buf[0]), buf, &dummy))
64 return mmioOpenW(buf, NULL,
65 MMIO_ALLOCBUF | MMIO_READ | MMIO_DENYWRITE);
70 static HMMIO get_mmioFromProfile(UINT uFlags, LPCWSTR lpszName)
75 HKEY hRegSnd, hRegApp, hScheme, hSnd;
76 DWORD err, type, count;
78 static const WCHAR wszSounds[] = {'S','o','u','n','d','s',0};
79 static const WCHAR wszDefault[] = {'D','e','f','a','u','l','t',0};
80 static const WCHAR wszKey[] = {'A','p','p','E','v','e','n','t','s','\\',
81 'S','c','h','e','m','e','s','\\',
83 static const WCHAR wszDotDefault[] = {'.','D','e','f','a','u','l','t',0};
84 static const WCHAR wszDotCurrent[] = {'.','C','u','r','r','e','n','t',0};
85 static const WCHAR wszNull[] = {0};
87 TRACE("searching in SystemSound list for %s\n", debugstr_w(lpszName));
88 GetProfileStringW(wszSounds, lpszName, wszNull, str, sizeof(str)/sizeof(str[0]));
89 if (lstrlenW(str) == 0)
91 if (uFlags & SND_NODEFAULT) goto next;
92 GetProfileStringW(wszSounds, wszDefault, wszNull, str, sizeof(str)/sizeof(str[0]));
93 if (lstrlenW(str) == 0) goto next;
95 for (ptr = str; *ptr && *ptr != ','; ptr++);
97 hmmio = mmioOpenW(str, NULL, MMIO_ALLOCBUF | MMIO_READ | MMIO_DENYWRITE);
98 if (hmmio != 0) return hmmio;
100 /* we look up the registry under
101 * HKCU\AppEvents\Schemes\Apps\.Default
102 * HKCU\AppEvents\Schemes\Apps\<AppName>
104 if (RegOpenKeyW(HKEY_CURRENT_USER, wszKey, &hRegSnd) != 0) goto none;
105 if (uFlags & SND_APPLICATION)
110 len = GetModuleFileNameW(0, str, sizeof(str)/sizeof(str[0]));
111 if (len > 0 && len < sizeof(str)/sizeof(str[0]))
113 for (ptr = str + lstrlenW(str) - 1; ptr >= str; ptr--)
115 if (*ptr == '.') *ptr = 0;
118 err = RegOpenKeyW(hRegSnd, ptr+1, &hRegApp);
126 err = RegOpenKeyW(hRegSnd, wszDotDefault, &hRegApp);
128 RegCloseKey(hRegSnd);
129 if (err != 0) goto none;
130 err = RegOpenKeyW(hRegApp, lpszName, &hScheme);
131 RegCloseKey(hRegApp);
132 if (err != 0) goto none;
133 /* what's the difference between .Current and .Default ? */
134 err = RegOpenKeyW(hScheme, wszDotDefault, &hSnd);
137 err = RegOpenKeyW(hScheme, wszDotCurrent, &hSnd);
138 RegCloseKey(hScheme);
142 count = sizeof(str)/sizeof(str[0]);
143 err = RegQueryValueExW(hSnd, NULL, 0, &type, (LPBYTE)str, &count);
145 if (err != 0 || !*str) goto none;
146 hmmio = mmioOpenW(str, NULL, MMIO_ALLOCBUF | MMIO_READ | MMIO_DENYWRITE);
147 if (hmmio) return hmmio;
149 WARN("can't find SystemSound=%s !\n", debugstr_w(lpszName));
153 struct playsound_data
159 static void CALLBACK PlaySound_Callback(HWAVEOUT hwo, UINT uMsg,
160 DWORD_PTR dwInstance,
161 DWORD_PTR dwParam1, DWORD_PTR dwParam2)
163 struct playsound_data* s = (struct playsound_data*)dwInstance;
170 InterlockedIncrement(&s->dwEventCount);
171 TRACE("Returning waveHdr=%lx\n", dwParam1);
175 ERR("Unknown uMsg=%d\n", uMsg);
179 static void PlaySound_WaitDone(struct playsound_data* s)
182 if (InterlockedDecrement(&s->dwEventCount) >= 0) break;
183 InterlockedIncrement(&s->dwEventCount);
185 WaitForSingleObject(s->hEvent, INFINITE);
189 static BOOL PlaySound_IsString(DWORD fdwSound, const void* psz)
191 /* SND_RESOURCE is 0x40004 while
192 * SND_MEMORY is 0x00004
194 switch (fdwSound & (SND_RESOURCE|SND_ALIAS_ID|SND_FILENAME))
196 case SND_RESOURCE: return HIWORD(psz) != 0; /* by name or by ID ? */
198 case SND_MEMORY: return FALSE;
201 case SND_ALIAS|SND_FILENAME:
203 default: FIXME("WTF\n"); return FALSE;
207 static void PlaySound_Free(WINE_PLAYSOUND* wps)
209 EnterCriticalSection(&WINMM_cs);
210 PlaySoundCurrent = NULL;
211 SetEvent(psLastEvent);
212 LeaveCriticalSection(&WINMM_cs);
213 if (wps->bAlloc) HeapFree(GetProcessHeap(), 0, (void*)wps->pszSound);
214 HeapFree(GetProcessHeap(), 0, wps);
217 static WINE_PLAYSOUND* PlaySound_Alloc(const void* pszSound, HMODULE hmod,
218 DWORD fdwSound, BOOL bUnicode)
222 wps = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*wps));
223 if (!wps) return NULL;
226 wps->fdwSound = fdwSound;
227 if (PlaySound_IsString(fdwSound, pszSound))
231 if (fdwSound & SND_ASYNC)
233 LPWSTR sound = HeapAlloc(GetProcessHeap(), 0,
234 (lstrlenW(pszSound)+1) * sizeof(WCHAR));
235 if (!sound) goto oom_error;
236 wps->pszSound = lstrcpyW(sound, pszSound);
240 wps->pszSound = pszSound;
244 UNICODE_STRING usBuffer;
245 RtlCreateUnicodeStringFromAsciiz(&usBuffer, pszSound);
246 wps->pszSound = usBuffer.Buffer;
247 if (!wps->pszSound) goto oom_error;
252 wps->pszSound = pszSound;
256 if (wps->bAlloc) HeapFree(GetProcessHeap(), 0, (void*)wps->pszSound);
257 HeapFree(GetProcessHeap(), 0, wps);
261 static DWORD WINAPI proc_PlaySound(LPVOID arg)
263 WINE_PLAYSOUND* wps = arg;
268 LPWAVEFORMATEX lpWaveFormat = NULL;
270 LPWAVEHDR waveHdr = NULL;
271 INT count, bufsize, left, index;
272 struct playsound_data s;
277 TRACE("SoundName=%s !\n", debugstr_w(wps->pszSound));
279 /* if resource, grab it */
280 if ((wps->fdwSound & SND_RESOURCE) == SND_RESOURCE) {
281 static const WCHAR wszWave[] = {'W','A','V','E',0};
285 if ((hRes = FindResourceW(wps->hMod, wps->pszSound, wszWave)) == 0 ||
286 (hGlob = LoadResource(wps->hMod, hRes)) == 0)
288 if ((data = LockResource(hGlob)) == NULL) {
294 data = (void*)wps->pszSound;
296 /* construct an MMIO stream (either in memory, or from a file */
297 if (wps->fdwSound & SND_MEMORY)
298 { /* NOTE: SND_RESOURCE has the SND_MEMORY bit set */
301 memset(&mminfo, 0, sizeof(mminfo));
302 mminfo.fccIOProc = FOURCC_MEM;
303 mminfo.pchBuffer = data;
304 mminfo.cchBuffer = -1; /* FIXME: when a resource, could grab real size */
305 TRACE("Memory sound %p\n", data);
306 hmmio = mmioOpenW(NULL, &mminfo, MMIO_READ);
308 if (!hmmio && wps->fdwSound & SND_ALIAS)
310 if ((wps->fdwSound & SND_ALIAS_ID) == SND_ALIAS_ID)
312 static const WCHAR wszSystemAsterisk[] = {'S','y','s','t','e','m','A','s','t','e','r','i','s','k',0};
313 static const WCHAR wszSystemDefault[] = {'S','y','s','t','e','m','D','e','f','a','u','l','t',0};
314 static const WCHAR wszSystemExclamation[] = {'S','y','s','t','e','m','E','x','c','l','a','m','a','t','i','o','n',0};
315 static const WCHAR wszSystemExit[] = {'S','y','s','t','e','m','E','x','i','t',0};
316 static const WCHAR wszSystemHand[] = {'S','y','s','t','e','m','H','a','n','d',0};
317 static const WCHAR wszSystemQuestion[] = {'S','y','s','t','e','m','Q','u','e','s','t','i','o','n',0};
318 static const WCHAR wszSystemStart[] = {'S','y','s','t','e','m','S','t','a','r','t',0};
319 static const WCHAR wszSystemWelcome[] = {'S','y','s','t','e','m','W','e','l','c','o','m','e',0};
321 wps->fdwSound &= ~(SND_ALIAS_ID ^ SND_ALIAS);
322 if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMASTERISK)
323 wps->pszSound = wszSystemAsterisk;
324 else if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMDEFAULT)
325 wps->pszSound = wszSystemDefault;
326 else if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMEXCLAMATION)
327 wps->pszSound = wszSystemExclamation;
328 else if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMEXIT)
329 wps->pszSound = wszSystemExit;
330 else if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMHAND)
331 wps->pszSound = wszSystemHand;
332 else if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMQUESTION)
333 wps->pszSound = wszSystemQuestion;
334 else if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMSTART)
335 wps->pszSound = wszSystemStart;
336 else if (wps->pszSound == (LPCWSTR)SND_ALIAS_SYSTEMWELCOME)
337 wps->pszSound = wszSystemWelcome;
338 else goto errCleanUp;
340 hmmio = get_mmioFromProfile(wps->fdwSound, wps->pszSound);
342 if (!hmmio && wps->fdwSound & SND_FILENAME)
344 hmmio = get_mmioFromFile(wps->pszSound);
346 if (!(wps->fdwSound & (SND_FILENAME|SND_ALIAS|SND_MEMORY)))
348 if ((hmmio = get_mmioFromProfile(wps->fdwSound | SND_NODEFAULT, wps->pszSound)) == 0)
350 if ((hmmio = get_mmioFromFile(wps->pszSound)) == 0)
352 hmmio = get_mmioFromProfile(wps->fdwSound, wps->pszSound);
356 if (hmmio == 0) goto errCleanUp;
358 if (mmioDescend(hmmio, &ckMainRIFF, NULL, 0))
361 TRACE("ParentChunk ckid=%.4s fccType=%.4s cksize=%08X\n",
362 (LPSTR)&ckMainRIFF.ckid, (LPSTR)&ckMainRIFF.fccType, ckMainRIFF.cksize);
364 if ((ckMainRIFF.ckid != FOURCC_RIFF) ||
365 (ckMainRIFF.fccType != mmioFOURCC('W', 'A', 'V', 'E')))
368 mmckInfo.ckid = mmioFOURCC('f', 'm', 't', ' ');
369 if (mmioDescend(hmmio, &mmckInfo, &ckMainRIFF, MMIO_FINDCHUNK))
372 TRACE("Chunk Found ckid=%.4s fccType=%08x cksize=%08X\n",
373 (LPSTR)&mmckInfo.ckid, mmckInfo.fccType, mmckInfo.cksize);
375 lpWaveFormat = HeapAlloc(GetProcessHeap(), 0, mmckInfo.cksize);
378 if (mmioRead(hmmio, (HPSTR)lpWaveFormat, mmckInfo.cksize) < sizeof(PCMWAVEFORMAT))
381 TRACE("wFormatTag=%04X !\n", lpWaveFormat->wFormatTag);
382 TRACE("nChannels=%d\n", lpWaveFormat->nChannels);
383 TRACE("nSamplesPerSec=%d\n", lpWaveFormat->nSamplesPerSec);
384 TRACE("nAvgBytesPerSec=%d\n", lpWaveFormat->nAvgBytesPerSec);
385 TRACE("nBlockAlign=%d\n", lpWaveFormat->nBlockAlign);
386 TRACE("wBitsPerSample=%u !\n", lpWaveFormat->wBitsPerSample);
388 /* move to end of 'fmt ' chunk */
389 mmioAscend(hmmio, &mmckInfo, 0);
391 mmckInfo.ckid = mmioFOURCC('d', 'a', 't', 'a');
392 if (mmioDescend(hmmio, &mmckInfo, &ckMainRIFF, MMIO_FINDCHUNK))
395 TRACE("Chunk Found ckid=%.4s fccType=%08x cksize=%08X\n",
396 (LPSTR)&mmckInfo.ckid, mmckInfo.fccType, mmckInfo.cksize);
398 s.hEvent = CreateEventW(NULL, FALSE, FALSE, NULL);
399 if (!s.hEvent || bPlaySoundStop)
402 if (waveOutOpen(&hWave, WAVE_MAPPER, lpWaveFormat, (DWORD_PTR)PlaySound_Callback,
403 (DWORD_PTR)&s, CALLBACK_FUNCTION) != MMSYSERR_NOERROR)
406 /* make it so that 3 buffers per second are needed */
407 bufsize = (((lpWaveFormat->nAvgBytesPerSec / 3) - 1) / lpWaveFormat->nBlockAlign + 1) *
408 lpWaveFormat->nBlockAlign;
409 waveHdr = HeapAlloc(GetProcessHeap(), 0, 2 * sizeof(WAVEHDR) + 2 * bufsize);
412 waveHdr[0].lpData = (char*)waveHdr + 2 * sizeof(WAVEHDR);
413 waveHdr[1].lpData = (char*)waveHdr + 2 * sizeof(WAVEHDR) + bufsize;
414 waveHdr[0].dwUser = waveHdr[1].dwUser = 0L;
415 waveHdr[0].dwLoops = waveHdr[1].dwLoops = 0L;
416 waveHdr[0].dwFlags = waveHdr[1].dwFlags = 0L;
417 waveHdr[0].dwBufferLength = waveHdr[1].dwBufferLength = bufsize;
418 if (waveOutPrepareHeader(hWave, &waveHdr[0], sizeof(WAVEHDR)) ||
419 waveOutPrepareHeader(hWave, &waveHdr[1], sizeof(WAVEHDR))) {
424 s.dwEventCount = 1L; /* for first buffer */
428 left = mmckInfo.cksize;
430 mmioSeek(hmmio, mmckInfo.dwDataOffset, SEEK_SET);
438 count = mmioRead(hmmio, waveHdr[index].lpData, min(bufsize, left));
439 if (count < 1) break;
441 waveHdr[index].dwBufferLength = count;
442 if (waveOutWrite(hWave, &waveHdr[index], sizeof(WAVEHDR)) == MMSYSERR_NOERROR) {
444 PlaySound_WaitDone(&s);
447 ERR("Aborting play loop, waveOutWrite error\n");
453 } while (wps->bLoop);
455 PlaySound_WaitDone(&s); /* to balance first buffer */
458 waveOutUnprepareHeader(hWave, &waveHdr[0], sizeof(WAVEHDR));
459 waveOutUnprepareHeader(hWave, &waveHdr[1], sizeof(WAVEHDR));
462 TRACE("Done playing=%s => %s!\n", debugstr_w(wps->pszSound), bRet ? "ok" : "ko");
463 HeapFree(GetProcessHeap(), 0, lpWaveFormat);
466 EnterCriticalSection(&WINMM_cs);
467 /* the CS prevents a concurrent waveOutReset */
469 LeaveCriticalSection(&WINMM_cs);
470 while (waveOutClose(hWave) == WAVERR_STILLPLAYING)
473 CloseHandle(s.hEvent);
474 HeapFree(GetProcessHeap(), 0, waveHdr);
475 if (hmmio) mmioClose(hmmio, 0);
482 static BOOL MULTIMEDIA_PlaySound(const void* pszSound, HMODULE hmod, DWORD fdwSound, BOOL bUnicode)
484 WINE_PLAYSOUND* wps = NULL;
486 TRACE("pszSound='%p' hmod=%p fdwSound=%08X\n",
487 pszSound, hmod, fdwSound);
489 /* SND_NOWAIT is ignored in w95/2k/xp. */
490 if ((fdwSound & SND_NOSTOP) && PlaySoundCurrent != NULL)
493 /* alloc internal structure, if we need to play something */
494 if (pszSound && !(fdwSound & SND_PURGE))
496 if (!(wps = PlaySound_Alloc(pszSound, hmod, fdwSound, bUnicode)))
500 EnterCriticalSection(&WINMM_cs);
501 /* since several threads can enter PlaySound in parallel, we're not
502 * sure, at this point, that another thread didn't start a new playsound
504 while (PlaySoundCurrent != NULL)
506 ResetEvent(psLastEvent);
507 /* FIXME: doc says we have to stop all instances of pszSound if it's non
508 * NULL... as of today, we stop all playing instances */
509 bPlaySoundStop = TRUE;
510 if(PlaySoundCurrent->hWave)
511 waveOutReset(PlaySoundCurrent->hWave);
513 LeaveCriticalSection(&WINMM_cs);
514 WaitForSingleObject(psLastEvent, INFINITE);
515 EnterCriticalSection(&WINMM_cs);
517 bPlaySoundStop = FALSE;
520 PlaySoundCurrent = wps;
521 LeaveCriticalSection(&WINMM_cs);
523 if (!wps) return TRUE;
525 if (fdwSound & SND_ASYNC)
528 wps->bLoop = (fdwSound & SND_LOOP) ? TRUE : FALSE;
529 if ((handle = CreateThread(NULL, 0, proc_PlaySound, wps, 0, NULL)) != 0) {
530 SetThreadPriority(handle, THREAD_PRIORITY_TIME_CRITICAL);
535 else return proc_PlaySound(wps);
542 /**************************************************************************
543 * PlaySoundA [WINMM.@]
545 BOOL WINAPI PlaySoundA(LPCSTR pszSoundA, HMODULE hmod, DWORD fdwSound)
547 return MULTIMEDIA_PlaySound(pszSoundA, hmod, fdwSound, FALSE);
550 /**************************************************************************
551 * PlaySoundW [WINMM.@]
553 BOOL WINAPI PlaySoundW(LPCWSTR pszSoundW, HMODULE hmod, DWORD fdwSound)
555 return MULTIMEDIA_PlaySound(pszSoundW, hmod, fdwSound, TRUE);
558 /**************************************************************************
559 * sndPlaySoundA [WINMM.@]
561 BOOL WINAPI sndPlaySoundA(LPCSTR pszSoundA, UINT uFlags)
563 uFlags &= SND_ASYNC|SND_LOOP|SND_MEMORY|SND_NODEFAULT|SND_NOSTOP|SND_SYNC;
564 return MULTIMEDIA_PlaySound(pszSoundA, 0, uFlags, FALSE);
567 /**************************************************************************
568 * sndPlaySoundW [WINMM.@]
570 BOOL WINAPI sndPlaySoundW(LPCWSTR pszSound, UINT uFlags)
572 uFlags &= SND_ASYNC|SND_LOOP|SND_MEMORY|SND_NODEFAULT|SND_NOSTOP|SND_SYNC;
573 return MULTIMEDIA_PlaySound(pszSound, 0, uFlags, TRUE);
576 /**************************************************************************
577 * mmsystemGetVersion [WINMM.@]
579 UINT WINAPI mmsystemGetVersion(void)
581 TRACE("3.10 (Win95?)\n");