wordpad: Replaced toolbar.bmp with a Tango compliant tool strip.
[wine] / dlls / winmm / lolvldrv.c
1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
2
3 /*
4  * MMSYSTEM low level drivers handling functions
5  *
6  * Copyright 1999 Eric Pouech
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21  */
22
23 #include "config.h"
24 #include "wine/port.h"
25
26 #include <string.h>
27 #include <stdarg.h>
28 #include <stdio.h>
29 #include <assert.h>
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winreg.h"
33 #include "winemm.h"
34 #include "wine/debug.h"
35 #include "wine/exception.h"
36
37 WINE_DEFAULT_DEBUG_CHANNEL(winmm);
38
39 /* Default set of drivers to be loaded */
40 #define WINE_DEFAULT_WINMM_DRIVER "alsa,oss,coreaudio,esd"
41
42 /* each known type of driver has an instance of this structure */
43 typedef struct tagWINE_LLTYPE {
44     /* those attributes depend on the specification of the type */
45     LPCSTR              typestr;        /* name (for debugging) */
46     /* those attributes reflect the loaded/current situation for the type */
47     UINT                wMaxId;         /* number of loaded devices (sum across all loaded drivers) */
48     LPWINE_MLD          lpMlds;         /* "static" mlds to access the part though device IDs */
49     int                 nMapper;        /* index to mapper */
50 } WINE_LLTYPE;
51
52 static WINE_LLTYPE llTypes[MMDRV_MAX] = {
53     { "Aux", 0, 0, -1 },
54     { "Mixer", 0, 0, -1 },
55     { "MidiIn", 0, 0, -1 },
56     { "MidiOut", 0, 0, -1 },
57     { "WaveIn", 0, 0, -1 },
58     { "WaveOut", 0, 0, -1 }
59 };
60
61 static int drivers_loaded, MMDrvsHi;
62 static WINE_MM_DRIVER   MMDrvs[8];
63 static LPWINE_MLD       MM_MLDrvs[40];
64 #define MAX_MM_MLDRVS   (sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0]))
65
66 static void MMDRV_Init(void);
67
68 static void MMDRV_InitSingleType(UINT type) {
69     if (!drivers_loaded) {
70         drivers_loaded = 1;
71         MMDRV_Init();
72     }
73 }
74
75 /**************************************************************************
76  *                      MMDRV_GetNum                            [internal]
77  */
78 UINT    MMDRV_GetNum(UINT type)
79 {
80     TRACE("(%04x)\n", type);
81     assert(type < MMDRV_MAX);
82     MMDRV_InitSingleType(type);
83     return llTypes[type].wMaxId;
84 }
85
86 /**************************************************************************
87  *                              MMDRV_Message                   [internal]
88  */
89 DWORD  MMDRV_Message(LPWINE_MLD mld, UINT wMsg, DWORD_PTR dwParam1,
90                      DWORD_PTR dwParam2)
91 {
92     LPWINE_MM_DRIVER            lpDrv;
93     DWORD                       ret;
94     WINE_MM_DRIVER_PART*        part;
95     WINE_LLTYPE*                llType = &llTypes[mld->type];
96
97     TRACE("(%s %u %u 0x%08lx 0x%08lx 0x%08lx)\n",
98           llTypes[mld->type].typestr, mld->uDeviceID, wMsg,
99           mld->dwDriverInstance, dwParam1, dwParam2);
100
101     if (mld->uDeviceID == (UINT16)-1) {
102         if (llType->nMapper == -1) {
103             WARN("uDev=-1 requested on non-mapped ll type %s\n",
104                  llTypes[mld->type].typestr);
105             return MMSYSERR_BADDEVICEID;
106         }
107     } else {
108         if (mld->uDeviceID >= llType->wMaxId) {
109             WARN("uDev(%u) requested >= max (%d)\n", mld->uDeviceID, llType->wMaxId);
110             return MMSYSERR_BADDEVICEID;
111         }
112     }
113
114     lpDrv = &MMDrvs[mld->mmdIndex];
115     part = &lpDrv->parts[mld->type];
116
117     assert(part->fnMessage32);
118
119     TRACE("Calling message(dev=%u msg=%u usr=0x%08lx p1=0x%08lx p2=0x%08lx)\n",
120           mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
121     ret = part->fnMessage32(mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
122     TRACE("=> %s\n", WINMM_ErrorToString(ret));
123
124     return ret;
125 }
126
127 /**************************************************************************
128  *                              MMDRV_Alloc                     [internal]
129  */
130 LPWINE_MLD      MMDRV_Alloc(UINT size, UINT type, LPHANDLE hndl, DWORD* dwFlags,
131                             DWORD_PTR* dwCallback, DWORD_PTR* dwInstance)
132 {
133     LPWINE_MLD  mld;
134     UINT_PTR i;
135     TRACE("(%d, %04x, %p, %p, %p, %p)\n",
136           size, type, hndl, dwFlags, dwCallback, dwInstance);
137
138     mld = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, size);
139     if (!mld)   return NULL;
140
141     /* find an empty slot in MM_MLDrvs table */
142     for (i = 0; i < MAX_MM_MLDRVS; i++) if (!MM_MLDrvs[i]) break;
143
144     if (i == MAX_MM_MLDRVS) {
145         /* the MM_MLDrvs table could be made growable in the future if needed */
146         ERR("Too many open drivers\n");
147         HeapFree(GetProcessHeap(), 0, mld);
148         return NULL;
149     }
150     MM_MLDrvs[i] = mld;
151     *hndl = (HANDLE)(i | 0x8000);
152
153     mld->type = type;
154     if ((UINT_PTR)*hndl < MMDRV_GetNum(type) || ((UINT_PTR)*hndl >> 16)) {
155         /* FIXME: those conditions must be fulfilled so that:
156          * - we can distinguish between device IDs and handles
157          * - we can use handles as 16 or 32 bit entities
158          */
159         ERR("Shouldn't happen. Bad allocation scheme\n");
160     }
161
162     mld->dwFlags = HIWORD(*dwFlags);
163     mld->dwCallback = *dwCallback;
164     mld->dwClientInstance = *dwInstance;
165
166     return mld;
167 }
168
169 /**************************************************************************
170  *                              MMDRV_Free                      [internal]
171  */
172 void    MMDRV_Free(HANDLE hndl, LPWINE_MLD mld)
173 {
174     TRACE("(%p, %p)\n", hndl, mld);
175
176     if ((UINT_PTR)hndl & 0x8000) {
177         UINT_PTR idx = (UINT_PTR)hndl & ~0x8000;
178         if (idx < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0])) {
179             MM_MLDrvs[idx] = NULL;
180             HeapFree(GetProcessHeap(), 0, mld);
181             return;
182         }
183     }
184     ERR("Bad Handle %p at %p (not freed)\n", hndl, mld);
185 }
186
187 /**************************************************************************
188  *                              MMDRV_Open                      [internal]
189  */
190 DWORD MMDRV_Open(LPWINE_MLD mld, UINT wMsg, DWORD_PTR dwParam1, DWORD dwFlags)
191 {
192     DWORD               dwRet = MMSYSERR_BADDEVICEID;
193     DWORD_PTR           dwInstance;
194     WINE_LLTYPE*        llType = &llTypes[mld->type];
195     TRACE("(%p, %04x, 0x%08lx, 0x%08x)\n", mld, wMsg, dwParam1, dwFlags);
196
197     mld->dwDriverInstance = (DWORD_PTR)&dwInstance;
198
199     if (mld->uDeviceID == (UINT)-1 || mld->uDeviceID == (UINT16)-1) {
200         TRACE("MAPPER mode requested !\n");
201         if (llType->nMapper == -1) {
202             WARN("Mapper not supported for type %s\n", llTypes[mld->type].typestr);
203             return MMSYSERR_BADDEVICEID;
204         }
205         mld->uDeviceID = (UINT16)-1;
206         mld->mmdIndex = llType->lpMlds[-1].mmdIndex;
207         TRACE("Setting mmdIndex to %u\n", mld->mmdIndex);
208         dwRet = MMDRV_Message(mld, wMsg, dwParam1, dwFlags);
209     } else {
210         if (mld->uDeviceID < llType->wMaxId) {
211             mld->mmdIndex = llType->lpMlds[mld->uDeviceID].mmdIndex;
212             TRACE("Setting mmdIndex to %u\n", mld->mmdIndex);
213             dwRet = MMDRV_Message(mld, wMsg, dwParam1, dwFlags);
214         }
215     }
216     if (dwRet == MMSYSERR_NOERROR)
217         mld->dwDriverInstance = dwInstance;
218     return dwRet;
219 }
220
221 /**************************************************************************
222  *                              MMDRV_Close                     [internal]
223  */
224 DWORD   MMDRV_Close(LPWINE_MLD mld, UINT wMsg)
225 {
226     TRACE("(%p, %04x)\n", mld, wMsg);
227     return MMDRV_Message(mld, wMsg, 0L, 0L);
228 }
229
230 /**************************************************************************
231  *                              MMDRV_GetByID                   [internal]
232  */
233 static LPWINE_MLD MMDRV_GetByID(UINT uDevID, UINT type)
234 {
235     TRACE("(%04x, %04x)\n", uDevID, type);
236     if (uDevID < llTypes[type].wMaxId)
237         return &llTypes[type].lpMlds[uDevID];
238     if ((uDevID == (UINT16)-1 || uDevID == (UINT)-1) && llTypes[type].nMapper != -1)
239         return &llTypes[type].lpMlds[-1];
240     return NULL;
241 }
242
243 /**************************************************************************
244  *                              MMDRV_Get                       [internal]
245  */
246 LPWINE_MLD      MMDRV_Get(HANDLE _hndl, UINT type, BOOL bCanBeID)
247 {
248     LPWINE_MLD  mld = NULL;
249     UINT_PTR    hndl = (UINT_PTR)_hndl;
250     TRACE("(%p, %04x, %c)\n", _hndl, type, bCanBeID ? 'Y' : 'N');
251
252     assert(type < MMDRV_MAX);
253     MMDRV_InitSingleType(type);
254
255     if (hndl >= llTypes[type].wMaxId &&
256         hndl != (UINT16)-1 && hndl != (UINT)-1) {
257         if (hndl & 0x8000) {
258             UINT idx = hndl & ~0x8000;
259             if (idx < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0])) {
260                 __TRY
261                 {
262                     mld = MM_MLDrvs[idx];
263                     if (mld && mld->type != type) mld = NULL;
264                 }
265                 __EXCEPT_PAGE_FAULT
266                 {
267                     mld = NULL;
268                 }
269                 __ENDTRY;
270             }
271         }
272     }
273     if (mld == NULL && bCanBeID) {
274         mld = MMDRV_GetByID(hndl, type);
275     }
276     return mld;
277 }
278
279 /**************************************************************************
280  *                              MMDRV_GetRelated                [internal]
281  */
282 LPWINE_MLD      MMDRV_GetRelated(HANDLE hndl, UINT srcType,
283                                  BOOL bSrcCanBeID, UINT dstType)
284 {
285     LPWINE_MLD          mld;
286     TRACE("(%p, %04x, %c, %04x)\n",
287           hndl, srcType, bSrcCanBeID ? 'Y' : 'N', dstType);
288
289     if ((mld = MMDRV_Get(hndl, srcType, bSrcCanBeID)) != NULL) {
290         WINE_MM_DRIVER_PART*    part = &MMDrvs[mld->mmdIndex].parts[dstType];
291         if (part->nIDMin < part->nIDMax)
292             return MMDRV_GetByID(part->nIDMin, dstType);
293     }
294     return NULL;
295 }
296
297 /**************************************************************************
298  *                              MMDRV_PhysicalFeatures          [internal]
299  */
300 UINT    MMDRV_PhysicalFeatures(LPWINE_MLD mld, UINT uMsg,
301                                DWORD_PTR dwParam1, DWORD_PTR dwParam2)
302 {
303     WINE_MM_DRIVER*     lpDrv = &MMDrvs[mld->mmdIndex];
304
305     TRACE("(%p, %04x, %08lx, %08lx)\n", mld, uMsg, dwParam1, dwParam2);
306
307     /* all those function calls are undocumented */
308     switch (uMsg) {
309     case DRV_QUERYDRVENTRY:
310         lstrcpynA((LPSTR)dwParam1, lpDrv->drvname, LOWORD(dwParam2));
311         break;
312     case DRV_QUERYDEVNODE:
313         *(LPDWORD)dwParam1 = 0L; /* should be DevNode */
314         break;
315     case DRV_QUERYNAME:
316         WARN("NIY QueryName\n");
317         break;
318     case DRV_QUERYDRIVERIDS:
319         WARN("NIY call VxD\n");
320         /* should call VxD MMDEVLDR with (DevNode, dwParam1 and dwParam2) as pmts
321          * dwParam1 is buffer and dwParam2 is sizeof(buffer)
322          * I don't know where the result is stored though
323          */
324         break;
325     case DRV_QUERYMAPPABLE:
326         return (lpDrv->bIsMapper) ? 2 : 0;
327
328     case DRVM_MAPPER_PREFERRED_GET:
329         /* FIXME: get from registry someday */
330         *((LPDWORD)dwParam1) = -1;      /* No preferred device */
331         *((LPDWORD)dwParam2) = 0;
332         break;
333
334     case DRV_QUERYDEVICEINTERFACE:
335     case DRV_QUERYDEVICEINTERFACESIZE:
336         return MMDRV_Message(mld, uMsg, dwParam1, dwParam2);
337
338     case DRV_QUERYDSOUNDIFACE: /* Wine-specific: Retrieve DirectSound interface */
339     case DRV_QUERYDSOUNDDESC: /* Wine-specific: Retrieve DirectSound driver description*/
340         return MMDRV_Message(mld, uMsg, dwParam1, dwParam2);
341
342     default:
343         WARN("Unknown call %04x\n", uMsg);
344         return MMSYSERR_INVALPARAM;
345     }
346     return 0L;
347 }
348
349 /**************************************************************************
350  *                              MMDRV_InitPerType               [internal]
351  */
352 static  BOOL    MMDRV_InitPerType(LPWINE_MM_DRIVER lpDrv, UINT type, UINT wMsg)
353 {
354     WINE_MM_DRIVER_PART*        part = &lpDrv->parts[type];
355     DWORD                       ret;
356     UINT                        count = 0;
357     int                         i, k;
358     TRACE("(%p, %04x, %04x)\n", lpDrv, type, wMsg);
359
360     part->nIDMin = part->nIDMax = 0;
361
362     /* for DRVM_INIT and DRVM_ENABLE, dwParam2 should be PnP node */
363     /* the DRVM_ENABLE is only required when the PnP node is non zero */
364     if (part->fnMessage32) {
365         ret = part->fnMessage32(0, DRVM_INIT, 0L, 0L, 0L);
366         TRACE("DRVM_INIT => %s\n", WINMM_ErrorToString(ret));
367 #if 0
368         ret = part->fnMessage32(0, DRVM_ENABLE, 0L, 0L, 0L);
369         TRACE("DRVM_ENABLE => %08lx\n", ret);
370 #endif
371         count = part->fnMessage32(0, wMsg, 0L, 0L, 0L);
372     }
373     else return FALSE;
374
375     TRACE("Got %u dev for (%s:%s)\n", count, lpDrv->drvname, llTypes[type].typestr);
376     
377     if (HIWORD(count))
378         return FALSE;
379
380     /* got some drivers */
381     if (lpDrv->bIsMapper) {
382         llTypes[type].nMapper = MMDrvsHi;
383     } else {
384         if (count == 0)
385             return FALSE;
386         part->nIDMin = llTypes[type].wMaxId;
387         llTypes[type].wMaxId += count;
388         part->nIDMax = llTypes[type].wMaxId;
389     }
390     TRACE("Setting min=%d max=%d (ttop=%d) for (%s:%s)\n",
391           part->nIDMin, part->nIDMax, llTypes[type].wMaxId,
392           lpDrv->drvname, llTypes[type].typestr);
393     /* realloc translation table */
394     if (llTypes[type].lpMlds)
395         llTypes[type].lpMlds = (LPWINE_MLD)
396         HeapReAlloc(GetProcessHeap(), 0, llTypes[type].lpMlds - 1,
397                     sizeof(WINE_MLD) * (llTypes[type].wMaxId + 1)) + 1;
398     else
399         llTypes[type].lpMlds = (LPWINE_MLD)
400         HeapAlloc(GetProcessHeap(), 0,
401                     sizeof(WINE_MLD) * (llTypes[type].wMaxId + 1)) + 1;
402
403     /* re-build the translation table */
404     if (lpDrv->bIsMapper) {
405         TRACE("%s:Trans[%d] -> %s\n", llTypes[type].typestr, -1, MMDrvs[llTypes[type].nMapper].drvname);
406         llTypes[type].lpMlds[-1].uDeviceID = (UINT16)-1;
407         llTypes[type].lpMlds[-1].type = type;
408         llTypes[type].lpMlds[-1].mmdIndex = llTypes[type].nMapper;
409         llTypes[type].lpMlds[-1].dwDriverInstance = 0;
410     }
411     for (i = k = 0; i <= MMDrvsHi; i++) {
412         while (MMDrvs[i].parts[type].nIDMin <= k && k < MMDrvs[i].parts[type].nIDMax) {
413             TRACE("%s:Trans[%d] -> %s\n", llTypes[type].typestr, k, MMDrvs[i].drvname);
414             llTypes[type].lpMlds[k].uDeviceID = k;
415             llTypes[type].lpMlds[k].type = type;
416             llTypes[type].lpMlds[k].mmdIndex = i;
417             llTypes[type].lpMlds[k].dwDriverInstance = 0;
418             k++;
419         }
420     }
421     return TRUE;
422 }
423
424 /**************************************************************************
425  *                              MMDRV_Install                   [internal]
426  */
427 static  BOOL    MMDRV_Install(LPCSTR drvRegName, LPCSTR drvFileName, BOOL bIsMapper)
428 {
429     int                 i, count = 0;
430     LPWINE_MM_DRIVER    lpDrv = &MMDrvs[MMDrvsHi];
431     LPWINE_DRIVER       d;
432     WINEMM_msgFunc32    func;
433
434     TRACE("('%s', '%s', mapper=%c);\n", drvRegName, drvFileName, bIsMapper ? 'Y' : 'N');
435
436     for (i = 0; i < MMDrvsHi; i++) {
437         if (!strcmp(drvRegName, MMDrvs[i].drvname)) return FALSE;
438     }
439
440     /* Be sure that size of MMDrvs matches the max number of loadable
441      * drivers !!
442      * If not just increase size of MMDrvs
443      */
444     assert(MMDrvsHi <= sizeof(MMDrvs)/sizeof(MMDrvs[0]));
445
446     memset(lpDrv, 0, sizeof(*lpDrv));
447
448     if (!(lpDrv->hDriver = OpenDriverA(drvFileName, 0, 0))) {
449         WARN("Couldn't open driver '%s'\n", drvFileName);
450         return FALSE;
451     }
452
453     d = DRIVER_FindFromHDrvr(lpDrv->hDriver);
454
455     /* Then look for xxxMessage functions */
456 #define AA(_h,_w,_x,_y,_z)                                      \
457     func = (WINEMM_msgFunc##_y) _z ((_h), #_x);                 \
458     if (func != NULL)                                           \
459         { lpDrv->parts[_w].fnMessage##_y = func; count++;       \
460           TRACE("Got %d bit func '%s'\n", _y, #_x);         }
461
462     if (d->hModule) {
463 #define A(_x,_y)        AA(d->hModule,_x,_y,32,GetProcAddress)
464             A(MMDRV_AUX,        auxMessage);
465             A(MMDRV_MIXER,      mxdMessage);
466             A(MMDRV_MIDIIN,     midMessage);
467             A(MMDRV_MIDIOUT,    modMessage);
468             A(MMDRV_WAVEIN,     widMessage);
469             A(MMDRV_WAVEOUT,    wodMessage);
470 #undef A
471     }
472 #undef AA
473
474     if (!count) {
475         CloseDriver(lpDrv->hDriver, 0, 0);
476         WARN("No message functions found\n");
477         return FALSE;
478     }
479
480     /* FIXME: being a mapper or not should be known by another way */
481     /* it's known for NE drvs (the description is of the form '*mapper: *'
482      * I don't have any clue for PE drvs
483      */
484     lpDrv->bIsMapper = bIsMapper;
485     lpDrv->drvname = strcpy(HeapAlloc(GetProcessHeap(), 0, strlen(drvRegName) + 1), drvRegName);
486
487     /* Finish init and get the count of the devices */
488     i = 0;
489     if (MMDRV_InitPerType(lpDrv, MMDRV_AUX,     AUXDM_GETNUMDEVS))      i = 1;
490     if (MMDRV_InitPerType(lpDrv, MMDRV_MIXER,   MXDM_GETNUMDEVS))       i = 1;
491     if (MMDRV_InitPerType(lpDrv, MMDRV_MIDIIN,  MIDM_GETNUMDEVS))       i = 1;
492     if (MMDRV_InitPerType(lpDrv, MMDRV_MIDIOUT, MODM_GETNUMDEVS))       i = 1;
493     if (MMDRV_InitPerType(lpDrv, MMDRV_WAVEIN,  WIDM_GETNUMDEVS))       i = 1;
494     if (MMDRV_InitPerType(lpDrv, MMDRV_WAVEOUT, WODM_GETNUMDEVS))       i = 1;
495     /* if all those func calls return FALSE, then the driver must be unloaded */
496     if (!i) {
497         CloseDriver(lpDrv->hDriver, 0, 0);
498         HeapFree(GetProcessHeap(), 0, lpDrv->drvname);
499         WARN("Driver initialization failed\n");
500         return FALSE;
501     }
502
503     MMDrvsHi++;
504
505     return TRUE;
506 }
507
508 /**************************************************************************
509  *                              MMDRV_Init
510  */
511 static void MMDRV_Init(void)
512 {
513     HKEY        hKey;
514     char        driver_buffer[256];
515     char *p, *next;
516     TRACE("()\n");
517
518     strcpy(driver_buffer, WINE_DEFAULT_WINMM_DRIVER);
519
520     /* @@ Wine registry key: HKCU\Software\Wine\Drivers */
521     if (!RegOpenKeyA(HKEY_CURRENT_USER, "Software\\Wine\\Drivers", &hKey))
522     {
523         DWORD size = sizeof(driver_buffer);
524         if (RegQueryValueExA(hKey, "Audio", 0, NULL, (BYTE*)driver_buffer, &size))
525             strcpy(driver_buffer, WINE_DEFAULT_WINMM_DRIVER);
526     }
527
528     for (p = driver_buffer; p; p = next)
529     {
530         char filename[sizeof(driver_buffer)+10];
531         next = strchr(p, ',');
532         if (next) *next++ = 0;
533         sprintf( filename, "wine%s.drv", p );
534         if (MMDRV_Install(filename, filename, FALSE))
535             break;
536         p = next;
537     }
538
539     MMDRV_Install("wavemapper", "msacm32.drv", TRUE);
540     MMDRV_Install("midimapper", "midimap.dll", TRUE);
541 }
542
543 /******************************************************************
544  *              ExitPerType
545  *
546  *
547  */
548 static  BOOL    MMDRV_ExitPerType(LPWINE_MM_DRIVER lpDrv, UINT type)
549 {
550     WINE_MM_DRIVER_PART*        part = &lpDrv->parts[type];
551     DWORD                       ret;
552     TRACE("(%p, %04x)\n", lpDrv, type);
553
554     if (part->fnMessage32) {
555 #if 0
556         ret = part->fnMessage32(0, DRVM_DISABLE, 0L, 0L, 0L);
557         TRACE("DRVM_DISABLE => %08lx\n", ret);
558 #endif
559         ret = part->fnMessage32(0, DRVM_EXIT, 0L, 0L, 0L);
560         TRACE("DRVM_EXIT => %s\n", WINMM_ErrorToString(ret));
561     }
562
563     return TRUE;
564 }
565
566 /******************************************************************
567  *              Exit
568  *
569  *
570  */
571 void MMDRV_Exit(void)
572 {
573     unsigned int i;
574     TRACE("()\n");
575
576     for (i = 0; i < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0]); i++)
577     {
578         if (MM_MLDrvs[i] != NULL)
579         {
580             FIXME("Closing while ll-driver open\n");
581 #if 0
582             /* FIXME: should generate a message depending on type */
583             MMDRV_Free((HANDLE)(i | 0x8000), MM_MLDrvs[i]);
584 #endif
585         }
586     }
587
588     /* unload driver, in reverse order of loading */
589     i = sizeof(MMDrvs) / sizeof(MMDrvs[0]);
590     while (i-- > 0)
591     {
592         MMDRV_ExitPerType(&MMDrvs[i], MMDRV_AUX);
593         MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIXER);
594         MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIDIIN);
595         MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIDIOUT);
596         MMDRV_ExitPerType(&MMDrvs[i], MMDRV_WAVEIN);
597         MMDRV_ExitPerType(&MMDrvs[i], MMDRV_WAVEOUT);
598         CloseDriver(MMDrvs[i].hDriver, 0, 0);
599     }
600     if (llTypes[MMDRV_AUX].lpMlds)
601         HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_AUX].lpMlds - 1);
602     if (llTypes[MMDRV_MIXER].lpMlds)
603         HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_MIXER].lpMlds - 1);
604     if (llTypes[MMDRV_MIDIIN].lpMlds)
605         HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_MIDIIN].lpMlds - 1);
606     if (llTypes[MMDRV_MIDIOUT].lpMlds)
607         HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_MIDIOUT].lpMlds - 1);
608     if (llTypes[MMDRV_WAVEIN].lpMlds)
609         HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_WAVEIN].lpMlds - 1);
610     if (llTypes[MMDRV_WAVEOUT].lpMlds)
611         HeapFree(GetProcessHeap(), 0, llTypes[MMDRV_WAVEOUT].lpMlds - 1);
612 }