?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Release 20030408.
[wine/gsoc-2012-control.git] / dlls / winmm / lolvldrv.c
blob5afd0c899ac53e7231a31eea50252f11754dbefa
1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
2
3 /*
4 * MMSYTEM 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 */
22
23 #include <string.h>
24 #include <stdio.h>
25 #include <assert.h>
26 #include "winreg.h"
27 #include "winver.h"
28 #include "winemm.h"
29 #include "wine/debug.h"
30
31 WINE_DEFAULT_DEBUG_CHANNEL(winmm);
32
33 LRESULT (*pFnCallMMDrvFunc16)(FARPROC16,WORD,WORD,LONG,LONG,LONG) /* = NULL */;
34 unsigned (*pFnLoadMMDrvFunc16)(LPCSTR,LPWINE_DRIVER, LPWINE_MM_DRIVER) /* = NULL */;
35
36 /* each known type of driver has an instance of this structure */
37 typedef struct tagWINE_LLTYPE {
38 /* those attributes depend on the specification of the type */
39 LPSTR typestr; /* name (for debugging) */
40 BOOL bSupportMapper; /* if type is allowed to support mapper */
41 MMDRV_MAPFUNC Map16To32A; /* those are function pointers to handle */
42 MMDRV_UNMAPFUNC UnMap16To32A; /* the parameter conversion (16 vs 32 bit) */
43 MMDRV_MAPFUNC Map32ATo16; /* when hi-func (in mmsystem or winmm) and */
44 MMDRV_UNMAPFUNC UnMap32ATo16; /* low-func (in .drv) do not match */
45 LPDRVCALLBACK Callback; /* handles callback for a specified type */
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 int MMDrvsHi /* = 0 */;
53 static WINE_MM_DRIVER MMDrvs[3];
54 static LPWINE_MLD MM_MLDrvs[40];
55 #define MAX_MM_MLDRVS (sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0]))
56
57 #define A(_x,_y) {#_y, _x, NULL, NULL, NULL, NULL, NULL, 0, NULL, -1}
58 /* Note: the indices of this array must match the definitions
59 * of the MMDRV_???? manifest constants
60 */
61 static WINE_LLTYPE llTypes[MMDRV_MAX] = {
62 A(TRUE, Aux),
63 A(FALSE, Mixer),
64 A(TRUE, MidiIn),
65 A(TRUE, MidiOut),
66 A(TRUE, WaveIn),
67 A(TRUE, WaveOut),
68 };
69 #undef A
70
71 /******************************************************************
72 * MMDRV_InstallMap
73 *
74 *
75 */
76 void MMDRV_InstallMap(unsigned int drv,
77 MMDRV_MAPFUNC mp1632, MMDRV_UNMAPFUNC um1632,
78 MMDRV_MAPFUNC mp3216, MMDRV_UNMAPFUNC um3216,
79 LPDRVCALLBACK cb)
80 {
81 assert(drv < MMDRV_MAX);
82 llTypes[drv].Map16To32A = mp1632;
83 llTypes[drv].UnMap16To32A = um1632;
84 llTypes[drv].Map32ATo16 = mp3216;
85 llTypes[drv].UnMap32ATo16 = um1632;
86 llTypes[drv].Callback = cb;
87 }
88
89 /******************************************************************
90 * MMDRV_Is32
91 *
92 */
93 BOOL MMDRV_Is32(unsigned int idx)
94 {
95 return MMDrvs[idx].bIs32;
96 }
97
98 /**************************************************************************
99 * MMDRV_GetDescription32 [internal]
100 */
101 static BOOL MMDRV_GetDescription32(const char* fname, char* buf, int buflen)
102 {
103 OFSTRUCT ofs;
104 DWORD h;
105 LPVOID ptr = 0;
106 LPVOID val;
107 DWORD dw;
108 BOOL ret = FALSE;
109 UINT u;
110 FARPROC pGetFileVersionInfoSizeA;
111 FARPROC pGetFileVersionInfoA;
112 FARPROC pVerQueryValueA;
113 HMODULE hmodule = 0;
114
115 #define E(_x) do {TRACE _x;goto theEnd;} while(0)
116
117 if (OpenFile(fname, &ofs, OF_EXIST)==HFILE_ERROR) E(("Can't find file %s\n", fname));
118
119 if (!(hmodule = LoadLibraryA( "version.dll" ))) goto theEnd;
120 if (!(pGetFileVersionInfoSizeA = GetProcAddress( hmodule, "GetFileVersionInfoSizeA" )))
121 goto theEnd;
122 if (!(pGetFileVersionInfoA = GetProcAddress( hmodule, "GetFileVersionInfoA" )))
123 goto theEnd;
124 if (!(pVerQueryValueA = GetProcAddress( hmodule, "VerQueryValueA" )))
125 goto theEnd;
126
127 if (!(dw = pGetFileVersionInfoSizeA(ofs.szPathName, &h))) E(("Can't get FVIS\n"));
128 if (!(ptr = HeapAlloc(GetProcessHeap(), 0, dw))) E(("OOM\n"));
129 if (!pGetFileVersionInfoA(ofs.szPathName, h, dw, ptr)) E(("Can't get FVI\n"));
130
131 #define A(_x) if (pVerQueryValueA(ptr, "\\StringFileInfo\\040904B0\\" #_x, &val, &u)) \
132 TRACE(#_x " => %s\n", (LPSTR)val); else TRACE(#_x " @\n")
133
134 A(CompanyName);
135 A(FileDescription);
136 A(FileVersion);
137 A(InternalName);
138 A(LegalCopyright);
139 A(OriginalFilename);
140 A(ProductName);
141 A(ProductVersion);
142 A(Comments);
143 A(LegalTrademarks);
144 A(PrivateBuild);
145 A(SpecialBuild);
146 #undef A
147
148 if (!pVerQueryValueA(ptr, "\\StringFileInfo\\040904B0\\ProductName", &val, &u)) E(("Can't get product name\n"));
149 lstrcpynA(buf, val, buflen);
150
151 #undef E
152 ret = TRUE;
153 theEnd:
154 HeapFree(GetProcessHeap(), 0, ptr);
155 if (hmodule) FreeLibrary( hmodule );
156 return ret;
157 }
158
159 /**************************************************************************
160 * MMDRV_GetNum [internal]
161 */
162 UINT MMDRV_GetNum(UINT type)
163 {
164 assert(type < MMDRV_MAX);
165 return llTypes[type].wMaxId;
166 }
167
168 /**************************************************************************
169 * MMDRV_Message [internal]
170 */
171 DWORD MMDRV_Message(LPWINE_MLD mld, WORD wMsg, DWORD dwParam1,
172 DWORD dwParam2, BOOL bFrom32)
173 {
174 LPWINE_MM_DRIVER lpDrv;
175 DWORD ret;
176 WINE_MM_DRIVER_PART* part;
177 WINE_LLTYPE* llType = &llTypes[mld->type];
178 WINMM_MapType map;
179 int devID;
180
181 TRACE("(%s %u %u 0x%08lx 0x%08lx 0x%08lx %c)\n",
182 llTypes[mld->type].typestr, mld->uDeviceID, wMsg,
183 mld->dwDriverInstance, dwParam1, dwParam2, bFrom32?'Y':'N');
184
185 if (mld->uDeviceID == (UINT16)-1) {
186 if (!llType->bSupportMapper) {
187 WARN("uDev=-1 requested on non-mappable ll type %s\n",
188 llTypes[mld->type].typestr);
189 return MMSYSERR_BADDEVICEID;
190 }
191 devID = -1;
192 } else {
193 if (mld->uDeviceID >= llType->wMaxId) {
194 WARN("uDev(%u) requested >= max (%d)\n", mld->uDeviceID, llType->wMaxId);
195 return MMSYSERR_BADDEVICEID;
196 }
197 devID = mld->uDeviceID;
198 }
199
200 lpDrv = &MMDrvs[mld->mmdIndex];
201 part = &lpDrv->parts[mld->type];
202
203 #if 0
204 /* some sanity checks */
205 if (!(part->nIDMin <= devID))
206 ERR("!(part->nIDMin(%d) <= devID(%d))\n", part->nIDMin, devID);
207 if (!(devID < part->nIDMax))
208 ERR("!(devID(%d) < part->nIDMax(%d))\n", devID, part->nIDMax);
209 #endif
210
211 if (lpDrv->bIs32) {
212 assert(part->u.fnMessage32);
213
214 if (bFrom32) {
215 TRACE("Calling message(dev=%u msg=%u usr=0x%08lx p1=0x%08lx p2=0x%08lx)\n",
216 mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
217 ret = part->u.fnMessage32(mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
218 TRACE("=> %lu\n", ret);
219 } else {
220 map = llType->Map16To32A(wMsg, &mld->dwDriverInstance, &dwParam1, &dwParam2);
221 switch (map) {
222 case WINMM_MAP_NOMEM:
223 ret = MMSYSERR_NOMEM;
224 break;
225 case WINMM_MAP_MSGERROR:
226 FIXME("NIY: no conversion yet 16->32 (%u)\n", wMsg);
227 ret = MMSYSERR_ERROR;
228 break;
229 case WINMM_MAP_OK:
230 case WINMM_MAP_OKMEM:
231 TRACE("Calling message(dev=%u msg=%u usr=0x%08lx p1=0x%08lx p2=0x%08lx)\n",
232 mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
233 ret = part->u.fnMessage32(mld->uDeviceID, wMsg, mld->dwDriverInstance,
234 dwParam1, dwParam2);
235 TRACE("=> %lu\n", ret);
236 if (map == WINMM_MAP_OKMEM)
237 llType->UnMap16To32A(wMsg, &mld->dwDriverInstance, &dwParam1, &dwParam2, ret);
238 break;
239 default:
240 FIXME("NIY\n");
241 ret = MMSYSERR_NOTSUPPORTED;
242 break;
243 }
244 }
245 } else {
246 assert(part->u.fnMessage16 && pFnCallMMDrvFunc16);
247
248 if (bFrom32) {
249 map = llType->Map32ATo16(wMsg, &mld->dwDriverInstance, &dwParam1, &dwParam2);
250 switch (map) {
251 case WINMM_MAP_NOMEM:
252 ret = MMSYSERR_NOMEM;
253 break;
254 case WINMM_MAP_MSGERROR:
255 FIXME("NIY: no conversion yet 32->16 (%u)\n", wMsg);
256 ret = MMSYSERR_ERROR;
257 break;
258 case WINMM_MAP_OK:
259 case WINMM_MAP_OKMEM:
260 TRACE("Calling message(dev=%u msg=%u usr=0x%08lx p1=0x%08lx p2=0x%08lx)\n",
261 mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
262 ret = pFnCallMMDrvFunc16((FARPROC16)part->u.fnMessage16,
263 mld->uDeviceID, wMsg, mld->dwDriverInstance,
264 dwParam1, dwParam2);
265 TRACE("=> %lu\n", ret);
266 if (map == WINMM_MAP_OKMEM)
267 llType->UnMap32ATo16(wMsg, &mld->dwDriverInstance, &dwParam1, &dwParam2, ret);
268 break;
269 default:
270 FIXME("NIY\n");
271 ret = MMSYSERR_NOTSUPPORTED;
272 break;
273 }
274 } else {
275 TRACE("Calling message(dev=%u msg=%u usr=0x%08lx p1=0x%08lx p2=0x%08lx)\n",
276 mld->uDeviceID, wMsg, mld->dwDriverInstance, dwParam1, dwParam2);
277 ret = pFnCallMMDrvFunc16((FARPROC16)part->u.fnMessage16,
278 mld->uDeviceID, wMsg, mld->dwDriverInstance,
279 dwParam1, dwParam2);
280 TRACE("=> %lu\n", ret);
281 }
282 }
283 return ret;
284 }
285
286 /**************************************************************************
287 * MMDRV_Alloc [internal]
288 */
289 LPWINE_MLD MMDRV_Alloc(UINT size, UINT type, LPHANDLE hndl, DWORD* dwFlags,
290 DWORD* dwCallback, DWORD* dwInstance, BOOL bFrom32)
291 {
292 LPWINE_MLD mld;
293 UINT i;
294
295 mld = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, size);
296 if (!mld) return NULL;
297
298 /* find an empty slot in MM_MLDrvs table */
299 for (i = 0; i < MAX_MM_MLDRVS; i++) if (!MM_MLDrvs[i]) break;
300
301 if (i == MAX_MM_MLDRVS) {
302 /* the MM_MLDrvs table could be made growable in the future if needed */
303 ERR("Too many open drivers\n");
304 return NULL;
305 }
306 MM_MLDrvs[i] = mld;
307 *hndl = (HANDLE)(i | 0x8000);
308
309 mld->type = type;
310 if ((UINT)*hndl < MMDRV_GetNum(type) || HIWORD(*hndl) != 0) {
311 /* FIXME: those conditions must be fulfilled so that:
312 * - we can distinguish between device IDs and handles
313 * - we can use handles as 16 or 32 bit entities
314 */
315 ERR("Shouldn't happen. Bad allocation scheme\n");
316 }
317
318 mld->bFrom32 = bFrom32;
319 mld->dwFlags = HIWORD(*dwFlags);
320 mld->dwCallback = *dwCallback;
321 mld->dwClientInstance = *dwInstance;
322
323 if (llTypes[type].Callback)
324 {
325 *dwFlags = LOWORD(*dwFlags) | CALLBACK_FUNCTION;
326 *dwCallback = (DWORD)llTypes[type].Callback;
327 *dwInstance = (DWORD)mld; /* FIXME: wouldn't some 16 bit drivers only use the loword ? */
328 }
329
330 return mld;
331 }
332
333 /**************************************************************************
334 * MMDRV_Free [internal]
335 */
336 void MMDRV_Free(HANDLE hndl, LPWINE_MLD mld)
337 {
338 if ((UINT)hndl & 0x8000) {
339 unsigned idx = (UINT)hndl & ~0x8000;
340 if (idx < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0])) {
341 MM_MLDrvs[idx] = NULL;
342 HeapFree(GetProcessHeap(), 0, mld);
343 return;
344 }
345 }
346 ERR("Bad Handle %p at %p (not freed)\n", hndl, mld);
347 }
348
349 /**************************************************************************
350 * MMDRV_Open [internal]
351 */
352 DWORD MMDRV_Open(LPWINE_MLD mld, UINT wMsg, DWORD dwParam1, DWORD dwFlags)
353 {
354 DWORD dwRet = MMSYSERR_BADDEVICEID;
355 DWORD dwInstance;
356 WINE_LLTYPE* llType = &llTypes[mld->type];
357
358 mld->dwDriverInstance = (DWORD)&dwInstance;
359
360 if (mld->uDeviceID == (UINT)-1 || mld->uDeviceID == (UINT16)-1) {
361 TRACE("MAPPER mode requested !\n");
362 /* check if mapper is supported by type */
363 if (llType->bSupportMapper) {
364 if (llType->nMapper == -1) {
365 /* no driver for mapper has been loaded, try a dumb implementation */
366 TRACE("No mapper loaded, doing it by hand\n");
367 for (mld->uDeviceID = 0; mld->uDeviceID < llType->wMaxId; mld->uDeviceID++) {
368 if ((dwRet = MMDRV_Open(mld, wMsg, dwParam1, dwFlags)) == MMSYSERR_NOERROR) {
369 /* to share this function epilog */
370 dwInstance = mld->dwDriverInstance;
371 break;
372 }
373 }
374 } else {
375 mld->uDeviceID = (UINT16)-1;
376 mld->mmdIndex = llType->lpMlds[-1].mmdIndex;
377 TRACE("Setting mmdIndex to %u\n", mld->mmdIndex);
378 dwRet = MMDRV_Message(mld, wMsg, dwParam1, dwFlags, TRUE);
379 }
380 }
381 } else {
382 if (mld->uDeviceID < llType->wMaxId) {
383 mld->mmdIndex = llType->lpMlds[mld->uDeviceID].mmdIndex;
384 TRACE("Setting mmdIndex to %u\n", mld->mmdIndex);
385 dwRet = MMDRV_Message(mld, wMsg, dwParam1, dwFlags, TRUE);
386 }
387 }
388 if (dwRet == MMSYSERR_NOERROR)
389 mld->dwDriverInstance = dwInstance;
390 return dwRet;
391 }
392
393 /**************************************************************************
394 * MMDRV_Close [internal]
395 */
396 DWORD MMDRV_Close(LPWINE_MLD mld, UINT wMsg)
397 {
398 return MMDRV_Message(mld, wMsg, 0L, 0L, TRUE);
399 }
400
401 /**************************************************************************
402 * MMDRV_GetByID [internal]
403 */
404 LPWINE_MLD MMDRV_GetByID(UINT uDevID, UINT type)
405 {
406 if (uDevID < llTypes[type].wMaxId)
407 return &llTypes[type].lpMlds[uDevID];
408 if ((uDevID == (UINT16)-1 || uDevID == (UINT)-1) && llTypes[type].nMapper != -1)
409 return &llTypes[type].lpMlds[-1];
410 return NULL;
411 }
412
413 /**************************************************************************
414 * MMDRV_Get [internal]
415 */
416 LPWINE_MLD MMDRV_Get(HANDLE _hndl, UINT type, BOOL bCanBeID)
417 {
418 LPWINE_MLD mld = NULL;
419 UINT hndl = (UINT)_hndl;
420
421 assert(type < MMDRV_MAX);
422
423 if (hndl >= llTypes[type].wMaxId &&
424 hndl != (UINT16)-1 && hndl != (UINT)-1) {
425 if (hndl & 0x8000) {
426 hndl = hndl & ~0x8000;
427 if (hndl < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0])) {
428 mld = MM_MLDrvs[hndl];
429 if (!mld || !HeapValidate(GetProcessHeap(), 0, mld) || mld->type != type)
430 mld = NULL;
431 }
432 hndl = hndl | 0x8000;
433 }
434 }
435 if (mld == NULL && bCanBeID) {
436 mld = MMDRV_GetByID(hndl, type);
437 }
438 return mld;
439 }
440
441 /**************************************************************************
442 * MMDRV_GetRelated [internal]
443 */
444 LPWINE_MLD MMDRV_GetRelated(HANDLE hndl, UINT srcType,
445 BOOL bSrcCanBeID, UINT dstType)
446 {
447 LPWINE_MLD mld;
448
449 if ((mld = MMDRV_Get(hndl, srcType, bSrcCanBeID)) != NULL) {
450 WINE_MM_DRIVER_PART* part = &MMDrvs[mld->mmdIndex].parts[dstType];
451 if (part->nIDMin < part->nIDMax)
452 return MMDRV_GetByID(part->nIDMin, dstType);
453 }
454 return NULL;
455 }
456
457 /**************************************************************************
458 * MMDRV_PhysicalFeatures [internal]
459 */
460 UINT MMDRV_PhysicalFeatures(LPWINE_MLD mld, UINT uMsg, DWORD dwParam1,
461 DWORD dwParam2)
462 {
463 WINE_MM_DRIVER* lpDrv = &MMDrvs[mld->mmdIndex];
464
465 TRACE("(%p, %04x, %08lx, %08lx)\n", mld, uMsg, dwParam1, dwParam2);
466
467 /* all those function calls are undocumented */
468 switch (uMsg) {
469 case DRV_QUERYDRVENTRY:
470 lstrcpynA((LPSTR)dwParam1, lpDrv->drvname, LOWORD(dwParam2));
471 break;
472 case DRV_QUERYDEVNODE:
473 *(LPDWORD)dwParam1 = 0L; /* should be DevNode */
474 break;
475 case DRV_QUERYNAME:
476 WARN("NIY QueryName\n");
477 break;
478 case DRV_QUERYDRIVERIDS:
479 WARN("NIY call VxD\n");
480 /* should call VxD MMDEVLDR with (DevNode, dwParam1 and dwParam2) as pmts
481 * dwParam1 is buffer and dwParam2 is sizeof buffer
482 * I don't know where the result is stored though
483 */
484 break;
485 case DRV_QUERYMAPPABLE:
486 return (lpDrv->bIsMapper) ? 2 : 0;
487
488 case DRV_QUERYDSOUNDIFACE: /* Wine-specific: Retrieve DirectSound interface */
489 return MMDRV_Message(mld, uMsg, dwParam1, dwParam2, TRUE);
490
491 case DRV_QUERYDSOUNDDESC: /* Wine-specific: Retrieve DirectSound driver description*/
492 return MMDRV_Message(mld, uMsg, dwParam1, dwParam2, TRUE);
493
494 case DRV_QUERYDSOUNDGUID: /* Wine-specific: Retrieve DirectSound driver GUID */
495 return MMDRV_Message(mld, uMsg, dwParam1, dwParam2, TRUE);
496
497 default:
498 WARN("Unknown call %04x\n", uMsg);
499 return MMSYSERR_INVALPARAM;
500 }
501 return 0L;
502 }
503
504 /**************************************************************************
505 * MMDRV_InitPerType [internal]
506 */
507 static BOOL MMDRV_InitPerType(LPWINE_MM_DRIVER lpDrv, UINT type, UINT wMsg)
508 {
509 WINE_MM_DRIVER_PART* part = &lpDrv->parts[type];
510 DWORD ret;
511 UINT count = 0;
512 int i, k;
513
514 part->nIDMin = part->nIDMax = 0;
515
516 /* for DRVM_INIT and DRVM_ENABLE, dwParam2 should be PnP node */
517 /* the DRVM_ENABLE is only required when the PnP node is non zero */
518
519 if (lpDrv->bIs32 && part->u.fnMessage32) {
520 ret = part->u.fnMessage32(0, DRVM_INIT, 0L, 0L, 0L);
521 TRACE("DRVM_INIT => %08lx\n", ret);
522 #if 0
523 ret = part->u.fnMessage32(0, DRVM_ENABLE, 0L, 0L, 0L);
524 TRACE("DRVM_ENABLE => %08lx\n", ret);
525 #endif
526 count = part->u.fnMessage32(0, wMsg, 0L, 0L, 0L);
527 } else if (!lpDrv->bIs32 && part->u.fnMessage16 && pFnCallMMDrvFunc16) {
528 ret = pFnCallMMDrvFunc16((FARPROC16)part->u.fnMessage16,
529 0, DRVM_INIT, 0L, 0L, 0L);
530 TRACE("DRVM_INIT => %08lx\n", ret);
531 #if 0
532 ret = pFnCallMMDrvFunc16((FARPROC16)part->u.fnMessage16,
533 0, DRVM_ENABLE, 0L, 0L, 0L);
534 TRACE("DRVM_ENABLE => %08lx\n", ret);
535 #endif
536 count = pFnCallMMDrvFunc16((FARPROC16)part->u.fnMessage16,
537 0, wMsg, 0L, 0L, 0L);
538 } else {
539 return FALSE;
540 }
541
542 TRACE("Got %u dev for (%s:%s)\n", count, lpDrv->drvname, llTypes[type].typestr);
543
544 /* got some drivers */
545 if (lpDrv->bIsMapper) {
546 /* it seems native mappers return 0 devices :-( */
547 if (llTypes[type].nMapper != -1)
548 ERR("Two mappers for type %s (%d, %s)\n",
549 llTypes[type].typestr, llTypes[type].nMapper, lpDrv->drvname);
550 if (count > 1)
551 ERR("Strange: mapper with %d > 1 devices\n", count);
552 llTypes[type].nMapper = MMDrvsHi;
553 } else {
554 if (count == 0)
555 return FALSE;
556 part->nIDMin = llTypes[type].wMaxId;
557 llTypes[type].wMaxId += count;
558 part->nIDMax = llTypes[type].wMaxId;
559 }
560 TRACE("Setting min=%d max=%d (ttop=%d) for (%s:%s)\n",
561 part->nIDMin, part->nIDMax, llTypes[type].wMaxId,
562 lpDrv->drvname, llTypes[type].typestr);
563 /* realloc translation table */
564 llTypes[type].lpMlds = (LPWINE_MLD)
565 HeapReAlloc(GetProcessHeap(), 0, (llTypes[type].lpMlds) ? llTypes[type].lpMlds - 1 : NULL,
566 sizeof(WINE_MLD) * (llTypes[type].wMaxId + 1)) + 1;
567 /* re-build the translation table */
568 if (llTypes[type].nMapper != -1) {
569 TRACE("%s:Trans[%d] -> %s\n", llTypes[type].typestr, -1, MMDrvs[llTypes[type].nMapper].drvname);
570 llTypes[type].lpMlds[-1].uDeviceID = (UINT16)-1;
571 llTypes[type].lpMlds[-1].type = type;
572 llTypes[type].lpMlds[-1].mmdIndex = llTypes[type].nMapper;
573 llTypes[type].lpMlds[-1].dwDriverInstance = 0;
574 }
575 for (i = k = 0; i <= MMDrvsHi; i++) {
576 while (MMDrvs[i].parts[type].nIDMin <= k && k < MMDrvs[i].parts[type].nIDMax) {
577 TRACE("%s:Trans[%d] -> %s\n", llTypes[type].typestr, k, MMDrvs[i].drvname);
578 llTypes[type].lpMlds[k].uDeviceID = k;
579 llTypes[type].lpMlds[k].type = type;
580 llTypes[type].lpMlds[k].mmdIndex = i;
581 llTypes[type].lpMlds[k].dwDriverInstance = 0;
582 k++;
583 }
584 }
585 return TRUE;
586 }
587
588 /**************************************************************************
589 * MMDRV_Install [internal]
590 */
591 static BOOL MMDRV_Install(LPCSTR drvRegName, LPCSTR drvFileName, BOOL bIsMapper)
592 {
593 int i, count = 0;
594 LPWINE_MM_DRIVER lpDrv = &MMDrvs[MMDrvsHi];
595 LPWINE_DRIVER d;
596
597 TRACE("('%s', '%s', mapper=%c);\n", drvRegName, drvFileName, bIsMapper ? 'Y' : 'N');
598
599 /* be sure that size of MMDrvs matches the max number of loadable drivers !!
600 * if not just increase size of MMDrvs */
601 assert(MMDrvsHi <= sizeof(MMDrvs)/sizeof(MMDrvs[0]));
602
603 for (i = 0; i < MMDrvsHi; i++) {
604 if (!strcmp(drvRegName, MMDrvs[i].drvname)) return FALSE;
605 }
606
607 memset(lpDrv, 0, sizeof(*lpDrv));
608
609 if (!(lpDrv->hDriver = OpenDriverA(drvFileName, 0, 0))) {
610 WARN("Couldn't open driver '%s'\n", drvFileName);
611 return FALSE;
612 }
613
614 d = DRIVER_FindFromHDrvr(lpDrv->hDriver);
615 lpDrv->bIs32 = (d->dwFlags & WINE_GDF_16BIT) ? FALSE : TRUE;
616
617 /* Then look for xxxMessage functions */
618 #define AA(_h,_w,_x,_y,_z) \
619 func = (WINEMM_msgFunc##_y) _z ((_h), #_x); \
620 if (func != NULL) \
621 { lpDrv->parts[_w].u.fnMessage##_y = func; count++; \
622 TRACE("Got %d bit func '%s'\n", _y, #_x); }
623
624 if (lpDrv->bIs32) {
625 WINEMM_msgFunc32 func;
626 char buffer[128];
627
628 if (d->d.d32.hModule) {
629 #define A(_x,_y) AA(d->d.d32.hModule,_x,_y,32,GetProcAddress)
630 A(MMDRV_AUX, auxMessage);
631 A(MMDRV_MIXER, mxdMessage);
632 A(MMDRV_MIDIIN, midMessage);
633 A(MMDRV_MIDIOUT, modMessage);
634 A(MMDRV_WAVEIN, widMessage);
635 A(MMDRV_WAVEOUT, wodMessage);
636 #undef A
637 }
638 if (TRACE_ON(winmm)) {
639 if (MMDRV_GetDescription32(drvFileName, buffer, sizeof(buffer)))
640 TRACE("%s => %s\n", drvFileName, buffer);
641 else
642 TRACE("%s => No description\n", drvFileName);
643 }
644 } else if (WINMM_CheckForMMSystem() && pFnLoadMMDrvFunc16) {
645 count += pFnLoadMMDrvFunc16(drvFileName, d, lpDrv);
646 }
647 #undef AA
648
649 if (!count) {
650 CloseDriver(lpDrv->hDriver, 0, 0);
651 WARN("No message functions found\n");
652 return FALSE;
653 }
654
655 /* FIXME: being a mapper or not should be known by another way */
656 /* it's known for NE drvs (the description is of the form '*mapper: *'
657 * I don't have any clue for PE drvs
658 */
659 lpDrv->bIsMapper = bIsMapper;
660 lpDrv->drvname = strcpy(HeapAlloc(GetProcessHeap(), 0, strlen(drvRegName) + 1), drvRegName);
661
662 /* Finish init and get the count of the devices */
663 MMDRV_InitPerType(lpDrv, MMDRV_AUX, AUXDM_GETNUMDEVS);
664 MMDRV_InitPerType(lpDrv, MMDRV_MIXER, MXDM_GETNUMDEVS);
665 MMDRV_InitPerType(lpDrv, MMDRV_MIDIIN, MIDM_GETNUMDEVS);
666 MMDRV_InitPerType(lpDrv, MMDRV_MIDIOUT, MODM_GETNUMDEVS);
667 MMDRV_InitPerType(lpDrv, MMDRV_WAVEIN, WIDM_GETNUMDEVS);
668 MMDRV_InitPerType(lpDrv, MMDRV_WAVEOUT, WODM_GETNUMDEVS);
669 /* FIXME: if all those func calls return FALSE,
670 * then the driver must be unloaded
671 */
672
673 MMDrvsHi++;
674
675 return TRUE;
676 }
677
678 /**************************************************************************
679 * MMDRV_InitFromRegistry [internal]
680 */
681 static BOOL MMDRV_InitFromRegistry(void)
682 {
683 HKEY hKey;
684 char buffer[256];
685 char* p1;
686 char* p2;
687 DWORD type, size;
688 BOOL ret = FALSE;
689
690 if (RegCreateKeyA(HKEY_LOCAL_MACHINE, "Software\\Wine\\Wine\\Config\\WinMM", &hKey)) {
691 TRACE("Cannot open WinMM config key\n");
692 return FALSE;
693 }
694
695 size = sizeof(buffer);
696 if (!RegQueryValueExA(hKey, "Drivers", 0, &type, (LPVOID)buffer, &size)) {
697 p1 = buffer;
698 while (p1) {
699 p2 = strchr(p1, ';');
700 if (p2) *p2++ = '\0';
701 ret |= MMDRV_Install(p1, p1, FALSE);
702 p1 = p2;
703 }
704 }
705
706 /* finish with mappers */
707 size = sizeof(buffer);
708 if (!RegQueryValueExA(hKey, "WaveMapper", 0, &type, (LPVOID)buffer, &size))
709 ret |= MMDRV_Install("wavemapper", buffer, TRUE);
710 size = sizeof(buffer);
711 if (!RegQueryValueExA(hKey, "MidiMapper", 0, &type, (LPVOID)buffer, &size))
712 ret |= MMDRV_Install("midimapper", buffer, TRUE);
713
714 RegCloseKey(hKey);
715
716 return ret;
717 }
718
719 /**************************************************************************
720 * MMDRV_InitHardcoded [internal]
721 */
722 static BOOL MMDRV_InitHardcoded(void)
723 {
724 /* first load hardware drivers */
725 MMDRV_Install("wineoss.drv", "wineoss.drv", FALSE);
726
727 /* finish with mappers */
728 MMDRV_Install("wavemapper", "msacm.drv", TRUE);
729 MMDRV_Install("midimapper", "midimap.drv", TRUE);
730
731 return TRUE;
732 }
733
734 /**************************************************************************
735 * MMDRV_Init [internal]
736 */
737 BOOL MMDRV_Init(void)
738 {
739 /* FIXME: MMDRV_InitFromRegistry shall be MMDRV_Init in a near future */
740 return MMDRV_InitFromRegistry() || MMDRV_InitHardcoded();
741 }
742
743 /******************************************************************
744 * ExitPerType
745 *
746 *
747 */
748 static BOOL MMDRV_ExitPerType(LPWINE_MM_DRIVER lpDrv, UINT type)
749 {
750 WINE_MM_DRIVER_PART* part = &lpDrv->parts[type];
751 DWORD ret;
752
753 if (lpDrv->bIs32 && part->u.fnMessage32) {
754 #if 0
755 ret = part->u.fnMessage32(0, DRVM_DISABLE, 0L, 0L, 0L);
756 TRACE("DRVM_DISABLE => %08lx\n", ret);
757 #endif
758 ret = part->u.fnMessage32(0, DRVM_EXIT, 0L, 0L, 0L);
759 TRACE("DRVM_EXIT => %08lx\n", ret);
760 } else if (!lpDrv->bIs32 && part->u.fnMessage16 && pFnCallMMDrvFunc16) {
761 #if 0
762 ret = pFnCallMMDrvFunc16((FARPROC16)part->u.fnMessage16,
763 0, DRVM_DISABLE, 0L, 0L, 0L);
764 TRACE("DRVM_DISABLE => %08lx\n", ret);
765 #endif
766 ret = pFnCallMMDrvFunc16((FARPROC16)part->u.fnMessage16,
767 0, DRVM_EXIT, 0L, 0L, 0L);
768 TRACE("DRVM_EXIT => %08lx\n", ret);
769 } else {
770 return FALSE;
771 }
772
773 return TRUE;
774 }
775
776 /******************************************************************
777 * Exit
778 *
779 *
780 */
781 void MMDRV_Exit(void)
782 {
783 int i;
784
785 for (i = 0; i < sizeof(MM_MLDrvs) / sizeof(MM_MLDrvs[0]); i++)
786 {
787 if (MM_MLDrvs[i] != NULL)
788 {
789 FIXME("Closing while ll-driver open\n");
790 #if 0
791 /* FIXME: should generate a message depending on type */
792 MMDRV_Free((HANDLE)(i | 0x8000), MM_MLDrvs[i]);
793 #endif
794 }
795 }
796
797 /* unload driver, in reverse order of loading */
798 for (i = sizeof(MMDrvs) / sizeof(MMDrvs[0]) - 1; i >= 0; i--)
799 {
800 MMDRV_ExitPerType(&MMDrvs[i], MMDRV_AUX);
801 MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIXER);
802 MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIDIIN);
803 MMDRV_ExitPerType(&MMDrvs[i], MMDRV_MIDIOUT);
804 MMDRV_ExitPerType(&MMDrvs[i], MMDRV_WAVEIN);
805 MMDRV_ExitPerType(&MMDrvs[i], MMDRV_WAVEOUT);
806 CloseDriver(MMDrvs[i].hDriver, 0, 0);
807 }
808 }
GSOC 2012 project to enhance the control panel