git.oblomov.eu Git - wine/blob - multimedia/mmsystem.c

   1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
   2
   3 /*
   4  * MMSYTEM functions
   5  *
   6  * Copyright 1993 Martin Ayotte
   7  */
   8
   9 /*
  10  * Eric POUECH :
  11  *      98/9    added Win32 MCI support
  12  *      99/4    added mmTask and mmThread functions support
  13  *              added midiStream support
  14  */
  15
  16 /* FIXME: I think there are some segmented vs. linear pointer weirdnesses
  17  *        and long term pointers to 16 bit space in here
  18  */
  19
  20 #include <string.h>
  21
  22 #include "winbase.h"
  23 #include "wine/winbase16.h"
  24 #include "heap.h"
  25 #include "user.h"
  26 #include "driver.h"
  27 #include "multimedia.h"
  28 #include "syslevel.h"
  29 #include "callback.h"
  30 #include "selectors.h"
  31 #include "module.h"
  32 #include "debugtools.h"
  33
  34 DEFAULT_DEBUG_CHANNEL(mmsys)
  35
  36 LONG   WINAPI DrvDefDriverProc(DWORD dwDevID, HDRVR16 hDrv, WORD wMsg,
  37                                DWORD dwParam1, DWORD dwParam2);
  38
  39 static LPWINE_MM_IDATA          lpFirstIData = NULL;
  40
  41 /**************************************************************************
  42  *                      MULTIMEDIA_GetIData                     [internal]
  43  */
  44 LPWINE_MM_IDATA MULTIMEDIA_GetIData(void)
  45 {
  46     DWORD               pid = GetCurrentProcessId();
  47     LPWINE_MM_IDATA     iData;
  48
  49     for (iData = lpFirstIData; iData; iData = iData->lpNextIData) {
  50         if (iData->dwThisProcess == pid)
  51             break;
  52     }
  53     return iData;
  54 }
  55
  56 /**************************************************************************
  57  *                      WINMM_LibMain                           [EntryPoint]
  58  *
  59  * WINMM DLL entry point
  60  *
  61  */
  62 BOOL WINAPI WINMM_LibMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID fImpLoad)
  63 {
  64     static BOOL                 bInitDone = FALSE;
  65     LPWINE_MM_IDATA             iData;
  66
  67     TRACE("0x%x 0x%lx %p\n", hinstDLL, fdwReason, fImpLoad);
  68
  69     switch (fdwReason) {
  70     case DLL_PROCESS_ATTACH:
  71         if (!bInitDone) { /* to be done only once */
  72             if (!MULTIMEDIA_MidiInit() || !MULTIMEDIA_MciInit()) {
  73                 return FALSE;
  74             }
  75             bInitDone = TRUE;
  76         }
  77         iData = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(WINE_MM_IDATA));
  78         if (!iData)
  79             return FALSE;
  80         iData->hWinMM32Instance = hinstDLL;
  81         iData->dwThisProcess = GetCurrentProcessId();
  82         iData->lpNextIData = lpFirstIData;
  83         lpFirstIData = iData;
  84         InitializeCriticalSection(&iData->cs);
  85         break;
  86     case DLL_PROCESS_DETACH:
  87         iData = MULTIMEDIA_GetIData();
  88         if (iData) {
  89             LPWINE_MM_IDATA*    ppid;
  90
  91             for (ppid = &lpFirstIData; *ppid; ppid = &(*ppid)->lpNextIData) {
  92                 if (*ppid == iData) {
  93                     *ppid = iData->lpNextIData;
  94                     break;
  95                 }
  96             }
  97         } else {
  98             ERR("Idata is NULL, please report\n");
  99             return FALSE;
 100         }
 101         /* FIXME: should also free content and resources allocated inside iData */
 102         HeapFree(GetProcessHeap(), 0, iData);
 103         break;
 104     case DLL_THREAD_ATTACH:
 105     case DLL_THREAD_DETACH:
 106         break;
 107     }
 108     return TRUE;
 109 }
 110
 111 /**************************************************************************
 112  *                      MMSYSTEM_LibMain                        [EntryPoint]
 113  *
 114  * MMSYSTEM DLL entry point
 115  *
 116  */
 117 BOOL WINAPI MMSYSTEM_LibMain(DWORD fdwReason, HINSTANCE hinstDLL, WORD ds,
 118                              WORD wHeapSize, DWORD dwReserved1, WORD wReserved2)
 119 {
 120     HANDLE                      hndl;
 121     LPWINE_MM_IDATA             iData;
 122
 123     TRACE("0x%x 0x%lx\n", hinstDLL, fdwReason);
 124
 125     switch (fdwReason) {
 126     case DLL_PROCESS_ATTACH:
 127         /* need to load WinMM in order to:
 128          * - correctly initiates shared variables (MULTIMEDIA_Init())
 129          * - correctly creates the per process WINE_MM_IDATA chunk
 130          */
 131         hndl = LoadLibraryA("WINMM.DLL");
 132
 133         if (!hndl) {
 134             ERR("Could not load sibling WinMM.dll\n");
 135             return FALSE;
 136         }
 137         iData = MULTIMEDIA_GetIData();
 138         if (!iData)     {ERR("Idata is NULL, please report\n"); return FALSE;}
 139         iData->hWinMM16Instance = hinstDLL;
 140         iData->h16Module32 = hndl;
 141         break;
 142     case DLL_PROCESS_DETACH:
 143         iData = MULTIMEDIA_GetIData();
 144         if (!iData) {
 145             ERR("Idata is NULL, please report\n");
 146             return FALSE;
 147         }
 148         FreeLibrary(iData->h16Module32);
 149         break;
 150     case DLL_THREAD_ATTACH:
 151     case DLL_THREAD_DETACH:
 152         break;
 153     }
 154     return TRUE;
 155 }
 156
 157 /**************************************************************************
 158  *                              MMSYSTEM_WEP                    [MMSYSTEM.1]
 159  */
 160 int WINAPI MMSYSTEM_WEP(HINSTANCE16 hInstance, WORD wDataSeg,
 161                         WORD cbHeapSize, LPSTR lpCmdLine)
 162 {
 163     FIXME("STUB: Unloading MMSystem DLL ... hInst=%04X \n", hInstance);
 164     return TRUE;
 165 }
 166
 167 static void MMSYSTEM_MMTIME32to16(LPMMTIME16 mmt16, const MMTIME* mmt32)
 168 {
 169     mmt16->wType = mmt32->wType;
 170     /* layout of rest is the same for 32/16,
 171      * Note: mmt16->u is 2 bytes smaller than mmt32->u, which has padding
 172      */
 173     memcpy(&(mmt16->u), &(mmt32->u), sizeof(mmt16->u));
 174 }
 175
 176 static void MMSYSTEM_MMTIME16to32(LPMMTIME mmt32, const MMTIME16* mmt16)
 177 {
 178     mmt32->wType = mmt16->wType;
 179     /* layout of rest is the same for 32/16,
 180      * Note: mmt16->u is 2 bytes smaller than mmt32->u, which has padding
 181      */
 182     memcpy(&(mmt32->u), &(mmt16->u), sizeof(mmt16->u));
 183 }
 184
 185 static HANDLE           PlaySound_hThread = 0;
 186 static HANDLE           PlaySound_hPlayEvent = 0;
 187 static HANDLE           PlaySound_hReadyEvent = 0;
 188 static HANDLE           PlaySound_hMiddleEvent = 0;
 189 static BOOL             PlaySound_Result = FALSE;
 190 static int              PlaySound_Stop = FALSE;
 191 static int              PlaySound_Playing = FALSE;
 192
 193 static LPCSTR           PlaySound_pszSound = NULL;
 194 static HMODULE          PlaySound_hmod = 0;
 195 static DWORD            PlaySound_fdwSound = 0;
 196 static int              PlaySound_Loop = FALSE;
 197 static int              PlaySound_SearchMode = 0; /* 1 - sndPlaySound search order
 198                                                      2 - PlaySound order */
 199
 200 static HMMIO16  get_mmioFromFile(LPCSTR lpszName)
 201 {
 202     return mmioOpen16((LPSTR)lpszName, NULL,
 203                       MMIO_ALLOCBUF | MMIO_READ | MMIO_DENYWRITE);
 204 }
 205
 206 static HMMIO16 get_mmioFromProfile(UINT uFlags, LPCSTR lpszName)
 207 {
 208     char        str[128];
 209     LPSTR       ptr;
 210     HMMIO16     hmmio;
 211
 212     TRACE("searching in SystemSound List !\n");
 213     GetProfileStringA("Sounds", (LPSTR)lpszName, "", str, sizeof(str));
 214     if (strlen(str) == 0) {
 215         if (uFlags & SND_NODEFAULT) return 0;
 216         GetProfileStringA("Sounds", "Default", "", str, sizeof(str));
 217         if (strlen(str) == 0) return 0;
 218     }
 219     if ((ptr = (LPSTR)strchr(str, ',')) != NULL) *ptr = '\0';
 220     hmmio = get_mmioFromFile(str);
 221     if (hmmio == 0) {
 222         WARN("can't find SystemSound='%s' !\n", str);
 223         return 0;
 224     }
 225     return hmmio;
 226 }
 227
 228 static BOOL16 WINAPI proc_PlaySound(LPCSTR lpszSoundName, UINT uFlags)
 229 {
 230     BOOL16              bRet = FALSE;
 231     HMMIO16             hmmio;
 232     MMCKINFO            ckMainRIFF;
 233
 234     TRACE("SoundName='%s' uFlags=%04X !\n", lpszSoundName, uFlags);
 235     if (lpszSoundName == NULL) {
 236         TRACE("Stop !\n");
 237         return FALSE;
 238     }
 239     if (uFlags & SND_MEMORY) {
 240         MMIOINFO16 mminfo;
 241         memset(&mminfo, 0, sizeof(mminfo));
 242         mminfo.fccIOProc = FOURCC_MEM;
 243         mminfo.pchBuffer = (LPSTR)lpszSoundName;
 244         mminfo.cchBuffer = -1;
 245         TRACE("Memory sound %p\n", lpszSoundName);
 246         hmmio = mmioOpen16(NULL, &mminfo, MMIO_READ);
 247     } else {
 248         hmmio = 0;
 249         if (uFlags & SND_ALIAS)
 250             if ((hmmio=get_mmioFromProfile(uFlags, lpszSoundName)) == 0)
 251                 return FALSE;
 252
 253         if (uFlags & SND_FILENAME)
 254             if ((hmmio=get_mmioFromFile(lpszSoundName)) == 0) return FALSE;
 255
 256         if (PlaySound_SearchMode == 1) {
 257             PlaySound_SearchMode = 0;
 258             if ((hmmio=get_mmioFromFile(lpszSoundName)) == 0)
 259                 if ((hmmio=get_mmioFromProfile(uFlags, lpszSoundName)) == 0)
 260                     return FALSE;
 261         }
 262
 263         if (PlaySound_SearchMode == 2) {
 264             PlaySound_SearchMode = 0;
 265             if ((hmmio=get_mmioFromProfile(uFlags | SND_NODEFAULT, lpszSoundName)) == 0)
 266                 if ((hmmio=get_mmioFromFile(lpszSoundName)) == 0)
 267                     if ((hmmio=get_mmioFromProfile(uFlags, lpszSoundName)) == 0) return FALSE;
 268         }
 269     }
 270
 271     if (mmioDescend(hmmio, &ckMainRIFF, NULL, 0) == 0) {
 272         DWORD   dwPos = mmioSeek(hmmio, 0, SEEK_CUR);
 273         do {
 274             TRACE("ParentChunk ckid=%.4s fccType=%.4s cksize=%08lX \n",
 275                   (LPSTR)&ckMainRIFF.ckid, (LPSTR)&ckMainRIFF.fccType,
 276                   ckMainRIFF.cksize);
 277
 278             mmioSeek(hmmio, dwPos, SEEK_SET);
 279
 280             if ((ckMainRIFF.ckid == FOURCC_RIFF) &&
 281                 (ckMainRIFF.fccType == mmioFOURCC('W', 'A', 'V', 'E'))) {
 282                 MMCKINFO        mmckInfo;
 283
 284                 mmckInfo.ckid = mmioFOURCC('f', 'm', 't', ' ');
 285
 286                 if (mmioDescend(hmmio, &mmckInfo, &ckMainRIFF, MMIO_FINDCHUNK) == 0) {
 287                     PCMWAVEFORMAT           pcmWaveFormat;
 288
 289                     TRACE("Chunk Found ckid=%.4s fccType=%.4s cksize=%08lX \n",
 290                           (LPSTR)&mmckInfo.ckid, (LPSTR)&mmckInfo.fccType, mmckInfo.cksize);
 291
 292                     if (mmioRead(hmmio, (HPSTR)&pcmWaveFormat,
 293                                  (long) sizeof(PCMWAVEFORMAT)) == (long) sizeof(PCMWAVEFORMAT)) {
 294                         TRACE("wFormatTag=%04X !\n", pcmWaveFormat.wf.wFormatTag);
 295                         TRACE("nChannels=%d \n", pcmWaveFormat.wf.nChannels);
 296                         TRACE("nSamplesPerSec=%ld\n", pcmWaveFormat.wf.nSamplesPerSec);
 297                         TRACE("nAvgBytesPerSec=%ld\n", pcmWaveFormat.wf.nAvgBytesPerSec);
 298                         TRACE("nBlockAlign=%d \n", pcmWaveFormat.wf.nBlockAlign);
 299                         TRACE("wBitsPerSample=%u !\n", pcmWaveFormat.wBitsPerSample);
 300
 301                         mmckInfo.ckid = mmioFOURCC('d', 'a', 't', 'a');
 302                         /* move to end of 'fmt ' chunk */
 303                         mmioSeek(hmmio, mmckInfo.dwDataOffset + ((mmckInfo.cksize + 1) & ~1), SEEK_SET);
 304
 305                         if (mmioDescend(hmmio, &mmckInfo, &ckMainRIFF, MMIO_FINDCHUNK) == 0) {
 306                             WAVEOPENDESC        waveDesc;
 307                             DWORD               dwRet;
 308
 309                             TRACE("Chunk Found ckid=%.4s fccType=%.4s cksize=%08lX\n",
 310                                   (LPSTR)&mmckInfo.ckid, (LPSTR)&mmckInfo.fccType, mmckInfo.cksize);
 311
 312                             pcmWaveFormat.wf.nAvgBytesPerSec = pcmWaveFormat.wf.nSamplesPerSec *
 313                                 pcmWaveFormat.wf.nBlockAlign;
 314                             waveDesc.hWave    = 0;
 315                             waveDesc.lpFormat = (LPWAVEFORMAT)&pcmWaveFormat;
 316
 317                             dwRet = wodMessage(0, WODM_OPEN, 0, (DWORD)&waveDesc, CALLBACK_NULL);
 318                             if (dwRet == MMSYSERR_NOERROR) {
 319                                 WAVEHDR         waveHdr;
 320                                 HGLOBAL16       hData;
 321                                 INT             count, bufsize, left = mmckInfo.cksize;
 322
 323                                 bufsize = 64000;
 324                                 hData = GlobalAlloc16(GMEM_MOVEABLE, bufsize);
 325                                 waveHdr.lpData = (LPSTR)GlobalLock16(hData);
 326                                 waveHdr.dwBufferLength = bufsize;
 327                                 waveHdr.dwUser = 0L;
 328                                 waveHdr.dwFlags = 0L;
 329                                 waveHdr.dwLoops = 0L;
 330
 331                                 dwRet = wodMessage(0, WODM_PREPARE, 0, (DWORD)&waveHdr, sizeof(WAVEHDR));
 332                                 if (dwRet == MMSYSERR_NOERROR) {
 333                                     while (left) {
 334                                         if (PlaySound_Stop) {
 335                                             PlaySound_Stop = FALSE;
 336                                             PlaySound_Loop = FALSE;
 337                                             break;
 338                                         }
 339                                         if (bufsize > left) bufsize = left;
 340                                         count = mmioRead(hmmio, waveHdr.lpData,bufsize);
 341                                         if (count < 1) break;
 342                                         left -= count;
 343                                         waveHdr.dwBufferLength = count;
 344                                         /* FIXME */
 345                                         waveHdr.reserved = (DWORD)&waveHdr;
 346                                         /* waveHdr.dwBytesRecorded = count; */
 347                                         /* FIXME: doesn't expect async ops */
 348                                         wodMessage(0, WODM_WRITE, 0, (DWORD)&waveHdr, sizeof(WAVEHDR));
 349                                         while (!(waveHdr.dwFlags & WHDR_DONE))
 350                                             Sleep(10);
 351                                     }
 352                                     wodMessage(0, WODM_UNPREPARE, 0, (DWORD)&waveHdr, sizeof(WAVEHDR));
 353                                     while (wodMessage(0, WODM_CLOSE, 0, 0L, 0L) == WAVERR_STILLPLAYING)
 354                                         Sleep(100);
 355
 356                                     bRet = TRUE;
 357                                 } else
 358                                     WARN("can't prepare WaveOut device !\n");
 359
 360                                 GlobalUnlock16(hData);
 361                                 GlobalFree16(hData);
 362                             }
 363                         }
 364                     }
 365                 }
 366             }
 367         } while (PlaySound_Loop);
 368     }
 369
 370     if (hmmio != 0) mmioClose(hmmio, 0);
 371     return bRet;
 372 }
 373
 374 static DWORD WINAPI PlaySound_Thread(LPVOID arg)
 375 {
 376     DWORD     res;
 377
 378     for (;;) {
 379         PlaySound_Playing = FALSE;
 380         SetEvent(PlaySound_hReadyEvent);
 381         res = WaitForSingleObject(PlaySound_hPlayEvent, INFINITE);
 382         ResetEvent(PlaySound_hReadyEvent);
 383         SetEvent(PlaySound_hMiddleEvent);
 384         if (res == WAIT_FAILED) ExitThread(2);
 385         if (res != WAIT_OBJECT_0) continue;
 386         PlaySound_Playing = TRUE;
 387
 388         if ((PlaySound_fdwSound & SND_RESOURCE) == SND_RESOURCE) {
 389             HRSRC       hRES;
 390             HGLOBAL     hGLOB;
 391             void*       ptr;
 392
 393             if ((hRES = FindResourceA(PlaySound_hmod, PlaySound_pszSound, "WAVE")) == 0) {
 394                 PlaySound_Result = FALSE;
 395                 continue;
 396             }
 397             if ((hGLOB = LoadResource(PlaySound_hmod, hRES)) == 0) {
 398                 PlaySound_Result = FALSE;
 399                 continue;
 400             }
 401             if ((ptr = LockResource(hGLOB)) == NULL) {
 402                 FreeResource(hGLOB);
 403                 PlaySound_Result = FALSE;
 404                 continue;
 405             }
 406             PlaySound_Result = proc_PlaySound(ptr,
 407                                               ((UINT16)PlaySound_fdwSound ^ SND_RESOURCE) | SND_MEMORY);
 408             FreeResource(hGLOB);
 409             continue;
 410         }
 411         PlaySound_Result = proc_PlaySound(PlaySound_pszSound, (UINT16)PlaySound_fdwSound);
 412     }
 413 }
 414
 415 /**************************************************************************
 416  *                              PlaySoundA              [WINMM.1]
 417  */
 418 BOOL WINAPI PlaySoundA(LPCSTR pszSound, HMODULE hmod, DWORD fdwSound)
 419 {
 420     static LPSTR StrDup = NULL;
 421
 422     TRACE("pszSound='%p' hmod=%04X fdwSound=%08lX\n",
 423           pszSound, hmod, fdwSound);
 424
 425     if (PlaySound_hThread == 0) { /* This is the first time they called us */
 426         DWORD   id;
 427         if ((PlaySound_hReadyEvent = CreateEventA(NULL, TRUE, FALSE, NULL)) == 0)
 428             return FALSE;
 429         if ((PlaySound_hMiddleEvent = CreateEventA(NULL, FALSE, FALSE, NULL)) == 0)
 430             return FALSE;
 431         if ((PlaySound_hPlayEvent = CreateEventA(NULL, FALSE, FALSE, NULL)) == 0)
 432             return FALSE;
 433         if ((PlaySound_hThread = CreateThread(NULL, 0, PlaySound_Thread, 0, 0, &id)) == 0)
 434             return FALSE;
 435     }
 436
 437     /* FIXME? I see no difference between SND_WAIT and SND_NOSTOP ! */
 438     if ((fdwSound & (SND_NOWAIT | SND_NOSTOP)) && PlaySound_Playing)
 439         return FALSE;
 440
 441     /* Trying to stop if playing */
 442     if (PlaySound_Playing) PlaySound_Stop = TRUE;
 443
 444     /* Waiting playing thread to get ready. I think 10 secs is ok & if not then leave*/
 445     if (WaitForSingleObject(PlaySound_hReadyEvent, 1000*10) != WAIT_OBJECT_0)
 446         return FALSE;
 447
 448     if (!pszSound || (fdwSound & SND_PURGE))
 449         return FALSE; /* We stoped playing so leaving */
 450
 451     if (PlaySound_SearchMode != 1) PlaySound_SearchMode = 2;
 452     if (!(fdwSound & SND_ASYNC)) {
 453         if (fdwSound & SND_LOOP)
 454             return FALSE;
 455         PlaySound_pszSound = pszSound;
 456         PlaySound_hmod = hmod;
 457         PlaySound_fdwSound = fdwSound;
 458         PlaySound_Result = FALSE;
 459         SetEvent(PlaySound_hPlayEvent);
 460         if (WaitForSingleObject(PlaySound_hMiddleEvent, INFINITE) != WAIT_OBJECT_0)
 461             return FALSE;
 462         if (WaitForSingleObject(PlaySound_hReadyEvent, INFINITE) != WAIT_OBJECT_0)
 463             return FALSE;
 464         return PlaySound_Result;
 465     } else {
 466         PlaySound_hmod = hmod;
 467         PlaySound_fdwSound = fdwSound;
 468         PlaySound_Result = FALSE;
 469         if (StrDup) {
 470             HeapFree(GetProcessHeap(), 0, StrDup);
 471             StrDup = NULL;
 472         }
 473         if (!((fdwSound & SND_MEMORY) || ((fdwSound & SND_RESOURCE) &&
 474                                           !((DWORD)pszSound >> 16)) || !pszSound)) {
 475             StrDup = HEAP_strdupA(GetProcessHeap(), 0,pszSound);
 476             PlaySound_pszSound = StrDup;
 477         } else PlaySound_pszSound = pszSound;
 478         PlaySound_Loop = fdwSound & SND_LOOP;
 479         SetEvent(PlaySound_hPlayEvent);
 480         ResetEvent(PlaySound_hMiddleEvent);
 481         return TRUE;
 482     }
 483     return FALSE;
 484 }
 485
 486 /**************************************************************************
 487  *                              PlaySoundW              [WINMM.18]
 488  */
 489 BOOL WINAPI PlaySoundW(LPCWSTR pszSound, HMODULE hmod, DWORD fdwSound)
 490 {
 491     LPSTR       pszSoundA;
 492     BOOL        bSound;
 493
 494     if (!((fdwSound & SND_MEMORY) || ((fdwSound & SND_RESOURCE) &&
 495                                       !((DWORD)pszSound >> 16)) || !pszSound)) {
 496         pszSoundA = HEAP_strdupWtoA(GetProcessHeap(), 0,pszSound);
 497         bSound = PlaySoundA(pszSoundA, hmod, fdwSound);
 498         HeapFree(GetProcessHeap(), 0,pszSoundA);
 499     } else
 500         bSound = PlaySoundA((LPCSTR)pszSound, hmod, fdwSound);
 501
 502     return bSound;
 503 }
 504
 505 /**************************************************************************
 506  *                              PlaySound16             [MMSYSTEM.3]
 507  */
 508 BOOL16 WINAPI PlaySound16(LPCSTR pszSound, HMODULE16 hmod, DWORD fdwSound)
 509 {
 510     BOOL16 retv;
 511
 512     SYSLEVEL_ReleaseWin16Lock();
 513     retv = PlaySoundA( pszSound, hmod, fdwSound );
 514     SYSLEVEL_RestoreWin16Lock();
 515
 516     return retv;
 517 }
 518
 519 /**************************************************************************
 520  *                              sndPlaySoundA           [WINMM135]
 521  */
 522 BOOL WINAPI sndPlaySoundA(LPCSTR lpszSoundName, UINT uFlags)
 523 {
 524     PlaySound_SearchMode = 1;
 525     return PlaySoundA(lpszSoundName, 0, uFlags);
 526 }
 527
 528 /**************************************************************************
 529  *                              sndPlaySoundW           [WINMM.136]
 530  */
 531 BOOL WINAPI sndPlaySoundW(LPCWSTR lpszSoundName, UINT uFlags)
 532 {
 533     PlaySound_SearchMode = 1;
 534     return PlaySoundW(lpszSoundName, 0, uFlags);
 535 }
 536
 537 /**************************************************************************
 538  *                              sndPlaySound16          [MMSYSTEM.2]
 539  */
 540 BOOL16 WINAPI sndPlaySound16(LPCSTR lpszSoundName, UINT16 uFlags)
 541 {
 542     BOOL16 retv;
 543
 544     SYSLEVEL_ReleaseWin16Lock();
 545     retv = sndPlaySoundA( lpszSoundName, uFlags );
 546     SYSLEVEL_RestoreWin16Lock();
 547
 548     return retv;
 549 }
 550
 551
 552 /**************************************************************************
 553  *                              mmsystemGetVersion      [WINMM.134]
 554  */
 555 UINT WINAPI mmsystemGetVersion(void)
 556 {
 557     return mmsystemGetVersion16();
 558 }
 559
 560 /**************************************************************************
 561  *                              mmsystemGetVersion      [MMSYSTEM.5]
 562  * return value borrowed from Win95 winmm.dll ;)
 563  */
 564 UINT16 WINAPI mmsystemGetVersion16(void)
 565 {
 566     TRACE("3.10 (Win95?)\n");
 567     return 0x030a;
 568 }
 569
 570 /**************************************************************************
 571  *                              DriverProc                      [MMSYSTEM.6]
 572  */
 573 LRESULT WINAPI DriverProc16(DWORD dwDevID, HDRVR16 hDrv, WORD wMsg,
 574                             DWORD dwParam1, DWORD dwParam2)
 575 {
 576     return DrvDefDriverProc(dwDevID, hDrv, wMsg, dwParam1, dwParam2);
 577 }
 578
 579 /**************************************************************************
 580  *                              DriverCallback                  [MMSYSTEM.31]
 581  */
 582 BOOL16 WINAPI DriverCallback16(DWORD dwCallBack, UINT16 uFlags, HANDLE16 hDev,
 583                                WORD wMsg, DWORD dwUser, DWORD dwParam1, DWORD dwParam2)
 584 {
 585     TRACE("(%08lX, %04X, %04X, %04X, %08lX, %08lX, %08lX); !\n",
 586           dwCallBack, uFlags, hDev, wMsg, dwUser, dwParam1, dwParam2);
 587
 588     switch (uFlags & DCB_TYPEMASK) {
 589     case DCB_NULL:
 590         TRACE("Null !\n");
 591         break;
 592     case DCB_WINDOW:
 593         TRACE("Window(%04lX) handle=%04X!\n", dwCallBack, hDev);
 594         if (!IsWindow(dwCallBack) || USER_HEAP_LIN_ADDR(hDev) == NULL)
 595             return FALSE;
 596         Callout.PostMessageA((HWND16)dwCallBack, wMsg, hDev, dwParam1);
 597         break;
 598     case DCB_TASK: /* aka DCB_THREAD */
 599         TRACE("Task(%04lx) !\n", dwCallBack);
 600         Callout.PostThreadMessageA(dwCallBack, wMsg, hDev, dwParam1);
 601         break;
 602     case DCB_FUNCTION:
 603         TRACE("Function (16bit) !\n");
 604         Callbacks->CallDriverCallback((FARPROC16)dwCallBack, hDev, wMsg, dwUser,
 605                                        dwParam1, dwParam2);
 606         break;
 607     case DCB_FUNC32: /* This is a Wine only value - AKAIF not used yet by MS */
 608         TRACE("Function (32bit) !\n");
 609         ((LPDRVCALLBACK)dwCallBack)(hDev, wMsg, dwUser, dwParam1, dwParam2);
 610         break;
 611     case DCB_EVENT:
 612         TRACE("Event(%08lx) !\n", dwCallBack);
 613         SetEvent((HANDLE)dwCallBack);
 614         break;
 615     case 6: /* I would dub it DCB_MMTHREADSIGNAL */
 616         /* this is an undocumented DCB_ value used for mmThreads
 617          * loword of dwCallBack contains the handle of the lpMMThd block
 618          * which dwSignalCount has to be incremented
 619          */
 620         {
 621             WINE_MMTHREAD*      lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(LOWORD(dwCallBack), 0);
 622
 623             TRACE("mmThread (%04x, %p) !\n", LOWORD(dwCallBack), lpMMThd);
 624             /* same as mmThreadSignal16 */
 625             InterlockedIncrement(&lpMMThd->dwSignalCount);
 626             SetEvent(lpMMThd->hEvent);
 627             /* some other stuff on lpMMThd->hVxD */
 628         }
 629         break;
 630 #if 0
 631     case 4:
 632         /* this is an undocumented DCB_ value for... I don't know */
 633         break;
 634 #endif
 635     default:
 636         WARN("Unknown callback type %d\n", uFlags & DCB_TYPEMASK);
 637         return FALSE;
 638     }
 639     TRACE("Done\n");
 640     return TRUE;
 641 }
 642
 643 /**************************************************************************
 644  *      Mixer devices. New to Win95
 645  */
 646
 647 /**************************************************************************
 648  * find out the real mixer ID depending on hmix (depends on dwFlags)
 649  * FIXME: also fix dwInstance passing to mixMessage
 650  */
 651 static UINT MIXER_GetDevID(HMIXEROBJ hmix, DWORD dwFlags)
 652 {
 653     /* FIXME: Check dwFlags for MIXER_OBJSECTF_xxxx entries and modify hmix
 654      * accordingly. For now we always use mixerdevice 0.
 655      */
 656     return 0;
 657 }
 658
 659 /**************************************************************************
 660  *                              mixerGetNumDevs                 [WINMM.108]
 661  */
 662 UINT WINAPI mixerGetNumDevs(void)
 663 {
 664     UINT16      count = mixMessage(0, MXDM_GETNUMDEVS, 0L, 0L, 0L);
 665
 666     TRACE("mixerGetNumDevs returns %d\n", count);
 667     return count;
 668 }
 669
 670 /**************************************************************************
 671  *                              mixerGetNumDevs                 [MMSYSTEM.800]
 672  */
 673 UINT16 WINAPI mixerGetNumDevs16(void)
 674 {
 675     return mixerGetNumDevs();
 676 }
 677
 678 /**************************************************************************
 679  *                              mixerGetDevCapsA                [WINMM.101]
 680  */
 681 UINT WINAPI mixerGetDevCapsA(UINT devid, LPMIXERCAPSA mixcaps, UINT size)
 682 {
 683     return mixMessage(devid, MXDM_GETDEVCAPS, 0L, (DWORD)mixcaps, (DWORD)size);
 684 }
 685
 686 /**************************************************************************
 687  *                              mixerGetDevCapsW                [WINMM.102]
 688  */
 689 UINT WINAPI mixerGetDevCapsW(UINT devid, LPMIXERCAPSW mixcaps, UINT size)
 690 {
 691     MIXERCAPSA  micA;
 692     UINT        ret = mixerGetDevCapsA(devid, &micA, sizeof(micA));
 693
 694     if (ret == MMSYSERR_NOERROR) {
 695         mixcaps->wMid           = micA.wMid;
 696         mixcaps->wPid           = micA.wPid;
 697         mixcaps->vDriverVersion = micA.vDriverVersion;
 698         lstrcpyAtoW(mixcaps->szPname, micA.szPname);
 699         mixcaps->fdwSupport     = micA.fdwSupport;
 700         mixcaps->cDestinations  = micA.cDestinations;
 701     }
 702     return ret;
 703 }
 704
 705 /**************************************************************************
 706  *                              mixerGetDevCaps                 [MMSYSTEM.801]
 707  */
 708 UINT16 WINAPI mixerGetDevCaps16(UINT16 devid, LPMIXERCAPS16 mixcaps, UINT16 size)
 709 {
 710     MIXERCAPSA  micA;
 711     UINT        ret = mixerGetDevCapsA(devid, &micA, sizeof(micA));
 712
 713     if (ret == MMSYSERR_NOERROR) {
 714         mixcaps->wMid           = micA.wMid;
 715         mixcaps->wPid           = micA.wPid;
 716         mixcaps->vDriverVersion = micA.vDriverVersion;
 717         strcpy(mixcaps->szPname, micA.szPname);
 718         mixcaps->fdwSupport     = micA.fdwSupport;
 719         mixcaps->cDestinations  = micA.cDestinations;
 720     }
 721     return ret;
 722 }
 723
 724 /**************************************************************************
 725  *                              mixerOpen                       [WINMM.110]
 726  */
 727 UINT WINAPI mixerOpen(LPHMIXER lphmix, UINT uDeviceID, DWORD dwCallback,
 728                       DWORD dwInstance, DWORD fdwOpen)
 729 {
 730     HMIXER16    hmix16;
 731     UINT        ret;
 732
 733     TRACE("(%p, %d, %08lx, %08lx, %08lx)\n",
 734           lphmix, uDeviceID, dwCallback, dwInstance, fdwOpen);
 735     ret = mixerOpen16(&hmix16, uDeviceID, dwCallback, dwInstance,fdwOpen);
 736     if (lphmix) *lphmix = hmix16;
 737     return ret;
 738 }
 739
 740 /**************************************************************************
 741  *                              mixerOpen                       [MMSYSTEM.803]
 742  */
 743 UINT16 WINAPI mixerOpen16(LPHMIXER16 lphmix, UINT16 uDeviceID, DWORD dwCallback,
 744                           DWORD dwInstance, DWORD fdwOpen)
 745 {
 746     HMIXER16            hmix;
 747     LPMIXEROPENDESC     lpmod;
 748     BOOL                mapperflag = (uDeviceID == 0);
 749     DWORD               dwRet = 0;
 750
 751     TRACE("(%p, %d, %08lx, %08lx, %08lx)\n",
 752           lphmix, uDeviceID, dwCallback, dwInstance, fdwOpen);
 753     hmix = USER_HEAP_ALLOC(sizeof(MIXEROPENDESC));
 754     if (lphmix) *lphmix = hmix;
 755     lpmod = (LPMIXEROPENDESC)USER_HEAP_LIN_ADDR(hmix);
 756     lpmod->hmx = hmix;
 757     lpmod->dwCallback = dwCallback;
 758     lpmod->dwInstance = dwInstance;
 759     if (uDeviceID >= MAXMIXERDRIVERS)
 760         uDeviceID = 0;
 761     while (uDeviceID < MAXMIXERDRIVERS) {
 762         dwRet = mixMessage(uDeviceID, MXDM_OPEN, dwInstance, (DWORD)lpmod, fdwOpen);
 763         if (dwRet == MMSYSERR_NOERROR) break;
 764         if (!mapperflag) break;
 765         uDeviceID++;
 766     }
 767     lpmod->uDeviceID = uDeviceID;
 768
 769     if (dwRet != MMSYSERR_NOERROR) {
 770         USER_HEAP_FREE(hmix);
 771         if (lphmix) *lphmix = 0;
 772     }
 773
 774     return dwRet;
 775 }
 776
 777 /**************************************************************************
 778  *                              mixerClose                      [WINMM.98]
 779  */
 780 UINT WINAPI mixerClose(HMIXER hmix)
 781 {
 782     LPMIXEROPENDESC     lpmod;
 783     DWORD               dwRet;
 784
 785     TRACE("(%04x)\n", hmix);
 786
 787     lpmod = (LPMIXEROPENDESC)USER_HEAP_LIN_ADDR(hmix);
 788     if (lpmod == NULL) return MMSYSERR_INVALHANDLE;
 789     dwRet = mixMessage(lpmod->uDeviceID, MXDM_CLOSE, lpmod->dwInstance, 0L, 0L);
 790     USER_HEAP_FREE(hmix);
 791     return dwRet;
 792 }
 793
 794 /**************************************************************************
 795  *                              mixerClose                      [MMSYSTEM.803]
 796  */
 797 UINT16 WINAPI mixerClose16(HMIXER16 hmix)
 798 {
 799     return mixerClose(hmix);
 800 }
 801
 802 /**************************************************************************
 803  *                              mixerGetID                      [WINMM.103]
 804  */
 805 UINT WINAPI mixerGetID(HMIXEROBJ hmix, LPUINT lpid, DWORD fdwID)
 806 {
 807     FIXME("(%04x %p %08lx): semi-stub\n", hmix, lpid, fdwID);
 808
 809     if (lpid)
 810       *lpid = MIXER_GetDevID(hmix, fdwID);
 811
 812     return MMSYSERR_NOERROR; /* FIXME: many error possibilities */
 813 }
 814
 815 /**************************************************************************
 816  *                              mixerGetID
 817  */
 818 UINT16 WINAPI mixerGetID16(HMIXEROBJ16 hmix, LPUINT16 lpid, DWORD fdwID)
 819 {
 820     UINT        xid;
 821     UINT        ret = mixerGetID(hmix, &xid, fdwID);
 822
 823     if (lpid)
 824         *lpid = xid;
 825     return ret;
 826 }
 827
 828 /**************************************************************************
 829  *                              mixerGetControlDetailsA [WINMM.99]
 830  */
 831 UINT WINAPI mixerGetControlDetailsA(HMIXEROBJ hmix, LPMIXERCONTROLDETAILS lpmcdA, DWORD fdwDetails)
 832 {
 833     UINT        uDevID;
 834
 835     TRACE("(%04x, %p, %08lx)\n", hmix, lpmcdA, fdwDetails);
 836
 837     if (lpmcdA == NULL || lpmcdA->cbStruct != sizeof(*lpmcdA))
 838         return MMSYSERR_INVALPARAM;
 839
 840     uDevID = MIXER_GetDevID(hmix, fdwDetails);
 841
 842     return mixMessage(uDevID, MXDM_GETCONTROLDETAILS, 0, (DWORD)lpmcdA, fdwDetails);
 843 }
 844
 845 /**************************************************************************
 846  *                              mixerGetControlDetailsW [WINMM.100]
 847  */
 848 UINT WINAPI mixerGetControlDetailsW(HMIXEROBJ hmix, LPMIXERCONTROLDETAILS lpmcd, DWORD fdwDetails)
 849 {
 850     DWORD                       ret = MMSYSERR_NOTENABLED;
 851
 852     TRACE("(%04x, %p, %08lx)\n", hmix, lpmcd, fdwDetails);
 853
 854     if (lpmcd == NULL || lpmcd->cbStruct != sizeof(*lpmcd))
 855         return MMSYSERR_INVALPARAM;
 856
 857     switch (fdwDetails & MIXER_GETCONTROLDETAILSF_QUERYMASK) {
 858     case MIXER_GETCONTROLDETAILSF_VALUE:
 859         /* can savely use W structure as it is, no string inside */
 860         ret = mixerGetControlDetailsA(hmix, lpmcd, fdwDetails);
 861         break;
 862     case MIXER_GETCONTROLDETAILSF_LISTTEXT:
 863         {
 864             LPVOID      paDetailsW = lpmcd->paDetails;
 865             int         size = MAX(1, lpmcd->cChannels) * sizeof(MIXERCONTROLDETAILS_LISTTEXTA);
 866
 867             if (lpmcd->u.cMultipleItems != 0 && lpmcd->u.cMultipleItems != lpmcd->u.hwndOwner) {
 868                 size *= lpmcd->u.cMultipleItems;
 869             }
 870             lpmcd->paDetails = HeapAlloc(GetProcessHeap(), 0, size);
 871             /* set up lpmcd->paDetails */
 872             ret = mixerGetControlDetailsA(hmix, lpmcd, fdwDetails);
 873             /* copy from lpmcd->paDetails back to paDetailsW; */
 874             HeapFree(GetProcessHeap(), 0, lpmcd->paDetails);
 875             lpmcd->paDetails = paDetailsW;
 876         }
 877         break;
 878     default:
 879         ERR("Unsupported fdwDetails=0x%08lx\n", fdwDetails);
 880     }
 881
 882     return ret;
 883 }
 884
 885 /**************************************************************************
 886  *                              mixerGetControlDetails  [MMSYSTEM.808]
 887  */
 888 UINT16 WINAPI mixerGetControlDetails16(HMIXEROBJ16 hmix, LPMIXERCONTROLDETAILS16 lpmcd, DWORD fdwDetails)
 889 {
 890     DWORD       ret = MMSYSERR_NOTENABLED;
 891     SEGPTR      sppaDetails;
 892
 893     TRACE("(%04x, %p, %08lx)\n", hmix, lpmcd, fdwDetails);
 894
 895     if (lpmcd == NULL || lpmcd->cbStruct != sizeof(*lpmcd))
 896         return MMSYSERR_INVALPARAM;
 897
 898     sppaDetails = (SEGPTR)lpmcd->paDetails;
 899     lpmcd->paDetails = PTR_SEG_TO_LIN(sppaDetails);
 900     ret = mixerGetControlDetailsA(hmix, (LPMIXERCONTROLDETAILS)lpmcd, fdwDetails);
 901     lpmcd->paDetails = (LPVOID)sppaDetails;
 902
 903     return ret;
 904 }
 905
 906 /**************************************************************************
 907  *                              mixerGetLineControlsA   [WINMM.104]
 908  */
 909 UINT WINAPI mixerGetLineControlsA(HMIXEROBJ hmix, LPMIXERLINECONTROLSA lpmlcA, DWORD fdwControls)
 910 {
 911     UINT        uDevID;
 912
 913     TRACE("(%04x, %p, %08lx)\n", hmix, lpmlcA, fdwControls);
 914
 915     if (lpmlcA == NULL || lpmlcA->cbStruct != sizeof(*lpmlcA))
 916         return MMSYSERR_INVALPARAM;
 917
 918     uDevID = MIXER_GetDevID(hmix, 0);
 919
 920     return mixMessage(uDevID, MXDM_GETLINECONTROLS, 0, (DWORD)lpmlcA, fdwControls);
 921 }
 922
 923 /**************************************************************************
 924  *                              mixerGetLineControlsW           [WINMM.105]
 925  */
 926 UINT WINAPI mixerGetLineControlsW(HMIXEROBJ hmix, LPMIXERLINECONTROLSW lpmlcW, DWORD fdwControls)
 927 {
 928     MIXERLINECONTROLSA  mlcA;
 929     DWORD               ret;
 930     int                 i;
 931
 932     TRACE("(%04x, %p, %08lx)\n", hmix, lpmlcW, fdwControls);
 933
 934     if (lpmlcW == NULL || lpmlcW->cbStruct != sizeof(*lpmlcW) || lpmlcW->cbmxctrl != sizeof(MIXERCONTROLW))
 935         return MMSYSERR_INVALPARAM;
 936
 937     mlcA.cbStruct = sizeof(mlcA);
 938     mlcA.dwLineID = lpmlcW->dwLineID;
 939     mlcA.u.dwControlID = lpmlcW->u.dwControlID;
 940     mlcA.u.dwControlType = lpmlcW->u.dwControlType;
 941     mlcA.cControls = lpmlcW->cControls;
 942     mlcA.cbmxctrl = sizeof(MIXERCONTROLA);
 943     mlcA.pamxctrl = HeapAlloc(GetProcessHeap(), 0, mlcA.cControls * mlcA.cbmxctrl);
 944
 945     ret = mixerGetLineControlsA(hmix, &mlcA, fdwControls);
 946
 947     if (ret == MMSYSERR_NOERROR) {
 948         lpmlcW->dwLineID = mlcA.dwLineID;
 949         lpmlcW->u.dwControlID = mlcA.u.dwControlID;
 950         lpmlcW->u.dwControlType = mlcA.u.dwControlType;
 951         lpmlcW->cControls = mlcA.cControls;
 952
 953         for (i = 0; i < mlcA.cControls; i++) {
 954             lpmlcW->pamxctrl[i].cbStruct = sizeof(MIXERCONTROLW);
 955             lpmlcW->pamxctrl[i].dwControlID = mlcA.pamxctrl[i].dwControlID;
 956             lpmlcW->pamxctrl[i].dwControlType = mlcA.pamxctrl[i].dwControlType;
 957             lpmlcW->pamxctrl[i].fdwControl = mlcA.pamxctrl[i].fdwControl;
 958             lpmlcW->pamxctrl[i].cMultipleItems = mlcA.pamxctrl[i].cMultipleItems;
 959             lstrcpyAtoW(lpmlcW->pamxctrl[i].szShortName, mlcA.pamxctrl[i].szShortName);
 960             lstrcpyAtoW(lpmlcW->pamxctrl[i].szName, mlcA.pamxctrl[i].szName);
 961             /* sizeof(lpmlcW->pamxctrl[i].Bounds) == sizeof(mlcA.pamxctrl[i].Bounds) */
 962             memcpy(&lpmlcW->pamxctrl[i].Bounds, &mlcA.pamxctrl[i].Bounds, sizeof(mlcA.pamxctrl[i].Bounds));
 963             /* sizeof(lpmlcW->pamxctrl[i].Metrics) == sizeof(mlcA.pamxctrl[i].Metrics) */
 964             memcpy(&lpmlcW->pamxctrl[i].Metrics, &mlcA.pamxctrl[i].Metrics, sizeof(mlcA.pamxctrl[i].Metrics));
 965         }
 966     }
 967
 968     HeapFree(GetProcessHeap(), 0, mlcA.pamxctrl);
 969
 970     return ret;
 971 }
 972
 973 /**************************************************************************
 974  *                              mixerGetLineControls            [MMSYSTEM.807]
 975  */
 976 UINT16 WINAPI mixerGetLineControls16(HMIXEROBJ16 hmix, LPMIXERLINECONTROLS16 lpmlc16, DWORD fdwControls)
 977 {
 978     MIXERLINECONTROLSA  mlcA;
 979     DWORD               ret;
 980     int                 i;
 981     LPMIXERCONTROL16    lpmc16;
 982
 983     TRACE("(%04x, %p, %08lx)\n", hmix, lpmlc16, fdwControls);
 984
 985     if (lpmlc16 == NULL || lpmlc16->cbStruct != sizeof(*lpmlc16) || lpmlc16->cbmxctrl != sizeof(MIXERCONTROL16))
 986         return MMSYSERR_INVALPARAM;
 987
 988     mlcA.cbStruct = sizeof(mlcA);
 989     mlcA.dwLineID = lpmlc16->dwLineID;
 990     mlcA.u.dwControlID = lpmlc16->u.dwControlID;
 991     mlcA.u.dwControlType = lpmlc16->u.dwControlType;
 992     mlcA.cControls = lpmlc16->cControls;
 993     mlcA.cbmxctrl = sizeof(MIXERCONTROLA);
 994     mlcA.pamxctrl = HeapAlloc(GetProcessHeap(), 0, mlcA.cControls * mlcA.cbmxctrl);
 995
 996     ret = mixerGetLineControlsA(hmix, &mlcA, fdwControls);
 997
 998     if (ret == MMSYSERR_NOERROR) {
 999         lpmlc16->dwLineID = mlcA.dwLineID;
1000         lpmlc16->u.dwControlID = mlcA.u.dwControlID;
1001         lpmlc16->u.dwControlType = mlcA.u.dwControlType;
1002         lpmlc16->cControls = mlcA.cControls;
1003
1004         lpmc16 = PTR_SEG_TO_LIN(lpmlc16->pamxctrl);
1005
1006         for (i = 0; i < mlcA.cControls; i++) {
1007             lpmc16[i].cbStruct = sizeof(MIXERCONTROL16);
1008             lpmc16[i].dwControlID = mlcA.pamxctrl[i].dwControlID;
1009             lpmc16[i].dwControlType = mlcA.pamxctrl[i].dwControlType;
1010             lpmc16[i].fdwControl = mlcA.pamxctrl[i].fdwControl;
1011             lpmc16[i].cMultipleItems = mlcA.pamxctrl[i].cMultipleItems;
1012             strcpy(lpmc16[i].szShortName, mlcA.pamxctrl[i].szShortName);
1013             strcpy(lpmc16[i].szName, mlcA.pamxctrl[i].szName);
1014             /* sizeof(lpmc16[i].Bounds) == sizeof(mlcA.pamxctrl[i].Bounds) */
1015             memcpy(&lpmc16[i].Bounds, &mlcA.pamxctrl[i].Bounds, sizeof(mlcA.pamxctrl[i].Bounds));
1016             /* sizeof(lpmc16[i].Metrics) == sizeof(mlcA.pamxctrl[i].Metrics) */
1017             memcpy(&lpmc16[i].Metrics, &mlcA.pamxctrl[i].Metrics, sizeof(mlcA.pamxctrl[i].Metrics));
1018         }
1019     }
1020
1021     HeapFree(GetProcessHeap(), 0, mlcA.pamxctrl);
1022
1023     return ret;
1024 }
1025
1026 /**************************************************************************
1027  *                              mixerGetLineInfoA               [WINMM.106]
1028  */
1029 UINT WINAPI mixerGetLineInfoA(HMIXEROBJ hmix, LPMIXERLINEA lpmliW, DWORD fdwInfo)
1030 {
1031     UINT16 devid;
1032
1033     TRACE("(%04x, %p, %08lx)\n", hmix, lpmliW, fdwInfo);
1034
1035     /* FIXME: I'm not sure of the flags */
1036     devid = MIXER_GetDevID(hmix, fdwInfo);
1037     return mixMessage(devid, MXDM_GETLINEINFO, 0, (DWORD)lpmliW, fdwInfo);
1038 }
1039
1040 /**************************************************************************
1041  *                              mixerGetLineInfoW               [WINMM.107]
1042  */
1043 UINT WINAPI mixerGetLineInfoW(HMIXEROBJ hmix, LPMIXERLINEW lpmliW, DWORD fdwInfo)
1044 {
1045     MIXERLINEA          mliA;
1046     UINT                ret;
1047
1048     TRACE("(%04x, %p, %08lx)\n", hmix, lpmliW, fdwInfo);
1049
1050     if (lpmliW == NULL || lpmliW->cbStruct != sizeof(*lpmliW))
1051         return MMSYSERR_INVALPARAM;
1052
1053     mliA.cbStruct = sizeof(mliA);
1054     switch (fdwInfo & MIXER_GETLINEINFOF_QUERYMASK) {
1055     case MIXER_GETLINEINFOF_COMPONENTTYPE:
1056         mliA.dwComponentType = lpmliW->dwComponentType;
1057         break;
1058     case MIXER_GETLINEINFOF_DESTINATION:
1059         mliA.dwDestination = lpmliW->dwDestination;
1060         break;
1061     case MIXER_GETLINEINFOF_LINEID:
1062         mliA.dwLineID = lpmliW->dwLineID;
1063         break;
1064     case MIXER_GETLINEINFOF_SOURCE:
1065         mliA.dwDestination = lpmliW->dwDestination;
1066         mliA.dwSource = lpmliW->dwSource;
1067         break;
1068     case MIXER_GETLINEINFOF_TARGETTYPE:
1069         mliA.Target.dwType = lpmliW->Target.dwType;
1070         mliA.Target.wMid = lpmliW->Target.wMid;
1071         mliA.Target.wPid = lpmliW->Target.wPid;
1072         mliA.Target.vDriverVersion = lpmliW->Target.vDriverVersion;
1073         lstrcpyWtoA(mliA.Target.szPname, lpmliW->Target.szPname);
1074         break;
1075     default:
1076         FIXME("Unsupported fdwControls=0x%08lx\n", fdwInfo);
1077     }
1078
1079     ret = mixerGetLineInfoA(hmix, &mliA, fdwInfo);
1080
1081     lpmliW->dwDestination = mliA.dwDestination;
1082     lpmliW->dwSource = mliA.dwSource;
1083     lpmliW->dwLineID = mliA.dwLineID;
1084     lpmliW->fdwLine = mliA.fdwLine;
1085     lpmliW->dwUser = mliA.dwUser;
1086     lpmliW->dwComponentType = mliA.dwComponentType;
1087     lpmliW->cChannels = mliA.cChannels;
1088     lpmliW->cConnections = mliA.cConnections;
1089     lpmliW->cControls = mliA.cControls;
1090     lstrcpyAtoW(lpmliW->szShortName, mliA.szShortName);
1091     lstrcpyAtoW(lpmliW->szName, mliA.szName);
1092     lpmliW->Target.dwType = mliA.Target.dwType;
1093     lpmliW->Target.dwDeviceID = mliA.Target.dwDeviceID;
1094     lpmliW->Target.wMid = mliA.Target.wMid;
1095     lpmliW->Target.wPid = mliA.Target.wPid;
1096     lpmliW->Target.vDriverVersion = mliA.Target.vDriverVersion;
1097     lstrcpyAtoW(lpmliW->Target.szPname, mliA.Target.szPname);
1098
1099     return ret;
1100 }
1101
1102 /**************************************************************************
1103  *                              mixerGetLineInfo        [MMSYSTEM.805]
1104  */
1105 UINT16 WINAPI mixerGetLineInfo16(HMIXEROBJ16 hmix, LPMIXERLINE16 lpmli16, DWORD fdwInfo)
1106 {
1107     MIXERLINEA          mliA;
1108     UINT                ret;
1109
1110     TRACE("(%04x, %p, %08lx)\n", hmix, lpmli16, fdwInfo);
1111
1112     if (lpmli16 == NULL || lpmli16->cbStruct != sizeof(*lpmli16))
1113         return MMSYSERR_INVALPARAM;
1114
1115     mliA.cbStruct = sizeof(mliA);
1116     switch (fdwInfo & MIXER_GETLINEINFOF_QUERYMASK) {
1117     case MIXER_GETLINEINFOF_COMPONENTTYPE:
1118         mliA.dwComponentType = lpmli16->dwComponentType;
1119         break;
1120     case MIXER_GETLINEINFOF_DESTINATION:
1121         mliA.dwDestination = lpmli16->dwDestination;
1122         break;
1123     case MIXER_GETLINEINFOF_LINEID:
1124         mliA.dwLineID = lpmli16->dwLineID;
1125         break;
1126     case MIXER_GETLINEINFOF_SOURCE:
1127         mliA.dwDestination = lpmli16->dwDestination;
1128         mliA.dwSource = lpmli16->dwSource;
1129         break;
1130     case MIXER_GETLINEINFOF_TARGETTYPE:
1131         mliA.Target.dwType = lpmli16->Target.dwType;
1132         mliA.Target.wMid = lpmli16->Target.wMid;
1133         mliA.Target.wPid = lpmli16->Target.wPid;
1134         mliA.Target.vDriverVersion = lpmli16->Target.vDriverVersion;
1135         strcpy(mliA.Target.szPname, lpmli16->Target.szPname);
1136         break;
1137     default:
1138         FIXME("Unsupported fdwControls=0x%08lx\n", fdwInfo);
1139     }
1140
1141     ret = mixerGetLineInfoA(hmix, &mliA, fdwInfo);
1142
1143     lpmli16->dwDestination      = mliA.dwDestination;
1144     lpmli16->dwSource           = mliA.dwSource;
1145     lpmli16->dwLineID           = mliA.dwLineID;
1146     lpmli16->fdwLine            = mliA.fdwLine;
1147     lpmli16->dwUser             = mliA.dwUser;
1148     lpmli16->dwComponentType    = mliA.dwComponentType;
1149     lpmli16->cChannels          = mliA.cChannels;
1150     lpmli16->cConnections       = mliA.cConnections;
1151     lpmli16->cControls          = mliA.cControls;
1152     strcpy(lpmli16->szShortName, mliA.szShortName);
1153     strcpy(lpmli16->szName, mliA.szName);
1154     lpmli16->Target.dwType      = mliA.Target.dwType;
1155     lpmli16->Target.dwDeviceID  = mliA.Target.dwDeviceID;
1156     lpmli16->Target.wMid        = mliA.Target.wMid;
1157     lpmli16->Target.wPid        = mliA.Target.wPid;
1158     lpmli16->Target.vDriverVersion = mliA.Target.vDriverVersion;
1159     strcpy(lpmli16->Target.szPname, mliA.Target.szPname);
1160
1161     return ret;
1162 }
1163
1164 /**************************************************************************
1165  *                              mixerSetControlDetails  [WINMM.111]
1166  */
1167 UINT WINAPI mixerSetControlDetails(HMIXEROBJ hmix, LPMIXERCONTROLDETAILS lpmcdA, DWORD fdwDetails)
1168 {
1169     UINT        uDevID;
1170
1171     TRACE("(%04x, %p, %08lx)\n", hmix, lpmcdA, fdwDetails);
1172
1173     uDevID = MIXER_GetDevID(hmix, fdwDetails);
1174
1175     return mixMessage(uDevID, MXDM_SETCONTROLDETAILS, 0, (DWORD)lpmcdA, fdwDetails);
1176 }
1177
1178 /**************************************************************************
1179  *                              mixerSetControlDetails  [MMSYSTEM.809]
1180  */
1181 UINT16 WINAPI mixerSetControlDetails16(HMIXEROBJ16 hmix, LPMIXERCONTROLDETAILS16 lpmcd, DWORD fdwDetails)
1182 {
1183     TRACE("(%04x, %p, %08lx)\n", hmix, lpmcd, fdwDetails);
1184     return MMSYSERR_NOTENABLED;
1185 }
1186
1187 /**************************************************************************
1188  *                              mixerMessage            [WINMM.109]
1189  */
1190 UINT WINAPI mixerMessage(HMIXER hmix, UINT uMsg, DWORD dwParam1, DWORD dwParam2)
1191 {
1192     LPMIXEROPENDESC     lpmod;
1193     UINT16              uDeviceID;
1194
1195     lpmod = (LPMIXEROPENDESC)USER_HEAP_LIN_ADDR(hmix);
1196     if (lpmod)
1197         uDeviceID = lpmod->uDeviceID;
1198     else
1199         uDeviceID = 0;
1200     FIXME("(%04lx, %d, %08lx, %08lx): semi-stub?\n",
1201           (DWORD)hmix, uMsg, dwParam1, dwParam2);
1202     return mixMessage(uDeviceID, uMsg, 0L, dwParam1, dwParam2);
1203 }
1204
1205 /**************************************************************************
1206  *                              mixerMessage            [MMSYSTEM.804]
1207  */
1208 UINT16 WINAPI mixerMessage16(HMIXER16 hmix, UINT16 uMsg, DWORD dwParam1, DWORD dwParam2)
1209 {
1210     LPMIXEROPENDESC     lpmod;
1211     UINT16              uDeviceID;
1212
1213     lpmod = (LPMIXEROPENDESC)USER_HEAP_LIN_ADDR(hmix);
1214     uDeviceID = (lpmod) ? lpmod->uDeviceID : 0;
1215     FIXME("(%04x, %d, %08lx, %08lx) - semi-stub?\n",
1216                   hmix, uMsg, dwParam1, dwParam2);
1217     return mixMessage(uDeviceID, uMsg, 0L, dwParam1, dwParam2);
1218 }
1219
1220 /**************************************************************************
1221  *                              auxGetNumDevs           [WINMM.22]
1222  */
1223 UINT WINAPI auxGetNumDevs(void)
1224 {
1225     return auxGetNumDevs16();
1226 }
1227
1228 /**************************************************************************
1229  *                              auxGetNumDevs           [MMSYSTEM.350]
1230  */
1231 UINT16 WINAPI auxGetNumDevs16(void)
1232 {
1233     UINT16      count;
1234
1235     TRACE("\n");
1236     count = auxMessage(0, AUXDM_GETNUMDEVS, 0L, 0L, 0L);
1237     TRACE("=> %u\n", count);
1238     return count;
1239 }
1240
1241 /**************************************************************************
1242  *                              auxGetDevCaps           [WINMM.20]
1243  */
1244 UINT WINAPI auxGetDevCapsW(UINT uDeviceID, LPAUXCAPSW lpCaps, UINT uSize)
1245 {
1246     AUXCAPS16   ac16;
1247     UINT        ret = auxGetDevCaps16(uDeviceID, &ac16, sizeof(ac16));
1248
1249     lpCaps->wMid = ac16.wMid;
1250     lpCaps->wPid = ac16.wPid;
1251     lpCaps->vDriverVersion = ac16.vDriverVersion;
1252     lstrcpyAtoW(lpCaps->szPname, ac16.szPname);
1253     lpCaps->wTechnology = ac16.wTechnology;
1254     lpCaps->dwSupport = ac16.dwSupport;
1255     return ret;
1256 }
1257
1258 /**************************************************************************
1259  *                              auxGetDevCaps           [WINMM.21]
1260  */
1261 UINT WINAPI auxGetDevCapsA(UINT uDeviceID, LPAUXCAPSA lpCaps, UINT uSize)
1262 {
1263     AUXCAPS16   ac16;
1264     UINT        ret = auxGetDevCaps16(uDeviceID, &ac16, sizeof(ac16));
1265
1266     lpCaps->wMid = ac16.wMid;
1267     lpCaps->wPid = ac16.wPid;
1268     lpCaps->vDriverVersion = ac16.vDriverVersion;
1269     strcpy(lpCaps->szPname, ac16.szPname);
1270     lpCaps->wTechnology = ac16.wTechnology;
1271     lpCaps->dwSupport = ac16.dwSupport;
1272     return ret;
1273 }
1274
1275 /**************************************************************************
1276  *                              auxGetDevCaps           [MMSYSTEM.351]
1277  */
1278 UINT16 WINAPI auxGetDevCaps16(UINT16 uDeviceID, LPAUXCAPS16 lpCaps, UINT16 uSize)
1279 {
1280     TRACE("(%04X, %p, %d) !\n", uDeviceID, lpCaps, uSize);
1281
1282     return auxMessage(uDeviceID, AUXDM_GETDEVCAPS,
1283                       0L, (DWORD)lpCaps, (DWORD)uSize);
1284 }
1285
1286 /**************************************************************************
1287  *                              auxGetVolume            [WINM.23]
1288  */
1289 UINT WINAPI auxGetVolume(UINT uDeviceID, DWORD* lpdwVolume)
1290 {
1291     return auxGetVolume16(uDeviceID, lpdwVolume);
1292 }
1293
1294 /**************************************************************************
1295  *                              auxGetVolume            [MMSYSTEM.352]
1296  */
1297 UINT16 WINAPI auxGetVolume16(UINT16 uDeviceID, DWORD* lpdwVolume)
1298 {
1299     TRACE("(%04X, %p) !\n", uDeviceID, lpdwVolume);
1300
1301     return auxMessage(uDeviceID, AUXDM_GETVOLUME, 0L, (DWORD)lpdwVolume, 0L);
1302 }
1303
1304 /**************************************************************************
1305  *                              auxSetVolume            [WINMM.25]
1306  */
1307 UINT WINAPI auxSetVolume(UINT uDeviceID, DWORD dwVolume)
1308 {
1309     return auxSetVolume16(uDeviceID, dwVolume);
1310 }
1311
1312 /**************************************************************************
1313  *                              auxSetVolume            [MMSYSTEM.353]
1314  */
1315 UINT16 WINAPI auxSetVolume16(UINT16 uDeviceID, DWORD dwVolume)
1316 {
1317     TRACE("(%04X, %08lX) !\n", uDeviceID, dwVolume);
1318
1319     return auxMessage(uDeviceID, AUXDM_SETVOLUME, 0L, dwVolume, 0L);
1320 }
1321
1322 /**************************************************************************
1323  *                              auxOutMessage           [MMSYSTEM.354]
1324  */
1325 DWORD WINAPI auxOutMessage(UINT uDeviceID, UINT uMessage, DWORD dw1, DWORD dw2)
1326 {
1327     switch (uMessage) {
1328     case AUXDM_GETNUMDEVS:
1329     case AUXDM_GETVOLUME:
1330     case AUXDM_SETVOLUME:
1331         /* no argument conversion needed */
1332         break;
1333     case AUXDM_GETDEVCAPS:
1334         return auxGetDevCapsA(uDeviceID, (LPAUXCAPSA)dw1, dw2);
1335     default:
1336         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
1337                     uDeviceID, uMessage, dw1, dw2);
1338         break;
1339     }
1340     return auxMessage(uDeviceID, uMessage, 0L, dw1, dw2);
1341 }
1342
1343 /**************************************************************************
1344  *                              auxOutMessage           [MMSYSTEM.354]
1345  */
1346 DWORD WINAPI auxOutMessage16(UINT16 uDeviceID, UINT16 uMessage, DWORD dw1, DWORD dw2)
1347 {
1348     TRACE("(%04X, %04X, %08lX, %08lX)\n", uDeviceID, uMessage, dw1, dw2);
1349
1350     switch (uMessage) {
1351     case AUXDM_GETNUMDEVS:
1352     case AUXDM_SETVOLUME:
1353         /* no argument conversion needed */
1354         break;
1355     case AUXDM_GETVOLUME:
1356         return auxGetVolume16(uDeviceID, (LPDWORD)PTR_SEG_TO_LIN(dw1));
1357     case AUXDM_GETDEVCAPS:
1358         return auxGetDevCaps16(uDeviceID, (LPAUXCAPS16)PTR_SEG_TO_LIN(dw1), dw2);
1359     default:
1360         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
1361             uDeviceID, uMessage, dw1, dw2);
1362         break;
1363     }
1364     return auxMessage(uDeviceID, uMessage, 0L, dw1, dw2);
1365 }
1366
1367 /**************************************************************************
1368  *                              mciGetErrorStringW              [WINMM.46]
1369  */
1370 BOOL WINAPI mciGetErrorStringW(DWORD wError, LPWSTR lpstrBuffer, UINT uLength)
1371 {
1372     LPSTR       bufstr = HeapAlloc(GetProcessHeap(), 0, uLength);
1373     BOOL        ret = mciGetErrorStringA(wError, bufstr, uLength);
1374
1375     lstrcpyAtoW(lpstrBuffer, bufstr);
1376     HeapFree(GetProcessHeap(), 0, bufstr);
1377     return ret;
1378 }
1379
1380 /**************************************************************************
1381  *                              mciGetErrorStringA              [WINMM.45]
1382  */
1383 BOOL WINAPI mciGetErrorStringA(DWORD wError, LPSTR lpstrBuffer, UINT uLength)
1384 {
1385     return mciGetErrorString16(wError, lpstrBuffer, uLength);
1386 }
1387
1388 /**************************************************************************
1389  *                              mciGetErrorString               [MMSYSTEM.706]
1390  */
1391 BOOL16 WINAPI mciGetErrorString16(DWORD dwError, LPSTR lpstrBuffer, UINT16 uLength)
1392 {
1393     BOOL16              ret = FALSE;
1394
1395     if (lpstrBuffer != NULL && uLength > 0 &&
1396         dwError >= MCIERR_BASE && dwError <= MCIERR_CUSTOM_DRIVER_BASE) {
1397         LPWINE_MM_IDATA iData = MULTIMEDIA_GetIData();
1398
1399         if (iData && LoadStringA(iData->hWinMM32Instance, dwError, lpstrBuffer, uLength) > 0) {
1400             ret = TRUE;
1401         }
1402     }
1403     return ret;
1404 }
1405
1406 /**************************************************************************
1407  *                              mciDriverNotify                 [MMSYSTEM.711]
1408  */
1409 BOOL16 WINAPI mciDriverNotify16(HWND16 hWndCallBack, UINT16 wDevID, UINT16 wStatus)
1410 {
1411     TRACE("(%04X, %04x, %04X)\n", hWndCallBack, wDevID, wStatus);
1412
1413     if (!IsWindow(hWndCallBack)) {
1414         WARN("bad hWnd for call back (0x%04x)\n", hWndCallBack);
1415         return FALSE;
1416     }
1417     TRACE("before PostMessage\n");
1418     Callout.PostMessageA(hWndCallBack, MM_MCINOTIFY, wStatus, wDevID);
1419     return TRUE;
1420 }
1421
1422 /**************************************************************************
1423  *                      mciDriverNotify                         [WINMM.36]
1424  */
1425 BOOL WINAPI mciDriverNotify(HWND hWndCallBack, UINT wDevID, UINT wStatus)
1426 {
1427
1428     TRACE("(%08X, %04x, %04X)\n", hWndCallBack, wDevID, wStatus);
1429
1430     if (!IsWindow(hWndCallBack)) {
1431         WARN("bad hWnd for call back (0x%04x)\n", hWndCallBack);
1432         return FALSE;
1433     }
1434     TRACE("before PostMessage\n");
1435     Callout.PostMessageA(hWndCallBack, MM_MCINOTIFY, wStatus, wDevID);
1436     return TRUE;
1437 }
1438
1439 /**************************************************************************
1440  *                      mciGetDriverData                        [MMSYSTEM.708]
1441  */
1442 DWORD WINAPI mciGetDriverData16(UINT16 uDeviceID)
1443 {
1444     return mciGetDriverData(uDeviceID);
1445 }
1446
1447 /**************************************************************************
1448  *                      mciGetDriverData                        [WINMM.44]
1449  */
1450 DWORD WINAPI mciGetDriverData(UINT uDeviceID)
1451 {
1452     LPWINE_MCIDRIVER    wmd;
1453
1454     TRACE("(%04x)\n", uDeviceID);
1455
1456     wmd = MCI_GetDriver(uDeviceID);
1457
1458     if (!wmd) {
1459         WARN("Bad uDeviceID\n");
1460         return 0L;
1461     }
1462
1463     return wmd->dwPrivate;
1464 }
1465
1466 /**************************************************************************
1467  *                      mciSetDriverData                        [MMSYSTEM.707]
1468  */
1469 BOOL16 WINAPI mciSetDriverData16(UINT16 uDeviceID, DWORD data)
1470 {
1471     return mciSetDriverData(uDeviceID, data);
1472 }
1473
1474 /**************************************************************************
1475  *                      mciSetDriverData                        [WINMM.53]
1476  */
1477 BOOL WINAPI mciSetDriverData(UINT uDeviceID, DWORD data)
1478 {
1479     LPWINE_MCIDRIVER    wmd;
1480
1481     TRACE("(%04x, %08lx)\n", uDeviceID, data);
1482
1483     wmd = MCI_GetDriver(uDeviceID);
1484
1485     if (!wmd) {
1486         WARN("Bad uDeviceID\n");
1487         return FALSE;
1488     }
1489
1490     wmd->dwPrivate = data;
1491     return TRUE;
1492 }
1493
1494 /**************************************************************************
1495  *                              mciSendCommandA                 [WINMM.49]
1496  */
1497 DWORD WINAPI mciSendCommandA(UINT wDevID, UINT wMsg, DWORD dwParam1, DWORD dwParam2)
1498 {
1499     DWORD       dwRet;
1500
1501     TRACE("(%08x, %s, %08lx, %08lx)\n",
1502           wDevID, MCI_MessageToString(wMsg), dwParam1, dwParam2);
1503
1504     dwRet = MCI_SendCommand(wDevID, wMsg, dwParam1, dwParam2, TRUE);
1505     dwRet = MCI_CleanUp(dwRet, wMsg, dwParam2, TRUE);
1506     TRACE("=> %08lx\n", dwRet);
1507     return dwRet;
1508 }
1509
1510 /**************************************************************************
1511  *                              mciSendCommandW                 [WINMM.50]
1512  */
1513 DWORD WINAPI mciSendCommandW(UINT wDevID, UINT wMsg, DWORD dwParam1, DWORD dwParam2)
1514 {
1515     FIXME("(%08x, %s, %08lx, %08lx): stub\n", wDevID, MCI_MessageToString(wMsg), dwParam1, dwParam2);
1516     return MCIERR_UNSUPPORTED_FUNCTION;
1517 }
1518
1519 /**************************************************************************
1520  *                              mciSendCommand                  [MMSYSTEM.701]
1521  */
1522 DWORD WINAPI mciSendCommand16(UINT16 wDevID, UINT16 wMsg, DWORD dwParam1, DWORD dwParam2)
1523 {
1524     DWORD               dwRet;
1525
1526     TRACE("(%04X, %s, %08lX, %08lX)\n",
1527           wDevID, MCI_MessageToString(wMsg), dwParam1, dwParam2);
1528
1529     dwRet = MCI_SendCommand(wDevID, wMsg, dwParam1, dwParam2, FALSE);
1530     dwRet = MCI_CleanUp(dwRet, wMsg, dwParam2, FALSE);
1531     TRACE("=> %ld\n", dwRet);
1532     return dwRet;
1533 }
1534
1535 /**************************************************************************
1536  *                              mciGetDeviceID                  [MMSYSTEM.703]
1537  */
1538 UINT16 WINAPI mciGetDeviceID16(LPCSTR lpstrName)
1539 {
1540     TRACE("(\"%s\")\n", lpstrName);
1541
1542     return MCI_GetDriverFromString(lpstrName);
1543 }
1544
1545 /**************************************************************************
1546  *                              mciGetDeviceIDA                 [WINMM.41]
1547  */
1548 UINT WINAPI mciGetDeviceIDA(LPCSTR lpstrName)
1549 {
1550     return MCI_GetDriverFromString(lpstrName);
1551 }
1552
1553 /**************************************************************************
1554  *                              mciGetDeviceIDW                 [WINMM.43]
1555  */
1556 UINT WINAPI mciGetDeviceIDW(LPCWSTR lpwstrName)
1557 {
1558     LPSTR       lpstrName;
1559     UINT        ret;
1560
1561     lpstrName = HEAP_strdupWtoA(GetProcessHeap(), 0, lpwstrName);
1562     ret = MCI_GetDriverFromString(lpstrName);
1563     HeapFree(GetProcessHeap(), 0, lpstrName);
1564     return ret;
1565 }
1566
1567 /**************************************************************************
1568  *                              MCI_DefYieldProc                [internal]
1569  */
1570 UINT16  WINAPI MCI_DefYieldProc(UINT16 wDevID, DWORD data)
1571 {
1572     INT16       ret;
1573
1574     TRACE("(0x%04x, 0x%08lx)\n", wDevID, data);
1575
1576     if ((HIWORD(data) != 0 && GetActiveWindow16() != HIWORD(data)) ||
1577         (GetAsyncKeyState(LOWORD(data)) & 1) == 0) {
1578         UserYield16();
1579         ret = 0;
1580     } else {
1581         MSG             msg;
1582
1583         msg.hwnd = HIWORD(data);
1584         while (!PeekMessageA(&msg, HIWORD(data), WM_KEYFIRST, WM_KEYLAST, PM_REMOVE));
1585         ret = -1;
1586     }
1587     return ret;
1588 }
1589
1590 /**************************************************************************
1591  *                              mciSetYieldProc                 [MMSYSTEM.714]
1592  */
1593 BOOL16 WINAPI mciSetYieldProc16(UINT16 uDeviceID, YIELDPROC fpYieldProc, DWORD dwYieldData)
1594 {
1595     LPWINE_MCIDRIVER    wmd;
1596
1597     TRACE("(%u, %p, %08lx)\n", uDeviceID, fpYieldProc, dwYieldData);
1598
1599     if (!(wmd = MCI_GetDriver(uDeviceID))) {
1600         WARN("Bad uDeviceID\n");
1601         return FALSE;
1602     }
1603
1604     wmd->lpfnYieldProc = fpYieldProc;
1605     wmd->dwYieldData   = dwYieldData;
1606     wmd->bIs32         = FALSE;
1607
1608     return TRUE;
1609 }
1610
1611 /**************************************************************************
1612  *                              mciSetYieldProc                 [WINMM.54]
1613  */
1614 BOOL WINAPI mciSetYieldProc(UINT uDeviceID, YIELDPROC fpYieldProc, DWORD dwYieldData)
1615 {
1616     LPWINE_MCIDRIVER    wmd;
1617
1618     TRACE("(%u, %p, %08lx)\n", uDeviceID, fpYieldProc, dwYieldData);
1619
1620     if (!(wmd = MCI_GetDriver(uDeviceID))) {
1621         WARN("Bad uDeviceID\n");
1622         return FALSE;
1623     }
1624
1625     wmd->lpfnYieldProc = fpYieldProc;
1626     wmd->dwYieldData   = dwYieldData;
1627     wmd->bIs32         = TRUE;
1628
1629     return TRUE;
1630 }
1631
1632 /**************************************************************************
1633  *                              mciGetDeviceIDFromElementID     [MMSYSTEM.715]
1634  */
1635 UINT16 WINAPI mciGetDeviceIDFromElementID16(DWORD dwElementID, LPCSTR lpstrType)
1636 {
1637     FIXME("(%lu, %s) stub\n", dwElementID, lpstrType);
1638     return 0;
1639 }
1640
1641 /**************************************************************************
1642  *                              mciGetDeviceIDFromElementIDW    [WINMM.42]
1643  */
1644 UINT WINAPI mciGetDeviceIDFromElementIDW(DWORD dwElementID, LPCWSTR lpstrType)
1645 {
1646     /* FIXME: that's rather strange, there is no
1647      * mciGetDeviceIDFromElementID32A in winmm.spec
1648      */
1649     FIXME("(%lu, %p) stub\n", dwElementID, lpstrType);
1650     return 0;
1651 }
1652
1653 /**************************************************************************
1654  *                              mciGetYieldProc                 [MMSYSTEM.716]
1655  */
1656 YIELDPROC WINAPI mciGetYieldProc16(UINT16 uDeviceID, DWORD* lpdwYieldData)
1657 {
1658     LPWINE_MCIDRIVER    wmd;
1659
1660     TRACE("(%u, %p)\n", uDeviceID, lpdwYieldData);
1661
1662     if (!(wmd = MCI_GetDriver(uDeviceID))) {
1663         WARN("Bad uDeviceID\n");
1664         return NULL;
1665     }
1666     if (!wmd->lpfnYieldProc) {
1667         WARN("No proc set\n");
1668         return NULL;
1669     }
1670     if (wmd->bIs32) {
1671         WARN("Proc is 32 bit\n");
1672         return NULL;
1673     }
1674     return wmd->lpfnYieldProc;
1675 }
1676
1677 /**************************************************************************
1678  *                              mciGetYieldProc                 [WINMM.47]
1679  */
1680 YIELDPROC WINAPI mciGetYieldProc(UINT uDeviceID, DWORD* lpdwYieldData)
1681 {
1682     LPWINE_MCIDRIVER    wmd;
1683
1684     TRACE("(%u, %p)\n", uDeviceID, lpdwYieldData);
1685
1686     if (!(wmd = MCI_GetDriver(uDeviceID))) {
1687         WARN("Bad uDeviceID\n");
1688         return NULL;
1689     }
1690     if (!wmd->lpfnYieldProc) {
1691         WARN("No proc set\n");
1692         return NULL;
1693     }
1694     if (!wmd->bIs32) {
1695         WARN("Proc is 32 bit\n");
1696         return NULL;
1697     }
1698     return wmd->lpfnYieldProc;
1699 }
1700
1701 /**************************************************************************
1702  *                              mciGetCreatorTask               [MMSYSTEM.717]
1703  */
1704 HTASK16 WINAPI mciGetCreatorTask16(UINT16 uDeviceID)
1705 {
1706     return mciGetCreatorTask(uDeviceID);
1707 }
1708
1709 /**************************************************************************
1710  *                              mciGetCreatorTask               [WINMM.40]
1711  */
1712 HTASK WINAPI mciGetCreatorTask(UINT uDeviceID)
1713 {
1714     LPWINE_MCIDRIVER    wmd;
1715     HTASK               ret;
1716
1717     TRACE("(%u)\n", uDeviceID);
1718
1719     ret = (!(wmd = MCI_GetDriver(uDeviceID))) ? 0 : wmd->hCreatorTask;
1720
1721     TRACE("=> %04x\n", ret);
1722     return ret;
1723 }
1724
1725 /**************************************************************************
1726  *                              mciDriverYield                  [MMSYSTEM.710]
1727  */
1728 UINT16 WINAPI mciDriverYield16(UINT16 uDeviceID)
1729 {
1730     LPWINE_MCIDRIVER    wmd;
1731     UINT16              ret = 0;
1732
1733     /*    TRACE("(%04x)\n", uDeviceID); */
1734
1735     if (!(wmd = MCI_GetDriver(uDeviceID)) || wmd->lpfnYieldProc || wmd->bIs32) {
1736         UserYield16();
1737     } else {
1738         ret = wmd->lpfnYieldProc(uDeviceID, wmd->dwYieldData);
1739     }
1740
1741     return ret;
1742 }
1743
1744 /**************************************************************************
1745  *                      mciDriverYield                          [WINMM.37]
1746  */
1747 UINT WINAPI mciDriverYield(UINT uDeviceID)
1748 {
1749     LPWINE_MCIDRIVER    wmd;
1750     UINT                ret = 0;
1751
1752     TRACE("(%04x)\n", uDeviceID);
1753
1754     if (!(wmd = MCI_GetDriver(uDeviceID)) || wmd->lpfnYieldProc || wmd->bIs32) {
1755         UserYield16();
1756     } else {
1757         ret = wmd->lpfnYieldProc(uDeviceID, wmd->dwYieldData);
1758     }
1759
1760     return ret;
1761 }
1762
1763 /**************************************************************************
1764  *                              midiOutGetNumDevs       [WINMM.80]
1765  */
1766 UINT WINAPI midiOutGetNumDevs(void)
1767 {
1768     return midiOutGetNumDevs16();
1769 }
1770
1771 /**************************************************************************
1772  *                              midiOutGetNumDevs       [MMSYSTEM.201]
1773  */
1774 UINT16 WINAPI midiOutGetNumDevs16(void)
1775 {
1776     UINT16      count = modMessage(0, MODM_GETNUMDEVS, 0L, 0L, 0L);
1777
1778     TRACE("returns %u\n", count);
1779     return count;
1780 }
1781
1782 /**************************************************************************
1783  *                              midiOutGetDevCapsW      [WINMM.76]
1784  */
1785 UINT WINAPI midiOutGetDevCapsW(UINT uDeviceID, LPMIDIOUTCAPSW lpCaps, UINT uSize)
1786 {
1787     MIDIOUTCAPS16       moc16;
1788     UINT                ret;
1789
1790     ret = midiOutGetDevCaps16(uDeviceID, &moc16, sizeof(moc16));
1791     lpCaps->wMid                = moc16.wMid;
1792     lpCaps->wPid                = moc16.wPid;
1793     lpCaps->vDriverVersion      = moc16.vDriverVersion;
1794     lstrcpyAtoW(lpCaps->szPname, moc16.szPname);
1795     lpCaps->wTechnology = moc16.wTechnology;
1796     lpCaps->wVoices             = moc16.wVoices;
1797     lpCaps->wNotes              = moc16.wNotes;
1798     lpCaps->wChannelMask        = moc16.wChannelMask;
1799     lpCaps->dwSupport   = moc16.dwSupport;
1800     return ret;
1801 }
1802
1803 /**************************************************************************
1804  *                              midiOutGetDevCapsA      [WINMM.75]
1805  */
1806 UINT WINAPI midiOutGetDevCapsA(UINT uDeviceID, LPMIDIOUTCAPSA lpCaps, UINT uSize)
1807 {
1808     MIDIOUTCAPS16       moc16;
1809     UINT                ret;
1810
1811     ret = midiOutGetDevCaps16(uDeviceID, &moc16, sizeof(moc16));
1812     lpCaps->wMid                = moc16.wMid;
1813     lpCaps->wPid                = moc16.wPid;
1814     lpCaps->vDriverVersion      = moc16.vDriverVersion;
1815     strcpy(lpCaps->szPname, moc16.szPname);
1816     lpCaps->wTechnology = moc16.wTechnology;
1817     lpCaps->wVoices             = moc16.wVoices;
1818     lpCaps->wNotes              = moc16.wNotes;
1819     lpCaps->wChannelMask        = moc16.wChannelMask;
1820     lpCaps->dwSupport   = moc16.dwSupport;
1821     return ret;
1822 }
1823
1824 /**************************************************************************
1825  *                              midiOutGetDevCaps       [MMSYSTEM.202]
1826  */
1827 UINT16 WINAPI midiOutGetDevCaps16(UINT16 uDeviceID, LPMIDIOUTCAPS16 lpCaps, UINT16 uSize)
1828 {
1829     TRACE("(%u, %p, %u);\n", uDeviceID, lpCaps, uSize);
1830     return modMessage(uDeviceID, MODM_GETDEVCAPS, 0, (DWORD)lpCaps, uSize);
1831 }
1832
1833 /**************************************************************************
1834  *                              MIDI_GetErrorText               [internal]
1835  */
1836 static  UINT16  MIDI_GetErrorText(UINT16 uError, LPSTR lpText, UINT16 uSize)
1837 {
1838     UINT16              ret = MMSYSERR_BADERRNUM;
1839
1840     if (lpText == NULL) {
1841         ret = MMSYSERR_INVALPARAM;
1842     } else if (uSize == 0) {
1843         ret = MMSYSERR_NOERROR;
1844     } else if (
1845                /* test has been removed 'coz MMSYSERR_BASE is 0, and gcc did emit
1846                 * a warning for the test was always true */
1847                (/*uError >= MMSYSERR_BASE && */ uError <= MMSYSERR_LASTERROR) ||
1848                (uError >= MIDIERR_BASE  && uError <= MIDIERR_LASTERROR)) {
1849
1850         LPWINE_MM_IDATA iData = MULTIMEDIA_GetIData();
1851
1852         if (!iData) {
1853             ret = MMSYSERR_ERROR;
1854         } else if (LoadStringA(iData->hWinMM32Instance, uError, lpText, uSize) > 0) {
1855             ret = MMSYSERR_NOERROR;
1856         }
1857     }
1858     return ret;
1859 }
1860
1861 /**************************************************************************
1862  *                              midiOutGetErrorTextA    [WINMM.77]
1863  */
1864 UINT WINAPI midiOutGetErrorTextA(UINT uError, LPSTR lpText, UINT uSize)
1865 {
1866     return MIDI_GetErrorText(uError, lpText, uSize);
1867 }
1868
1869 /**************************************************************************
1870  *                              midiOutGetErrorTextW    [WINMM.78]
1871  */
1872 UINT WINAPI midiOutGetErrorTextW(UINT uError, LPWSTR lpText, UINT uSize)
1873 {
1874     LPSTR       xstr = HeapAlloc(GetProcessHeap(), 0, uSize);
1875     UINT        ret;
1876
1877     ret = MIDI_GetErrorText(uError, xstr, uSize);
1878     lstrcpyAtoW(lpText, xstr);
1879     HeapFree(GetProcessHeap(), 0, xstr);
1880     return ret;
1881 }
1882
1883 /**************************************************************************
1884  *                              midiOutGetErrorText     [MMSYSTEM.203]
1885  */
1886 UINT16 WINAPI midiOutGetErrorText16(UINT16 uError, LPSTR lpText, UINT16 uSize)
1887 {
1888     return MIDI_GetErrorText(uError, lpText, uSize);
1889 }
1890
1891 /**************************************************************************
1892  *                              MIDI_OutAlloc                   [internal]
1893  */
1894 static  LPMIDIOPENDESC  MIDI_OutAlloc(HMIDIOUT16* lphMidiOut, DWORD dwCallback,
1895                                       DWORD dwInstance, DWORD cIDs, MIDIOPENSTRMID* lpIDs)
1896 {
1897     HMIDI16                     hMidiOut;
1898     LPMIDIOPENDESC              lpDesc;
1899
1900     hMidiOut = USER_HEAP_ALLOC(sizeof(MIDIOPENDESC) + (cIDs ? (cIDs - 1) : 0) * sizeof(MIDIOPENSTRMID));
1901
1902     if (lphMidiOut != NULL)
1903         *lphMidiOut = hMidiOut;
1904     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
1905
1906     if (lpDesc) {
1907         lpDesc->hMidi = hMidiOut;
1908         lpDesc->dwCallback = dwCallback;
1909         lpDesc->dwInstance = dwInstance;
1910         lpDesc->dnDevNode = 0;
1911         lpDesc->cIds = cIDs;
1912         if (cIDs)
1913             memcpy(&(lpDesc->rgIds), lpIDs, cIDs * sizeof(MIDIOPENSTRMID));
1914     }
1915     return lpDesc;
1916 }
1917
1918 /**************************************************************************
1919  *                              midiOutOpen             [WINM.84]
1920  */
1921 UINT WINAPI midiOutOpen(HMIDIOUT* lphMidiOut, UINT uDeviceID,
1922                         DWORD dwCallback, DWORD dwInstance, DWORD dwFlags)
1923 {
1924     HMIDIOUT16  hmo16;
1925     UINT        ret;
1926
1927     ret = midiOutOpen16(&hmo16, uDeviceID, dwCallback, dwInstance,
1928                         CALLBACK32CONV(dwFlags));
1929     if (lphMidiOut) *lphMidiOut = hmo16;
1930     return ret;
1931 }
1932
1933 /**************************************************************************
1934  *                              midiOutOpen             [MMSYSTEM.204]
1935  */
1936 UINT16 WINAPI midiOutOpen16(HMIDIOUT16* lphMidiOut, UINT16 uDeviceID,
1937                             DWORD dwCallback, DWORD dwInstance, DWORD dwFlags)
1938 {
1939     HMIDIOUT16                  hMidiOut;
1940     LPMIDIOPENDESC              lpDesc;
1941     UINT16                      ret = 0;
1942     BOOL                        bMapperFlg = FALSE;
1943
1944     TRACE("(%p, %d, %08lX, %08lX, %08lX);\n",
1945           lphMidiOut, uDeviceID, dwCallback, dwInstance, dwFlags);
1946
1947     if (lphMidiOut != NULL) *lphMidiOut = 0;
1948
1949     if (uDeviceID == (UINT16)MIDI_MAPPER) {
1950         TRACE("MIDI_MAPPER mode requested !\n");
1951         bMapperFlg = TRUE;
1952         uDeviceID = 0;
1953     }
1954
1955     lpDesc = MIDI_OutAlloc(&hMidiOut, dwCallback, dwInstance, 0, NULL);
1956
1957     if (lpDesc == NULL)
1958         return MMSYSERR_NOMEM;
1959
1960     while (uDeviceID < MAXMIDIDRIVERS) {
1961         ret = modMessage(uDeviceID, MODM_OPEN,
1962                          lpDesc->dwInstance, (DWORD)lpDesc, dwFlags);
1963         if (ret == MMSYSERR_NOERROR) break;
1964         if (!bMapperFlg) break;
1965         uDeviceID++;
1966         TRACE("MIDI_MAPPER mode ! try next driver...\n");
1967     }
1968     TRACE("=> wDevID=%u (%d)\n", uDeviceID, ret);
1969     if (ret != MMSYSERR_NOERROR) {
1970         USER_HEAP_FREE(hMidiOut);
1971         if (lphMidiOut) *lphMidiOut = 0;
1972     } else {
1973         lpDesc->wDevID = uDeviceID;
1974         if (lphMidiOut) *lphMidiOut = hMidiOut;
1975     }
1976
1977     return ret;
1978 }
1979
1980 /**************************************************************************
1981  *                              midiOutClose            [WINMM.74]
1982  */
1983 UINT WINAPI midiOutClose(HMIDIOUT hMidiOut)
1984 {
1985     return midiOutClose16(hMidiOut);
1986 }
1987
1988 /**************************************************************************
1989  *                              midiOutClose            [MMSYSTEM.205]
1990  */
1991 UINT16 WINAPI midiOutClose16(HMIDIOUT16 hMidiOut)
1992 {
1993     LPMIDIOPENDESC      lpDesc;
1994     DWORD               dwRet;
1995
1996     TRACE("(%04X)\n", hMidiOut);
1997
1998     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
1999
2000     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2001     dwRet = modMessage(lpDesc->wDevID, MODM_CLOSE, lpDesc->dwInstance, 0L, 0L);
2002     USER_HEAP_FREE(hMidiOut);
2003     return dwRet;
2004 }
2005
2006 /**************************************************************************
2007  *                              midiOutPrepareHeader    [WINMM.85]
2008  */
2009 UINT WINAPI midiOutPrepareHeader(HMIDIOUT hMidiOut,
2010                                  MIDIHDR* lpMidiOutHdr, UINT uSize)
2011 {
2012     LPMIDIOPENDESC      lpDesc;
2013
2014     TRACE("(%04X, %p, %d)\n", hMidiOut, lpMidiOutHdr, uSize);
2015
2016     lpDesc = (LPMIDIOPENDESC)USER_HEAP_LIN_ADDR(hMidiOut);
2017     if (lpDesc == NULL)
2018         return MMSYSERR_INVALHANDLE;
2019     lpMidiOutHdr->reserved = (DWORD)lpMidiOutHdr;
2020     return modMessage(lpDesc->wDevID, MODM_PREPARE, lpDesc->dwInstance,
2021                       (DWORD)lpMidiOutHdr, (DWORD)uSize);
2022 }
2023
2024 /**************************************************************************
2025  *                              midiOutPrepareHeader    [MMSYSTEM.206]
2026  */
2027 UINT16 WINAPI midiOutPrepareHeader16(HMIDIOUT16 hMidiOut,
2028                                      LPMIDIHDR16 /*SEGPTR*/ _lpMidiOutHdr, UINT16 uSize)
2029 {
2030     LPMIDIOPENDESC      lpDesc;
2031     LPMIDIHDR16         lpMidiOutHdr = (LPMIDIHDR16)PTR_SEG_TO_LIN(_lpMidiOutHdr);
2032
2033     TRACE("(%04X, %p, %d)\n", hMidiOut, lpMidiOutHdr, uSize);
2034
2035     lpDesc = (LPMIDIOPENDESC)USER_HEAP_LIN_ADDR(hMidiOut);
2036     if (lpDesc == NULL)
2037         return MMSYSERR_INVALHANDLE;
2038     lpMidiOutHdr->reserved = (DWORD)_lpMidiOutHdr;
2039     return modMessage(lpDesc->wDevID, MODM_PREPARE, lpDesc->dwInstance,
2040                       (DWORD)lpMidiOutHdr, (DWORD)uSize);
2041 }
2042
2043 /**************************************************************************
2044  *                              midiOutUnprepareHeader  [WINMM.89]
2045  */
2046 UINT WINAPI midiOutUnprepareHeader(HMIDIOUT hMidiOut,
2047                                    MIDIHDR* lpMidiOutHdr, UINT uSize)
2048 {
2049     return midiOutUnprepareHeader16(hMidiOut, (MIDIHDR16*)lpMidiOutHdr, uSize);
2050 }
2051
2052 /**************************************************************************
2053  *                              midiOutUnprepareHeader  [MMSYSTEM.207]
2054  */
2055 UINT16 WINAPI midiOutUnprepareHeader16(HMIDIOUT16 hMidiOut,
2056                                        MIDIHDR16* lpMidiOutHdr, UINT16 uSize)
2057 {
2058     LPMIDIOPENDESC      lpDesc;
2059
2060     TRACE("(%04X, %p, %d)\n", hMidiOut, lpMidiOutHdr, uSize);
2061
2062     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
2063     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2064     return modMessage(lpDesc->wDevID, MODM_UNPREPARE, lpDesc->dwInstance,
2065                       (DWORD)lpMidiOutHdr, (DWORD)uSize);
2066 }
2067
2068 /**************************************************************************
2069  *                              midiOutShortMsg         [WINMM.88]
2070  */
2071 UINT WINAPI midiOutShortMsg(HMIDIOUT hMidiOut, DWORD dwMsg)
2072 {
2073     return midiOutShortMsg16(hMidiOut, dwMsg);
2074 }
2075
2076 /**************************************************************************
2077  *                              midiOutShortMsg         [MMSYSTEM.208]
2078  */
2079 UINT16 WINAPI midiOutShortMsg16(HMIDIOUT16 hMidiOut, DWORD dwMsg)
2080 {
2081     LPMIDIOPENDESC      lpDesc;
2082
2083     TRACE("(%04X, %08lX)\n", hMidiOut, dwMsg);
2084
2085     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
2086     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2087     return modMessage(lpDesc->wDevID, MODM_DATA, lpDesc->dwInstance, dwMsg, 0L);
2088 }
2089
2090 /**************************************************************************
2091  *                              midiOutLongMsg          [WINMM.82]
2092  */
2093 UINT WINAPI midiOutLongMsg(HMIDIOUT hMidiOut,
2094                            MIDIHDR* lpMidiOutHdr, UINT uSize)
2095 {
2096     return midiOutLongMsg16(hMidiOut, (MIDIHDR16*)lpMidiOutHdr, uSize);
2097 }
2098
2099 /**************************************************************************
2100  *                              midiOutLongMsg          [MMSYSTEM.209]
2101  */
2102 UINT16 WINAPI midiOutLongMsg16(HMIDIOUT16 hMidiOut,
2103                                MIDIHDR16* lpMidiOutHdr, UINT16 uSize)
2104 {
2105     LPMIDIOPENDESC      lpDesc;
2106
2107     TRACE("(%04X, %p, %d)\n", hMidiOut, lpMidiOutHdr, uSize);
2108
2109     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
2110     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2111     return modMessage(lpDesc->wDevID, MODM_LONGDATA, lpDesc->dwInstance,
2112                       (DWORD)lpMidiOutHdr, (DWORD)uSize);
2113 }
2114
2115 /**************************************************************************
2116  *                              midiOutReset            [WINMM.86]
2117  */
2118 UINT WINAPI midiOutReset(HMIDIOUT hMidiOut)
2119 {
2120     return midiOutReset16(hMidiOut);
2121 }
2122
2123 /**************************************************************************
2124  *                              midiOutReset            [MMSYSTEM.210]
2125  */
2126 UINT16 WINAPI midiOutReset16(HMIDIOUT16 hMidiOut)
2127 {
2128     LPMIDIOPENDESC      lpDesc;
2129
2130     TRACE("(%04X)\n", hMidiOut);
2131
2132     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
2133     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2134     return modMessage(lpDesc->wDevID, MODM_RESET, lpDesc->dwInstance, 0L, 0L);
2135 }
2136
2137 /**************************************************************************
2138  *                              midiOutGetVolume        [WINM.81]
2139  */
2140 UINT WINAPI midiOutGetVolume(UINT uDeviceID, DWORD* lpdwVolume)
2141 {
2142     return midiOutGetVolume16(uDeviceID, lpdwVolume);
2143 }
2144
2145 /**************************************************************************
2146  *                              midiOutGetVolume        [MMSYSTEM.211]
2147  */
2148 UINT16 WINAPI midiOutGetVolume16(UINT16 uDeviceID, DWORD* lpdwVolume)
2149 {
2150     TRACE("(%04X, %p);\n", uDeviceID, lpdwVolume);
2151     return modMessage(uDeviceID, MODM_GETVOLUME, 0L, (DWORD)lpdwVolume, 0L);
2152 }
2153
2154 /**************************************************************************
2155  *                              midiOutSetVolume        [WINMM.87]
2156  */
2157 UINT WINAPI midiOutSetVolume(UINT uDeviceID, DWORD dwVolume)
2158 {
2159     return midiOutSetVolume16(uDeviceID, dwVolume);
2160 }
2161
2162 /**************************************************************************
2163  *                              midiOutSetVolume        [MMSYSTEM.212]
2164  */
2165 UINT16 WINAPI midiOutSetVolume16(UINT16 uDeviceID, DWORD dwVolume)
2166 {
2167     TRACE("(%04X, %08lX);\n", uDeviceID, dwVolume);
2168     return modMessage(uDeviceID, MODM_SETVOLUME, 0L, dwVolume, 0L);
2169 }
2170
2171 /**************************************************************************
2172  *                              midiOutCachePatches             [WINMM.73]
2173  */
2174 UINT WINAPI midiOutCachePatches(HMIDIOUT hMidiOut, UINT uBank,
2175                                 WORD* lpwPatchArray, UINT uFlags)
2176 {
2177     return midiOutCachePatches16(hMidiOut, uBank, lpwPatchArray, uFlags);
2178 }
2179
2180 /**************************************************************************
2181  *                              midiOutCachePatches             [MMSYSTEM.213]
2182  */
2183 UINT16 WINAPI midiOutCachePatches16(HMIDIOUT16 hMidiOut, UINT16 uBank,
2184                                     WORD* lpwPatchArray, UINT16 uFlags)
2185 {
2186     /* not really necessary to support this */
2187     FIXME("not supported yet\n");
2188     return MMSYSERR_NOTSUPPORTED;
2189 }
2190
2191 /**************************************************************************
2192  *                              midiOutCacheDrumPatches [WINMM.72]
2193  */
2194 UINT WINAPI midiOutCacheDrumPatches(HMIDIOUT hMidiOut, UINT uPatch,
2195                                     WORD* lpwKeyArray, UINT uFlags)
2196 {
2197     return midiOutCacheDrumPatches16(hMidiOut, uPatch, lpwKeyArray, uFlags);
2198 }
2199
2200 /**************************************************************************
2201  *                              midiOutCacheDrumPatches [MMSYSTEM.214]
2202  */
2203 UINT16 WINAPI midiOutCacheDrumPatches16(HMIDIOUT16 hMidiOut, UINT16 uPatch,
2204                                         WORD* lpwKeyArray, UINT16 uFlags)
2205 {
2206     FIXME("not supported yet\n");
2207     return MMSYSERR_NOTSUPPORTED;
2208 }
2209
2210 /**************************************************************************
2211  *                              midiOutGetID            [WINMM.79]
2212  */
2213 UINT WINAPI midiOutGetID(HMIDIOUT hMidiOut, UINT* lpuDeviceID)
2214 {
2215     UINT16      xid;
2216     UINT        ret;
2217
2218     ret = midiOutGetID16(hMidiOut, &xid);
2219     *lpuDeviceID = xid;
2220     return ret;
2221 }
2222
2223 /**************************************************************************
2224  *                              midiOutGetID            [MMSYSTEM.215]
2225  */
2226 UINT16 WINAPI midiOutGetID16(HMIDIOUT16 hMidiOut, UINT16* lpuDeviceID)
2227 {
2228     TRACE("midiOutGetID\n");
2229     return 0;
2230 }
2231
2232 /**************************************************************************
2233  *                              midiOutMessage          [WINMM.83]
2234  */
2235 DWORD WINAPI midiOutMessage(HMIDIOUT hMidiOut, UINT uMessage,
2236                             DWORD dwParam1, DWORD dwParam2)
2237 {
2238     LPMIDIOPENDESC      lpDesc;
2239
2240     /* Shouldn't we anyway use the functions midiOutXXX ?
2241      * M$ doc says: This function is used only for driver-specific
2242      * messages that are not supported by the MIDI API.
2243      * Clearly not what we are currently doing
2244      */
2245
2246     TRACE("(%04X, %04X, %08lX, %08lX)\n",
2247           hMidiOut, uMessage, dwParam1, dwParam2);
2248
2249     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
2250     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2251     switch (uMessage) {
2252     case MODM_OPEN:
2253         FIXME("can't handle MODM_OPEN!\n");
2254         return 0;
2255     case MODM_GETDEVCAPS:
2256         return midiOutGetDevCapsA(hMidiOut, (LPMIDIOUTCAPSA)dwParam1, dwParam2);
2257     case MODM_GETNUMDEVS:
2258     case MODM_RESET:
2259     case MODM_CLOSE:
2260     case MODM_GETVOLUME:
2261     case MODM_SETVOLUME:
2262     case MODM_LONGDATA:
2263     case MODM_PREPARE:
2264     case MODM_UNPREPARE:
2265         /* no argument conversion needed */
2266         break;
2267     default:
2268         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
2269             hMidiOut, uMessage, dwParam1, dwParam2);
2270         break;
2271     }
2272     return modMessage(lpDesc->wDevID, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
2273 }
2274
2275 /**************************************************************************
2276  *                              midiOutMessage          [MMSYSTEM.216]
2277  */
2278 DWORD WINAPI midiOutMessage16(HMIDIOUT16 hMidiOut, UINT16 uMessage,
2279                               DWORD dwParam1, DWORD dwParam2)
2280 {
2281     LPMIDIOPENDESC      lpDesc;
2282
2283     TRACE("(%04X, %04X, %08lX, %08lX)\n",
2284           hMidiOut, uMessage, dwParam1, dwParam2);
2285     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiOut);
2286     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2287     switch (uMessage) {
2288     case MODM_OPEN:
2289         FIXME("can't handle MODM_OPEN!\n");
2290         return 0;
2291     case MODM_GETNUMDEVS:
2292     case MODM_RESET:
2293     case MODM_CLOSE:
2294     case MODM_SETVOLUME:
2295         /* no argument conversion needed */
2296         break;
2297     case MODM_GETVOLUME:
2298         return midiOutGetVolume16(hMidiOut, (LPDWORD)PTR_SEG_TO_LIN(dwParam1));
2299     case MODM_LONGDATA:
2300         return midiOutLongMsg16(hMidiOut, (LPMIDIHDR16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
2301     case MODM_PREPARE:
2302         /* lpMidiOutHdr is still a segmented pointer for this function */
2303         return midiOutPrepareHeader16(hMidiOut, (LPMIDIHDR16)dwParam1, dwParam2);
2304     case MODM_UNPREPARE:
2305         return midiOutUnprepareHeader16(hMidiOut, (LPMIDIHDR16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
2306     default:
2307         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
2308             hMidiOut, uMessage, dwParam1, dwParam2);
2309         break;
2310     }
2311     return modMessage(lpDesc->wDevID, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
2312 }
2313
2314 /**************************************************************************
2315  *                              midiInGetNumDevs        [WINMM.64]
2316  */
2317 UINT WINAPI midiInGetNumDevs(void)
2318 {
2319     return midiInGetNumDevs16();
2320 }
2321
2322 /**************************************************************************
2323  *                              midiInGetNumDevs        [MMSYSTEM.301]
2324  */
2325 UINT16 WINAPI midiInGetNumDevs16(void)
2326 {
2327     UINT16      count = 0;
2328     TRACE("midiInGetNumDevs\n");
2329     count += midMessage(0, MIDM_GETNUMDEVS, 0L, 0L, 0L);
2330     TRACE("midiInGetNumDevs return %u \n", count);
2331     return count;
2332 }
2333
2334 /**************************************************************************
2335  *                              midiInGetDevCaps        [WINMM.60]
2336  */
2337 UINT WINAPI midiInGetDevCapsW(UINT uDeviceID, LPMIDIINCAPSW lpCaps, UINT uSize)
2338 {
2339     MIDIINCAPS16        mic16;
2340     UINT                ret = midiInGetDevCaps16(uDeviceID, &mic16, uSize);
2341
2342     lpCaps->wMid = mic16.wMid;
2343     lpCaps->wPid = mic16.wPid;
2344     lpCaps->vDriverVersion = mic16.vDriverVersion;
2345     lstrcpyAtoW(lpCaps->szPname, mic16.szPname);
2346     lpCaps->dwSupport = mic16.dwSupport;
2347     return ret;
2348 }
2349
2350 /**************************************************************************
2351  *                              midiInGetDevCaps        [WINMM.59]
2352  */
2353 UINT WINAPI midiInGetDevCapsA(UINT uDeviceID, LPMIDIINCAPSA lpCaps, UINT uSize)
2354 {
2355     MIDIINCAPS16        mic16;
2356     UINT                ret = midiInGetDevCaps16(uDeviceID, &mic16, uSize);
2357
2358     lpCaps->wMid = mic16.wMid;
2359     lpCaps->wPid = mic16.wPid;
2360     lpCaps->vDriverVersion = mic16.vDriverVersion;
2361     strcpy(lpCaps->szPname, mic16.szPname);
2362     lpCaps->dwSupport = mic16.dwSupport;
2363     return ret;
2364 }
2365
2366 /**************************************************************************
2367  *                              midiInGetDevCaps        [MMSYSTEM.302]
2368  */
2369 UINT16 WINAPI midiInGetDevCaps16(UINT16 uDeviceID,
2370                                  LPMIDIINCAPS16 lpCaps, UINT16 uSize)
2371 {
2372     TRACE("(%d, %p, %d);\n",uDeviceID, lpCaps, uSize);
2373
2374     return midMessage(uDeviceID, MIDM_GETDEVCAPS, 0, (DWORD)lpCaps, uSize);
2375 }
2376
2377 /**************************************************************************
2378  *                              midiInGetErrorText              [WINMM.62]
2379  */
2380 UINT WINAPI midiInGetErrorTextW(UINT uError, LPWSTR lpText, UINT uSize)
2381 {
2382     LPSTR       xstr = HeapAlloc(GetProcessHeap(), 0, uSize);
2383     UINT        ret = MIDI_GetErrorText(uError, xstr, uSize);
2384
2385     lstrcpyAtoW(lpText, xstr);
2386     HeapFree(GetProcessHeap(), 0, xstr);
2387     return ret;
2388 }
2389
2390 /**************************************************************************
2391  *                              midiInGetErrorText              [WINMM.61]
2392  */
2393 UINT WINAPI midiInGetErrorTextA(UINT uError, LPSTR lpText, UINT uSize)
2394 {
2395     return MIDI_GetErrorText(uError, lpText, uSize);
2396 }
2397
2398 /**************************************************************************
2399  *                              midiInGetErrorText              [MMSYSTEM.303]
2400  */
2401 UINT16 WINAPI midiInGetErrorText16(UINT16 uError, LPSTR lpText, UINT16 uSize)
2402 {
2403     return MIDI_GetErrorText(uError, lpText, uSize);
2404 }
2405
2406 /**************************************************************************
2407  *                              midiInOpen              [WINMM.66]
2408  */
2409 UINT WINAPI midiInOpen(HMIDIIN* lphMidiIn, UINT uDeviceID,
2410                        DWORD dwCallback, DWORD dwInstance, DWORD dwFlags)
2411 {
2412     HMIDIIN16   xhmid16;
2413     UINT        ret = midiInOpen16(&xhmid16, uDeviceID, dwCallback, dwInstance,
2414                                    CALLBACK32CONV(dwFlags));
2415     if (lphMidiIn)
2416         *lphMidiIn = xhmid16;
2417     return ret;
2418 }
2419
2420 /**************************************************************************
2421  *                              midiInOpen              [MMSYSTEM.304]
2422  */
2423 UINT16 WINAPI midiInOpen16(HMIDIIN16* lphMidiIn, UINT16 uDeviceID,
2424                            DWORD dwCallback, DWORD dwInstance, DWORD dwFlags)
2425 {
2426     HMIDI16                     hMidiIn;
2427     LPMIDIOPENDESC              lpDesc;
2428     DWORD                       dwRet = 0;
2429     BOOL                        bMapperFlg = FALSE;
2430
2431     if (lphMidiIn != NULL)
2432         *lphMidiIn = 0;
2433     TRACE("(%p, %d, %08lX, %08lX, %08lX);\n",
2434           lphMidiIn, uDeviceID, dwCallback, dwInstance, dwFlags);
2435     if (uDeviceID == (UINT16)MIDI_MAPPER) {
2436         TRACE("MIDI_MAPPER mode requested !\n");
2437         bMapperFlg = TRUE;
2438         uDeviceID = 0;
2439     }
2440     hMidiIn = USER_HEAP_ALLOC(sizeof(MIDIOPENDESC));
2441     if (lphMidiIn != NULL)
2442         *lphMidiIn = hMidiIn;
2443     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2444     if (lpDesc == NULL)
2445         return MMSYSERR_NOMEM;
2446     lpDesc->hMidi = hMidiIn;
2447     lpDesc->dwCallback = dwCallback;
2448     lpDesc->dwInstance = dwInstance;
2449
2450     while (uDeviceID < MAXMIDIDRIVERS) {
2451         dwRet = midMessage(uDeviceID, MIDM_OPEN,
2452                            lpDesc->dwInstance, (DWORD)lpDesc, dwFlags);
2453         if (dwRet == MMSYSERR_NOERROR)
2454             break;
2455         if (!bMapperFlg)
2456             break;
2457         uDeviceID++;
2458         TRACE("MIDI_MAPPER mode ! try next driver...\n");
2459     }
2460     lpDesc->wDevID = uDeviceID;
2461
2462     if (dwRet != MMSYSERR_NOERROR) {
2463         USER_HEAP_FREE(hMidiIn);
2464         if (lphMidiIn) *lphMidiIn = 0;
2465     }
2466
2467     return dwRet;
2468 }
2469
2470 /**************************************************************************
2471  *                              midiInClose             [WINMM.58]
2472  */
2473 UINT WINAPI midiInClose(HMIDIIN hMidiIn)
2474 {
2475     return midiInClose16(hMidiIn);
2476 }
2477
2478 /**************************************************************************
2479  *                              midiInClose             [MMSYSTEM.305]
2480  */
2481 UINT16 WINAPI midiInClose16(HMIDIIN16 hMidiIn)
2482 {
2483     LPMIDIOPENDESC      lpDesc;
2484     DWORD               dwRet;
2485
2486     TRACE("(%04X)\n", hMidiIn);
2487     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2488
2489     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2490     dwRet = midMessage(lpDesc->wDevID, MIDM_CLOSE, lpDesc->dwInstance, 0L, 0L);
2491     USER_HEAP_FREE(hMidiIn);
2492     return dwRet;
2493 }
2494
2495 /**************************************************************************
2496  *                              midiInPrepareHeader     [WINMM.67]
2497  */
2498 UINT WINAPI midiInPrepareHeader(HMIDIIN hMidiIn,
2499                                 MIDIHDR* lpMidiInHdr, UINT uSize)
2500 {
2501     LPMIDIOPENDESC      lpDesc;
2502
2503     TRACE("(%04X, %p, %d)\n", hMidiIn, lpMidiInHdr, uSize);
2504
2505     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2506     if (lpDesc == NULL)
2507         return MMSYSERR_INVALHANDLE;
2508     lpMidiInHdr->reserved = (DWORD)lpMidiInHdr;
2509     return midMessage(lpDesc->wDevID, MIDM_PREPARE, lpDesc->dwInstance,
2510                       (DWORD)lpMidiInHdr, (DWORD)uSize);
2511 }
2512
2513 /**************************************************************************
2514  *                              midiInPrepareHeader     [MMSYSTEM.306]
2515  */
2516 UINT16 WINAPI midiInPrepareHeader16(HMIDIIN16 hMidiIn,
2517                                     MIDIHDR16* /*SEGPTR*/ _lpMidiInHdr, UINT16 uSize)
2518 {
2519     LPMIDIOPENDESC      lpDesc;
2520     LPMIDIHDR16         lpMidiInHdr = (LPMIDIHDR16)PTR_SEG_TO_LIN(_lpMidiInHdr);
2521
2522     TRACE("(%04X, %p, %d)\n", hMidiIn, lpMidiInHdr, uSize);
2523
2524     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2525     if (lpDesc == NULL)
2526         return MMSYSERR_INVALHANDLE;
2527     lpMidiInHdr->reserved = (DWORD)_lpMidiInHdr;
2528     return midMessage(lpDesc->wDevID, MIDM_PREPARE, lpDesc->dwInstance,
2529                       (DWORD)lpMidiInHdr, (DWORD)uSize);
2530 }
2531
2532 /**************************************************************************
2533  *                              midiInUnprepareHeader   [WINMM.71]
2534  */
2535 UINT WINAPI midiInUnprepareHeader(HMIDIIN hMidiIn,
2536                                   MIDIHDR* lpMidiInHdr, UINT uSize)
2537 {
2538     return midiInUnprepareHeader16(hMidiIn, (MIDIHDR16*)lpMidiInHdr, uSize);
2539 }
2540
2541 /**************************************************************************
2542  *                              midiInUnprepareHeader   [MMSYSTEM.307]
2543  */
2544 UINT16 WINAPI midiInUnprepareHeader16(HMIDIIN16 hMidiIn,
2545                                       MIDIHDR16* lpMidiInHdr, UINT16 uSize)
2546 {
2547     LPMIDIOPENDESC      lpDesc;
2548
2549     TRACE("(%04X, %p, %d)\n", hMidiIn, lpMidiInHdr, uSize);
2550
2551     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2552     if (lpDesc == NULL)
2553         return MMSYSERR_INVALHANDLE;
2554     return midMessage(lpDesc->wDevID, MIDM_UNPREPARE, lpDesc->dwInstance,
2555                       (DWORD)lpMidiInHdr, (DWORD)uSize);
2556 }
2557
2558 /**************************************************************************
2559  *                              midiInAddBuffer         [WINMM.57]
2560  */
2561 UINT WINAPI midiInAddBuffer(HMIDIIN hMidiIn,
2562                             MIDIHDR* lpMidiInHdr, UINT uSize)
2563 {
2564     return midiInAddBuffer16(hMidiIn, (MIDIHDR16*)lpMidiInHdr, uSize);
2565 }
2566
2567 /**************************************************************************
2568  *                              midiInAddBuffer         [MMSYSTEM.308]
2569  */
2570 UINT16 WINAPI midiInAddBuffer16(HMIDIIN16 hMidiIn,
2571                                 MIDIHDR16* lpMidiInHdr, UINT16 uSize)
2572 {
2573     TRACE("midiInAddBuffer\n");
2574     return 0;
2575 }
2576
2577 /**************************************************************************
2578  *                              midiInStart                     [WINMM.69]
2579  */
2580 UINT WINAPI midiInStart(HMIDIIN hMidiIn)
2581 {
2582     return midiInStart16(hMidiIn);
2583 }
2584
2585 /**************************************************************************
2586  *                              midiInStart                     [MMSYSTEM.309]
2587  */
2588 UINT16 WINAPI midiInStart16(HMIDIIN16 hMidiIn)
2589 {
2590     LPMIDIOPENDESC      lpDesc;
2591
2592     TRACE("(%04X)\n", hMidiIn);
2593     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2594     if (lpDesc == NULL)
2595         return MMSYSERR_INVALHANDLE;
2596     return midMessage(lpDesc->wDevID, MIDM_START, lpDesc->dwInstance, 0L, 0L);
2597 }
2598
2599 /**************************************************************************
2600  *                              midiInStop                      [WINMM.70]
2601  */
2602 UINT WINAPI midiInStop(HMIDIIN hMidiIn)
2603 {
2604     return midiInStop16(hMidiIn);
2605 }
2606
2607 /**************************************************************************
2608  *                              midiInStop                      [MMSYSTEM.310]
2609  */
2610 UINT16 WINAPI midiInStop16(HMIDIIN16 hMidiIn)
2611 {
2612     LPMIDIOPENDESC      lpDesc;
2613
2614     TRACE("(%04X)\n", hMidiIn);
2615     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2616     if (lpDesc == NULL)
2617         return MMSYSERR_INVALHANDLE;
2618     return midMessage(lpDesc->wDevID, MIDM_STOP, lpDesc->dwInstance, 0L, 0L);
2619 }
2620
2621 /**************************************************************************
2622  *                              midiInReset                     [WINMM.68]
2623  */
2624 UINT WINAPI midiInReset(HMIDIIN hMidiIn)
2625 {
2626     return midiInReset16(hMidiIn);
2627 }
2628
2629 /**************************************************************************
2630  *                              midiInReset                     [MMSYSTEM.311]
2631  */
2632 UINT16 WINAPI midiInReset16(HMIDIIN16 hMidiIn)
2633 {
2634     LPMIDIOPENDESC      lpDesc;
2635
2636     TRACE("(%04X)\n", hMidiIn);
2637     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2638     if (lpDesc == NULL)
2639         return MMSYSERR_INVALHANDLE;
2640     return midMessage(lpDesc->wDevID, MIDM_RESET, lpDesc->dwInstance, 0L, 0L);
2641 }
2642
2643 /**************************************************************************
2644  *                              midiInGetID                     [WINMM.63]
2645  */
2646 UINT WINAPI midiInGetID(HMIDIIN hMidiIn, UINT* lpuDeviceID)
2647 {
2648     LPMIDIOPENDESC      lpDesc;
2649
2650     TRACE("(%04X, %p)\n", hMidiIn, lpuDeviceID);
2651     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2652     if (lpDesc == NULL)
2653         return MMSYSERR_INVALHANDLE;
2654     if (lpuDeviceID == NULL)
2655         return MMSYSERR_INVALPARAM;
2656     *lpuDeviceID = lpDesc->wDevID;
2657
2658     return MMSYSERR_NOERROR;
2659 }
2660
2661 /**************************************************************************
2662  *                              midiInGetID                     [MMSYSTEM.312]
2663  */
2664 UINT16 WINAPI midiInGetID16(HMIDIIN16 hMidiIn, UINT16* lpuDeviceID)
2665 {
2666     LPMIDIOPENDESC      lpDesc;
2667
2668     TRACE("(%04X, %p)\n", hMidiIn, lpuDeviceID);
2669     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2670     if (lpDesc == NULL)
2671         return MMSYSERR_INVALHANDLE;
2672     if (lpuDeviceID == NULL)
2673         return MMSYSERR_INVALPARAM;
2674     *lpuDeviceID = lpDesc->wDevID;
2675
2676     return MMSYSERR_NOERROR;
2677 }
2678
2679 /**************************************************************************
2680  *                              midiInMessage           [WINMM.65]
2681  */
2682 DWORD WINAPI midiInMessage(HMIDIIN hMidiIn, UINT uMessage,
2683                            DWORD dwParam1, DWORD dwParam2)
2684 {
2685     LPMIDIOPENDESC      lpDesc;
2686
2687     TRACE("(%04X, %04X, %08lX, %08lX)\n",
2688           hMidiIn, uMessage, dwParam1, dwParam2);
2689     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2690     if (lpDesc == NULL)
2691         return MMSYSERR_INVALHANDLE;
2692
2693     switch (uMessage) {
2694     case MIDM_OPEN:
2695         FIXME("can't handle MIDM_OPEN!\n");
2696         return 0;
2697     case MIDM_GETDEVCAPS:
2698         return midiInGetDevCapsA(hMidiIn, (LPMIDIINCAPSA)dwParam1, dwParam2);
2699     case MIDM_GETNUMDEVS:
2700     case MIDM_RESET:
2701     case MIDM_STOP:
2702     case MIDM_START:
2703     case MIDM_CLOSE:
2704         /* no argument conversion needed */
2705         break;
2706     case MIDM_PREPARE:
2707         return midiInPrepareHeader(hMidiIn, (LPMIDIHDR)dwParam1, dwParam2);
2708     case MIDM_UNPREPARE:
2709         return midiInUnprepareHeader(hMidiIn, (LPMIDIHDR)dwParam1, dwParam2);
2710     case MIDM_ADDBUFFER:
2711         return midiInAddBuffer(hMidiIn, (LPMIDIHDR)dwParam1, dwParam2);
2712     default:
2713         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
2714             hMidiIn, uMessage, dwParam1, dwParam2);
2715         break;
2716     }
2717     return midMessage(0, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
2718 }
2719
2720 /**************************************************************************
2721  *                              midiInMessage           [MMSYSTEM.313]
2722  */
2723 DWORD WINAPI midiInMessage16(HMIDIIN16 hMidiIn, UINT16 uMessage,
2724                              DWORD dwParam1, DWORD dwParam2)
2725 {
2726     LPMIDIOPENDESC      lpDesc;
2727
2728     TRACE("(%04X, %04X, %08lX, %08lX)\n", hMidiIn, uMessage, dwParam1, dwParam2);
2729
2730     lpDesc = (LPMIDIOPENDESC) USER_HEAP_LIN_ADDR(hMidiIn);
2731     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
2732     switch (uMessage) {
2733     case MIDM_OPEN:
2734         WARN("can't handle MIDM_OPEN!\n");
2735         return 0;
2736     case MIDM_GETDEVCAPS:
2737         return midiInGetDevCaps16(hMidiIn, (LPMIDIINCAPS16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
2738     case MIDM_GETNUMDEVS:
2739     case MIDM_RESET:
2740     case MIDM_STOP:
2741     case MIDM_START:
2742     case MIDM_CLOSE:
2743         /* no argument conversion needed */
2744         break;
2745     case MIDM_PREPARE:
2746         return midiInPrepareHeader16(hMidiIn, (LPMIDIHDR16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
2747     case MIDM_UNPREPARE:
2748         return midiInUnprepareHeader16(hMidiIn, (LPMIDIHDR16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
2749     case MIDM_ADDBUFFER:
2750         return midiInAddBuffer16(hMidiIn, (LPMIDIHDR16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
2751     default:
2752         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
2753             hMidiIn, uMessage, dwParam1, dwParam2);
2754         break;
2755     }
2756     return midMessage(0, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
2757 }
2758
2759 typedef struct WINE_MIDIStream{
2760     HMIDIOUT                    hDevice;
2761     HANDLE                      hThread;
2762     DWORD                       dwThreadID;
2763     DWORD                       dwTempo;
2764     DWORD                       dwTimeDiv;
2765     DWORD                       dwPositionMS;
2766     DWORD                       dwPulses;
2767     DWORD                       dwStartTicks;
2768     WORD                        wFlags;
2769     HANDLE                      hEvent;
2770     LPMIDIHDR                   lpMidiHdr;
2771 } WINE_MIDIStream;
2772
2773 #define WINE_MSM_HEADER         (WM_USER+0)
2774 #define WINE_MSM_STOP           (WM_USER+1)
2775
2776 /**************************************************************************
2777  *                              MMSYSTEM_GetMidiStream          [internal]
2778  */
2779 static  BOOL    MMSYSTEM_GetMidiStream(HMIDISTRM hMidiStrm, WINE_MIDIStream** lpMidiStrm, MIDIOPENDESC** lplpDesc)
2780 {
2781     MIDIOPENDESC* lpDesc = (LPMIDIOPENDESC)USER_HEAP_LIN_ADDR(hMidiStrm);
2782
2783     if (lplpDesc)
2784         *lplpDesc = lpDesc;
2785
2786     if (lpDesc == NULL) {
2787         return FALSE;
2788     }
2789
2790     *lpMidiStrm = (WINE_MIDIStream*)lpDesc->rgIds.dwStreamID;
2791
2792     return *lpMidiStrm != NULL;
2793 }
2794
2795 /**************************************************************************
2796  *                              MMSYSTEM_MidiStream_Convert     [internal]
2797  */
2798 static  DWORD   MMSYSTEM_MidiStream_Convert(WINE_MIDIStream* lpMidiStrm, DWORD pulse)
2799 {
2800     DWORD       ret = 0;
2801
2802     if (lpMidiStrm->dwTimeDiv == 0) {
2803         FIXME("Shouldn't happen. lpMidiStrm->dwTimeDiv = 0\n");
2804     } else if (lpMidiStrm->dwTimeDiv > 0x8000) { /* SMPTE, unchecked FIXME? */
2805         int     nf = -(char)HIBYTE(lpMidiStrm->dwTimeDiv);      /* number of frames     */
2806         int     nsf = LOBYTE(lpMidiStrm->dwTimeDiv);            /* number of sub-frames */
2807         ret = (pulse * 1000) / (nf * nsf);
2808     } else {
2809         ret = (DWORD)((double)pulse * ((double)lpMidiStrm->dwTempo / 1000) /
2810                       (double)lpMidiStrm->dwTimeDiv);
2811     }
2812
2813     return ret;
2814 }
2815
2816 /**************************************************************************
2817  *                      MMSYSTEM_MidiStream_MessageHandler      [internal]
2818  */
2819 static  BOOL    MMSYSTEM_MidiStream_MessageHandler(WINE_MIDIStream* lpMidiStrm, LPMIDIOPENDESC lpDesc, LPMSG msg)
2820 {
2821     LPMIDIHDR   lpMidiHdr;
2822     LPMIDIHDR*  lpmh;
2823     LPBYTE      lpData;
2824
2825     switch (msg->message) {
2826     case WM_QUIT:
2827         SetEvent(lpMidiStrm->hEvent);
2828         return FALSE;
2829     case WINE_MSM_STOP:
2830         TRACE("STOP\n");
2831         /* this is not quite what MS doc says... */
2832         midiOutReset(lpMidiStrm->hDevice);
2833         /* empty list of already submitted buffers */
2834         for (lpMidiHdr = lpMidiStrm->lpMidiHdr; lpMidiHdr; lpMidiHdr = (LPMIDIHDR)lpMidiHdr->lpNext) {
2835             lpMidiHdr->dwFlags |= MHDR_DONE;
2836             lpMidiHdr->dwFlags &= ~MHDR_INQUEUE;
2837
2838             DriverCallback16(lpDesc->dwCallback, lpMidiStrm->wFlags, lpMidiStrm->hDevice,
2839                              MM_MOM_DONE, lpDesc->dwInstance, lpMidiHdr->reserved, 0L);
2840         }
2841         lpMidiStrm->lpMidiHdr = 0;
2842         SetEvent(lpMidiStrm->hEvent);
2843         break;
2844     case WINE_MSM_HEADER:
2845         /* sets initial tick count for first MIDIHDR */
2846         if (!lpMidiStrm->dwStartTicks)
2847             lpMidiStrm->dwStartTicks = GetTickCount();
2848
2849         /* FIXME(EPP): "I don't understand the content of the first MIDIHDR sent
2850          * by native mcimidi, it doesn't look like a correct one".
2851          * this trick allows to throw it away... but I don't like it.
2852          * It looks like part of the file I'm trying to play and definitively looks
2853          * like raw midi content
2854          * I'd really like to understand why native mcimidi sends it. Perhaps a bad
2855          * synchronization issue where native mcimidi is still processing raw MIDI
2856          * content before generating MIDIEVENTs ?
2857          *
2858          * 4c 04 89 3b 00 81 7c 99 3b 43 00 99 23 5e 04 89 L..;..|.;C..#^..
2859          * 3b 00 00 89 23 00 7c 99 3b 45 00 99 28 62 04 89 ;...#.|.;E..(b..
2860          * 3b 00 00 89 28 00 81 7c 99 3b 4e 00 99 23 5e 04 ;...(..|.;N..#^.
2861          * 89 3b 00 00 89 23 00 7c 99 3b 45 00 99 23 78 04 .;...#.|.;E..#x.
2862          * 89 3b 00 00 89 23 00 81 7c 99 3b 48 00 99 23 5e .;...#..|.;H..#^
2863          * 04 89 3b 00 00 89 23 00 7c 99 3b 4e 00 99 28 62 ..;...#.|.;N..(b
2864          * 04 89 3b 00 00 89 28 00 81 7c 99 39 4c 00 99 23 ..;...(..|.9L..#
2865          * 5e 04 89 39 00 00 89 23 00 82 7c 99 3b 4c 00 99 ^..9...#..|.;L..
2866          * 23 5e 04 89 3b 00 00 89 23 00 7c 99 3b 48 00 99 #^..;...#.|.;H..
2867          * 28 62 04 89 3b 00 00 89 28 00 81 7c 99 3b 3f 04 (b..;...(..|.;?.
2868          * 89 3b 00 1c 99 23 5e 04 89 23 00 5c 99 3b 45 00 .;...#^..#.\.;E.
2869          * 99 23 78 04 89 3b 00 00 89 23 00 81 7c 99 3b 46 .#x..;...#..|.;F
2870          * 00 99 23 5e 04 89 3b 00 00 89 23 00 7c 99 3b 48 ..#^..;...#.|.;H
2871          * 00 99 28 62 04 89 3b 00 00 89 28 00 81 7c 99 3b ..(b..;...(..|.;
2872          * 46 00 99 23 5e 04 89 3b 00 00 89 23 00 7c 99 3b F..#^..;...#.|.;
2873          * 48 00 99 23 78 04 89 3b 00 00 89 23 00 81 7c 99 H..#x..;...#..|.
2874          * 3b 4c 00 99 23 5e 04 89 3b 00 00 89 23 00 7c 99 ;L..#^..;...#.|.
2875          */
2876         lpMidiHdr = (LPMIDIHDR)msg->lParam;
2877         lpData = ((DWORD)lpMidiHdr == lpMidiHdr->reserved) ?
2878             (LPBYTE)lpMidiHdr->lpData : (LPBYTE)PTR_SEG_TO_LIN(lpMidiHdr->lpData);
2879         TRACE("Adding %s lpMidiHdr=%p [lpData=0x%08lx dwBufferLength=%lu/%lu dwFlags=0x%08lx size=%u]\n",
2880               (lpMidiHdr->dwFlags & MHDR_ISSTRM) ? "stream" : "regular", lpMidiHdr,
2881               lpMidiHdr->reserved, lpMidiHdr->dwBufferLength, lpMidiHdr->dwBytesRecorded,
2882               lpMidiHdr->dwFlags, msg->wParam);
2883 #if 0
2884         /* dumps content of lpMidiHdr->lpData
2885          * FIXME: there should be a debug routine somewhere that already does this
2886          * I hate spreading this type of shit all around the code
2887          */
2888         for (dwToGo = 0; dwToGo < lpMidiHdr->dwBufferLength; dwToGo += 16) {
2889             DWORD       i;
2890             BYTE        ch;
2891
2892             for (i = 0; i < MIN(16, lpMidiHdr->dwBufferLength - dwToGo); i++)
2893                 printf("%02x ", lpData[dwToGo + i]);
2894             for (; i < 16; i++)
2895                 printf("   ");
2896             for (i = 0; i < MIN(16, lpMidiHdr->dwBufferLength - dwToGo); i++) {
2897                 ch = lpData[dwToGo + i];
2898                 printf("%c", (ch >= 0x20 && ch <= 0x7F) ? ch : '.');
2899             }
2900             printf("\n");
2901         }
2902 #endif
2903         if (((LPMIDIEVENT)lpData)->dwStreamID != 0 &&
2904             ((LPMIDIEVENT)lpData)->dwStreamID != 0xFFFFFFFF &&
2905             ((LPMIDIEVENT)lpData)->dwStreamID != (DWORD)lpMidiStrm) {
2906             FIXME("Dropping bad %s lpMidiHdr (streamID=%08lx)\n",
2907                   (lpMidiHdr->dwFlags & MHDR_ISSTRM) ? "stream" : "regular",
2908                   ((LPMIDIEVENT)lpData)->dwStreamID);
2909             lpMidiHdr->dwFlags |= MHDR_DONE;
2910             lpMidiHdr->dwFlags &= ~MHDR_INQUEUE;
2911
2912             DriverCallback16(lpDesc->dwCallback, lpMidiStrm->wFlags, lpMidiStrm->hDevice,
2913                              MM_MOM_DONE, lpDesc->dwInstance, lpMidiHdr->reserved, 0L);
2914             break;
2915         }
2916
2917         for (lpmh = &lpMidiStrm->lpMidiHdr; *lpmh; lpmh = (LPMIDIHDR*)&((*lpmh)->lpNext));
2918         *lpmh = lpMidiHdr;
2919         lpMidiHdr = (LPMIDIHDR)msg->lParam;
2920         lpMidiHdr->lpNext = 0;
2921         lpMidiHdr->dwFlags |= MHDR_INQUEUE;
2922         lpMidiHdr->dwFlags &= MHDR_DONE;
2923         lpMidiHdr->dwOffset = 0;
2924
2925         break;
2926     default:
2927         FIXME("Unknown message %d\n", msg->message);
2928         break;
2929     }
2930     return TRUE;
2931 }
2932
2933 /**************************************************************************
2934  *                              MMSYSTEM_MidiStream_Player      [internal]
2935  */
2936 static  DWORD   CALLBACK        MMSYSTEM_MidiStream_Player(LPVOID pmt)
2937 {
2938     WINE_MIDIStream*    lpMidiStrm = pmt;
2939     MIDIOPENDESC*       lpDesc = USER_HEAP_LIN_ADDR(lpMidiStrm->hDevice);
2940     MSG                 msg;
2941     DWORD               dwToGo;
2942     DWORD               dwCurrTC;
2943     LPMIDIHDR           lpMidiHdr;
2944     LPMIDIEVENT         me;
2945     LPBYTE              lpData = 0;
2946
2947     TRACE("(%p)!\n", lpMidiStrm);
2948
2949     /* force thread's queue creation */
2950     /* Used to be InitThreadInput16(0, 5); */
2951     /* but following works also with hack in midiStreamOpen */
2952     Callout.PeekMessageA(&msg, 0, 0, 0, 0);
2953
2954     /* FIXME: this next line must be called before midiStreamOut or midiStreamRestart are called */
2955     SetEvent(lpMidiStrm->hEvent);
2956     TRACE("Ready to go 1\n");
2957     /* thread is started in paused mode */
2958     SuspendThread(lpMidiStrm->hThread);
2959     TRACE("Ready to go 2\n");
2960
2961     lpMidiStrm->dwStartTicks = 0;
2962     lpMidiStrm->dwPulses = 0;
2963
2964     lpMidiStrm->lpMidiHdr = 0;
2965
2966     for (;;) {
2967         lpMidiHdr = lpMidiStrm->lpMidiHdr;
2968         if (!lpMidiHdr) {
2969             /* for first message, block until one arrives, then process all that are available */
2970             Callout.GetMessageA(&msg, 0, 0, 0);
2971             do {
2972                 if (!MMSYSTEM_MidiStream_MessageHandler(lpMidiStrm, lpDesc, &msg))
2973                     goto the_end;
2974             } while (Callout.PeekMessageA(&msg, 0, 0, 0, PM_REMOVE));
2975             lpData = 0;
2976             continue;
2977         }
2978
2979         /* <HACK>
2980          * midiOutPrepareHeader(), in Wine, sets the 'reserved' field of MIDIHDR to the
2981          * 16 or 32 bit address of lpMidiHdr (depending if called from 16 to 32 bit code)
2982          */
2983         if (!lpData)
2984             lpData = ((DWORD)lpMidiHdr == lpMidiHdr->reserved) ?
2985                 (LPBYTE)lpMidiHdr->lpData : (LPBYTE)PTR_SEG_TO_LIN(lpMidiHdr->lpData);
2986
2987         me = (LPMIDIEVENT)(lpData + lpMidiHdr->dwOffset);
2988
2989         /* do we have to wait ? */
2990         if (me->dwDeltaTime) {
2991             lpMidiStrm->dwPositionMS += MMSYSTEM_MidiStream_Convert(lpMidiStrm, me->dwDeltaTime);
2992             lpMidiStrm->dwPulses += me->dwDeltaTime;
2993
2994             dwToGo = lpMidiStrm->dwStartTicks + lpMidiStrm->dwPositionMS;
2995
2996             TRACE("%ld/%ld/%ld\n", dwToGo, GetTickCount(), me->dwDeltaTime);
2997             while ((dwCurrTC = GetTickCount()) < dwToGo) {
2998                 if (MsgWaitForMultipleObjects(0, NULL, FALSE, dwToGo - dwCurrTC, QS_ALLINPUT) == WAIT_OBJECT_0) {
2999                     /* got a message, handle it */
3000                     while (Callout.PeekMessageA(&msg, 0, 0, 0, PM_REMOVE)) {
3001                         if (!MMSYSTEM_MidiStream_MessageHandler(lpMidiStrm, lpDesc, &msg))
3002                             goto the_end;
3003                     }
3004                     lpData = 0;
3005                 } else {
3006                     /* timeout, so me->dwDeltaTime is elapsed, can break the while loop */
3007                     break;
3008                 }
3009             }
3010         }
3011         switch (MEVT_EVENTTYPE(me->dwEvent & ~MEVT_F_CALLBACK)) {
3012         case MEVT_COMMENT:
3013             FIXME("NIY: MEVT_COMMENT\n");
3014             /* do nothing, skip bytes */
3015             break;
3016         case MEVT_LONGMSG:
3017             FIXME("NIY: MEVT_LONGMSG, aka sending Sysex event\n");
3018             break;
3019         case MEVT_NOP:
3020             break;
3021         case MEVT_SHORTMSG:
3022             midiOutShortMsg(lpMidiStrm->hDevice, MEVT_EVENTPARM(me->dwEvent));
3023             break;
3024         case MEVT_TEMPO:
3025             lpMidiStrm->dwTempo = MEVT_EVENTPARM(me->dwEvent);
3026             break;
3027         case MEVT_VERSION:
3028             break;
3029         default:
3030             FIXME("Unknown MEVT (0x%02x)\n", MEVT_EVENTTYPE(me->dwEvent & ~MEVT_F_CALLBACK));
3031             break;
3032         }
3033         if (me->dwEvent & MEVT_F_CALLBACK) {
3034             DriverCallback16(lpDesc->dwCallback, lpMidiStrm->wFlags, lpMidiStrm->hDevice,
3035                              MM_MOM_POSITIONCB, lpDesc->dwInstance, (LPARAM)lpMidiHdr, 0L);
3036         }
3037         lpMidiHdr->dwOffset += sizeof(MIDIEVENT);
3038         if (me->dwEvent & MEVT_F_LONG)
3039             lpMidiHdr->dwOffset += (MEVT_EVENTPARM(me->dwEvent) + 3) & ~3;
3040         if (lpMidiHdr->dwOffset >= lpMidiHdr->dwBufferLength) {
3041             /* done with this header */
3042             lpMidiHdr->dwFlags |= MHDR_DONE;
3043             lpMidiHdr->dwFlags &= ~MHDR_INQUEUE;
3044
3045             lpMidiStrm->lpMidiHdr = (LPMIDIHDR)lpMidiHdr->lpNext;
3046             DriverCallback16(lpDesc->dwCallback, lpMidiStrm->wFlags, lpMidiStrm->hDevice,
3047                              MM_MOM_DONE, lpDesc->dwInstance, lpMidiHdr->reserved, 0L);
3048             lpData = 0;
3049         }
3050     }
3051 the_end:
3052     TRACE("End of thread\n");
3053     ExitThread(0);
3054     return 0;   /* for removing the warning, never executed */
3055 }
3056
3057 /**************************************************************************
3058  *                              MMSYSTEM_MidiStream_PostMessage [internal]
3059  */
3060 static  BOOL MMSYSTEM_MidiStream_PostMessage(WINE_MIDIStream* lpMidiStrm, WORD msg, DWORD pmt1, DWORD pmt2)
3061 {
3062     if (Callout.PostThreadMessageA(lpMidiStrm->dwThreadID, msg, pmt1, pmt2)) {
3063         DWORD   count;
3064         BOOL    bHasWin16Lock;
3065
3066         /* FIXME: should use the new syslevel APIs */
3067         if ((bHasWin16Lock = _ConfirmWin16Lock()) != 0) {
3068             ReleaseThunkLock(&count);
3069         }
3070         WaitForSingleObject(lpMidiStrm->hEvent, INFINITE);
3071         if (bHasWin16Lock) {
3072             RestoreThunkLock(count);
3073         }
3074     } else {
3075         WARN("bad PostThreadMessageA\n");
3076         return FALSE;
3077     }
3078     return TRUE;
3079 }
3080
3081 /**************************************************************************
3082  *                              midiStreamClose                 [WINMM.90]
3083  */
3084 MMRESULT WINAPI midiStreamClose(HMIDISTRM hMidiStrm)
3085 {
3086     WINE_MIDIStream*    lpMidiStrm;
3087
3088     TRACE("(%08x)!\n", hMidiStrm);
3089
3090     if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL))
3091         return MMSYSERR_INVALHANDLE;
3092
3093     midiStreamStop(hMidiStrm);
3094     MMSYSTEM_MidiStream_PostMessage(lpMidiStrm, WM_QUIT, 0, 0);
3095     HeapFree(GetProcessHeap(), 0, lpMidiStrm);
3096     CloseHandle(lpMidiStrm->hEvent);
3097
3098     return midiOutClose(hMidiStrm);
3099 }
3100
3101 /**************************************************************************
3102  *                              MMSYSTEM_MidiStream_Open        [internal]
3103  */
3104 static  MMRESULT WINAPI MMSYSTEM_MidiStream_Open(HMIDISTRM* lphMidiStrm, LPUINT lpuDeviceID,
3105                                                  DWORD cMidi, DWORD dwCallback,
3106                                                  DWORD dwInstance, DWORD fdwOpen)
3107 {
3108     WINE_MIDIStream*    lpMidiStrm;
3109     MMRESULT            ret;
3110     MIDIOPENSTRMID      mosm;
3111     MIDIOPENDESC*       lpDesc;
3112     HMIDIOUT16          hMidiOut16;
3113
3114     TRACE("(%p, %p, %ld, 0x%08lx, 0x%08lx, 0x%08lx)!\n",
3115           lphMidiStrm, lpuDeviceID, cMidi, dwCallback, dwInstance, fdwOpen);
3116
3117     if (cMidi != 1 || lphMidiStrm == NULL || lpuDeviceID == NULL)
3118         return MMSYSERR_INVALPARAM;
3119
3120     if (*lpuDeviceID == (UINT16)MIDI_MAPPER) {
3121         FIXME("MIDI_MAPPER mode requested ! => forcing devID to 0\n");
3122         *lpuDeviceID = 0;
3123     }
3124
3125     lpMidiStrm = HeapAlloc(GetProcessHeap(), 0, sizeof(WINE_MIDIStream));
3126     if (!lpMidiStrm)
3127         return MMSYSERR_NOMEM;
3128
3129     lpMidiStrm->dwTempo = 500000;
3130     lpMidiStrm->dwTimeDiv = 480;        /* 480 is 120 quater notes per minute *//* FIXME ??*/
3131     lpMidiStrm->dwPositionMS = 0;
3132
3133     mosm.dwStreamID = (DWORD)lpMidiStrm;
3134     /* FIXME: the correct value is not allocated yet for MAPPER */
3135     mosm.wDeviceID  = *lpuDeviceID;
3136     lpDesc = MIDI_OutAlloc(&hMidiOut16, dwCallback, dwInstance, 1, &mosm);
3137     lpMidiStrm->hDevice = hMidiOut16;
3138     if (lphMidiStrm)
3139         *lphMidiStrm = hMidiOut16;
3140
3141     lpDesc->wDevID = *lpuDeviceID;
3142     ret = modMessage(lpDesc->wDevID, MODM_OPEN,
3143                      lpDesc->dwInstance, (DWORD)lpDesc, fdwOpen);
3144     lpMidiStrm->hEvent = CreateEventA(NULL, FALSE, FALSE, NULL);
3145     lpMidiStrm->wFlags = HIWORD(fdwOpen);
3146
3147     lpMidiStrm->hThread = CreateThread(NULL, 0, MMSYSTEM_MidiStream_Player,
3148                                        lpMidiStrm, 0, &(lpMidiStrm->dwThreadID));
3149
3150     if (!lpMidiStrm->hThread) {
3151         midiStreamClose((HMIDISTRM)hMidiOut16);
3152         return MMSYSERR_NOMEM;
3153     }
3154
3155     /* wait for thread to have started, and for it's queue to be created */
3156     {
3157         DWORD   count;
3158         BOOL    bHasWin16Lock;
3159
3160         /* (Release|Restore)ThunkLock() is needed when this method is called from 16 bit code,
3161          * (meaning the Win16Lock is set), so that it's released and the 32 bit thread running
3162          * MMSYSTEM_MidiStreamPlayer can acquire Win16Lock to create its queue.
3163          */
3164         if ((bHasWin16Lock = _ConfirmWin16Lock()) != 0) {
3165             ReleaseThunkLock(&count);
3166         }
3167         WaitForSingleObject(lpMidiStrm->hEvent, INFINITE);
3168         if (bHasWin16Lock) {
3169             RestoreThunkLock(count);
3170         }
3171     }
3172
3173     TRACE("=> (%u/%d) hMidi=0x%04x ret=%d lpMidiStrm=%p\n", *lpuDeviceID, lpDesc->wDevID, *lphMidiStrm, ret, lpMidiStrm);
3174     return ret;
3175 }
3176
3177 /**************************************************************************
3178  *                              midiStreamOpen                  [WINMM.91]
3179  */
3180 MMRESULT WINAPI midiStreamOpen(HMIDISTRM* lphMidiStrm, LPUINT lpuDeviceID,
3181                                DWORD cMidi, DWORD dwCallback,
3182                                DWORD dwInstance, DWORD fdwOpen)
3183 {
3184     return MMSYSTEM_MidiStream_Open(lphMidiStrm, lpuDeviceID, cMidi, dwCallback, dwInstance, CALLBACK32CONV(fdwOpen));
3185 }
3186
3187 /**************************************************************************
3188  *                              midiStreamOut                   [WINMM.92]
3189  */
3190 MMRESULT WINAPI midiStreamOut(HMIDISTRM hMidiStrm, LPMIDIHDR lpMidiHdr, UINT cbMidiHdr)
3191 {
3192     WINE_MIDIStream*    lpMidiStrm;
3193     DWORD               ret = MMSYSERR_NOERROR;
3194
3195     TRACE("(%08x, %p, %u)!\n", hMidiStrm, lpMidiHdr, cbMidiHdr);
3196
3197     if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
3198         ret = MMSYSERR_INVALHANDLE;
3199     } else {
3200         if (!Callout.PostThreadMessageA(lpMidiStrm->dwThreadID, WINE_MSM_HEADER, cbMidiHdr, (DWORD)lpMidiHdr)) {
3201             WARN("bad PostThreadMessageA\n");
3202             ret = MMSYSERR_ERROR;
3203         }
3204     }
3205     return ret;
3206 }
3207
3208 /**************************************************************************
3209  *                              midiStreamPause                 [WINMM.93]
3210  */
3211 MMRESULT WINAPI midiStreamPause(HMIDISTRM hMidiStrm)
3212 {
3213     WINE_MIDIStream*    lpMidiStrm;
3214     DWORD               ret = MMSYSERR_NOERROR;
3215
3216     TRACE("(%08x)!\n", hMidiStrm);
3217
3218     if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
3219         ret = MMSYSERR_INVALHANDLE;
3220     } else {
3221         if (SuspendThread(lpMidiStrm->hThread) == 0xFFFFFFFF) {
3222             WARN("bad Suspend (%ld)\n", GetLastError());
3223             ret = MMSYSERR_ERROR;
3224         }
3225     }
3226     return ret;
3227 }
3228
3229 /**************************************************************************
3230  *                              midiStreamPosition              [WINMM.94]
3231  */
3232 MMRESULT WINAPI midiStreamPosition(HMIDISTRM hMidiStrm, LPMMTIME lpMMT, UINT cbmmt)
3233 {
3234     WINE_MIDIStream*    lpMidiStrm;
3235     DWORD               ret = MMSYSERR_NOERROR;
3236
3237     TRACE("(%08x, %p, %u)!\n", hMidiStrm, lpMMT, cbmmt);
3238
3239     if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
3240         ret = MMSYSERR_INVALHANDLE;
3241     } else if (lpMMT == NULL || cbmmt != sizeof(MMTIME)) {
3242         ret = MMSYSERR_INVALPARAM;
3243     } else {
3244         switch (lpMMT->wType) {
3245         case TIME_MS:
3246             lpMMT->u.ms = lpMidiStrm->dwPositionMS;
3247             TRACE("=> %ld ms\n", lpMMT->u.ms);
3248             break;
3249         case TIME_TICKS:
3250             lpMMT->u.ticks = lpMidiStrm->dwPulses;
3251             TRACE("=> %ld ticks\n", lpMMT->u.ticks);
3252             break;
3253         default:
3254             WARN("Unsupported time type %d\n", lpMMT->wType);
3255             lpMMT->wType = TIME_MS;
3256             ret = MMSYSERR_INVALPARAM;
3257             break;
3258         }
3259     }
3260     return ret;
3261 }
3262
3263 /**************************************************************************
3264  *                              midiStreamProperty              [WINMM.95]
3265  */
3266 MMRESULT WINAPI midiStreamProperty(HMIDISTRM hMidiStrm, LPBYTE lpPropData, DWORD dwProperty)
3267 {
3268     WINE_MIDIStream*    lpMidiStrm;
3269     MMRESULT            ret = MMSYSERR_NOERROR;
3270
3271     TRACE("(%08x, %p, %lx)\n", hMidiStrm, lpPropData, dwProperty);
3272
3273     if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
3274         ret = MMSYSERR_INVALHANDLE;
3275     } else if ((dwProperty & (MIDIPROP_GET|MIDIPROP_SET)) == 0) {
3276         ret = MMSYSERR_INVALPARAM;
3277     } else if (dwProperty & MIDIPROP_TEMPO) {
3278         MIDIPROPTEMPO*  mpt = (MIDIPROPTEMPO*)lpPropData;
3279
3280         if (sizeof(MIDIPROPTEMPO) != mpt->cbStruct) {
3281             ret = MMSYSERR_INVALPARAM;
3282         } else if (dwProperty & MIDIPROP_SET) {
3283             lpMidiStrm->dwTempo = mpt->dwTempo;
3284             TRACE("Setting tempo to %ld\n", mpt->dwTempo);
3285         } else if (dwProperty & MIDIPROP_GET) {
3286             mpt->dwTempo = lpMidiStrm->dwTempo;
3287             TRACE("Getting tempo <= %ld\n", mpt->dwTempo);
3288         }
3289     } else if (dwProperty & MIDIPROP_TIMEDIV) {
3290         MIDIPROPTIMEDIV*        mptd = (MIDIPROPTIMEDIV*)lpPropData;
3291
3292         if (sizeof(MIDIPROPTIMEDIV) != mptd->cbStruct) {
3293             ret = MMSYSERR_INVALPARAM;
3294         } else if (dwProperty & MIDIPROP_SET) {
3295             lpMidiStrm->dwTimeDiv = mptd->dwTimeDiv;
3296             TRACE("Setting time div to %ld\n", mptd->dwTimeDiv);
3297         } else if (dwProperty & MIDIPROP_GET) {
3298             mptd->dwTimeDiv = lpMidiStrm->dwTimeDiv;
3299             TRACE("Getting time div <= %ld\n", mptd->dwTimeDiv);
3300         }
3301     } else {
3302         ret = MMSYSERR_INVALPARAM;
3303     }
3304
3305     return ret;
3306 }
3307
3308 /**************************************************************************
3309  *                              midiStreamRestart               [WINMM.96]
3310  */
3311 MMRESULT WINAPI midiStreamRestart(HMIDISTRM hMidiStrm)
3312 {
3313     WINE_MIDIStream*    lpMidiStrm;
3314     MMRESULT            ret = MMSYSERR_NOERROR;
3315
3316     TRACE("(%08x)!\n", hMidiStrm);
3317
3318     if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
3319         ret = MMSYSERR_INVALHANDLE;
3320     } else {
3321         if (ResumeThread(lpMidiStrm->hThread) == 0xFFFFFFFF) {
3322             WARN("bad Resume (%ld)\n", GetLastError());
3323             ret = MMSYSERR_ERROR;
3324         } else {
3325             lpMidiStrm->dwStartTicks = GetTickCount() - lpMidiStrm->dwPositionMS;
3326         }
3327     }
3328     return ret;
3329 }
3330
3331 /**************************************************************************
3332  *                              midiStreamStop                  [WINMM.97]
3333  */
3334 MMRESULT WINAPI midiStreamStop(HMIDISTRM hMidiStrm)
3335 {
3336     WINE_MIDIStream*    lpMidiStrm;
3337     MMRESULT            ret = MMSYSERR_NOERROR;
3338
3339     TRACE("(%08x)!\n", hMidiStrm);
3340
3341     if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
3342         ret = MMSYSERR_INVALHANDLE;
3343     } else {
3344         /* in case stream has been paused... FIXME is the current state correct ? */
3345         midiStreamRestart(hMidiStrm);
3346         MMSYSTEM_MidiStream_PostMessage(lpMidiStrm, WINE_MSM_STOP, 0, 0);
3347     }
3348     return ret;
3349 }
3350
3351 /**************************************************************************
3352  *                              midiStreamClose                 [MMSYSTEM.252]
3353  */
3354 MMRESULT16 WINAPI midiStreamClose16(HMIDISTRM16 hMidiStrm)
3355 {
3356     return midiStreamClose(hMidiStrm);
3357 }
3358
3359 /**************************************************************************
3360  *                              midiStreamOpen                  [MMSYSTEM.251]
3361  */
3362 MMRESULT16 WINAPI midiStreamOpen16(HMIDISTRM16* phMidiStrm, LPUINT16 devid,
3363                                    DWORD cMidi, DWORD dwCallback,
3364                                    DWORD dwInstance, DWORD fdwOpen)
3365 {
3366     HMIDISTRM   hMidiStrm32;
3367     MMRESULT    ret;
3368     UINT        devid32;
3369
3370     if (!phMidiStrm || !devid)
3371         return MMSYSERR_INVALPARAM;
3372     devid32 = *devid;
3373     ret = MMSYSTEM_MidiStream_Open(&hMidiStrm32, &devid32, cMidi, dwCallback, dwInstance, fdwOpen);
3374     *phMidiStrm = hMidiStrm32;
3375     *devid = devid32;
3376     return ret;
3377 }
3378
3379 /**************************************************************************
3380  *                              midiStreamOut                   [MMSYSTEM.254]
3381  */
3382 MMRESULT16 WINAPI midiStreamOut16(HMIDISTRM16 hMidiStrm, LPMIDIHDR16 lpMidiHdr, UINT16 cbMidiHdr)
3383 {
3384     return midiStreamOut(hMidiStrm, (LPMIDIHDR)lpMidiHdr, cbMidiHdr);
3385 }
3386
3387 /**************************************************************************
3388  *                              midiStreamPause                 [MMSYSTEM.255]
3389  */
3390 MMRESULT16 WINAPI midiStreamPause16(HMIDISTRM16 hMidiStrm)
3391 {
3392     return midiStreamPause(hMidiStrm);
3393 }
3394
3395 /**************************************************************************
3396  *                              midiStreamPosition              [MMSYSTEM.253]
3397  */
3398 MMRESULT16 WINAPI midiStreamPosition16(HMIDISTRM16 hMidiStrm, LPMMTIME16 lpmmt16, UINT16 cbmmt)
3399 {
3400     MMTIME      mmt32;
3401     MMRESULT    ret;
3402
3403     if (!lpmmt16)
3404         return MMSYSERR_INVALPARAM;
3405     MMSYSTEM_MMTIME16to32(&mmt32, lpmmt16);
3406     ret = midiStreamPosition(hMidiStrm, &mmt32, sizeof(MMTIME));
3407     MMSYSTEM_MMTIME32to16(lpmmt16, &mmt32);
3408     return ret;
3409 }
3410
3411 /**************************************************************************
3412  *                              midiStreamProperty              [MMSYSTEM.250]
3413  */
3414 MMRESULT16 WINAPI midiStreamProperty16(HMIDISTRM16 hMidiStrm, LPBYTE lpPropData, DWORD dwProperty)
3415 {
3416     return midiStreamProperty(hMidiStrm, lpPropData, dwProperty);
3417 }
3418
3419 /**************************************************************************
3420  *                              midiStreamRestart               [MMSYSTEM.256]
3421  */
3422 MMRESULT16 WINAPI midiStreamRestart16(HMIDISTRM16 hMidiStrm)
3423 {
3424     return midiStreamRestart(hMidiStrm);
3425 }
3426
3427 /**************************************************************************
3428  *                              midiStreamStop                  [MMSYSTEM.257]
3429  */
3430 MMRESULT16 WINAPI midiStreamStop16(HMIDISTRM16 hMidiStrm)
3431 {
3432     return midiStreamStop(hMidiStrm);
3433 }
3434
3435 /**************************************************************************
3436  *                              waveOutGetNumDevs               [MMSYSTEM.401]
3437  */
3438 UINT WINAPI waveOutGetNumDevs(void)
3439 {
3440     return waveOutGetNumDevs16();
3441 }
3442
3443 /**************************************************************************
3444  *                              waveOutGetNumDevs               [WINMM.167]
3445  */
3446 UINT16 WINAPI waveOutGetNumDevs16(void)
3447 {
3448     UINT16      count = 0;
3449     TRACE("waveOutGetNumDevs\n");
3450     count += wodMessage(0, WODM_GETNUMDEVS, 0L, 0L, 0L);
3451     TRACE("waveOutGetNumDevs return %u \n", count);
3452     return count;
3453 }
3454
3455 /**************************************************************************
3456  *                              waveOutGetDevCaps               [MMSYSTEM.402]
3457  */
3458 UINT16 WINAPI waveOutGetDevCaps16(UINT16 uDeviceID, LPWAVEOUTCAPS16 lpCaps,
3459                                   UINT16 uSize)
3460 {
3461     TRACE("waveOutGetDevCaps\n");
3462
3463     /* FIXME: do we have a wave mapper ? */
3464     if (uDeviceID == (UINT16)WAVE_MAPPER)
3465         uDeviceID = 0;
3466         /* return MMSYSERR_BADDEVICEID; */
3467
3468     if (uDeviceID >= waveOutGetNumDevs16()) return MMSYSERR_BADDEVICEID;
3469
3470     return wodMessage(uDeviceID, WODM_GETDEVCAPS, 0L, (DWORD)lpCaps, uSize);
3471 }
3472
3473 /**************************************************************************
3474  *                              waveOutGetDevCapsA              [WINMM.162]
3475  */
3476 UINT WINAPI waveOutGetDevCapsA(UINT uDeviceID, LPWAVEOUTCAPSA lpCaps,
3477                                UINT uSize)
3478 {
3479     WAVEOUTCAPS16       woc16;
3480     UINT16 ret = waveOutGetDevCaps16(uDeviceID, &woc16, sizeof(woc16));
3481
3482     lpCaps->wMid = woc16.wMid;
3483     lpCaps->wPid = woc16.wPid;
3484     lpCaps->vDriverVersion = woc16.vDriverVersion;
3485     strcpy(lpCaps->szPname, woc16.szPname);
3486     lpCaps->dwFormats = woc16.dwFormats;
3487     lpCaps->wChannels = woc16.wChannels;
3488     lpCaps->dwSupport = woc16.dwSupport;
3489     return ret;
3490 }
3491
3492 /**************************************************************************
3493  *                              waveOutGetDevCapsW              [WINMM.163]
3494  */
3495 UINT WINAPI waveOutGetDevCapsW(UINT uDeviceID, LPWAVEOUTCAPSW lpCaps,
3496                                    UINT uSize)
3497 {
3498     WAVEOUTCAPS16       woc16;
3499     UINT ret = waveOutGetDevCaps16(uDeviceID, &woc16, sizeof(woc16));
3500
3501     lpCaps->wMid = woc16.wMid;
3502     lpCaps->wPid = woc16.wPid;
3503     lpCaps->vDriverVersion = woc16.vDriverVersion;
3504     lstrcpyAtoW(lpCaps->szPname, woc16.szPname);
3505     lpCaps->dwFormats = woc16.dwFormats;
3506     lpCaps->wChannels = woc16.wChannels;
3507     lpCaps->dwSupport = woc16.dwSupport;
3508     return ret;
3509 }
3510
3511 /**************************************************************************
3512  *                              WAVE_GetErrorText               [internal]
3513  */
3514 static  UINT16  WAVE_GetErrorText(UINT16 uError, LPSTR lpText, UINT16 uSize)
3515 {
3516     UINT16              ret = MMSYSERR_BADERRNUM;
3517
3518     if (lpText == NULL) {
3519         ret = MMSYSERR_INVALPARAM;
3520     } else if (uSize == 0) {
3521         ret = MMSYSERR_NOERROR;
3522     } else if (
3523                /* test has been removed 'coz MMSYSERR_BASE is 0, and gcc did emit
3524                 * a warning for the test was always true */
3525                (/*uError >= MMSYSERR_BASE && */uError <= MMSYSERR_LASTERROR) ||
3526                (uError >= WAVERR_BASE  && uError <= WAVERR_LASTERROR)) {
3527
3528         LPWINE_MM_IDATA         iData = MULTIMEDIA_GetIData();
3529
3530         if (!iData) {
3531             ret = MMSYSERR_ERROR;
3532         } else if (LoadStringA(iData->hWinMM32Instance, uError, lpText, uSize) > 0) {
3533             ret = MMSYSERR_NOERROR;
3534         }
3535     }
3536     return ret;
3537 }
3538
3539 /**************************************************************************
3540  *                              waveOutGetErrorText     [MMSYSTEM.403]
3541  */
3542 UINT16 WINAPI waveOutGetErrorText16(UINT16 uError, LPSTR lpText, UINT16 uSize)
3543 {
3544     return WAVE_GetErrorText(uError, lpText, uSize);
3545 }
3546
3547 /**************************************************************************
3548  *                              waveOutGetErrorTextA    [WINMM.164]
3549  */
3550 UINT WINAPI waveOutGetErrorTextA(UINT uError, LPSTR lpText, UINT uSize)
3551 {
3552     return WAVE_GetErrorText(uError, lpText, uSize);
3553 }
3554
3555 /**************************************************************************
3556  *                              waveOutGetErrorTextW    [WINMM.165]
3557  */
3558 UINT WINAPI waveOutGetErrorTextW(UINT uError, LPWSTR lpText, UINT uSize)
3559 {
3560     LPSTR       xstr = HeapAlloc(GetProcessHeap(), 0, uSize);
3561     UINT        ret = WAVE_GetErrorText(uError, xstr, uSize);
3562
3563     lstrcpyAtoW(lpText, xstr);
3564     HeapFree(GetProcessHeap(), 0, xstr);
3565     return ret;
3566 }
3567
3568 /**************************************************************************
3569  *                      waveOutOpen                     [WINMM.173]
3570  * All the args/structs have the same layout as the win16 equivalents
3571  */
3572 UINT WINAPI waveOutOpen(HWAVEOUT* lphWaveOut, UINT uDeviceID,
3573                         const LPWAVEFORMATEX lpFormat, DWORD dwCallback,
3574                         DWORD dwInstance, DWORD dwFlags)
3575 {
3576     HWAVEOUT16  hwo16;
3577     UINT        ret = waveOutOpen16(&hwo16, uDeviceID, lpFormat, dwCallback, dwInstance,
3578                                     CALLBACK32CONV(dwFlags));
3579
3580     if (lphWaveOut) *lphWaveOut = hwo16;
3581     return ret;
3582 }
3583
3584 /**************************************************************************
3585  *                      waveOutOpen                     [MMSYSTEM.404]
3586  */
3587 UINT16 WINAPI waveOutOpen16(HWAVEOUT16* lphWaveOut, UINT16 uDeviceID,
3588                             const LPWAVEFORMATEX lpFormat, DWORD dwCallback,
3589                             DWORD dwInstance, DWORD dwFlags)
3590 {
3591     HWAVEOUT16          hWaveOut;
3592     LPWAVEOPENDESC      lpDesc;
3593     DWORD               dwRet = MMSYSERR_NOERROR;
3594     BOOL                bMapperFlg = FALSE;
3595
3596     TRACE("(%p, %d, %p, %08lX, %08lX, %08lX);\n",
3597           lphWaveOut, uDeviceID, lpFormat, dwCallback, dwInstance, dwFlags);
3598     if (dwFlags & WAVE_FORMAT_QUERY)
3599         TRACE("WAVE_FORMAT_QUERY requested !\n");
3600     if (uDeviceID == (UINT16)WAVE_MAPPER) {
3601         TRACE("WAVE_MAPPER mode requested !\n");
3602         bMapperFlg = TRUE;
3603         uDeviceID = 0;
3604     }
3605     if (lpFormat == NULL) return WAVERR_BADFORMAT;
3606
3607     hWaveOut = USER_HEAP_ALLOC(sizeof(WAVEOPENDESC));
3608     if (hWaveOut == 0) return MMSYSERR_NOMEM;
3609     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3610     if (lpDesc == NULL) return MMSYSERR_NOMEM;
3611     lpDesc->hWave = hWaveOut;
3612     lpDesc->lpFormat = (LPWAVEFORMAT)lpFormat;  /* should the struct be copied iso pointer? */
3613     lpDesc->dwCallBack = dwCallback;
3614     lpDesc->dwInstance = dwInstance;
3615     if (uDeviceID >= MAXWAVEDRIVERS)
3616         uDeviceID = 0;
3617     while (uDeviceID < MAXWAVEDRIVERS) {
3618         /* FIXME: dwUser parameter is wrong, it's not lpDesc->dwInstancen but
3619          * a pointer to a DWORD (see ms/ddkdoc/s2abc.htm)
3620          */
3621         dwRet = wodMessage(uDeviceID, WODM_OPEN,
3622                            lpDesc->dwInstance, (DWORD)lpDesc, dwFlags);
3623         if (dwRet == MMSYSERR_NOERROR) break;
3624         if (!bMapperFlg) break;
3625         uDeviceID++;
3626         TRACE("WAVE_MAPPER mode ! try next driver...\n");
3627     }
3628     lpDesc->uDeviceID = uDeviceID;  /* save physical Device ID */
3629     if (dwFlags & WAVE_FORMAT_QUERY) {
3630         TRACE("End of WAVE_FORMAT_QUERY !\n");
3631         USER_HEAP_FREE(hWaveOut);
3632         hWaveOut = 0;
3633     }
3634     else if (dwRet != MMSYSERR_NOERROR)
3635     {
3636         USER_HEAP_FREE(hWaveOut);
3637         hWaveOut = 0;
3638     }
3639     if (lphWaveOut != NULL) *lphWaveOut = hWaveOut;
3640     TRACE("=> %ld\n", dwRet);
3641     return dwRet;
3642 }
3643
3644 /**************************************************************************
3645  *                              waveOutClose            [WINMM.161]
3646  */
3647 UINT WINAPI waveOutClose(HWAVEOUT hWaveOut)
3648 {
3649     return waveOutClose16(hWaveOut);
3650 }
3651
3652 /**************************************************************************
3653  *                              waveOutClose            [MMSYSTEM.405]
3654  */
3655 UINT16 WINAPI waveOutClose16(HWAVEOUT16 hWaveOut)
3656 {
3657     LPWAVEOPENDESC      lpDesc;
3658     DWORD               dwRet;
3659
3660     TRACE("(%04X)\n", hWaveOut);
3661
3662     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3663     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3664     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3665     dwRet = wodMessage(lpDesc->uDeviceID, WODM_CLOSE, lpDesc->dwInstance, 0L, 0L);
3666     USER_HEAP_FREE(hWaveOut);
3667     return dwRet;
3668 }
3669
3670 /**************************************************************************
3671  *                              waveOutPrepareHeader    [WINMM.175]
3672  */
3673 UINT WINAPI waveOutPrepareHeader(HWAVEOUT hWaveOut,
3674                                  WAVEHDR* lpWaveOutHdr, UINT uSize)
3675 {
3676     LPWAVEOPENDESC      lpDesc;
3677
3678     TRACE("(%04X, %p, %u);\n", hWaveOut, lpWaveOutHdr, uSize);
3679
3680     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3681     if (lpDesc == NULL)
3682         return MMSYSERR_INVALHANDLE;
3683     lpWaveOutHdr->reserved = (DWORD)lpWaveOutHdr;
3684     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3685     return wodMessage(lpDesc->uDeviceID, WODM_PREPARE, lpDesc->dwInstance,
3686                       (DWORD)lpWaveOutHdr, uSize);
3687 }
3688
3689 /**************************************************************************
3690  *                              waveOutPrepareHeader    [MMSYSTEM.406]
3691  */
3692 UINT16 WINAPI waveOutPrepareHeader16(HWAVEOUT16 hWaveOut,
3693                                      WAVEHDR* /*SEGPTR*/ _lpWaveOutHdr, UINT16 uSize)
3694 {
3695     LPWAVEOPENDESC      lpDesc;
3696     LPWAVEHDR           lpWaveOutHdr = (LPWAVEHDR)PTR_SEG_TO_LIN(_lpWaveOutHdr);
3697     UINT16              ret;
3698
3699     TRACE("(%04X, %p, %u);\n", hWaveOut, lpWaveOutHdr, uSize);
3700
3701     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3702     if (lpDesc == NULL)
3703         return MMSYSERR_INVALHANDLE;
3704     lpWaveOutHdr->reserved = (DWORD)_lpWaveOutHdr;
3705     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3706     ret = wodMessage(lpDesc->uDeviceID, WODM_PREPARE, lpDesc->dwInstance,
3707                      (DWORD)lpWaveOutHdr, uSize);
3708     return ret;
3709 }
3710
3711 /**************************************************************************
3712  *                              waveOutUnprepareHeader  [WINMM.181]
3713  */
3714 UINT WINAPI waveOutUnprepareHeader(HWAVEOUT hWaveOut,
3715                                    WAVEHDR* lpWaveOutHdr, UINT uSize)
3716 {
3717     LPWAVEOPENDESC      lpDesc;
3718
3719     TRACE("(%04X, %p, %u);\n", hWaveOut, lpWaveOutHdr, uSize);
3720
3721     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3722     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3723     lpWaveOutHdr->reserved = (DWORD)lpWaveOutHdr;
3724     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3725     return wodMessage(lpDesc->uDeviceID, WODM_UNPREPARE, lpDesc->dwInstance,
3726                       (DWORD)lpWaveOutHdr, uSize);
3727 }
3728
3729 /**************************************************************************
3730  *                              waveOutUnprepareHeader  [MMSYSTEM.407]
3731  */
3732 UINT16 WINAPI waveOutUnprepareHeader16(HWAVEOUT16 hWaveOut,
3733                                        WAVEHDR* lpWaveOutHdr, UINT16 uSize)
3734 {
3735     LPWAVEOPENDESC      lpDesc;
3736     UINT16              ret;
3737
3738     TRACE("(%04X, %p, %u);\n", hWaveOut, lpWaveOutHdr, uSize);
3739
3740     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3741     if (lpDesc == NULL)
3742         return MMSYSERR_INVALHANDLE;
3743     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3744     ret = wodMessage(lpDesc->uDeviceID, WODM_UNPREPARE, lpDesc->dwInstance,
3745                      (DWORD)lpWaveOutHdr, uSize);
3746     return ret;
3747 }
3748
3749 /**************************************************************************
3750  *                              waveOutWrite            [MMSYSTEM.408]
3751  */
3752 UINT WINAPI waveOutWrite(HWAVEOUT hWaveOut, WAVEHDR* lpWaveOutHdr,
3753                          UINT uSize)
3754 {
3755     LPWAVEOPENDESC      lpDesc;
3756
3757     TRACE("(%04X, %p, %u);\n", hWaveOut, lpWaveOutHdr, uSize);
3758
3759     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3760     if (lpDesc == NULL)
3761         return MMSYSERR_INVALHANDLE;
3762     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3763     return wodMessage(lpDesc->uDeviceID, WODM_WRITE, lpDesc->dwInstance,
3764                       (DWORD)lpWaveOutHdr, uSize);
3765 }
3766
3767 /**************************************************************************
3768  *                              waveOutWrite            [MMSYSTEM.408]
3769  */
3770 UINT16 WINAPI waveOutWrite16(HWAVEOUT16 hWaveOut, WAVEHDR* lpWaveOutHdr,
3771                              UINT16 uSize)
3772 {
3773     LPWAVEOPENDESC      lpDesc;
3774     UINT16              ret;
3775
3776     TRACE("(%04X, %p, %u);\n", hWaveOut, lpWaveOutHdr, uSize);
3777
3778     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3779     if (lpDesc == NULL)
3780         return MMSYSERR_INVALHANDLE;
3781     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3782     ret = wodMessage(lpDesc->uDeviceID, WODM_WRITE, lpDesc->dwInstance,
3783                      (DWORD)lpWaveOutHdr, uSize);
3784     return ret;
3785 }
3786
3787 /**************************************************************************
3788  *                              waveOutPause            [WINMM.174]
3789  */
3790 UINT WINAPI waveOutPause(HWAVEOUT hWaveOut)
3791 {
3792     return waveOutPause16(hWaveOut);
3793 }
3794
3795 /**************************************************************************
3796  *                              waveOutPause            [MMSYSTEM.409]
3797  */
3798 UINT16 WINAPI waveOutPause16(HWAVEOUT16 hWaveOut)
3799 {
3800     LPWAVEOPENDESC      lpDesc;
3801
3802     TRACE("(%04X)\n", hWaveOut);
3803
3804     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3805     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3806     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3807     return wodMessage(lpDesc->uDeviceID, WODM_PAUSE, lpDesc->dwInstance, 0L, 0L);
3808 }
3809
3810 /**************************************************************************
3811  *                              waveOutRestart          [WINMM.177]
3812  */
3813 UINT WINAPI waveOutRestart(HWAVEOUT hWaveOut)
3814 {
3815     return waveOutRestart16(hWaveOut);
3816 }
3817
3818 /**************************************************************************
3819  *                              waveOutRestart          [MMSYSTEM.410]
3820  */
3821 UINT16 WINAPI waveOutRestart16(HWAVEOUT16 hWaveOut)
3822 {
3823     LPWAVEOPENDESC      lpDesc;
3824
3825     TRACE("(%04X)\n", hWaveOut);
3826
3827     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3828     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3829     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3830     return wodMessage(lpDesc->uDeviceID, WODM_RESTART, lpDesc->dwInstance, 0L, 0L);
3831 }
3832
3833 /**************************************************************************
3834  *                              waveOutReset            [WINMM.176]
3835  */
3836 UINT WINAPI waveOutReset(HWAVEOUT hWaveOut)
3837 {
3838     return waveOutReset16(hWaveOut);
3839 }
3840
3841 /**************************************************************************
3842  *                              waveOutReset            [MMSYSTEM.411]
3843  */
3844 UINT16 WINAPI waveOutReset16(HWAVEOUT16 hWaveOut)
3845 {
3846     LPWAVEOPENDESC      lpDesc;
3847
3848     TRACE("(%04X)\n", hWaveOut);
3849
3850     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3851     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3852     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3853     return wodMessage(lpDesc->uDeviceID, WODM_RESET, lpDesc->dwInstance, 0L, 0L);
3854 }
3855
3856 /**************************************************************************
3857  *                              waveOutGetPosition      [WINMM.170]
3858  */
3859 UINT WINAPI waveOutGetPosition(HWAVEOUT hWaveOut, LPMMTIME lpTime,
3860                                UINT uSize)
3861 {
3862     MMTIME16    mmt16;
3863     UINT ret;
3864
3865     mmt16.wType = lpTime->wType;
3866     ret = waveOutGetPosition16(hWaveOut, &mmt16, sizeof(mmt16));
3867     MMSYSTEM_MMTIME16to32(lpTime, &mmt16);
3868     return ret;
3869 }
3870
3871 /**************************************************************************
3872  *                              waveOutGetPosition      [MMSYSTEM.412]
3873  */
3874 UINT16 WINAPI waveOutGetPosition16(HWAVEOUT16 hWaveOut, LPMMTIME16 lpTime,
3875                                    UINT16 uSize)
3876 {
3877     LPWAVEOPENDESC      lpDesc;
3878     TRACE("(%04X, %p, %u);\n", hWaveOut, lpTime, uSize);
3879     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3880     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3881     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */
3882     return wodMessage(lpDesc->uDeviceID, WODM_GETPOS, lpDesc->dwInstance,
3883                        (DWORD)lpTime, (DWORD)uSize);
3884 }
3885
3886 #define WAVEOUT_SHORTCUT_1(xx, XX, atype)                       \
3887 UINT WINAPI waveOut##xx(HWAVEOUT hWaveOut, atype x)             \
3888 {return waveOut##xx##16(hWaveOut, x);}                          \
3889 UINT16 WINAPI waveOut##xx##16(HWAVEOUT16 hWaveOut, atype x)     \
3890 {                                                               \
3891     LPWAVEOPENDESC      lpDesc;                                 \
3892     TRACE("(%04X, %08lx);\n", hWaveOut, (DWORD)x);              \
3893     lpDesc = (LPWAVEOPENDESC)USER_HEAP_LIN_ADDR(hWaveOut);      \
3894     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */     \
3895     return (lpDesc == NULL) ? MMSYSERR_INVALHANDLE :            \
3896         wodMessage(lpDesc->uDeviceID, WODM_##XX,                \
3897                    lpDesc->dwInstance, (DWORD)x, 0L);           \
3898 }
3899
3900 WAVEOUT_SHORTCUT_1(GetPitch, GETPITCH, LPDWORD)
3901 WAVEOUT_SHORTCUT_1(SetPitch, SETPITCH, DWORD)
3902 WAVEOUT_SHORTCUT_1(GetPlaybackRate, GETPLAYBACKRATE, LPDWORD)
3903 WAVEOUT_SHORTCUT_1(SetPlaybackRate, SETPLAYBACKRATE, DWORD)
3904 #undef WAVEOUT_SHORTCUT_1
3905
3906 #define WAVEOUT_SHORTCUT_2(xx, XX, atype)                       \
3907 UINT WINAPI waveOut##xx(UINT devid, atype x)                    \
3908 {return waveOut##xx##16(devid, x);}                             \
3909 UINT16 WINAPI waveOut##xx##16(UINT16 devid, atype x)            \
3910 {                                                               \
3911     TRACE("(%04X, %08lx);\n", devid, (DWORD)x);                 \
3912     /* FIXME: dwUser parameter is wrong (cf waveOutOpen) */     \
3913     return wodMessage(devid, WODM_##XX, 0, (DWORD)x, 0L);       \
3914 }
3915
3916 WAVEOUT_SHORTCUT_2(GetVolume, GETVOLUME, LPDWORD)
3917 WAVEOUT_SHORTCUT_2(SetVolume, SETVOLUME, DWORD)
3918 #undef WAVEOUT_SHORTCUT_1
3919
3920 /**************************************************************************
3921  *                              waveOutBreakLoop        [MMSYSTEM.419]
3922  */
3923 UINT WINAPI waveOutBreakLoop(HWAVEOUT hWaveOut)
3924 {
3925     return waveOutBreakLoop16(hWaveOut);
3926 }
3927
3928 /**************************************************************************
3929  *                              waveOutBreakLoop        [MMSYSTEM.419]
3930  */
3931 UINT16 WINAPI waveOutBreakLoop16(HWAVEOUT16 hWaveOut)
3932 {
3933     FIXME("(%04X)\n", hWaveOut);
3934     return MMSYSERR_INVALHANDLE;
3935 }
3936
3937 /**************************************************************************
3938  *                              waveOutGetID            [MMSYSTEM.420]
3939  */
3940 UINT WINAPI waveOutGetID(HWAVEOUT hWaveOut, UINT* lpuDeviceID)
3941 {
3942     LPWAVEOPENDESC      lpDesc;
3943
3944     TRACE("(%04X, %p);\n", hWaveOut, lpuDeviceID);
3945
3946     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3947     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3948     if (lpuDeviceID == NULL) return MMSYSERR_INVALHANDLE;
3949     *lpuDeviceID = lpDesc->uDeviceID;
3950     return 0;
3951 }
3952
3953 /**************************************************************************
3954  *                              waveOutGetID            [MMSYSTEM.420]
3955  */
3956 UINT16 WINAPI waveOutGetID16(HWAVEOUT16 hWaveOut, UINT16* lpuDeviceID)
3957 {
3958     LPWAVEOPENDESC      lpDesc;
3959
3960     TRACE("(%04X, %p);\n", hWaveOut, lpuDeviceID);
3961
3962     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3963     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3964     if (lpuDeviceID == NULL) return MMSYSERR_INVALHANDLE;
3965     *lpuDeviceID = lpDesc->uDeviceID;
3966     return 0;
3967 }
3968
3969 /**************************************************************************
3970  *                              waveOutMessage          [MMSYSTEM.421]
3971  */
3972 DWORD WINAPI waveOutMessage(HWAVEOUT hWaveOut, UINT uMessage,
3973                             DWORD dwParam1, DWORD dwParam2)
3974 {
3975     LPWAVEOPENDESC      lpDesc;
3976
3977     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
3978     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
3979     switch (uMessage) {
3980     case WODM_GETNUMDEVS:
3981     case WODM_GETPOS:
3982     case WODM_GETVOLUME:
3983     case WODM_GETPITCH:
3984     case WODM_GETPLAYBACKRATE:
3985     case WODM_SETVOLUME:
3986     case WODM_SETPITCH:
3987     case WODM_SETPLAYBACKRATE:
3988     case WODM_RESET:
3989     case WODM_PAUSE:
3990     case WODM_PREPARE:
3991     case WODM_UNPREPARE:
3992     case WODM_STOP:
3993     case WODM_CLOSE:
3994         /* no argument conversion needed */
3995         break;
3996     case WODM_WRITE:
3997         return waveOutWrite(hWaveOut, (LPWAVEHDR)dwParam1, dwParam2);
3998     case WODM_GETDEVCAPS:
3999         /* FIXME: UNICODE/ANSI? */
4000         return waveOutGetDevCapsA(hWaveOut, (LPWAVEOUTCAPSA)dwParam1, dwParam2);
4001     case WODM_OPEN:
4002         FIXME("can't handle WODM_OPEN, please report.\n");
4003         break;
4004     default:
4005         ERR("(0x%04x, 0x%04x, %08lx, %08lx): unhandled message\n",
4006             hWaveOut, uMessage, dwParam1, dwParam2);
4007         break;
4008     }
4009     return wodMessage(lpDesc->uDeviceID, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
4010 }
4011
4012 /**************************************************************************
4013  *                              waveOutMessage          [MMSYSTEM.421]
4014  */
4015 DWORD WINAPI waveOutMessage16(HWAVEOUT16 hWaveOut, UINT16 uMessage,
4016                               DWORD dwParam1, DWORD dwParam2)
4017 {
4018     LPWAVEOPENDESC      lpDesc;
4019
4020     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveOut);
4021     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4022     switch (uMessage) {
4023     case WODM_GETNUMDEVS:
4024     case WODM_SETVOLUME:
4025     case WODM_SETPITCH:
4026     case WODM_SETPLAYBACKRATE:
4027     case WODM_RESET:
4028     case WODM_PAUSE:
4029     case WODM_STOP:
4030     case WODM_CLOSE:
4031         /* no argument conversion needed */
4032         break;
4033     case WODM_GETPOS:
4034         return waveOutGetPosition16(hWaveOut, (LPMMTIME16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4035     case WODM_GETVOLUME:
4036         return waveOutGetVolume16(hWaveOut, (LPDWORD)PTR_SEG_TO_LIN(dwParam1));
4037     case WODM_GETPITCH:
4038         return waveOutGetPitch16(hWaveOut, (LPDWORD)PTR_SEG_TO_LIN(dwParam1));
4039     case WODM_GETPLAYBACKRATE:
4040         return waveOutGetPlaybackRate16(hWaveOut, (LPDWORD)PTR_SEG_TO_LIN(dwParam1));
4041     case WODM_GETDEVCAPS:
4042         return waveOutGetDevCaps16(hWaveOut, (LPWAVEOUTCAPS16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4043     case WODM_PREPARE:
4044         return waveOutPrepareHeader16(hWaveOut, (LPWAVEHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4045     case WODM_UNPREPARE:
4046         return waveOutUnprepareHeader16(hWaveOut, (LPWAVEHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4047     case WODM_WRITE:
4048         return waveOutWrite16(hWaveOut, (LPWAVEHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4049     case WODM_OPEN:
4050         FIXME("can't handle WODM_OPEN, please report.\n");
4051         break;
4052     default:
4053         ERR("(0x%04x, 0x%04x, %08lx, %08lx): unhandled message\n",
4054             hWaveOut, uMessage, dwParam1, dwParam2);
4055     }
4056     return wodMessage(lpDesc->uDeviceID, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
4057 }
4058
4059 /**************************************************************************
4060  *                              waveInGetNumDevs                [WINMM.151]
4061  */
4062 UINT WINAPI waveInGetNumDevs(void)
4063 {
4064     return waveInGetNumDevs16();
4065 }
4066
4067 /**************************************************************************
4068  *                              waveInGetNumDevs                [MMSYSTEM.501]
4069  */
4070 UINT16 WINAPI waveInGetNumDevs16(void)
4071 {
4072     UINT16      count = 0;
4073
4074     count += widMessage(0, WIDM_GETNUMDEVS, 0L, 0L, 0L);
4075     TRACE("=> %u \n", count);
4076     return count;
4077 }
4078
4079 /**************************************************************************
4080  *                              waveInGetDevCapsA               [WINMM.147]
4081  */
4082 UINT WINAPI waveInGetDevCapsW(UINT uDeviceID, LPWAVEINCAPSW lpCaps, UINT uSize)
4083 {
4084     WAVEINCAPS16        wic16;
4085     UINT                ret = waveInGetDevCaps16(uDeviceID, &wic16, uSize);
4086
4087     lpCaps->wMid = wic16.wMid;
4088     lpCaps->wPid = wic16.wPid;
4089     lpCaps->vDriverVersion = wic16.vDriverVersion;
4090     lstrcpyAtoW(lpCaps->szPname, wic16.szPname);
4091     lpCaps->dwFormats = wic16.dwFormats;
4092     lpCaps->wChannels = wic16.wChannels;
4093
4094     return ret;
4095 }
4096
4097 /**************************************************************************
4098  *                              waveInGetDevCapsA               [WINMM.146]
4099  */
4100 UINT WINAPI waveInGetDevCapsA(UINT uDeviceID, LPWAVEINCAPSA lpCaps, UINT uSize)
4101 {
4102     WAVEINCAPS16        wic16;
4103     UINT                ret = waveInGetDevCaps16(uDeviceID, &wic16, uSize);
4104
4105     lpCaps->wMid = wic16.wMid;
4106     lpCaps->wPid = wic16.wPid;
4107     lpCaps->vDriverVersion = wic16.vDriverVersion;
4108     strcpy(lpCaps->szPname, wic16.szPname);
4109     lpCaps->dwFormats = wic16.dwFormats;
4110     lpCaps->wChannels = wic16.wChannels;
4111     return ret;
4112 }
4113
4114 /**************************************************************************
4115  *                              waveInGetDevCaps                [MMSYSTEM.502]
4116  */
4117 UINT16 WINAPI waveInGetDevCaps16(UINT16 uDeviceID, LPWAVEINCAPS16 lpCaps, UINT16 uSize)
4118 {
4119     return widMessage(uDeviceID, WIDM_GETDEVCAPS, 0L, (DWORD)lpCaps, uSize);
4120 }
4121
4122 /**************************************************************************
4123  *                              waveInGetErrorTextA     [WINMM.148]
4124  */
4125 UINT WINAPI waveInGetErrorTextA(UINT uError, LPSTR lpText, UINT uSize)
4126 {
4127     return WAVE_GetErrorText(uError, lpText, uSize);
4128 }
4129
4130 /**************************************************************************
4131  *                              waveInGetErrorTextW     [WINMM.149]
4132  */
4133 UINT WINAPI waveInGetErrorTextW(UINT uError, LPWSTR lpText, UINT uSize)
4134 {
4135     LPSTR txt = HeapAlloc(GetProcessHeap(), 0, uSize);
4136     UINT        ret = WAVE_GetErrorText(uError, txt, uSize);
4137
4138     lstrcpyAtoW(lpText, txt);
4139     HeapFree(GetProcessHeap(), 0, txt);
4140     return ret;
4141 }
4142
4143 /**************************************************************************
4144  *                              waveInGetErrorText      [MMSYSTEM.503]
4145  */
4146 UINT16 WINAPI waveInGetErrorText16(UINT16 uError, LPSTR lpText, UINT16 uSize)
4147 {
4148     return WAVE_GetErrorText(uError, lpText, uSize);
4149 }
4150
4151 /**************************************************************************
4152  *                              waveInOpen                      [WINMM.154]
4153  */
4154 UINT WINAPI waveInOpen(HWAVEIN* lphWaveIn, UINT uDeviceID,
4155                        const LPWAVEFORMAT lpFormat, DWORD dwCallback,
4156                        DWORD dwInstance, DWORD dwFlags)
4157 {
4158     HWAVEIN16   hwin16;
4159     UINT        ret = waveInOpen16(&hwin16, uDeviceID, lpFormat, dwCallback, dwInstance,
4160                                  CALLBACK32CONV(dwFlags));
4161     if (lphWaveIn) *lphWaveIn = hwin16;
4162     return ret;
4163 }
4164
4165 /**************************************************************************
4166  *                              waveInOpen                      [MMSYSTEM.504]
4167  */
4168 UINT16 WINAPI waveInOpen16(HWAVEIN16* lphWaveIn, UINT16 uDeviceID,
4169                            const LPWAVEFORMAT lpFormat, DWORD dwCallback,
4170                            DWORD dwInstance, DWORD dwFlags)
4171 {
4172     HWAVEIN16           hWaveIn;
4173     LPWAVEOPENDESC      lpDesc;
4174     DWORD               dwRet = 0;
4175     BOOL                bMapperFlg = FALSE;
4176
4177     TRACE("(%p, %d, %p, %08lX, %08lX, %08lX);\n",
4178           lphWaveIn, uDeviceID, lpFormat, dwCallback, dwInstance, dwFlags);
4179     if (dwFlags & WAVE_FORMAT_QUERY)
4180         TRACE("WAVE_FORMAT_QUERY requested !\n");
4181     if (uDeviceID == (UINT16)WAVE_MAPPER) {
4182         TRACE("WAVE_MAPPER mode requested !\n");
4183         bMapperFlg = TRUE;
4184         uDeviceID = 0;
4185     }
4186     if (lpFormat == NULL) return WAVERR_BADFORMAT;
4187     hWaveIn = USER_HEAP_ALLOC(sizeof(WAVEOPENDESC));
4188     if (lphWaveIn != NULL) *lphWaveIn = hWaveIn;
4189     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4190     if (lpDesc == NULL) return MMSYSERR_NOMEM;
4191     lpDesc->hWave = hWaveIn;
4192     lpDesc->lpFormat = lpFormat;
4193     lpDesc->dwCallBack = dwCallback;
4194     lpDesc->dwInstance = dwInstance;
4195     while (uDeviceID < MAXWAVEDRIVERS) {
4196         dwRet = widMessage(uDeviceID, WIDM_OPEN,
4197                            lpDesc->dwInstance, (DWORD)lpDesc, 0L);
4198         if (dwRet == MMSYSERR_NOERROR) break;
4199         if (!bMapperFlg) break;
4200         uDeviceID++;
4201         TRACE("WAVE_MAPPER mode ! try next driver...\n");
4202     }
4203     lpDesc->uDeviceID = uDeviceID;
4204     if (dwFlags & WAVE_FORMAT_QUERY) {
4205         TRACE("End of WAVE_FORMAT_QUERY !\n");
4206         dwRet = waveInClose16(hWaveIn);
4207     } else if (dwRet != MMSYSERR_NOERROR) {
4208         USER_HEAP_FREE(hWaveIn);
4209         if (lphWaveIn) *lphWaveIn = 0;
4210     }
4211
4212     return dwRet;
4213 }
4214
4215 /**************************************************************************
4216  *                              waveInClose                     [WINMM.145]
4217  */
4218 UINT WINAPI waveInClose(HWAVEIN hWaveIn)
4219 {
4220     return waveInClose16(hWaveIn);
4221 }
4222
4223 /**************************************************************************
4224  *                              waveInClose                     [MMSYSTEM.505]
4225  */
4226 UINT16 WINAPI waveInClose16(HWAVEIN16 hWaveIn)
4227 {
4228     LPWAVEOPENDESC      lpDesc;
4229     DWORD               dwRet;
4230
4231     TRACE("(%04X)\n", hWaveIn);
4232     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4233     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4234     dwRet = widMessage(lpDesc->uDeviceID, WIDM_CLOSE, lpDesc->dwInstance, 0L, 0L);
4235     USER_HEAP_FREE(hWaveIn);
4236     return dwRet;
4237 }
4238
4239 /**************************************************************************
4240  *                              waveInPrepareHeader             [WINMM.155]
4241  */
4242 UINT WINAPI waveInPrepareHeader(HWAVEIN hWaveIn,
4243                                 WAVEHDR* lpWaveInHdr, UINT uSize)
4244 {
4245     LPWAVEOPENDESC      lpDesc;
4246
4247     TRACE("(%04X, %p, %u);\n", hWaveIn, lpWaveInHdr, uSize);
4248     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4249     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4250     if (lpWaveInHdr == NULL) return MMSYSERR_INVALHANDLE;
4251     lpWaveInHdr->lpNext = NULL;
4252     lpWaveInHdr->dwBytesRecorded = 0;
4253     lpWaveInHdr->reserved = (DWORD)lpWaveInHdr;
4254
4255     return widMessage(lpDesc->uDeviceID, WIDM_PREPARE, lpDesc->dwInstance,
4256                       (DWORD)lpWaveInHdr, uSize);
4257 }
4258
4259 /**************************************************************************
4260  *                              waveInPrepareHeader             [MMSYSTEM.506]
4261  */
4262 UINT16 WINAPI waveInPrepareHeader16(HWAVEIN16 hWaveIn,
4263                                     WAVEHDR* /* SEGPTR */ _lpWaveInHdr, UINT16 uSize)
4264 {
4265     LPWAVEOPENDESC      lpDesc;
4266     LPWAVEHDR           lpWaveInHdr = (LPWAVEHDR)PTR_SEG_TO_LIN(_lpWaveInHdr);
4267     UINT16              ret;
4268
4269     TRACE("(%04X, %p, %u);\n", hWaveIn, lpWaveInHdr, uSize);
4270
4271     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4272     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4273     if (lpWaveInHdr == NULL) return MMSYSERR_INVALHANDLE;
4274
4275     lpWaveInHdr->lpNext = NULL;
4276     lpWaveInHdr->dwBytesRecorded = 0;
4277
4278     lpWaveInHdr->reserved = (DWORD)_lpWaveInHdr;
4279
4280     ret = widMessage(lpDesc->uDeviceID, WIDM_PREPARE, lpDesc->dwInstance,
4281                      (DWORD)lpWaveInHdr, uSize);
4282     return ret;
4283 }
4284
4285 /**************************************************************************
4286  *                              waveInUnprepareHeader   [WINMM.159]
4287  */
4288 UINT WINAPI waveInUnprepareHeader(HWAVEIN hWaveIn,
4289                                   WAVEHDR* lpWaveInHdr, UINT uSize)
4290 {
4291     LPWAVEOPENDESC      lpDesc;
4292
4293     TRACE("(%04X, %p, %u);\n",
4294           hWaveIn, lpWaveInHdr, uSize);
4295     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4296     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4297     if (lpWaveInHdr == NULL) return MMSYSERR_INVALHANDLE;
4298
4299     lpWaveInHdr->lpNext = NULL;
4300     return widMessage(lpDesc->uDeviceID, WIDM_UNPREPARE, lpDesc->dwInstance,
4301                       (DWORD)lpWaveInHdr, uSize);
4302 }
4303
4304 /**************************************************************************
4305  *                              waveInUnprepareHeader   [MMSYSTEM.507]
4306  */
4307 UINT16 WINAPI waveInUnprepareHeader16(HWAVEIN16 hWaveIn,
4308                                       WAVEHDR* lpWaveInHdr, UINT16 uSize)
4309 {
4310     LPWAVEOPENDESC      lpDesc;
4311
4312     TRACE("(%04X, %p, %u);\n",
4313           hWaveIn, lpWaveInHdr, uSize);
4314     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4315     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4316     if (lpWaveInHdr == NULL) return MMSYSERR_INVALHANDLE;
4317
4318     return widMessage(lpDesc->uDeviceID, WIDM_UNPREPARE, lpDesc->dwInstance,
4319                       (DWORD)lpWaveInHdr, uSize);
4320 }
4321
4322 /**************************************************************************
4323  *                              waveInAddBuffer         [WINMM.144]
4324  */
4325 UINT WINAPI waveInAddBuffer(HWAVEIN hWaveIn,
4326                             WAVEHDR* lpWaveInHdr, UINT uSize)
4327 {
4328     LPWAVEOPENDESC      lpDesc;
4329
4330     TRACE("(%04X, %p, %u);\n", hWaveIn, lpWaveInHdr, uSize);
4331
4332     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4333     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4334     if (lpWaveInHdr == NULL) return MMSYSERR_INVALHANDLE;
4335
4336     lpWaveInHdr->lpNext = NULL;
4337     lpWaveInHdr->dwBytesRecorded = 0;
4338
4339     return widMessage(lpDesc->uDeviceID, WIDM_ADDBUFFER, lpDesc->dwInstance,
4340                       (DWORD)lpWaveInHdr, uSize);
4341
4342 }
4343
4344 /**************************************************************************
4345  *                              waveInAddBuffer         [MMSYSTEM.508]
4346  */
4347 UINT16 WINAPI waveInAddBuffer16(HWAVEIN16 hWaveIn,
4348                                 WAVEHDR* lpWaveInHdr, UINT16 uSize)
4349 {
4350     LPWAVEOPENDESC      lpDesc;
4351     UINT16              ret;
4352
4353     TRACE("(%04X, %p, %u);\n", hWaveIn, lpWaveInHdr, uSize);
4354
4355     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4356     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4357     if (lpWaveInHdr == NULL) return MMSYSERR_INVALHANDLE;
4358     lpWaveInHdr->lpNext = NULL;
4359     lpWaveInHdr->dwBytesRecorded = 0;
4360
4361     ret = widMessage(lpDesc->uDeviceID, WIDM_ADDBUFFER, lpDesc->dwInstance,
4362                      (DWORD)lpWaveInHdr, uSize);
4363     return ret;
4364 }
4365
4366 /**************************************************************************
4367  *                              waveInStart                     [WINMM.157]
4368  */
4369 UINT WINAPI waveInStart(HWAVEIN hWaveIn)
4370 {
4371     return waveInStart16(hWaveIn);
4372 }
4373
4374 /**************************************************************************
4375  *                              waveInStart                     [MMSYSTEM.509]
4376  */
4377 UINT16 WINAPI waveInStart16(HWAVEIN16 hWaveIn)
4378 {
4379     LPWAVEOPENDESC      lpDesc;
4380
4381     TRACE("(%04X)\n", hWaveIn);
4382     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4383     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4384     return widMessage(lpDesc->uDeviceID, WIDM_START, lpDesc->dwInstance, 0, 0);
4385 }
4386
4387 /**************************************************************************
4388  *                              waveInStop                      [WINMM.158]
4389  */
4390 UINT WINAPI waveInStop(HWAVEIN hWaveIn)
4391 {
4392     return waveInStop16(hWaveIn);
4393 }
4394
4395 /**************************************************************************
4396  *                              waveInStop                      [MMSYSTEM.510]
4397  */
4398 UINT16 WINAPI waveInStop16(HWAVEIN16 hWaveIn)
4399 {
4400     LPWAVEOPENDESC      lpDesc;
4401
4402     TRACE("(%04X)\n", hWaveIn);
4403     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4404     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4405     return widMessage(lpDesc->uDeviceID, WIDM_STOP, lpDesc->dwInstance, 0L, 0L);
4406 }
4407
4408 /**************************************************************************
4409  *                              waveInReset                     [WINMM.156]
4410  */
4411 UINT WINAPI waveInReset(HWAVEIN hWaveIn)
4412 {
4413     return waveInReset16(hWaveIn);
4414 }
4415
4416 /**************************************************************************
4417  *                              waveInReset                     [MMSYSTEM.511]
4418  */
4419 UINT16 WINAPI waveInReset16(HWAVEIN16 hWaveIn)
4420 {
4421     LPWAVEOPENDESC      lpDesc;
4422
4423     TRACE("(%04X)\n", hWaveIn);
4424     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4425     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4426     return widMessage(lpDesc->uDeviceID, WIDM_RESET, lpDesc->dwInstance, 0, 0);
4427 }
4428
4429 /**************************************************************************
4430  *                              waveInGetPosition       [WINMM.152]
4431  */
4432 UINT WINAPI waveInGetPosition(HWAVEIN hWaveIn, LPMMTIME lpTime,
4433                               UINT uSize)
4434 {
4435     MMTIME16    mmt16;
4436     UINT        ret;
4437
4438     mmt16.wType = lpTime->wType;
4439     ret = waveInGetPosition16(hWaveIn, &mmt16, uSize);
4440
4441     MMSYSTEM_MMTIME16to32(lpTime, &mmt16);
4442     return ret;
4443 }
4444
4445 /**************************************************************************
4446  *                              waveInGetPosition       [MMSYSTEM.512]
4447  */
4448 UINT16 WINAPI waveInGetPosition16(HWAVEIN16 hWaveIn, LPMMTIME16 lpTime,
4449                                   UINT16 uSize)
4450 {
4451     LPWAVEOPENDESC      lpDesc;
4452
4453     TRACE("(%04X, %p, %u);\n", hWaveIn, lpTime, uSize);
4454     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4455     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4456     return widMessage(lpDesc->uDeviceID, WIDM_GETPOS, lpDesc->dwInstance,
4457                       (DWORD)lpTime, (DWORD)uSize);
4458 }
4459
4460 /**************************************************************************
4461  *                              waveInGetID                     [WINMM.150]
4462  */
4463 UINT WINAPI waveInGetID(HWAVEIN hWaveIn, UINT* lpuDeviceID)
4464 {
4465     LPWAVEOPENDESC      lpDesc;
4466
4467     TRACE("(%04x)\n", hWaveIn);
4468     if (lpuDeviceID == NULL) return MMSYSERR_INVALHANDLE;
4469     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4470     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4471     *lpuDeviceID = lpDesc->uDeviceID;
4472     return 0;
4473 }
4474
4475 /**************************************************************************
4476  *                              waveInGetID                     [MMSYSTEM.513]
4477  */
4478 UINT16 WINAPI waveInGetID16(HWAVEIN16 hWaveIn, UINT16* lpuDeviceID)
4479 {
4480     LPWAVEOPENDESC      lpDesc;
4481
4482     TRACE("(%04x)\n", hWaveIn);
4483     if (lpuDeviceID == NULL) return MMSYSERR_INVALHANDLE;
4484     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4485     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4486     *lpuDeviceID = lpDesc->uDeviceID;
4487     return 0;
4488 }
4489
4490 /**************************************************************************
4491  *                              waveInMessage           [WINMM.153]
4492  */
4493 DWORD WINAPI waveInMessage(HWAVEIN hWaveIn, UINT uMessage,
4494                            DWORD dwParam1, DWORD dwParam2)
4495 {
4496     LPWAVEOPENDESC      lpDesc;
4497
4498     FIXME("(%04X, %04X, %08lX, %08lX)\n",
4499           hWaveIn, uMessage, dwParam1, dwParam2);
4500
4501     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4502     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4503     switch (uMessage) {
4504     case WIDM_OPEN:
4505         FIXME("cannot handle WIDM_OPEN, please report.\n");
4506         break;
4507     case WIDM_GETNUMDEVS:
4508     case WIDM_GETPOS:
4509     case WIDM_CLOSE:
4510     case WIDM_STOP:
4511     case WIDM_RESET:
4512     case WIDM_START:
4513     case WIDM_PREPARE:
4514     case WIDM_UNPREPARE:
4515     case WIDM_ADDBUFFER:
4516     case WIDM_PAUSE:
4517         /* no argument conversion needed */
4518         break;
4519     case WIDM_GETDEVCAPS:
4520         /*FIXME: ANSI/UNICODE */
4521         return waveInGetDevCapsA(hWaveIn, (LPWAVEINCAPSA)dwParam1, dwParam2);
4522     default:
4523         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
4524             hWaveIn, uMessage, dwParam1, dwParam2);
4525         break;
4526     }
4527     return widMessage(lpDesc->uDeviceID, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
4528 }
4529
4530 /**************************************************************************
4531  *                              waveInMessage           [MMSYSTEM.514]
4532  */
4533 DWORD WINAPI waveInMessage16(HWAVEIN16 hWaveIn, UINT16 uMessage,
4534                              DWORD dwParam1, DWORD dwParam2)
4535 {
4536     LPWAVEOPENDESC      lpDesc;
4537
4538     FIXME("(%04X, %04X, %08lX, %08lX)\n",
4539           hWaveIn, uMessage, dwParam1, dwParam2);
4540     lpDesc = (LPWAVEOPENDESC) USER_HEAP_LIN_ADDR(hWaveIn);
4541     if (lpDesc == NULL) return MMSYSERR_INVALHANDLE;
4542     switch (uMessage) {
4543     case WIDM_OPEN:
4544         FIXME("cannot handle WIDM_OPEN, please report.\n");
4545         break;
4546     case WIDM_GETNUMDEVS:
4547     case WIDM_CLOSE:
4548     case WIDM_STOP:
4549     case WIDM_RESET:
4550     case WIDM_START:
4551     case WIDM_PAUSE:
4552         /* no argument conversion needed */
4553         break;
4554     case WIDM_GETDEVCAPS:
4555         return waveInGetDevCaps16(hWaveIn, (LPWAVEINCAPS16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4556     case WIDM_GETPOS:
4557         return waveInGetPosition16(hWaveIn, (LPMMTIME16)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4558     case WIDM_PREPARE:
4559         return waveInPrepareHeader16(hWaveIn, (LPWAVEHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4560     case WIDM_UNPREPARE:
4561         return waveInUnprepareHeader16(hWaveIn, (LPWAVEHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4562     case WIDM_ADDBUFFER:
4563         return waveInAddBuffer16(hWaveIn, (LPWAVEHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
4564     default:
4565         ERR("(%04x, %04x, %08lx, %08lx): unhandled message\n",
4566             hWaveIn, uMessage, dwParam1, dwParam2);
4567         break;
4568     }
4569     return widMessage(lpDesc->uDeviceID, uMessage, lpDesc->dwInstance, dwParam1, dwParam2);
4570 }
4571
4572 /**************************************************************************
4573  *                              DrvOpen                 [MMSYSTEM.1100]
4574  */
4575 HDRVR16 WINAPI DrvOpen(LPSTR lpDriverName, LPSTR lpSectionName, LPARAM lParam)
4576 {
4577     TRACE("('%s','%s', %08lX);\n", lpDriverName, lpSectionName, lParam);
4578
4579     return OpenDriver16(lpDriverName, lpSectionName, lParam);
4580 }
4581
4582 /**************************************************************************
4583  *                              DrvClose                [MMSYSTEM.1101]
4584  */
4585 LRESULT WINAPI DrvClose(HDRVR16 hDrv, LPARAM lParam1, LPARAM lParam2)
4586 {
4587     TRACE("(%04X, %08lX, %08lX);\n", hDrv, lParam1, lParam2);
4588
4589     return CloseDriver16(hDrv, lParam1, lParam2);
4590 }
4591
4592 /**************************************************************************
4593  *                              DrvSendMessage          [MMSYSTEM.1102]
4594  */
4595 LRESULT WINAPI DrvSendMessage(HDRVR16 hDrv, WORD msg, LPARAM lParam1,
4596                               LPARAM lParam2)
4597 {
4598     return SendDriverMessage(hDrv, msg, lParam1, lParam2);
4599 }
4600
4601 /**************************************************************************
4602  *                              DrvGetModuleHandle      [MMSYSTEM.1103]
4603  */
4604 HANDLE16 WINAPI DrvGetModuleHandle16(HDRVR16 hDrv)
4605 {
4606     return GetDriverModuleHandle16(hDrv);
4607 }
4608
4609 /**************************************************************************
4610  *                              DrvDefDriverProc        [MMSYSTEM.1104]
4611  */
4612 LRESULT WINAPI DrvDefDriverProc(DWORD dwDriverID, HDRVR16 hDrv, WORD wMsg,
4613                                 DWORD dwParam1, DWORD dwParam2)
4614 {
4615     /* FIXME : any mapping from 32 to 16 bit structure ? */
4616     return DefDriverProc16(dwDriverID, hDrv, wMsg, dwParam1, dwParam2);
4617 }
4618
4619 /**************************************************************************
4620  *                              DefDriverProc                     [WINMM.5]
4621  */
4622 LRESULT WINAPI DefDriverProc(DWORD dwDriverIdentifier, HDRVR hDrv,
4623                              UINT Msg, LPARAM lParam1, LPARAM lParam2)
4624 {
4625     switch (Msg) {
4626     case DRV_LOAD:
4627     case DRV_FREE:
4628     case DRV_ENABLE:
4629     case DRV_DISABLE:
4630         return 1;
4631     case DRV_INSTALL:
4632     case DRV_REMOVE:
4633         return DRV_SUCCESS;
4634     default:
4635         return 0;
4636     }
4637 }
4638
4639 /*#define USE_MM_TSK_WINE*/
4640
4641 /**************************************************************************
4642  *                              mmTaskCreate            [MMSYSTEM.900]
4643  *
4644  * Creates a 16 bit MM task. It's entry point is lpFunc, and it should be
4645  * called upon creation with dwPmt as parameter.
4646  */
4647 HINSTANCE16 WINAPI mmTaskCreate16(SEGPTR spProc, HINSTANCE16 *lphMmTask, DWORD dwPmt)
4648 {
4649     DWORD               showCmd = 0x40002;
4650     LPSTR               cmdline;
4651     WORD                sel1, sel2;
4652     LOADPARAMS16*       lp;
4653     HINSTANCE16         ret;
4654     HINSTANCE16         handle;
4655
4656     TRACE("(%08lx, %p, %08lx);\n", spProc, lphMmTask, dwPmt);
4657     /* This to work requires NE modules to be started with a binary command line
4658      * which is not currently the case. A patch exists but has never been committed.
4659      * A workaround would be to integrate code for mmtask.tsk into Wine, but
4660      * this requires tremendous work (starting with patching tools/build to
4661      * create NE executables (and not only DLLs) for builtins modules.
4662      * EP 99/04/25
4663      */
4664     FIXME("This is currently broken. It will fail\n");
4665
4666     cmdline = (LPSTR)HeapAlloc(GetProcessHeap(), 0, 0x0d);
4667     cmdline[0] = 0x0d;
4668     *(LPDWORD)(cmdline + 1) = (DWORD)spProc;
4669     *(LPDWORD)(cmdline + 5) = dwPmt;
4670     *(LPDWORD)(cmdline + 9) = 0;
4671
4672     sel1 = SELECTOR_AllocBlock(cmdline, 0x0d, SEGMENT_DATA, FALSE, FALSE);
4673     sel2 = SELECTOR_AllocBlock(&showCmd, sizeof(showCmd),
4674                                SEGMENT_DATA, FALSE, FALSE);
4675
4676     lp = (LOADPARAMS16*)HeapAlloc(GetProcessHeap(), 0, sizeof(LOADPARAMS16));
4677     lp->hEnvironment = 0;
4678     lp->cmdLine = PTR_SEG_OFF_TO_SEGPTR(sel1, 0);
4679     lp->showCmd = PTR_SEG_OFF_TO_SEGPTR(sel2, 0);
4680     lp->reserved = 0;
4681
4682 #ifndef USE_MM_TSK_WINE
4683     handle = LoadModule16("c:\\windows\\system\\mmtask.tsk", lp);
4684 #else
4685     handle = LoadModule16("mmtask.tsk", lp);
4686 #endif
4687     if (handle < 32) {
4688         ret = (handle) ? 1 : 2;
4689         handle = 0;
4690     } else {
4691         ret = 0;
4692     }
4693     if (lphMmTask)
4694         *lphMmTask = handle;
4695
4696     UnMapLS(PTR_SEG_OFF_TO_SEGPTR(sel2, 0));
4697     UnMapLS(PTR_SEG_OFF_TO_SEGPTR(sel1, 0));
4698
4699     HeapFree(GetProcessHeap(), 0, lp);
4700     HeapFree(GetProcessHeap(), 0, cmdline);
4701
4702     TRACE("=> 0x%04x/%d\n", handle, ret);
4703     return ret;
4704 }
4705
4706 #ifdef USE_MM_TSK_WINE
4707 /* C equivalent to mmtask.tsk binary content */
4708 void    mmTaskEntryPoint16(LPSTR cmdLine, WORD di, WORD si)
4709 {
4710     int len = cmdLine[0x80];
4711
4712     if (len / 2 == 6) {
4713         void    (*fpProc)(DWORD) = (void (*)(DWORD))PTR_SEG_TO_LIN(*((DWORD*)(cmdLine + 1)));
4714         DWORD   dwPmt  = *((DWORD*)(cmdLine + 5));
4715
4716 #if 0
4717         InitTask16(); /* fixme: pmts / from context ? */
4718         InitApp(di);
4719 #endif
4720         if (SetMessageQueue16(0x40)) {
4721             WaitEvent16(0);
4722             if (HIWORD(fpProc)) {
4723                 OldYield16();
4724 /* EPP          StackEnter16(); */
4725                 (fpProc)(dwPmt);
4726             }
4727         }
4728     }
4729     OldYield16();
4730     OldYield16();
4731     OldYield16();
4732     ExitProcess(0);
4733 }
4734 #endif
4735
4736 /**************************************************************************
4737  *                              mmTaskBlock             [MMSYSTEM.902]
4738  */
4739 void    WINAPI  mmTaskBlock16(HINSTANCE16 WINE_UNUSED hInst)
4740 {
4741     MSG         msg;
4742
4743     do {
4744         GetMessageA(&msg, 0, 0, 0);
4745         if (msg.hwnd) {
4746             TranslateMessage(&msg);
4747             DispatchMessageA(&msg);
4748         }
4749     } while (msg.message < 0x3A0);
4750 }
4751
4752 /**************************************************************************
4753  *                              mmTaskSignal            [MMSYSTEM.903]
4754  */
4755 LRESULT WINAPI mmTaskSignal16(HTASK16 ht)
4756 {
4757     TRACE("(%04x);\n", ht);
4758     return Callout.PostAppMessage16(ht, WM_USER, 0, 0);
4759 }
4760
4761 /**************************************************************************
4762  *                              mmTaskYield16           [MMSYSTEM.905]
4763  */
4764 void    WINAPI  mmTaskYield16(void)
4765 {
4766     MSG         msg;
4767
4768     if (PeekMessageA(&msg, 0, 0, 0, 0)) {
4769         Yield16();
4770     }
4771 }
4772
4773 DWORD   WINAPI  GetProcessFlags(DWORD);
4774
4775 /**************************************************************************
4776  *                              mmThreadCreate          [MMSYSTEM.1120]
4777  *
4778  * undocumented
4779  * Creates a MM thread, calling fpThreadAddr(dwPmt).
4780  * dwFlags:
4781  *      bit.0 set means create a 16 bit task instead of thread calling a 16 bit proc
4782  *      bit.1 set means to open a VxD for this thread (unsupported)
4783  */
4784 LRESULT WINAPI mmThreadCreate16(FARPROC16 fpThreadAddr, LPHANDLE lpHndl, DWORD dwPmt, DWORD dwFlags)
4785 {
4786     HANDLE16            hndl;
4787     LRESULT             ret;
4788
4789     TRACE("(%p, %p, %08lx, %08lx)!\n", fpThreadAddr, lpHndl, dwPmt, dwFlags);
4790
4791     hndl = GlobalAlloc16(sizeof(WINE_MMTHREAD), GMEM_SHARE|GMEM_ZEROINIT);
4792
4793     if (hndl == 0) {
4794         ret = 2;
4795     } else {
4796         WINE_MMTHREAD*  lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(hndl, 0);
4797
4798 #if 0
4799         /* force mmtask routines even if mmthread is required */
4800         /* this will work only if the patch about binary cmd line and NE tasks
4801          * is committed
4802          */
4803         dwFlags |= 1;
4804 #endif
4805
4806         lpMMThd->dwSignature    = WINE_MMTHREAD_CREATED;
4807         lpMMThd->dwCounter      = 0;
4808         lpMMThd->hThread        = 0;
4809         lpMMThd->dwThreadID     = 0;
4810         lpMMThd->fpThread       = fpThreadAddr;
4811         lpMMThd->dwThreadPmt    = dwPmt;
4812         lpMMThd->dwSignalCount  = 0;
4813         lpMMThd->hEvent         = 0;
4814         lpMMThd->hVxD           = 0;
4815         lpMMThd->dwStatus       = 0;
4816         lpMMThd->dwFlags        = dwFlags;
4817         lpMMThd->hTask          = 0;
4818
4819         if ((dwFlags & 1) == 0 && (GetProcessFlags(GetCurrentThreadId()) & 8) == 0) {
4820             lpMMThd->hEvent = CreateEventA(0, 0, 1, 0);
4821
4822             TRACE("Let's go crazy... trying new MM thread. lpMMThd=%p\n", lpMMThd);
4823             if (lpMMThd->dwFlags & 2) {
4824                 /* as long as we don't support MM VxD in wine, we don't need
4825                  * to care about this flag
4826                  */
4827                 /* FIXME("Don't know how to properly open VxD handles\n"); */
4828                 /* lpMMThd->hVxD = OpenVxDHandle(lpMMThd->hEvent); */
4829             }
4830
4831             lpMMThd->hThread = CreateThread(0, 0, (LPTHREAD_START_ROUTINE)WINE_mmThreadEntryPoint,
4832                                             (LPVOID)(DWORD)hndl, CREATE_SUSPENDED, &lpMMThd->dwThreadID);
4833             if (lpMMThd->hThread == 0) {
4834                 WARN("Couldn't create thread\n");
4835                 /* clean-up(VxDhandle...); devicedirectio... */
4836                 if (lpMMThd->hEvent != 0)
4837                     CloseHandle(lpMMThd->hEvent);
4838                 ret = 2;
4839             } else {
4840                 TRACE("Got a nice thread hndl=0x%04x id=0x%08lx\n", lpMMThd->hThread, lpMMThd->dwThreadID);
4841                 ret = 0;
4842             }
4843         } else {
4844             /* get WINE_mmThreadEntryPoint()
4845              * 2047 is its ordinal in mmsystem.spec
4846              */
4847             FARPROC16   fp = GetProcAddress16(GetModuleHandle16("MMSYSTEM"), (SEGPTR)2047);
4848
4849             TRACE("farproc seg=0x%08lx lin=%p\n", (DWORD)fp, PTR_SEG_TO_LIN(fp));
4850
4851             ret = (fp == 0) ? 2 : mmTaskCreate16((DWORD)fp, 0, hndl);
4852         }
4853
4854         if (ret == 0) {
4855             if (lpMMThd->hThread && !ResumeThread(lpMMThd->hThread))
4856                 WARN("Couldn't resume thread\n");
4857
4858             while (lpMMThd->dwStatus != 0x10) { /* test also HIWORD of dwStatus */
4859                 UserYield16();
4860             }
4861         }
4862     }
4863
4864     if (ret != 0) {
4865         GlobalFree16(hndl);
4866         hndl = 0;
4867     }
4868
4869     if (lpHndl)
4870         *lpHndl = hndl;
4871
4872     TRACE("ok => %ld\n", ret);
4873     return ret;
4874 }
4875
4876 /**************************************************************************
4877  *                              mmThreadSignal          [MMSYSTEM.1121]
4878  */
4879 void WINAPI mmThreadSignal16(HANDLE16 hndl)
4880 {
4881     TRACE("(%04x)!\n", hndl);
4882
4883     if (hndl) {
4884         WINE_MMTHREAD*  lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(hndl, 0);
4885
4886         lpMMThd->dwCounter++;
4887         if (lpMMThd->hThread != 0) {
4888             InterlockedIncrement(&lpMMThd->dwSignalCount);
4889             SetEvent(lpMMThd->hEvent);
4890         } else {
4891             mmTaskSignal16(lpMMThd->hTask);
4892         }
4893         lpMMThd->dwCounter--;
4894     }
4895 }
4896
4897 /**************************************************************************
4898  *                              MMSYSTEM_ThreadBlock            [internal]
4899  */
4900 static  void    MMSYSTEM_ThreadBlock(WINE_MMTHREAD* lpMMThd)
4901 {
4902     MSG         msg;
4903     DWORD       ret;
4904
4905     if (lpMMThd->dwThreadID != GetCurrentThreadId())
4906         ERR("Not called by thread itself\n");
4907
4908     for (;;) {
4909         ResetEvent(lpMMThd->hEvent);
4910         if (InterlockedDecrement(&lpMMThd->dwSignalCount) >= 0)
4911             break;
4912         InterlockedIncrement(&lpMMThd->dwSignalCount);
4913
4914         TRACE("S1\n");
4915
4916         ret = MsgWaitForMultipleObjects(1, &lpMMThd->hEvent, FALSE, INFINITE, QS_ALLINPUT);
4917         switch (ret) {
4918         case WAIT_OBJECT_0:     /* Event */
4919             TRACE("S2.1\n");
4920             break;
4921         case WAIT_OBJECT_0 + 1: /* Msg */
4922             TRACE("S2.2\n");
4923             if (Callout.PeekMessageA(&msg, 0, 0, 0, PM_REMOVE)) {
4924                 Callout.TranslateMessage(&msg);
4925                 Callout.DispatchMessageA(&msg);
4926             }
4927             break;
4928         default:
4929             WARN("S2.x unsupported ret val 0x%08lx\n", ret);
4930         }
4931         TRACE("S3\n");
4932     }
4933 }
4934
4935 /**************************************************************************
4936  *                              mmThreadBlock           [MMSYSTEM.1122]
4937  */
4938 void    WINAPI mmThreadBlock16(HANDLE16 hndl)
4939 {
4940     TRACE("(%04x)!\n", hndl);
4941
4942     if (hndl) {
4943         WINE_MMTHREAD*  lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(hndl, 0);
4944
4945         if (lpMMThd->hThread != 0) {
4946             SYSLEVEL_ReleaseWin16Lock();
4947             MMSYSTEM_ThreadBlock(lpMMThd);
4948             SYSLEVEL_RestoreWin16Lock();
4949         } else {
4950             mmTaskBlock16(lpMMThd->hTask);
4951         }
4952     }
4953     TRACE("done\n");
4954 }
4955
4956 /**************************************************************************
4957  *                              mmThreadIsCurrent       [MMSYSTEM.1123]
4958  */
4959 BOOL16  WINAPI mmThreadIsCurrent16(HANDLE16 hndl)
4960 {
4961     BOOL16              ret = FALSE;
4962
4963     TRACE("(%04x)!\n", hndl);
4964
4965     if (hndl && mmThreadIsValid16(hndl)) {
4966         WINE_MMTHREAD*  lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(hndl, 0);
4967         ret = (GetCurrentThreadId() == lpMMThd->dwThreadID);
4968 #if 1 /* EPP */
4969         /* FIXME: just a test */
4970         SYSLEVEL_ReleaseWin16Lock();
4971         SYSLEVEL_RestoreWin16Lock();
4972 #endif
4973     }
4974     TRACE("=> %d\n", ret);
4975     return ret;
4976 }
4977
4978 /**************************************************************************
4979  *                              mmThreadIsValid         [MMSYSTEM.1124]
4980  */
4981 BOOL16  WINAPI  mmThreadIsValid16(HANDLE16 hndl)
4982 {
4983     BOOL16              ret = FALSE;
4984
4985     TRACE("(%04x)!\n", hndl);
4986
4987     if (hndl) {
4988         WINE_MMTHREAD*  lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(hndl, 0);
4989
4990         if (!IsBadWritePtr(lpMMThd, sizeof(WINE_MMTHREAD)) &&
4991             lpMMThd->dwSignature == WINE_MMTHREAD_CREATED &&
4992             IsTask16(lpMMThd->hTask)) {
4993             lpMMThd->dwCounter++;
4994             if (lpMMThd->hThread != 0) {
4995                 DWORD   dwThreadRet;
4996                 if (GetExitCodeThread(lpMMThd->hThread, &dwThreadRet) &&
4997                     dwThreadRet == STATUS_PENDING) {
4998                     ret = TRUE;
4999                 }
5000             } else {
5001                 ret = TRUE;
5002             }
5003             lpMMThd->dwCounter--;
5004         }
5005     }
5006     TRACE("=> %d\n", ret);
5007     return ret;
5008 }
5009
5010 /**************************************************************************
5011  *                              mmThreadGetTask         [MMSYSTEM.1125]
5012  */
5013 HANDLE16 WINAPI mmThreadGetTask16(HANDLE16 hndl)
5014 {
5015     HANDLE16    ret = 0;
5016
5017     TRACE("(%04x)\n", hndl);
5018
5019     if (mmThreadIsValid16(hndl)) {
5020         WINE_MMTHREAD*  lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(hndl, 0);
5021         ret = lpMMThd->hTask;
5022     }
5023     return ret;
5024 }
5025
5026 /**************************************************************************
5027  *                              mmThreadGetTask                 [internal]
5028  */
5029 void WINAPI WINE_mmThreadEntryPoint(DWORD _pmt)
5030 {
5031     HANDLE16            hndl = (HANDLE16)_pmt;
5032     WINE_MMTHREAD*      lpMMThd = (WINE_MMTHREAD*)PTR_SEG_OFF_TO_LIN(hndl, 0);
5033
5034     TRACE("(%04x %p)\n", hndl, lpMMThd);
5035
5036     lpMMThd->hTask = LOWORD(GetCurrentTask());
5037     TRACE("[10-%08x] setting hTask to 0x%08x\n", lpMMThd->hThread, lpMMThd->hTask);
5038     lpMMThd->dwStatus = 0x10;
5039     MMSYSTEM_ThreadBlock(lpMMThd);
5040     TRACE("[20-%08x]\n", lpMMThd->hThread);
5041     lpMMThd->dwStatus = 0x20;
5042     if (lpMMThd->fpThread) {
5043         /* it's not a WOW call back proc, but since the proc signature is the
5044          * same, why bother creating a new entry in Callbacks table ?
5045          */
5046         Callbacks->CallWOWCallbackProc(lpMMThd->fpThread, lpMMThd->dwThreadPmt);
5047     }
5048     lpMMThd->dwStatus = 0x30;
5049     TRACE("[30-%08x]\n", lpMMThd->hThread);
5050     while (lpMMThd->dwCounter) {
5051         Sleep(1);
5052         /* Yield16();*/
5053     }
5054     TRACE("[XX-%08x]\n", lpMMThd->hThread);
5055     /* paranoia */
5056     lpMMThd->dwSignature = WINE_MMTHREAD_DELETED;
5057     /* close lpMMThread->hVxD directio */
5058     if (lpMMThd->hEvent)
5059         CloseHandle(lpMMThd->hEvent);
5060     GlobalFree16(hndl);
5061     TRACE("done\n");
5062 }
5063
5064 typedef BOOL16 (WINAPI *MMCPLCALLBACK)(HWND, LPCSTR, LPCSTR, LPCSTR);
5065
5066 /**************************************************************************
5067  *                      mmShowMMCPLPropertySheet        [MMSYSTEM.1150]
5068  */
5069 BOOL16  WINAPI  mmShowMMCPLPropertySheet16(HWND hWnd, LPCSTR lpStrDevice,
5070                                            LPCSTR lpStrTab, LPCSTR lpStrTitle)
5071 {
5072     HANDLE      hndl;
5073     BOOL16      ret = FALSE;
5074
5075     TRACE("(%04x \"%s\" \"%s\" \"%s\")\n", hWnd, lpStrDevice, lpStrTab, lpStrTitle);
5076
5077     hndl = LoadLibraryA("MMSYS.CPL");
5078     if (hndl != 0) {
5079         MMCPLCALLBACK   fp = (MMCPLCALLBACK)GetProcAddress(hndl, "ShowMMCPLPropertySheet");
5080         if (fp != NULL) {
5081             SYSLEVEL_ReleaseWin16Lock();
5082             ret = (fp)(hWnd, lpStrDevice, lpStrTab, lpStrTitle);
5083             SYSLEVEL_RestoreWin16Lock();
5084         }
5085         FreeLibrary(hndl);
5086     }
5087
5088     return ret;
5089 }
5090
5091 /**************************************************************************
5092  *                      StackEnter & StackLeave         [MMSYSTEM.32][MMSYSTEM.33]
5093  */
5094 void    WINAPI  StackEnterLeave16(void)
5095 {
5096 #ifdef __i386__
5097     /* mmsystem.dll from Win 95 does only this: so does Wine */
5098     __asm__("stc");
5099 #endif
5100 }