git.oblomov.eu Git - wine/blob - dlls/winmm/lolvldrv.c

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