/* snd_mme.c (description) Copyright (C) 1996-1997 Id Software, Inc. Copyright (C) 1999-2000 Marcus Sundberg [mackan@stacken.kth.se] Copyright (C) 1999,2000 contributors of the QuakeForge project Please see the file "AUTHORS" for a list of contributors This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to: Free Software Foundation, Inc. 59 Temple Place - Suite 330 Boston, MA 02111-1307, USA $Id$ */ #ifdef HAVE_CONFIG_H # include "config.h" #endif #include #ifdef HAVE_MME_MME_PUBLIC_H # include #endif #include "sound.h" #include "QF/sys.h" // 64K is > 1 second at 16-bit, 11025 Hz #define WAV_BUFFERS 64 #define WAV_MASK 0x3F #define WAV_BUFFER_SIZE 0x0400 static qboolean wav_init; static qboolean snd_firsttime = true, snd_iswave; static int sample16; static int snd_sent, snd_completed; static int snd_blocked = 0; static HPSTR lpData; static LPWAVEHDR lpWaveHdr; static HWAVEOUT hWaveOut; static DWORD gSndBufSize; static volatile dma_t sn; /* MME Callback function */ static void mme_callback ( HANDLE h, UINT wMsg, DWORD instance, LPARAM p1, LPARAM p2 ) { if (wMsg == WOM_DONE) { snd_completed++; } } static void S_BlockSound ( void ) { if (++snd_blocked == 1) waveOutReset(hWaveOut); } static void S_UnblockSound ( void ) { if (!snd_blocked) return; snd_blocked--; } static void FreeSound ( void ) { // only release primary buffer if it's not also the mixing buffer we just released if (hWaveOut) { waveOutReset (hWaveOut); waveOutClose (hWaveOut); if (lpWaveHdr) { mmeFreeMem(lpWaveHdr); } if (lpData) { mmeFreeBuffer(lpData); } } hWaveOut = 0; lpWaveHdr = 0; lpData = NULL; lpWaveHdr = NULL; wav_init = false; } /* SNDDM_InitWav Crappy windows multimedia base */ static qboolean SNDDMA_InitWav ( void ) { int hr, i; LPPCMWAVEFORMAT format; if ((format = (LPPCMWAVEFORMAT) mmeAllocMem(sizeof(*format))) == NULL) { Sys_Printf("Failed to allocate PCMWAVEFORMAT struct\n"); return false; } snd_sent = 0; snd_completed = 0; shm = &sn; shm->channels = 2; shm->samplebits = 16; shm->speed = 11025; memset(format, 0, sizeof(*format)); format->wf.wFormatTag = WAVE_FORMAT_PCM; format->wf.nChannels = shm->channels; format->wBitsPerSample = shm->samplebits; format->wf.nSamplesPerSec = shm->speed; format->wf.nBlockAlign = format->wf.nChannels *format->wBitsPerSample / 8; format->wf.nAvgBytesPerSec = format->wf.nSamplesPerSec *format->wf.nBlockAlign; /* Open a waveform device for output using our callback function. */ while ((hr = waveOutOpen((LPHWAVEOUT)&hWaveOut, WAVE_MAPPER, (LPWAVEFORMAT)format, (void (*)())mme_callback, 0, CALLBACK_FUNCTION | WAVE_OPEN_SHAREABLE)) != MMSYSERR_NOERROR) { if (hr != MMSYSERR_ALLOCATED) { mmeFreeMem(format); Sys_Printf ("waveOutOpen failed: %d\n", hr); return false; } else { Sys_Printf ("waveOutOpen failed 2222\n"); } } mmeFreeMem(format); /* Allocate and lock memory for the waveform data. The memory for waveform data must be globally allocated with GMEM_MOVEABLE and GMEM_SHARE flags. */ gSndBufSize = WAV_BUFFERS*WAV_BUFFER_SIZE; lpData = mmeAllocBuffer(gSndBufSize); if (!lpData) { Sys_Printf ("Sound: Out of memory.\n"); FreeSound (); return false; } memset (lpData, 0, gSndBufSize); /* Allocate and lock memory for the header. This memory must also be globally allocated with GMEM_MOVEABLE and GMEM_SHARE flags. */ lpWaveHdr = mmeAllocMem(sizeof(WAVEHDR) * WAV_BUFFERS); if (lpWaveHdr == NULL) { Sys_Printf ("Sound: Failed to Alloc header.\n"); FreeSound (); return false; } memset (lpWaveHdr, 0, sizeof(WAVEHDR) * WAV_BUFFERS); /* After allocation, set up and prepare headers. */ for (i=0 ; isoundalive = true; shm->splitbuffer = false; shm->samples = gSndBufSize/(shm->samplebits/8); shm->samplepos = 0; shm->submission_chunk = 1; shm->buffer = (unsigned char *) lpData; sample16 = (shm->samplebits/8) - 1; wav_init = true; return true; } /* SNDDMA_Init Try to find a sound device to mix for. Returns false if nothing is found. */ static qboolean SNDDMA_Init ( void ) { wav_init = 0; if (snd_firsttime || snd_iswave) { snd_iswave = SNDDMA_InitWav (); if (snd_iswave) { if (snd_firsttime) Sys_Printf ("Wave sound initialized\n"); } else { Sys_Printf ("Wave sound failed to init\n"); } } snd_firsttime = false; if (!wav_init) { if (snd_firsttime) Sys_Printf ("No sound device initialized\n"); return 0; } return 1; } /* SNDDMA_GetDMAPos return the current sample position (in mono samples read) inside the recirculating dma buffer, so the mixing code will know how many sample are required to fill it up. */ static int SNDDMA_GetDMAPos ( void ) { int s = 0; if (wav_init) { s = snd_sent * WAV_BUFFER_SIZE; } s >>= sample16; s &= (shm->samples-1); return s; } /* SNDDMA_Submit Send sound to device if buffer isn't really the dma buffer */ static void SNDDMA_Submit ( void ) { int wResult; LPWAVEHDR h; if (!wav_init) return; if (mmeCheckForCallbacks()) mmeProcessCallbacks(); if (snd_completed == snd_sent) { Sys_DPrintf ("Sound overrun\n"); } // submit two new sound blocks while (((snd_sent - snd_completed) >> sample16) < 4) { int i = (snd_sent&WAV_MASK); h = lpWaveHdr + i; h->dwBufferLength = WAV_BUFFER_SIZE; h->lpData = lpData + i*WAV_BUFFER_SIZE; snd_sent++; /* Now the data block can be sent to the output device. The waveOutWrite function returns immediately and waveform data is sent to the output device in the background. */ wResult = waveOutWrite(hWaveOut, h, sizeof(WAVEHDR)); if (wResult != MMSYSERR_NOERROR) { Sys_Printf ("Failed to write block to device\n"); FreeSound (); return; } } } /* SNDDMA_Shutdown Reset the sound device for exiting */ static void SNDDMA_Shutdown ( void ) { FreeSound (); }