text: /* -*- tab-width: 8; c-basic-offset: 4 -*- */
  
  /*
   * MMSYSTEM low level drivers handling functions
   *
   * Copyright 1999 Eric Pouech
   *
   * This library is free software; you can redistribute it and/or
   * modify it under the terms of the GNU Lesser General Public
   * License as published by the Free Software Foundation; either
   * version 2.1 of the License, or (at your option) any later version.
   *
   * This library 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
   * Lesser General Public License for more details.
   *
   * You should have received a copy of the GNU Lesser General Public
   * License along with this library; if not, write to the Free Software
   * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
   */
  
  #include "config.h"
  #include "wine/port.h"
  
  #define NONAMELESSUNION
  #define COBJMACROS
  
  #include <string.h>
  #include <stdarg.h>
  #include <stdio.h>
  #include <assert.h>
  #include "windef.h"
  #include "winbase.h"
  #include "winreg.h"
  #include "winnls.h"
  #include "winemm.h"
  #include "wine/debug.h"
  #include "wine/exception.h"
  
  #include "wingdi.h"
  #include "ole2.h"
  #include "devpkey.h"
  #include "mmdeviceapi.h"
  
  WINE_DEFAULT_DEBUG_CHANNEL(winmm);
  
  /* each known type of driver has an instance of this structure */
  typedef struct tagWINE_LLTYPE {
      /* those attributes depend on the specification of the type */
      LPCSTR		typestr;	/* name (for debugging) */
      /* those attributes reflect the loaded/current situation for the type */
      UINT		wMaxId;		/* number of loaded devices (sum across all loaded drivers) */
      LPWINE_MLD		lpMlds;		/* "static" mlds to access the part though device IDs */
      int			nMapper;	/* index to mapper */
  } WINE_LLTYPE;
  
  static WINE_LLTYPE llTypes[MMDRV_MAX] = {
      { "Aux", 0, 0, -1 },
      { "Mixer", 0, 0, -1 },
      { "MidiIn", 0, 0, -1 },
      { "MidiOut", 0, 0, -1 },
      { "WaveIn", 0, 0, -1 },
      { "WaveOut", 0, 0, -1 }
  };
  
  static BOOL drivers_loaded;
  static int MMDrvsHi;
  static WINE_MM_DRIVER	MMDrvs[8];
  static LPWINE_MLD	MM_MLDrvs[40];
  
  static void MMDRV_Init(void);
  
  static void MMDRV_InitSingleType(UINT type) {
      if (!drivers_loaded) {
          drivers_loaded = TRUE;
          MMDRV_Init();
      }
  }
  
  /**************************************************************************
   * 			MMDRV_GetNum				[internal]
   */
  UINT	MMDRV_GetNum(UINT type)
  {
      TRACE("(%04x)\n", type);
      assert(type < MMDRV_MAX);
      MMDRV_InitSingleType(type);
      return llTypes[type].wMaxId;
  }
  
  /**************************************************************************
   * 				MMDRV_Message			[internal]
   */
  DWORD  MMDRV_Message(LPWINE_MLD mld, UINT wMsg, DWORD_PTR dwParam1,
                       DWORD_PTR dwParam2)
  {
      LPWINE_MM_DRIVER 		lpDrv;
      DWORD			ret;
      WINE_MM_DRIVER_PART*	part;
      WINE_LLTYPE*		llType = &llTypes[mld->type];
  
      TRACE("(%s %d %u 0x%08lx 0x%08lx 0x%08lx)\n",
  	  llTypes[mld->type].typestr, mld->uDeviceID, wMsg,
  	  mld->dwDriverInstance, dwParam1, dwParam2);
  
      if ((UINT16)mld->uDeviceID == (UINT16)-1) {
          if (llType->nMapper == -1) {
  	    WARN("uDev=-1 requested on non-mapped ll type %s\n",
  		 llTypes[mld->type].typestr);
  	    return MMSYSERR_BADDEVICEID;
          }
      } else {
  	if (mld->uDeviceID >= llType->wMaxId) {
  	    WARN("uDev(%u) requested >= max (%d)\n", mld->uDeviceID, llType->wMaxId);
  	    return MMSYSERR_BADDEVICEID;
  	}
      }
  
      lpDrv = &MMDrvs[mld->mmdIndex];
      part = &lpDrv->parts[mld->type];
  
      assert(part->fnMessage32);
  
      TRACE("Calling message(dev=%d msg=%u usr=0x%08lx p1=0x%08lx p2=0x%08lx)\n",
            mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
      ret = part->fnMessage32(mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
      TRACE("=> %s\n", WINMM_ErrorToString(ret));
  
      return ret;
  }
  
  /**************************************************************************
   * 				MMDRV_Alloc			[internal]
   */
  LPWINE_MLD	MMDRV_Alloc(UINT size, UINT type, LPHANDLE hndl, DWORD* dwFlags,
  			    DWORD_PTR* dwCallback, DWORD_PTR* dwInstance)
  {
      LPWINE_MLD	mld;
      UINT_PTR i;
      TRACE("(%d, %04x, %p, %p, %p, %p)\n",
            size, type, hndl, dwFlags, dwCallback, dwInstance);
  
      mld = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, size);
      if (!mld)	return NULL;
  
      /* find an empty slot in MM_MLDrvs table */
      for (i = 0; i < ARRAY_SIZE(MM_MLDrvs); i++) if (!MM_MLDrvs[i]) break;
  
      if (i == ARRAY_SIZE(MM_MLDrvs)) {
  	/* the MM_MLDrvs table could be made growable in the future if needed */
  	ERR("Too many open drivers\n");
          HeapFree(GetProcessHeap(), 0, mld);
  	return NULL;
      }
      MM_MLDrvs[i] = mld;
      *hndl = (HANDLE)(i | 0x8000);
  
      mld->type = type;
      if ((UINT_PTR)*hndl < MMDRV_GetNum(type) || ((UINT_PTR)*hndl >> 16)) {
  	/* FIXME: those conditions must be fulfilled so that:
  	 * - we can distinguish between device IDs and handles
  	 * - we can use handles as 16 or 32 bit entities
  	 */
  	ERR("Shouldn't happen. Bad allocation scheme\n");
      }
  
      mld->dwFlags = HIWORD(*dwFlags);
      mld->dwCallback = *dwCallback;
      mld->dwClientInstance = *dwInstance;
  
      return mld;
  }
  
  /**************************************************************************
   * 				MMDRV_Free			[internal]
   */
  void	MMDRV_Free(HANDLE hndl, LPWINE_MLD mld)
  {
      TRACE("(%p, %p)\n", hndl, mld);
  
      if ((UINT_PTR)hndl & 0x8000) {
  	UINT_PTR idx = (UINT_PTR)hndl & ~0x8000;
  	if (idx < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0])) {
  	    MM_MLDrvs[idx] = NULL;
  	    HeapFree(GetProcessHeap(), 0, mld);
  	    return;
  	}
      }
      ERR("Bad Handle %p at %p (not freed)\n", hndl, mld);
  }
  
  /**************************************************************************
   * 				MMDRV_Open			[internal]
   */
  DWORD MMDRV_Open(LPWINE_MLD mld, UINT wMsg, DWORD_PTR dwParam1, DWORD dwFlags)
  {
      DWORD		dwRet = MMSYSERR_BADDEVICEID;
      DWORD_PTR		dwInstance;
      WINE_LLTYPE*	llType = &llTypes[mld->type];
      TRACE("(%p, %04x, 0x%08lx, 0x%08x)\n", mld, wMsg, dwParam1, dwFlags);
  
      mld->dwDriverInstance = (DWORD_PTR)&dwInstance;
  
      if (mld->uDeviceID == (UINT)-1 || mld->uDeviceID == (UINT16)-1) {
          TRACE("MAPPER mode requested !\n");
          if (llType->nMapper == -1) {
              WARN("Mapper not supported for type %s\n", llTypes[mld->type].typestr);
              return MMSYSERR_BADDEVICEID;
          }
          mld->mmdIndex = llType->lpMlds[-1].mmdIndex;
          TRACE("Setting mmdIndex to %u\n", mld->mmdIndex);
          dwRet = MMDRV_Message(mld, wMsg, dwParam1, dwFlags);
      } else {
  	if (mld->uDeviceID < llType->wMaxId) {
  	    mld->mmdIndex = llType->lpMlds[mld->uDeviceID].mmdIndex;
  	    TRACE("Setting mmdIndex to %u\n", mld->mmdIndex);
  	    dwRet = MMDRV_Message(mld, wMsg, dwParam1, dwFlags);
  	}
      }
      if (dwRet == MMSYSERR_NOERROR)
  	mld->dwDriverInstance = dwInstance;
      return dwRet;
  }
  
  /**************************************************************************
   * 				MMDRV_Close			[internal]
   */
  DWORD	MMDRV_Close(LPWINE_MLD mld, UINT wMsg)
  {
      TRACE("(%p, %04x)\n", mld, wMsg);
      return MMDRV_Message(mld, wMsg, 0L, 0L);
  }
  
  /**************************************************************************
   * 				MMDRV_GetByID			[internal]
   */
  static LPWINE_MLD MMDRV_GetByID(UINT uDevID, UINT type)
  {
      TRACE("(%04x, %04x)\n", uDevID, type);
      if (uDevID < llTypes[type].wMaxId)
  	return &llTypes[type].lpMlds[uDevID];
      if ((uDevID == (UINT16)-1 || uDevID == (UINT)-1) && llTypes[type].nMapper != -1)
  	return &llTypes[type].lpMlds[-1];
      return NULL;
  }
  
  /**************************************************************************
   * 				MMDRV_Get			[internal]
   */
  LPWINE_MLD	MMDRV_Get(HANDLE _hndl, UINT type, BOOL bCanBeID)
  {
      LPWINE_MLD	mld = NULL;
      UINT_PTR    hndl = (UINT_PTR)_hndl;
      TRACE("(%p, %04x, %c)\n", _hndl, type, bCanBeID ? 'Y' : 'N');
  
      assert(type < MMDRV_MAX);
      MMDRV_InitSingleType(type);
  
      if (hndl >= llTypes[type].wMaxId &&
  	hndl != (UINT16)-1 && hndl != (UINT)-1) {
  	if (hndl & 0x8000) {
  	    UINT idx = hndl & ~0x8000;
  	    if (idx < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0])) {
                  __TRY
                  {
                      mld = MM_MLDrvs[idx];
                      if (mld && mld->type != type) mld = NULL;
                  }
                  __EXCEPT_PAGE_FAULT
                  {
                      mld = NULL;
                  }
                  __ENDTRY;
  	    }
  	}
      }
      if (mld == NULL && bCanBeID) {
  	mld = MMDRV_GetByID(hndl, type);
      }
      return mld;
  }
  
  /**************************************************************************
   * 				MMDRV_PhysicalFeatures		[internal]
   */
  UINT	MMDRV_PhysicalFeatures(LPWINE_MLD mld, UINT uMsg,
                                 DWORD_PTR dwParam1, DWORD_PTR dwParam2)
  {
      WINE_MM_DRIVER*	lpDrv = &MMDrvs[mld->mmdIndex];
  
      TRACE("(%p, %04x, %08lx, %08lx)\n", mld, uMsg, dwParam1, dwParam2);
  
      /* all those function calls are undocumented */
      switch (uMsg) {
      case DRV_QUERYDRVENTRY:
          lstrcpynA((LPSTR)dwParam1, lpDrv->drvname, LOWORD(dwParam2));
  	break;
      case DRV_QUERYDEVNODE:
          *(LPDWORD)dwParam1 = 0L; /* should be DevNode */
  	break;
      case DRV_QUERYNAME:
  	WARN("NIY QueryName\n");
  	break;
      case DRV_QUERYDRIVERIDS:
  	WARN("NIY call VxD\n");
  	/* should call VxD MMDEVLDR with (DevNode, dwParam1 and dwParam2) as pmts
  	 * dwParam1 is buffer and dwParam2 is sizeof(buffer)
  	 * I don't know where the result is stored though
  	 */
  	break;
      case DRV_QUERYMAPPABLE:
  	return (lpDrv->bIsMapper) ? 2 : 0;
  
      case DRVM_MAPPER_PREFERRED_GET:
  	/* FIXME: get from registry someday */
          *((LPDWORD)dwParam1) = -1;      /* No preferred device */
          *((LPDWORD)dwParam2) = 0;
          break;
  
      case DRV_QUERYDEVICEINTERFACE:
      case DRV_QUERYDEVICEINTERFACESIZE:
          return MMDRV_Message(mld, uMsg, dwParam1, dwParam2);
  
      default:
  	WARN("Unknown call %04x\n", uMsg);
  	return MMSYSERR_INVALPARAM;
      }
      return 0L;
  }
  
  /**************************************************************************
   * 				MMDRV_InitPerType		[internal]
   */
  static  BOOL	MMDRV_InitPerType(LPWINE_MM_DRIVER lpDrv, UINT type, UINT wMsg)
  {
      WINE_MM_DRIVER_PART*	part = &lpDrv->parts[type];
      DWORD			ret;
      UINT			count = 0;
      int				i, k;
      TRACE("(%p, %04x, %04x)\n", lpDrv, type, wMsg);
  
      part->nIDMin = part->nIDMax = 0;
  
      /* for DRVM_INIT and DRVM_ENABLE, dwParam2 should be PnP node */
      /* the DRVM_ENABLE is only required when the PnP node is non zero */
      if (part->fnMessage32) {
          ret = part->fnMessage32(0, DRVM_INIT, 0L, 0L, 0L);
          TRACE("DRVM_INIT => %s\n", WINMM_ErrorToString(ret));
  #if 0
          ret = part->fnMessage32(0, DRVM_ENABLE, 0L, 0L, 0L);
          TRACE("DRVM_ENABLE => %08lx\n", ret);
  #endif
          count = part->fnMessage32(0, wMsg, 0L, 0L, 0L);
      }
      else return FALSE;
  
      TRACE("Got %u dev for (%s:%s)\n", count, lpDrv->drvname, llTypes[type].typestr);
      
      if (HIWORD(count))
          return FALSE;
  
      /* got some drivers */
      if (lpDrv->bIsMapper) {
          llTypes[type].nMapper = MMDrvsHi;
      } else {
  	if (count == 0)
  	    return FALSE;
  	part->nIDMin = llTypes[type].wMaxId;
  	llTypes[type].wMaxId += count;
  	part->nIDMax = llTypes[type].wMaxId;
      }
      TRACE("Setting min=%d max=%d (ttop=%d) for (%s:%s)\n",
  	  part->nIDMin, part->nIDMax, llTypes[type].wMaxId,
  	  lpDrv->drvname, llTypes[type].typestr);
      /* realloc translation table */
      if (llTypes[type].lpMlds)
          llTypes[type].lpMlds = (LPWINE_MLD)
  	HeapReAlloc(GetProcessHeap(), 0, llTypes[type].lpMlds - 1,
  		    sizeof(WINE_MLD) * (llTypes[type].wMaxId + 1)) + 1;
      else
          llTypes[type].lpMlds = (LPWINE_MLD)
  	HeapAlloc(GetProcessHeap(), 0,
  		    sizeof(WINE_MLD) * (llTypes[type].wMaxId + 1)) + 1;
  
      /* re-build the translation table */
      if (lpDrv->bIsMapper) {
  	TRACE("%s:Trans[%d] -> %s\n", llTypes[type].typestr, -1, MMDrvs[llTypes[type].nMapper].drvname);
  	llTypes[type].lpMlds[-1].uDeviceID = (UINT)-1;
  	llTypes[type].lpMlds[-1].type = type;
  	llTypes[type].lpMlds[-1].mmdIndex = llTypes[type].nMapper;
  	llTypes[type].lpMlds[-1].dwDriverInstance = 0;
      }
      for (i = k = 0; i <= MMDrvsHi; i++) {
  	while (MMDrvs[i].parts[type].nIDMin <= k && k < MMDrvs[i].parts[type].nIDMax) {
  	    TRACE("%s:Trans[%d] -> %s\n", llTypes[type].typestr, k, MMDrvs[i].drvname);
  	    llTypes[type].lpMlds[k].uDeviceID = k;
  	    llTypes[type].lpMlds[k].type = type;
  	    llTypes[type].lpMlds[k].mmdIndex = i;
  	    llTypes[type].lpMlds[k].dwDriverInstance = 0;
  	    k++;
  	}
      }
      return TRUE;
  }
  
  /**************************************************************************
   * 				MMDRV_Install			[internal]
   */
  static	BOOL	MMDRV_Install(LPCSTR drvRegName, LPCSTR drvFileName, BOOL bIsMapper)
  {
      int			i, count = 0;
      LPWINE_MM_DRIVER	lpDrv = &MMDrvs[MMDrvsHi];
      LPWINE_DRIVER	d;
      WINEMM_msgFunc32	func;
  
      TRACE("('%s', '%s', mapper=%c);\n", drvRegName, drvFileName, bIsMapper ? 'Y' : 'N');
  
      for (i = 0; i < MMDrvsHi; i++) {
          if (!strcmp(drvRegName, MMDrvs[i].drvname)) return FALSE;
      }
  
      /* Be sure that size of MMDrvs matches the max number of loadable
       * drivers !!
       * If not just increase size of MMDrvs
       */
      assert(MMDrvsHi <= sizeof(MMDrvs)/sizeof(MMDrvs[0]));
  
      memset(lpDrv, 0, sizeof(*lpDrv));
  
      if (!(lpDrv->hDriver = OpenDriverA(drvFileName, 0, 0))) {
  	WARN("Couldn't open driver '%s'\n", drvFileName);
  	return FALSE;
      }
  
      d = DRIVER_FindFromHDrvr(lpDrv->hDriver);
  
      /* Then look for xxxMessage functions */
  #define	AA(_h,_w,_x,_y,_z)					\
      func = (WINEMM_msgFunc##_y) _z ((_h), #_x);			\
      if (func != NULL) 						\
          { lpDrv->parts[_w].fnMessage##_y = func; count++; 	\
            TRACE("Got %d bit func '%s'\n", _y, #_x);         }
  
      if (d->hModule) {
  #define A(_x,_y)	AA(d->hModule,_x,_y,32,GetProcAddress)
  	    A(MMDRV_AUX,	auxMessage);
  	    A(MMDRV_MIXER,	mxdMessage);
  	    A(MMDRV_MIDIIN,	midMessage);
  	    A(MMDRV_MIDIOUT, 	modMessage);
  	    A(MMDRV_WAVEIN,	widMessage);
  	    A(MMDRV_WAVEOUT,	wodMessage);
  #undef A
      }
  #undef AA
  
      if (!count) {
  	CloseDriver(lpDrv->hDriver, 0, 0);
  	WARN("No message functions found\n");
  	return FALSE;
      }
  
      /* FIXME: being a mapper or not should be known by another way */
      /* it's known for NE drvs (the description is of the form '*mapper: *'
       * I don't have any clue for PE drvs
       */
      lpDrv->bIsMapper = bIsMapper;
      lpDrv->drvname = strcpy(HeapAlloc(GetProcessHeap(), 0, strlen(drvRegName) + 1), drvRegName);
  
      /* Finish init and get the count of the devices */
      i = 0;
      if (MMDRV_InitPerType(lpDrv, MMDRV_AUX,     AUXDM_GETNUMDEVS))	i = 1;
      if (MMDRV_InitPerType(lpDrv, MMDRV_MIXER,   MXDM_GETNUMDEVS))	i = 1;
      if (MMDRV_InitPerType(lpDrv, MMDRV_MIDIIN,  MIDM_GETNUMDEVS))	i = 1;
      if (MMDRV_InitPerType(lpDrv, MMDRV_MIDIOUT, MODM_GETNUMDEVS))	i = 1;
      if (MMDRV_InitPerType(lpDrv, MMDRV_WAVEIN,  WIDM_GETNUMDEVS))	i = 1;
      if (MMDRV_InitPerType(lpDrv, MMDRV_WAVEOUT, WODM_GETNUMDEVS))	i = 1;
      /* if all those func calls return FALSE, then the driver must be unloaded */
      if (!i) {
  	CloseDriver(lpDrv->hDriver, 0, 0);
  	HeapFree(GetProcessHeap(), 0, lpDrv->drvname);
  	WARN("Driver initialization failed\n");
  	return FALSE;
      }
  
      MMDrvsHi++;
  
      return TRUE;
  }
  
  /**************************************************************************
   * 				MMDRV_Init
   */
  static void MMDRV_Init(void)
  {
      IMMDeviceEnumerator *devenum;
      IMMDevice *device;
      IPropertyStore *ps;
      PROPVARIANT pv;
      DWORD size;
      char *drvA;
      HRESULT init_hr, hr;
  
      static const WCHAR wine_info_deviceW[] = {'W','i','n','e',' ',
          'i','n','f','o',' ','d','e','v','i','c','e',0};
  
      TRACE("()\n");
  
      init_hr = CoInitialize(NULL);
  
      hr = CoCreateInstance(&CLSID_MMDeviceEnumerator, NULL,
              CLSCTX_INPROC_SERVER, &IID_IMMDeviceEnumerator, (void**)&devenum);
      if(FAILED(hr)){
          ERR("CoCreateInstance failed: %08x\n", hr);
          goto exit;
      }
  
      hr = IMMDeviceEnumerator_GetDevice(devenum, wine_info_deviceW, &device);
      IMMDeviceEnumerator_Release(devenum);
      if(FAILED(hr)){
          ERR("GetDevice failed: %08x\n", hr);
          goto exit;
      }
  
      hr = IMMDevice_OpenPropertyStore(device, STGM_READ, &ps);
      if(FAILED(hr)){
          ERR("OpenPropertyStore failed: %08x\n", hr);
          IMMDevice_Release(device);
          goto exit;
      }
  
      hr = IPropertyStore_GetValue(ps,
              (const PROPERTYKEY *)&DEVPKEY_Device_Driver, &pv);
      IPropertyStore_Release(ps);
      IMMDevice_Release(device);
      if(FAILED(hr)){
          ERR("GetValue failed: %08x\n", hr);
          goto exit;
      }
  
      size = WideCharToMultiByte(CP_ACP, 0, pv.u.pwszVal, -1,
              NULL, 0, NULL, NULL);
      drvA = HeapAlloc(GetProcessHeap(), 0, size);
      WideCharToMultiByte(CP_ACP, 0, pv.u.pwszVal, -1, drvA, size, NULL, NULL);
  
      MMDRV_Install(drvA, drvA, FALSE);
  
      HeapFree(GetProcessHeap(), 0, drvA);
      PropVariantClear(&pv);
  
      MMDRV_Install("wavemapper", "msacm32.drv", TRUE);
      MMDRV_Install("midimapper", "midimap.dll", TRUE);
  
  exit:
      if(SUCCEEDED(init_hr))
          CoUninitialize();
  }
  
  /******************************************************************
   *		ExitPerType
   *
   *
   */
  static  BOOL	MMDRV_ExitPerType(LPWINE_MM_DRIVER lpDrv, UINT type)
  {
      WINE_MM_DRIVER_PART*	part = &lpDrv->parts[type];
      DWORD			ret;
      TRACE("(%p, %04x)\n", lpDrv, type);
  
      if (part->fnMessage32) {
  #if 0
          ret = part->fnMessage32(0, DRVM_DISABLE, 0L, 0L, 0L);
          TRACE("DRVM_DISABLE => %08lx\n", ret);
  #endif
          ret = part->fnMessage32(0, DRVM_EXIT, 0L, 0L, 0L);
          TRACE("DRVM_EXIT => %s\n", WINMM_ErrorToString(ret));
      }
  
      return TRUE;
  }
  
  /******************************************************************
   *		Exit
   *
   *
   */
  void MMDRV_Exit(void)
  {
      unsigned int i;
      TRACE("()\n");
  
      for (i = 0; i < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0]); i++)
      {
          if (MM_MLDrvs[i] != NULL)
          {
              FIXME("Closing while ll-driver open\n");
  #if 0
              /* FIXME: should generate a message depending on type */
              MMDRV_Free((HANDLE)(i | 0x8000), MM_MLDrvs[i]);
  #endif
          }
      }
  
      /* unload driver, in reverse order of loading */
      i = sizeof(MMDrvs) / sizeof(MMDrvs[0]);
      while (i-- > 0)
      {
          MMDRV_ExitPerType(&MMDrvs[i], MMDRV_AUX);
          MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIXER);
          MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIDIIN);
          MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIDIOUT);
          MMDRV_ExitPerType(&MMDrvs[i], MMDRV_WAVEIN);
          MMDRV_ExitPerType(&MMDrvs[i], MMDRV_WAVEOUT);
          CloseDriver(MMDrvs[i].hDriver, 0, 0);
      }
      if (llTypes[MMDRV_AUX].lpMlds)
          HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_AUX].lpMlds - 1);
      if (llTypes[MMDRV_MIXER].lpMlds)
          HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_MIXER].lpMlds - 1);
      if (llTypes[MMDRV_MIDIIN].lpMlds)
          HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_MIDIIN].lpMlds - 1);
      if (llTypes[MMDRV_MIDIOUT].lpMlds)
          HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_MIDIOUT].lpMlds - 1);
      if (llTypes[MMDRV_WAVEIN].lpMlds)
          HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_WAVEIN].lpMlds - 1);
      if (llTypes[MMDRV_WAVEOUT].lpMlds)
          HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_WAVEOUT].lpMlds - 1);
  }
  