?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
libwine: Do not restrict base address of main thread on 64 bit mac os.
[wine.git] / dlls / winmm / winmm.c
blob0f0cd946d1de8fe8e43af3e2e970e6cd082d6913
1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
2
3 /*
4 * WINMM functions
5 *
6 * Copyright 1993 Martin Ayotte
7 * 1998-2002 Eric Pouech
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13 *
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18 *
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 */
23
24 /*
25 * Eric POUECH :
26 * 98/9 added Win32 MCI support
27 * 99/4 added midiStream support
28 * 99/9 added support for loadable low level drivers
29 */
30
31 /* TODO
32 * + it seems that some programs check what's installed in
33 * registry against the value returned by drivers. Wine is
34 * currently broken regarding this point.
35 * + check thread-safeness for MMSYSTEM and WINMM entry points
36 * + unicode entry points are badly supported (would require
37 * moving 32 bit drivers as Unicode as they are supposed to be)
38 * + allow joystick and timer external calls as we do for wave,
39 * midi, mixer and aux
40 */
41
42 #include <stdio.h>
43 #include <stdarg.h>
44 #include <string.h>
45
46 #define NONAMELESSUNION
47
48 #include "windef.h"
49 #include "winbase.h"
50 #include "mmsystem.h"
51 #include "winuser.h"
52 #include "winnls.h"
53 #include "winternl.h"
54 #include "winemm.h"
55
56 #include "wine/debug.h"
57
58 WINE_DEFAULT_DEBUG_CHANNEL(winmm);
59
60 /* ========================================================================
61 * G L O B A L S E T T I N G S
62 * ========================================================================*/
63
64 HINSTANCE hWinMM32Instance;
65 HANDLE psLastEvent;
66
67 static CRITICAL_SECTION_DEBUG critsect_debug =
68 {
69 0, 0, &WINMM_cs,
70 { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
71 0, 0, { (DWORD_PTR)(__FILE__ ": WINMM_cs") }
72 };
73 CRITICAL_SECTION WINMM_cs = { &critsect_debug, -1, 0, 0, 0, 0 };
74
75 /**************************************************************************
76 * WINMM_CreateIData [internal]
77 */
78 static BOOL WINMM_CreateIData(HINSTANCE hInstDLL)
79 {
80 hWinMM32Instance = hInstDLL;
81 psLastEvent = CreateEventW(NULL, TRUE, FALSE, NULL);
82 return psLastEvent != NULL;
83 }
84
85 /******************************************************************
86 * WINMM_ErrorToString
87 */
88 const char* WINMM_ErrorToString(MMRESULT error)
89 {
90 #define ERR_TO_STR(dev) case dev: return #dev
91 switch (error) {
92 ERR_TO_STR(MMSYSERR_NOERROR);
93 ERR_TO_STR(MMSYSERR_ERROR);
94 ERR_TO_STR(MMSYSERR_BADDEVICEID);
95 ERR_TO_STR(MMSYSERR_NOTENABLED);
96 ERR_TO_STR(MMSYSERR_ALLOCATED);
97 ERR_TO_STR(MMSYSERR_INVALHANDLE);
98 ERR_TO_STR(MMSYSERR_NODRIVER);
99 ERR_TO_STR(MMSYSERR_NOMEM);
100 ERR_TO_STR(MMSYSERR_NOTSUPPORTED);
101 ERR_TO_STR(MMSYSERR_BADERRNUM);
102 ERR_TO_STR(MMSYSERR_INVALFLAG);
103 ERR_TO_STR(MMSYSERR_INVALPARAM);
104 ERR_TO_STR(MMSYSERR_HANDLEBUSY);
105 ERR_TO_STR(MMSYSERR_INVALIDALIAS);
106 ERR_TO_STR(MMSYSERR_BADDB);
107 ERR_TO_STR(MMSYSERR_KEYNOTFOUND);
108 ERR_TO_STR(MMSYSERR_READERROR);
109 ERR_TO_STR(MMSYSERR_WRITEERROR);
110 ERR_TO_STR(MMSYSERR_DELETEERROR);
111 ERR_TO_STR(MMSYSERR_VALNOTFOUND);
112 ERR_TO_STR(MMSYSERR_NODRIVERCB);
113 ERR_TO_STR(WAVERR_BADFORMAT);
114 ERR_TO_STR(WAVERR_STILLPLAYING);
115 ERR_TO_STR(WAVERR_UNPREPARED);
116 ERR_TO_STR(WAVERR_SYNC);
117 ERR_TO_STR(MIDIERR_INVALIDSETUP);
118 ERR_TO_STR(MIDIERR_NODEVICE);
119 ERR_TO_STR(MIDIERR_STILLPLAYING);
120 ERR_TO_STR(MIDIERR_UNPREPARED);
121 }
122 #undef ERR_TO_STR
123 return wine_dbg_sprintf("Unknown(0x%08x)", error);
124 }
125
126 /**************************************************************************
127 * DllMain (WINMM.init)
128 *
129 * WINMM DLL entry point
130 *
131 */
132 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID fImpLoad)
133 {
134 TRACE("%p 0x%x %p\n", hInstDLL, fdwReason, fImpLoad);
135
136 switch (fdwReason) {
137 case DLL_PROCESS_ATTACH:
138 DisableThreadLibraryCalls(hInstDLL);
139
140 if (!WINMM_CreateIData(hInstDLL))
141 return FALSE;
142
143 break;
144 case DLL_PROCESS_DETACH:
145 if(fImpLoad)
146 break;
147
148 MCI_SendCommand(MCI_ALL_DEVICE_ID, MCI_CLOSE, MCI_WAIT, 0L);
149 MMDRV_Exit();
150 DRIVER_UnloadAll();
151 WINMM_DeleteWaveform();
152 TIME_MMTimeStop();
153 CloseHandle(psLastEvent);
154 DeleteCriticalSection(&WINMM_cs);
155 break;
156 }
157 return TRUE;
158 }
159
160 /**************************************************************************
161 * WINMM_CheckCallback [internal]
162 */
163 MMRESULT WINMM_CheckCallback(DWORD_PTR dwCallback, DWORD fdwOpen, BOOL mixer)
164 {
165 switch (fdwOpen & CALLBACK_TYPEMASK) {
166 case CALLBACK_NULL: /* dwCallback need not be NULL */
167 break;
168 case CALLBACK_WINDOW:
169 if (dwCallback && !IsWindow((HWND)dwCallback))
170 return MMSYSERR_INVALPARAM;
171 break;
172
173 case CALLBACK_FUNCTION:
174 /* a NULL cb is acceptable since w2k, MMSYSERR_INVALPARAM earlier */
175 if (mixer)
176 return MMSYSERR_INVALFLAG; /* since w2k, MMSYSERR_NOTSUPPORTED earlier */
177 break;
178 case CALLBACK_THREAD:
179 case CALLBACK_EVENT:
180 if (mixer) /* FIXME: mixer supports THREAD+EVENT since w2k */
181 return MMSYSERR_NOTSUPPORTED; /* w9X */
182 break;
183 default:
184 WARN("Unknown callback type %d\n", HIWORD(fdwOpen));
185 }
186 return MMSYSERR_NOERROR;
187 }
188
189 /**************************************************************************
190 * auxGetNumDevs [WINMM.@]
191 */
192 UINT WINAPI auxGetNumDevs(void)
193 {
194 return MMDRV_GetNum(MMDRV_AUX);
195 }
196
197 /**************************************************************************
198 * auxGetDevCapsW [WINMM.@]
199 */
200 UINT WINAPI auxGetDevCapsW(UINT_PTR uDeviceID, LPAUXCAPSW lpCaps, UINT uSize)
201 {
202 LPWINE_MLD wmld;
203
204 TRACE("(%04lX, %p, %d) !\n", uDeviceID, lpCaps, uSize);
205
206 if (lpCaps == NULL) return MMSYSERR_INVALPARAM;
207
208 if ((wmld = MMDRV_Get((HANDLE)uDeviceID, MMDRV_AUX, TRUE)) == NULL)
209 return MMSYSERR_BADDEVICEID;
210 return MMDRV_Message(wmld, AUXDM_GETDEVCAPS, (DWORD_PTR)lpCaps, uSize);
211 }
212
213 /**************************************************************************
214 * auxGetDevCapsA [WINMM.@]
215 */
216 UINT WINAPI auxGetDevCapsA(UINT_PTR uDeviceID, LPAUXCAPSA lpCaps, UINT uSize)
217 {
218 AUXCAPSW acW;
219 UINT ret;
220
221 if (lpCaps == NULL) return MMSYSERR_INVALPARAM;
222
223 ret = auxGetDevCapsW(uDeviceID, &acW, sizeof(acW));
224
225 if (ret == MMSYSERR_NOERROR) {
226 AUXCAPSA acA;
227 acA.wMid = acW.wMid;
228 acA.wPid = acW.wPid;
229 acA.vDriverVersion = acW.vDriverVersion;
230 WideCharToMultiByte( CP_ACP, 0, acW.szPname, -1, acA.szPname,
231 sizeof(acA.szPname), NULL, NULL );
232 acA.wTechnology = acW.wTechnology;
233 acA.wReserved1 = acW.wReserved1;
234 acA.dwSupport = acW.dwSupport;
235 memcpy(lpCaps, &acA, min(uSize, sizeof(acA)));
236 }
237 return ret;
238 }
239
240 /**************************************************************************
241 * auxGetVolume [WINMM.@]
242 */
243 UINT WINAPI auxGetVolume(UINT uDeviceID, DWORD* lpdwVolume)
244 {
245 LPWINE_MLD wmld;
246
247 TRACE("(%04X, %p) !\n", uDeviceID, lpdwVolume);
248
249 if ((wmld = MMDRV_Get((HANDLE)(DWORD_PTR)uDeviceID, MMDRV_AUX, TRUE)) == NULL)
250 return MMSYSERR_INVALHANDLE;
251 return MMDRV_Message(wmld, AUXDM_GETVOLUME, (DWORD_PTR)lpdwVolume, 0L);
252 }
253
254 /**************************************************************************
255 * auxSetVolume [WINMM.@]
256 */
257 UINT WINAPI auxSetVolume(UINT uDeviceID, DWORD dwVolume)
258 {
259 LPWINE_MLD wmld;
260
261 TRACE("(%04X, %u) !\n", uDeviceID, dwVolume);
262
263 if ((wmld = MMDRV_Get((HANDLE)(DWORD_PTR)uDeviceID, MMDRV_AUX, TRUE)) == NULL)
264 return MMSYSERR_INVALHANDLE;
265 return MMDRV_Message(wmld, AUXDM_SETVOLUME, dwVolume, 0L);
266 }
267
268 /**************************************************************************
269 * auxOutMessage [WINMM.@]
270 */
271 UINT WINAPI auxOutMessage(UINT uDeviceID, UINT uMessage, DWORD_PTR dw1, DWORD_PTR dw2)
272 {
273 LPWINE_MLD wmld;
274
275 if ((wmld = MMDRV_Get((HANDLE)(DWORD_PTR)uDeviceID, MMDRV_AUX, TRUE)) == NULL)
276 return MMSYSERR_INVALHANDLE;
277
278 return MMDRV_Message(wmld, uMessage, dw1, dw2);
279 }
280
281 /**************************************************************************
282 * midiOutGetNumDevs [WINMM.@]
283 */
284 UINT WINAPI midiOutGetNumDevs(void)
285 {
286 return MMDRV_GetNum(MMDRV_MIDIOUT);
287 }
288
289 /**************************************************************************
290 * midiOutGetDevCapsW [WINMM.@]
291 */
292 UINT WINAPI midiOutGetDevCapsW(UINT_PTR uDeviceID, LPMIDIOUTCAPSW lpCaps,
293 UINT uSize)
294 {
295 LPWINE_MLD wmld;
296
297 TRACE("(%lu, %p, %u);\n", uDeviceID, lpCaps, uSize);
298
299 if (lpCaps == NULL) return MMSYSERR_INVALPARAM;
300
301 if ((wmld = MMDRV_Get((HANDLE)uDeviceID, MMDRV_MIDIOUT, TRUE)) == NULL)
302 return MMSYSERR_BADDEVICEID;
303
304 return MMDRV_Message(wmld, MODM_GETDEVCAPS, (DWORD_PTR)lpCaps, uSize);
305 }
306
307 /**************************************************************************
308 * midiOutGetDevCapsA [WINMM.@]
309 */
310 UINT WINAPI midiOutGetDevCapsA(UINT_PTR uDeviceID, LPMIDIOUTCAPSA lpCaps,
311 UINT uSize)
312 {
313 MIDIOUTCAPSW mocW;
314 UINT ret;
315
316 if (lpCaps == NULL) return MMSYSERR_INVALPARAM;
317
318 ret = midiOutGetDevCapsW(uDeviceID, &mocW, sizeof(mocW));
319
320 if (ret == MMSYSERR_NOERROR) {
321 MIDIOUTCAPSA mocA;
322 mocA.wMid = mocW.wMid;
323 mocA.wPid = mocW.wPid;
324 mocA.vDriverVersion = mocW.vDriverVersion;
325 WideCharToMultiByte( CP_ACP, 0, mocW.szPname, -1, mocA.szPname,
326 sizeof(mocA.szPname), NULL, NULL );
327 mocA.wTechnology = mocW.wTechnology;
328 mocA.wVoices = mocW.wVoices;
329 mocA.wNotes = mocW.wNotes;
330 mocA.wChannelMask = mocW.wChannelMask;
331 mocA.dwSupport = mocW.dwSupport;
332 memcpy(lpCaps, &mocA, min(uSize, sizeof(mocA)));
333 }
334 return ret;
335 }
336
337 /**************************************************************************
338 * midiOutGetErrorTextA [WINMM.@]
339 * midiInGetErrorTextA [WINMM.@]
340 */
341 UINT WINAPI midiOutGetErrorTextA(UINT uError, LPSTR lpText, UINT uSize)
342 {
343 UINT ret;
344
345 if (lpText == NULL) ret = MMSYSERR_INVALPARAM;
346 else if (uSize == 0) ret = MMSYSERR_NOERROR;
347 else
348 {
349 LPWSTR xstr = HeapAlloc(GetProcessHeap(), 0, uSize * sizeof(WCHAR));
350 if (!xstr) ret = MMSYSERR_NOMEM;
351 else
352 {
353 ret = midiOutGetErrorTextW(uError, xstr, uSize);
354 if (ret == MMSYSERR_NOERROR)
355 WideCharToMultiByte(CP_ACP, 0, xstr, -1, lpText, uSize, NULL, NULL);
356 HeapFree(GetProcessHeap(), 0, xstr);
357 }
358 }
359 return ret;
360 }
361
362 /**************************************************************************
363 * midiOutGetErrorTextW [WINMM.@]
364 * midiInGetErrorTextW [WINMM.@]
365 */
366 UINT WINAPI midiOutGetErrorTextW(UINT uError, LPWSTR lpText, UINT uSize)
367 {
368 UINT ret = MMSYSERR_BADERRNUM;
369
370 if (lpText == NULL) ret = MMSYSERR_INVALPARAM;
371 else if (uSize == 0) ret = MMSYSERR_NOERROR;
372 else if (
373 /* test has been removed because MMSYSERR_BASE is 0, and gcc did emit
374 * a warning for the test was always true */
375 (/*uError >= MMSYSERR_BASE && */ uError <= MMSYSERR_LASTERROR) ||
376 (uError >= MIDIERR_BASE && uError <= MIDIERR_LASTERROR)) {
377 if (LoadStringW(hWinMM32Instance, uError, lpText, uSize) > 0) {
378 ret = MMSYSERR_NOERROR;
379 }
380 }
381 return ret;
382 }
383
384 /**************************************************************************
385 * MIDI_OutAlloc [internal]
386 */
387 static LPWINE_MIDI MIDI_OutAlloc(HMIDIOUT* lphMidiOut, DWORD_PTR* lpdwCallback,
388 DWORD_PTR* lpdwInstance, LPDWORD lpdwFlags,
389 DWORD cIDs, MIDIOPENSTRMID* lpIDs)
390 {
391 HANDLE hMidiOut;
392 LPWINE_MIDI lpwm;
393 UINT size;
394
395 size = sizeof(WINE_MIDI) + (cIDs ? (cIDs-1) : 0) * sizeof(MIDIOPENSTRMID);
396
397 lpwm = (LPWINE_MIDI)MMDRV_Alloc(size, MMDRV_MIDIOUT, &hMidiOut, lpdwFlags,
398 lpdwCallback, lpdwInstance);
399 *lphMidiOut = hMidiOut;
400
401 if (lpwm) {
402 lpwm->mod.hMidi = hMidiOut;
403 lpwm->mod.dwCallback = *lpdwCallback;
404 lpwm->mod.dwInstance = *lpdwInstance;
405 lpwm->mod.dnDevNode = 0;
406 lpwm->mod.cIds = cIDs;
407 if (cIDs)
408 memcpy(&(lpwm->mod.rgIds), lpIDs, cIDs * sizeof(MIDIOPENSTRMID));
409 }
410 return lpwm;
411 }
412
413 /**************************************************************************
414 * midiOutOpen [WINMM.@]
415 */
416 MMRESULT WINAPI midiOutOpen(LPHMIDIOUT lphMidiOut, UINT uDeviceID,
417 DWORD_PTR dwCallback, DWORD_PTR dwInstance, DWORD dwFlags)
418 {
419 HMIDIOUT hMidiOut;
420 LPWINE_MIDI lpwm;
421 MMRESULT dwRet;
422
423 TRACE("(%p, %d, %08lX, %08lX, %08X);\n",
424 lphMidiOut, uDeviceID, dwCallback, dwInstance, dwFlags);
425
426 if (lphMidiOut != NULL) *lphMidiOut = 0;
427
428 dwRet = WINMM_CheckCallback(dwCallback, dwFlags, FALSE);
429 if (dwRet != MMSYSERR_NOERROR)
430 return dwRet;
431
432 lpwm = MIDI_OutAlloc(&hMidiOut, &dwCallback, &dwInstance, &dwFlags, 0, NULL);
433
434 if (lpwm == NULL)
435 return MMSYSERR_NOMEM;
436
437 lpwm->mld.uDeviceID = uDeviceID;
438
439 dwRet = MMDRV_Open((LPWINE_MLD)lpwm, MODM_OPEN, (DWORD_PTR)&lpwm->mod, dwFlags);
440
441 if (dwRet != MMSYSERR_NOERROR) {
442 MMDRV_Free(hMidiOut, (LPWINE_MLD)lpwm);
443 hMidiOut = 0;
444 }
445
446 if (lphMidiOut) *lphMidiOut = hMidiOut;
447 TRACE("=> %d hMidi=%p\n", dwRet, hMidiOut);
448
449 return dwRet;
450 }
451
452 /**************************************************************************
453 * midiOutClose [WINMM.@]
454 */
455 UINT WINAPI midiOutClose(HMIDIOUT hMidiOut)
456 {
457 LPWINE_MLD wmld;
458 DWORD dwRet;
459
460 TRACE("(%p)\n", hMidiOut);
461
462 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL)
463 return MMSYSERR_INVALHANDLE;
464
465 dwRet = MMDRV_Close(wmld, MODM_CLOSE);
466 MMDRV_Free(hMidiOut, wmld);
467
468 return dwRet;
469 }
470
471 /**************************************************************************
472 * midiOutPrepareHeader [WINMM.@]
473 */
474 UINT WINAPI midiOutPrepareHeader(HMIDIOUT hMidiOut,
475 MIDIHDR* lpMidiOutHdr, UINT uSize)
476 {
477 LPWINE_MLD wmld;
478
479 TRACE("(%p, %p, %d)\n", hMidiOut, lpMidiOutHdr, uSize);
480
481 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL)
482 return MMSYSERR_INVALHANDLE;
483 /* FIXME: detect MIDIStream handles and enforce 64KB buffer limit on those */
484
485 return MMDRV_Message(wmld, MODM_PREPARE, (DWORD_PTR)lpMidiOutHdr, uSize);
486 }
487
488 /**************************************************************************
489 * midiOutUnprepareHeader [WINMM.@]
490 */
491 UINT WINAPI midiOutUnprepareHeader(HMIDIOUT hMidiOut,
492 MIDIHDR* lpMidiOutHdr, UINT uSize)
493 {
494 LPWINE_MLD wmld;
495
496 TRACE("(%p, %p, %d)\n", hMidiOut, lpMidiOutHdr, uSize);
497
498 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL)
499 return MMSYSERR_INVALHANDLE;
500
501 return MMDRV_Message(wmld, MODM_UNPREPARE, (DWORD_PTR)lpMidiOutHdr, uSize);
502 }
503
504 /**************************************************************************
505 * midiOutShortMsg [WINMM.@]
506 */
507 UINT WINAPI midiOutShortMsg(HMIDIOUT hMidiOut, DWORD dwMsg)
508 {
509 LPWINE_MLD wmld;
510
511 TRACE("(%p, %08X)\n", hMidiOut, dwMsg);
512
513 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL)
514 return MMSYSERR_INVALHANDLE;
515
516 return MMDRV_Message(wmld, MODM_DATA, dwMsg, 0L);
517 }
518
519 /**************************************************************************
520 * midiOutLongMsg [WINMM.@]
521 */
522 UINT WINAPI midiOutLongMsg(HMIDIOUT hMidiOut,
523 MIDIHDR* lpMidiOutHdr, UINT uSize)
524 {
525 LPWINE_MLD wmld;
526
527 TRACE("(%p, %p, %d)\n", hMidiOut, lpMidiOutHdr, uSize);
528
529 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL)
530 return MMSYSERR_INVALHANDLE;
531
532 return MMDRV_Message(wmld, MODM_LONGDATA, (DWORD_PTR)lpMidiOutHdr, uSize);
533 }
534
535 /**************************************************************************
536 * midiOutReset [WINMM.@]
537 */
538 UINT WINAPI midiOutReset(HMIDIOUT hMidiOut)
539 {
540 LPWINE_MLD wmld;
541
542 TRACE("(%p)\n", hMidiOut);
543
544 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL)
545 return MMSYSERR_INVALHANDLE;
546
547 return MMDRV_Message(wmld, MODM_RESET, 0L, 0L);
548 }
549
550 /**************************************************************************
551 * midiOutGetVolume [WINMM.@]
552 */
553 UINT WINAPI midiOutGetVolume(HMIDIOUT hMidiOut, DWORD* lpdwVolume)
554 {
555 LPWINE_MLD wmld;
556
557 TRACE("(%p, %p);\n", hMidiOut, lpdwVolume);
558
559 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, TRUE)) == NULL)
560 return MMSYSERR_INVALHANDLE;
561
562 return MMDRV_Message(wmld, MODM_GETVOLUME, (DWORD_PTR)lpdwVolume, 0L);
563 }
564
565 /**************************************************************************
566 * midiOutSetVolume [WINMM.@]
567 */
568 UINT WINAPI midiOutSetVolume(HMIDIOUT hMidiOut, DWORD dwVolume)
569 {
570 LPWINE_MLD wmld;
571
572 TRACE("(%p, %d);\n", hMidiOut, dwVolume);
573
574 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, TRUE)) == NULL)
575 return MMSYSERR_INVALHANDLE;
576
577 return MMDRV_Message(wmld, MODM_SETVOLUME, dwVolume, 0L);
578 }
579
580 /**************************************************************************
581 * midiOutCachePatches [WINMM.@]
582 */
583 UINT WINAPI midiOutCachePatches(HMIDIOUT hMidiOut, UINT uBank,
584 WORD* lpwPatchArray, UINT uFlags)
585 {
586 /* not really necessary to support this */
587 FIXME("(%p, %u, %p, %x): Stub\n", hMidiOut, uBank, lpwPatchArray, uFlags);
588 return MMSYSERR_NOTSUPPORTED;
589 }
590
591 /**************************************************************************
592 * midiOutCacheDrumPatches [WINMM.@]
593 */
594 UINT WINAPI midiOutCacheDrumPatches(HMIDIOUT hMidiOut, UINT uPatch,
595 WORD* lpwKeyArray, UINT uFlags)
596 {
597 FIXME("(%p, %u, %p, %x): Stub\n", hMidiOut, uPatch, lpwKeyArray, uFlags);
598 return MMSYSERR_NOTSUPPORTED;
599 }
600
601 /**************************************************************************
602 * midiOutGetID [WINMM.@]
603 */
604 UINT WINAPI midiOutGetID(HMIDIOUT hMidiOut, UINT* lpuDeviceID)
605 {
606 LPWINE_MLD wmld;
607
608 TRACE("(%p, %p)\n", hMidiOut, lpuDeviceID);
609
610 if (lpuDeviceID == NULL) return MMSYSERR_INVALPARAM;
611 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL)
612 return MMSYSERR_INVALHANDLE;
613
614 *lpuDeviceID = wmld->uDeviceID;
615 return MMSYSERR_NOERROR;
616 }
617
618 /**************************************************************************
619 * midiOutMessage [WINMM.@]
620 */
621 UINT WINAPI midiOutMessage(HMIDIOUT hMidiOut, UINT uMessage,
622 DWORD_PTR dwParam1, DWORD_PTR dwParam2)
623 {
624 LPWINE_MLD wmld;
625
626 TRACE("(%p, %04X, %08lX, %08lX)\n", hMidiOut, uMessage, dwParam1, dwParam2);
627
628 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, FALSE)) == NULL) {
629 /* HACK... */
630 if (uMessage == 0x0001) {
631 *(LPDWORD)dwParam1 = 1;
632 return 0;
633 }
634 if ((wmld = MMDRV_Get(hMidiOut, MMDRV_MIDIOUT, TRUE)) != NULL) {
635 return MMDRV_PhysicalFeatures(wmld, uMessage, dwParam1, dwParam2);
636 }
637 return MMSYSERR_INVALHANDLE;
638 }
639
640 switch (uMessage) {
641 case MODM_OPEN:
642 case MODM_CLOSE:
643 FIXME("can't handle OPEN or CLOSE message!\n");
644 return MMSYSERR_NOTSUPPORTED;
645 }
646 return MMDRV_Message(wmld, uMessage, dwParam1, dwParam2);
647 }
648
649 /**************************************************************************
650 * midiInGetNumDevs [WINMM.@]
651 */
652 UINT WINAPI midiInGetNumDevs(void)
653 {
654 return MMDRV_GetNum(MMDRV_MIDIIN);
655 }
656
657 /**************************************************************************
658 * midiInGetDevCapsW [WINMM.@]
659 */
660 UINT WINAPI midiInGetDevCapsW(UINT_PTR uDeviceID, LPMIDIINCAPSW lpCaps, UINT uSize)
661 {
662 LPWINE_MLD wmld;
663
664 TRACE("(%ld, %p, %d);\n", uDeviceID, lpCaps, uSize);
665
666 if (lpCaps == NULL) return MMSYSERR_INVALPARAM;
667
668 if ((wmld = MMDRV_Get((HANDLE)uDeviceID, MMDRV_MIDIIN, TRUE)) == NULL)
669 return MMSYSERR_BADDEVICEID;
670
671 return MMDRV_Message(wmld, MIDM_GETDEVCAPS, (DWORD_PTR)lpCaps, uSize);
672 }
673
674 /**************************************************************************
675 * midiInGetDevCapsA [WINMM.@]
676 */
677 UINT WINAPI midiInGetDevCapsA(UINT_PTR uDeviceID, LPMIDIINCAPSA lpCaps, UINT uSize)
678 {
679 MIDIINCAPSW micW;
680 UINT ret;
681
682 if (lpCaps == NULL) return MMSYSERR_INVALPARAM;
683
684 ret = midiInGetDevCapsW(uDeviceID, &micW, sizeof(micW));
685
686 if (ret == MMSYSERR_NOERROR) {
687 MIDIINCAPSA micA;
688 micA.wMid = micW.wMid;
689 micA.wPid = micW.wPid;
690 micA.vDriverVersion = micW.vDriverVersion;
691 WideCharToMultiByte( CP_ACP, 0, micW.szPname, -1, micA.szPname,
692 sizeof(micA.szPname), NULL, NULL );
693 micA.dwSupport = micW.dwSupport;
694 memcpy(lpCaps, &micA, min(uSize, sizeof(micA)));
695 }
696 return ret;
697 }
698
699 /**************************************************************************
700 * midiInOpen [WINMM.@]
701 */
702 MMRESULT WINAPI midiInOpen(HMIDIIN* lphMidiIn, UINT uDeviceID,
703 DWORD_PTR dwCallback, DWORD_PTR dwInstance, DWORD dwFlags)
704 {
705 HANDLE hMidiIn;
706 LPWINE_MIDI lpwm;
707 MMRESULT dwRet;
708
709 TRACE("(%p, %d, %08lX, %08lX, %08X);\n",
710 lphMidiIn, uDeviceID, dwCallback, dwInstance, dwFlags);
711
712 if (lphMidiIn != NULL) *lphMidiIn = 0;
713
714 dwRet = WINMM_CheckCallback(dwCallback, dwFlags, FALSE);
715 if (dwRet != MMSYSERR_NOERROR)
716 return dwRet;
717
718 lpwm = (LPWINE_MIDI)MMDRV_Alloc(sizeof(WINE_MIDI), MMDRV_MIDIIN, &hMidiIn,
719 &dwFlags, &dwCallback, &dwInstance);
720
721 if (lpwm == NULL)
722 return MMSYSERR_NOMEM;
723
724 lpwm->mod.hMidi = hMidiIn;
725 lpwm->mod.dwCallback = dwCallback;
726 lpwm->mod.dwInstance = dwInstance;
727
728 lpwm->mld.uDeviceID = uDeviceID;
729 dwRet = MMDRV_Open(&lpwm->mld, MIDM_OPEN, (DWORD_PTR)&lpwm->mod, dwFlags);
730
731 if (dwRet != MMSYSERR_NOERROR) {
732 MMDRV_Free(hMidiIn, &lpwm->mld);
733 hMidiIn = 0;
734 }
735 if (lphMidiIn != NULL) *lphMidiIn = hMidiIn;
736 TRACE("=> %d hMidi=%p\n", dwRet, hMidiIn);
737
738 return dwRet;
739 }
740
741 /**************************************************************************
742 * midiInClose [WINMM.@]
743 */
744 UINT WINAPI midiInClose(HMIDIIN hMidiIn)
745 {
746 LPWINE_MLD wmld;
747 DWORD dwRet;
748
749 TRACE("(%p)\n", hMidiIn);
750
751 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
752 return MMSYSERR_INVALHANDLE;
753
754 dwRet = MMDRV_Close(wmld, MIDM_CLOSE);
755 MMDRV_Free(hMidiIn, wmld);
756 return dwRet;
757 }
758
759 /**************************************************************************
760 * midiInPrepareHeader [WINMM.@]
761 */
762 UINT WINAPI midiInPrepareHeader(HMIDIIN hMidiIn,
763 MIDIHDR* lpMidiInHdr, UINT uSize)
764 {
765 LPWINE_MLD wmld;
766
767 TRACE("(%p, %p, %d)\n", hMidiIn, lpMidiInHdr, uSize);
768
769 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
770 return MMSYSERR_INVALHANDLE;
771
772 return MMDRV_Message(wmld, MIDM_PREPARE, (DWORD_PTR)lpMidiInHdr, uSize);
773 }
774
775 /**************************************************************************
776 * midiInUnprepareHeader [WINMM.@]
777 */
778 UINT WINAPI midiInUnprepareHeader(HMIDIIN hMidiIn,
779 MIDIHDR* lpMidiInHdr, UINT uSize)
780 {
781 LPWINE_MLD wmld;
782
783 TRACE("(%p, %p, %d)\n", hMidiIn, lpMidiInHdr, uSize);
784
785 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
786 return MMSYSERR_INVALHANDLE;
787
788 return MMDRV_Message(wmld, MIDM_UNPREPARE, (DWORD_PTR)lpMidiInHdr, uSize);
789 }
790
791 /**************************************************************************
792 * midiInAddBuffer [WINMM.@]
793 */
794 UINT WINAPI midiInAddBuffer(HMIDIIN hMidiIn,
795 MIDIHDR* lpMidiInHdr, UINT uSize)
796 {
797 LPWINE_MLD wmld;
798
799 TRACE("(%p, %p, %d)\n", hMidiIn, lpMidiInHdr, uSize);
800
801 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
802 return MMSYSERR_INVALHANDLE;
803
804 return MMDRV_Message(wmld, MIDM_ADDBUFFER, (DWORD_PTR)lpMidiInHdr, uSize);
805 }
806
807 /**************************************************************************
808 * midiInStart [WINMM.@]
809 */
810 UINT WINAPI midiInStart(HMIDIIN hMidiIn)
811 {
812 LPWINE_MLD wmld;
813
814 TRACE("(%p)\n", hMidiIn);
815
816 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
817 return MMSYSERR_INVALHANDLE;
818
819 return MMDRV_Message(wmld, MIDM_START, 0L, 0L);
820 }
821
822 /**************************************************************************
823 * midiInStop [WINMM.@]
824 */
825 UINT WINAPI midiInStop(HMIDIIN hMidiIn)
826 {
827 LPWINE_MLD wmld;
828
829 TRACE("(%p)\n", hMidiIn);
830
831 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
832 return MMSYSERR_INVALHANDLE;
833
834 return MMDRV_Message(wmld, MIDM_STOP, 0L, 0L);
835 }
836
837 /**************************************************************************
838 * midiInReset [WINMM.@]
839 */
840 UINT WINAPI midiInReset(HMIDIIN hMidiIn)
841 {
842 LPWINE_MLD wmld;
843
844 TRACE("(%p)\n", hMidiIn);
845
846 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
847 return MMSYSERR_INVALHANDLE;
848
849 return MMDRV_Message(wmld, MIDM_RESET, 0L, 0L);
850 }
851
852 /**************************************************************************
853 * midiInGetID [WINMM.@]
854 */
855 UINT WINAPI midiInGetID(HMIDIIN hMidiIn, UINT* lpuDeviceID)
856 {
857 LPWINE_MLD wmld;
858
859 TRACE("(%p, %p)\n", hMidiIn, lpuDeviceID);
860
861 if (lpuDeviceID == NULL) return MMSYSERR_INVALPARAM;
862
863 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, TRUE)) == NULL)
864 return MMSYSERR_INVALHANDLE;
865
866 *lpuDeviceID = wmld->uDeviceID;
867
868 return MMSYSERR_NOERROR;
869 }
870
871 /**************************************************************************
872 * midiInMessage [WINMM.@]
873 */
874 UINT WINAPI midiInMessage(HMIDIIN hMidiIn, UINT uMessage,
875 DWORD_PTR dwParam1, DWORD_PTR dwParam2)
876 {
877 LPWINE_MLD wmld;
878
879 TRACE("(%p, %04X, %08lX, %08lX)\n", hMidiIn, uMessage, dwParam1, dwParam2);
880
881 if ((wmld = MMDRV_Get(hMidiIn, MMDRV_MIDIIN, FALSE)) == NULL)
882 return MMSYSERR_INVALHANDLE;
883
884 switch (uMessage) {
885 case MIDM_OPEN:
886 case MIDM_CLOSE:
887 FIXME("can't handle OPEN or CLOSE message!\n");
888 return MMSYSERR_NOTSUPPORTED;
889 }
890 return MMDRV_Message(wmld, uMessage, dwParam1, dwParam2);
891 }
892
893 /**************************************************************************
894 * midiConnect [WINMM.@]
895 */
896 MMRESULT WINAPI midiConnect(HMIDI hMidi, HMIDIOUT hmo, LPVOID pReserved)
897 {
898 FIXME("(%p, %p, %p): Stub\n", hMidi, hmo, pReserved);
899 return MMSYSERR_ERROR;
900 }
901
902 /**************************************************************************
903 * midiDisconnect [WINMM.@]
904 */
905 MMRESULT WINAPI midiDisconnect(HMIDI hMidi, HMIDIOUT hmo, LPVOID pReserved)
906 {
907 FIXME("(%p, %p, %p): Stub\n", hMidi, hmo, pReserved);
908 return MMSYSERR_ERROR;
909 }
910
911 typedef struct WINE_MIDIStream {
912 HMIDIOUT hDevice;
913 HANDLE hThread;
914 DWORD dwThreadID;
915 CRITICAL_SECTION lock;
916 DWORD dwTempo;
917 DWORD dwTimeDiv;
918 ULONGLONG position_usec;
919 DWORD dwPulses;
920 DWORD dwStartTicks;
921 DWORD dwElapsedMS;
922 DWORD dwLastPositionMS;
923 WORD wFlags;
924 WORD status;
925 HANDLE hEvent;
926 LPMIDIHDR lpMidiHdr;
927 } WINE_MIDIStream;
928
929 #define WINE_MSM_HEADER (WM_USER+0)
930 #define WINE_MSM_STOP (WM_USER+1)
931 #define WINE_MSM_PAUSE (WM_USER+2)
932 #define WINE_MSM_RESUME (WM_USER+3)
933
934 #define MSM_STATUS_STOPPED WINE_MSM_STOP
935 #define MSM_STATUS_PAUSED WINE_MSM_PAUSE
936 #define MSM_STATUS_PLAYING WINE_MSM_RESUME
937
938 /**************************************************************************
939 * MMSYSTEM_GetMidiStream [internal]
940 */
941 static BOOL MMSYSTEM_GetMidiStream(HMIDISTRM hMidiStrm, WINE_MIDIStream** lpMidiStrm, WINE_MIDI** lplpwm)
942 {
943 WINE_MIDI* lpwm = (LPWINE_MIDI)MMDRV_Get(hMidiStrm, MMDRV_MIDIOUT, FALSE);
944
945 if (lplpwm)
946 *lplpwm = lpwm;
947
948 if (lpwm == NULL) {
949 return FALSE;
950 }
951
952 *lpMidiStrm = (WINE_MIDIStream*)lpwm->mod.rgIds.dwStreamID;
953
954 return *lpMidiStrm != NULL;
955 }
956
957 /**************************************************************************
958 * MMSYSTEM_MidiStream_Convert [internal]
959 */
960 static DWORD MMSYSTEM_MidiStream_Convert(WINE_MIDIStream* lpMidiStrm, DWORD pulse)
961 {
962 DWORD ret = 0;
963
964 if (lpMidiStrm->dwTimeDiv == 0) {
965 FIXME("Shouldn't happen. lpMidiStrm->dwTimeDiv = 0\n");
966 } else if (lpMidiStrm->dwTimeDiv > 0x8000) { /* SMPTE, unchecked FIXME? */
967 int nf = 256 - HIBYTE(lpMidiStrm->dwTimeDiv); /* number of frames */
968 int nsf = LOBYTE(lpMidiStrm->dwTimeDiv); /* number of sub-frames */
969 ret = (pulse * 1000000) / (nf * nsf);
970 } else {
971 ret = (DWORD)((double)pulse * (double)lpMidiStrm->dwTempo /
972 (double)lpMidiStrm->dwTimeDiv);
973 }
974
975 return ret; /* in microseconds */
976 }
977
978 static DWORD midistream_get_playing_position(WINE_MIDIStream* lpMidiStrm)
979 {
980 switch (lpMidiStrm->status) {
981 case MSM_STATUS_STOPPED:
982 case MSM_STATUS_PAUSED:
983 return lpMidiStrm->dwElapsedMS;
984 case MSM_STATUS_PLAYING:
985 return GetTickCount() - lpMidiStrm->dwStartTicks;
986 default:
987 FIXME("Unknown playing status %hu\n", lpMidiStrm->status);
988 return 0;
989 }
990 }
991
992 /**************************************************************************
993 * MMSYSTEM_MidiStream_MessageHandler [internal]
994 */
995 static BOOL MMSYSTEM_MidiStream_MessageHandler(WINE_MIDIStream* lpMidiStrm, LPWINE_MIDI lpwm, LPMSG msg)
996 {
997 LPMIDIHDR lpMidiHdr;
998 LPMIDIHDR* lpmh;
999 LPBYTE lpData;
1000
1001 for (;;) {
1002 switch (msg->message) {
1003 case WM_QUIT:
1004 return FALSE;
1005 case WINE_MSM_STOP:
1006 TRACE("STOP\n");
1007 EnterCriticalSection(&lpMidiStrm->lock);
1008 lpMidiStrm->status = MSM_STATUS_STOPPED;
1009 lpMidiStrm->dwPulses = 0;
1010 lpMidiStrm->dwElapsedMS = 0;
1011 lpMidiStrm->position_usec = 0;
1012 lpMidiStrm->dwLastPositionMS = 0;
1013 LeaveCriticalSection(&lpMidiStrm->lock);
1014 /* this is not quite what MS doc says... */
1015 midiOutReset(lpMidiStrm->hDevice);
1016 /* empty list of already submitted buffers */
1017 lpMidiHdr = lpMidiStrm->lpMidiHdr;
1018 lpMidiStrm->lpMidiHdr = NULL;
1019 while (lpMidiHdr) {
1020 LPMIDIHDR lphdr = lpMidiHdr;
1021 lpMidiHdr = lpMidiHdr->lpNext;
1022 lphdr->dwFlags |= MHDR_DONE;
1023 lphdr->dwFlags &= ~MHDR_INQUEUE;
1024
1025 DriverCallback(lpwm->mod.dwCallback, lpMidiStrm->wFlags,
1026 (HDRVR)lpMidiStrm->hDevice, MM_MOM_DONE,
1027 lpwm->mod.dwInstance, (DWORD_PTR)lphdr, 0);
1028 }
1029 SetEvent((HANDLE)msg->wParam);
1030 return TRUE;
1031 case WINE_MSM_RESUME:
1032 /* FIXME: send out cc64 0 (turn off sustain pedal) on every channel */
1033 if (lpMidiStrm->status != MSM_STATUS_PLAYING) {
1034 EnterCriticalSection(&lpMidiStrm->lock);
1035 lpMidiStrm->dwStartTicks = GetTickCount() - lpMidiStrm->dwElapsedMS;
1036 lpMidiStrm->status = MSM_STATUS_PLAYING;
1037 LeaveCriticalSection(&lpMidiStrm->lock);
1038 }
1039 SetEvent((HANDLE)msg->wParam);
1040 return TRUE;
1041 case WINE_MSM_PAUSE:
1042 /* FIXME: send out cc64 0 (turn off sustain pedal) on every channel */
1043 if (lpMidiStrm->status != MSM_STATUS_PAUSED) {
1044 EnterCriticalSection(&lpMidiStrm->lock);
1045 lpMidiStrm->dwElapsedMS = GetTickCount() - lpMidiStrm->dwStartTicks;
1046 lpMidiStrm->status = MSM_STATUS_PAUSED;
1047 LeaveCriticalSection(&lpMidiStrm->lock);
1048 }
1049 SetEvent((HANDLE)msg->wParam);
1050 break;
1051 /* FIXME(EPP): "I don't understand the content of the first MIDIHDR sent
1052 * by native mcimidi, it doesn't look like a correct one".
1053 * this trick allows us to throw it away... but I don't like it.
1054 * It looks like part of the file I'm trying to play and definitively looks
1055 * like raw midi content.
1056 * I'd really like to understand why native mcimidi sends it. Perhaps a bad
1057 * synchronization issue where native mcimidi is still processing raw MIDI
1058 * content before generating MIDIEVENTs ?
1059 *
1060 * 4c 04 89 3b 00 81 7c 99 3b 43 00 99 23 5e 04 89 L..;..|.;C..#^..
1061 * 3b 00 00 89 23 00 7c 99 3b 45 00 99 28 62 04 89 ;...#.|.;E..(b..
1062 * 3b 00 00 89 28 00 81 7c 99 3b 4e 00 99 23 5e 04 ;...(..|.;N..#^.
1063 * 89 3b 00 00 89 23 00 7c 99 3b 45 00 99 23 78 04 .;...#.|.;E..#x.
1064 * 89 3b 00 00 89 23 00 81 7c 99 3b 48 00 99 23 5e .;...#..|.;H..#^
1065 * 04 89 3b 00 00 89 23 00 7c 99 3b 4e 00 99 28 62 ..;...#.|.;N..(b
1066 * 04 89 3b 00 00 89 28 00 81 7c 99 39 4c 00 99 23 ..;...(..|.9L..#
1067 * 5e 04 89 39 00 00 89 23 00 82 7c 99 3b 4c 00 99 ^..9...#..|.;L..
1068 * 23 5e 04 89 3b 00 00 89 23 00 7c 99 3b 48 00 99 #^..;...#.|.;H..
1069 * 28 62 04 89 3b 00 00 89 28 00 81 7c 99 3b 3f 04 (b..;...(..|.;?.
1070 * 89 3b 00 1c 99 23 5e 04 89 23 00 5c 99 3b 45 00 .;...#^..#.\.;E.
1071 * 99 23 78 04 89 3b 00 00 89 23 00 81 7c 99 3b 46 .#x..;...#..|.;F
1072 * 00 99 23 5e 04 89 3b 00 00 89 23 00 7c 99 3b 48 ..#^..;...#.|.;H
1073 * 00 99 28 62 04 89 3b 00 00 89 28 00 81 7c 99 3b ..(b..;...(..|.;
1074 * 46 00 99 23 5e 04 89 3b 00 00 89 23 00 7c 99 3b F..#^..;...#.|.;
1075 * 48 00 99 23 78 04 89 3b 00 00 89 23 00 81 7c 99 H..#x..;...#..|.
1076 * 3b 4c 00 99 23 5e 04 89 3b 00 00 89 23 00 7c 99 ;L..#^..;...#.|.
1077 */
1078 case WINE_MSM_HEADER:
1079 /* sets initial tick count for first MIDIHDR */
1080 if (!lpMidiStrm->dwStartTicks)
1081 lpMidiStrm->dwStartTicks = GetTickCount();
1082 lpMidiHdr = (LPMIDIHDR)msg->lParam;
1083 lpData = (LPBYTE)lpMidiHdr->lpData;
1084 TRACE("Adding %s lpMidiHdr=%p [lpData=0x%p dwBytesRecorded=%u/%u dwFlags=0x%08x size=%lu]\n",
1085 (lpMidiHdr->dwFlags & MHDR_ISSTRM) ? "stream" : "regular", lpMidiHdr,
1086 lpData, lpMidiHdr->dwBytesRecorded, lpMidiHdr->dwBufferLength,
1087 lpMidiHdr->dwFlags, msg->wParam);
1088 #if 0
1089 /* dumps content of lpMidiHdr->lpData
1090 * FIXME: there should be a debug routine somewhere that already does this
1091 */
1092 for (dwToGo = 0; dwToGo < lpMidiHdr->dwBufferLength; dwToGo += 16) {
1093 DWORD i;
1094 BYTE ch;
1095
1096 for (i = 0; i < min(16, lpMidiHdr->dwBufferLength - dwToGo); i++)
1097 printf("%02x ", lpData[dwToGo + i]);
1098 for (; i < 16; i++)
1099 printf(" ");
1100 for (i = 0; i < min(16, lpMidiHdr->dwBufferLength - dwToGo); i++) {
1101 ch = lpData[dwToGo + i];
1102 printf("%c", (ch >= 0x20 && ch <= 0x7F) ? ch : '.');
1103 }
1104 printf("\n");
1105 }
1106 #endif
1107 if (((LPMIDIEVENT)lpData)->dwStreamID != 0 &&
1108 ((LPMIDIEVENT)lpData)->dwStreamID != 0xFFFFFFFF &&
1109 ((LPMIDIEVENT)lpData)->dwStreamID != (DWORD)lpMidiStrm) {
1110 FIXME("Dropping bad %s lpMidiHdr (streamID=%08x)\n",
1111 (lpMidiHdr->dwFlags & MHDR_ISSTRM) ? "stream" : "regular",
1112 ((LPMIDIEVENT)lpData)->dwStreamID);
1113 lpMidiHdr->dwFlags &= ~MHDR_INQUEUE;
1114 lpMidiHdr->dwFlags |= MHDR_DONE;
1115
1116 DriverCallback(lpwm->mod.dwCallback, lpMidiStrm->wFlags,
1117 (HDRVR)lpMidiStrm->hDevice, MM_MOM_DONE,
1118 lpwm->mod.dwInstance, (DWORD_PTR)lpMidiHdr, 0);
1119 break;
1120 }
1121
1122 lpMidiHdr->lpNext = 0;
1123 for (lpmh = &lpMidiStrm->lpMidiHdr; *lpmh; lpmh = &(*lpmh)->lpNext);
1124 *lpmh = lpMidiHdr;
1125 break;
1126 default:
1127 FIXME("Unknown message %d\n", msg->message);
1128 break;
1129 }
1130 if (lpMidiStrm->status != MSM_STATUS_PAUSED)
1131 return TRUE;
1132 GetMessageA(msg, 0, 0, 0);
1133 }
1134 }
1135
1136 /**************************************************************************
1137 * MMSYSTEM_MidiStream_Player [internal]
1138 */
1139 static DWORD CALLBACK MMSYSTEM_MidiStream_Player(LPVOID pmt)
1140 {
1141 WINE_MIDIStream* lpMidiStrm = pmt;
1142 WINE_MIDI* lpwm;
1143 MSG msg;
1144 DWORD dwToGo;
1145 DWORD dwCurrTC;
1146 LPMIDIHDR lpMidiHdr;
1147 DWORD dwOffset;
1148
1149 TRACE("(%p)!\n", lpMidiStrm);
1150
1151 if (!lpMidiStrm ||
1152 (lpwm = (LPWINE_MIDI)MMDRV_Get(lpMidiStrm->hDevice, MMDRV_MIDIOUT, FALSE)) == NULL)
1153 goto the_end;
1154
1155 /* force thread's queue creation */
1156 PeekMessageA(&msg, 0, 0, 0, PM_NOREMOVE);
1157
1158 lpMidiStrm->dwStartTicks = 0;
1159 lpMidiStrm->dwPulses = 0;
1160
1161 lpMidiStrm->lpMidiHdr = 0;
1162
1163 /* midiStreamOpen is waiting for ack */
1164 SetEvent(lpMidiStrm->hEvent);
1165
1166 start_header:
1167 lpMidiHdr = lpMidiStrm->lpMidiHdr;
1168 if (!lpMidiHdr) {
1169 /* for first message, block until one arrives, then process all that are available */
1170 GetMessageA(&msg, 0, 0, 0);
1171 do {
1172 if (!MMSYSTEM_MidiStream_MessageHandler(lpMidiStrm, lpwm, &msg))
1173 goto the_end;
1174 } while (PeekMessageA(&msg, 0, 0, 0, PM_REMOVE));
1175 goto start_header;
1176 }
1177
1178 dwOffset = 0;
1179 while (dwOffset + offsetof(MIDIEVENT,dwParms) <= lpMidiHdr->dwBytesRecorded) {
1180 LPMIDIEVENT me = (LPMIDIEVENT)(lpMidiHdr->lpData+dwOffset);
1181
1182 /* do we have to wait ? */
1183 if (me->dwDeltaTime) {
1184 EnterCriticalSection(&lpMidiStrm->lock);
1185 lpMidiStrm->position_usec += MMSYSTEM_MidiStream_Convert(lpMidiStrm, me->dwDeltaTime);
1186 LeaveCriticalSection(&lpMidiStrm->lock);
1187
1188 dwToGo = lpMidiStrm->dwStartTicks + lpMidiStrm->position_usec / 1000;
1189
1190 TRACE("%u/%u/%u\n", dwToGo, GetTickCount(), me->dwDeltaTime);
1191 while (dwToGo - (dwCurrTC = GetTickCount()) <= MAXLONG) {
1192 if (MsgWaitForMultipleObjects(0, NULL, FALSE, dwToGo - dwCurrTC, QS_ALLINPUT) == WAIT_OBJECT_0) {
1193 /* got a message, handle it */
1194 while (PeekMessageA(&msg, 0, 0, 0, PM_REMOVE)) {
1195 if (!MMSYSTEM_MidiStream_MessageHandler(lpMidiStrm, lpwm, &msg))
1196 goto the_end;
1197 /* is lpMidiHdr still current? */
1198 if (lpMidiHdr != lpMidiStrm->lpMidiHdr) {
1199 goto start_header;
1200 }
1201 }
1202 /* reset dwToGo because dwStartTicks might be updated */
1203 dwToGo = lpMidiStrm->dwStartTicks + lpMidiStrm->position_usec / 1000;
1204 } else {
1205 /* timeout, so me->dwDeltaTime is elapsed, can break the while loop */
1206 break;
1207 }
1208 }
1209 EnterCriticalSection(&lpMidiStrm->lock);
1210 lpMidiStrm->dwPulses += me->dwDeltaTime;
1211 lpMidiStrm->dwLastPositionMS = midistream_get_playing_position(lpMidiStrm);
1212 LeaveCriticalSection(&lpMidiStrm->lock);
1213 }
1214 switch (MEVT_EVENTTYPE(me->dwEvent & ~MEVT_F_CALLBACK)) {
1215 case MEVT_COMMENT:
1216 FIXME("NIY: MEVT_COMMENT\n");
1217 /* do nothing, skip bytes */
1218 break;
1219 case MEVT_LONGMSG:
1220 {
1221 MIDIHDR mh;
1222 memset(&mh, 0, sizeof(mh));
1223 mh.lpData = (LPSTR)me->dwParms;
1224 mh.dwBufferLength = MEVT_EVENTPARM(me->dwEvent);
1225 midiOutPrepareHeader(lpMidiStrm->hDevice, &mh, sizeof(mh));
1226 midiOutLongMsg(lpMidiStrm->hDevice, &mh, sizeof(mh));
1227 midiOutUnprepareHeader(lpMidiStrm->hDevice, &mh, sizeof(mh));
1228 break;
1229 }
1230 case MEVT_NOP:
1231 break;
1232 case MEVT_SHORTMSG:
1233 midiOutShortMsg(lpMidiStrm->hDevice, MEVT_EVENTPARM(me->dwEvent));
1234 break;
1235 case MEVT_TEMPO:
1236 EnterCriticalSection(&lpMidiStrm->lock);
1237 lpMidiStrm->dwTempo = MEVT_EVENTPARM(me->dwEvent);
1238 LeaveCriticalSection(&lpMidiStrm->lock);
1239 break;
1240 case MEVT_VERSION:
1241 break;
1242 default:
1243 FIXME("Unknown MEVT (0x%02x)\n", MEVT_EVENTTYPE(me->dwEvent & ~MEVT_F_CALLBACK));
1244 break;
1245 }
1246 if (me->dwEvent & MEVT_F_CALLBACK) {
1247 /* native fills dwOffset regardless of the cbMidiHdr size argument to midiStreamOut */
1248 lpMidiHdr->dwOffset = dwOffset;
1249 DriverCallback(lpwm->mod.dwCallback, lpMidiStrm->wFlags,
1250 (HDRVR)lpMidiStrm->hDevice, MM_MOM_POSITIONCB,
1251 lpwm->mod.dwInstance, (LPARAM)lpMidiHdr, 0L);
1252 }
1253 dwOffset += offsetof(MIDIEVENT,dwParms);
1254 if (me->dwEvent & MEVT_F_LONG)
1255 dwOffset += (MEVT_EVENTPARM(me->dwEvent) + 3) & ~3;
1256 }
1257 /* done with this header */
1258 lpMidiStrm->lpMidiHdr = lpMidiHdr->lpNext;
1259 lpMidiHdr->dwFlags |= MHDR_DONE;
1260 lpMidiHdr->dwFlags &= ~MHDR_INQUEUE;
1261
1262 DriverCallback(lpwm->mod.dwCallback, lpMidiStrm->wFlags,
1263 (HDRVR)lpMidiStrm->hDevice, MM_MOM_DONE,
1264 lpwm->mod.dwInstance, (DWORD_PTR)lpMidiHdr, 0);
1265 goto start_header;
1266
1267 the_end:
1268 TRACE("End of thread\n");
1269 return 0;
1270 }
1271
1272 /**************************************************************************
1273 * midiStreamClose [WINMM.@]
1274 */
1275 MMRESULT WINAPI midiStreamClose(HMIDISTRM hMidiStrm)
1276 {
1277 WINE_MIDI* lpwm;
1278 WINE_MIDIStream* lpMidiStrm;
1279 MMRESULT ret = 0;
1280
1281 TRACE("(%p)!\n", hMidiStrm);
1282
1283 if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, &lpwm))
1284 return MMSYSERR_INVALHANDLE;
1285
1286 midiStreamStop(hMidiStrm);
1287 PostThreadMessageA(lpMidiStrm->dwThreadID, WM_QUIT, 0, 0);
1288 CloseHandle(lpMidiStrm->hEvent);
1289 if (lpMidiStrm->hThread) {
1290 if (GetCurrentThreadId() != lpMidiStrm->dwThreadID)
1291 WaitForSingleObject(lpMidiStrm->hThread, INFINITE);
1292 else {
1293 FIXME("leak from call within function callback\n");
1294 ret = MMSYSERR_HANDLEBUSY; /* yet don't signal it to app */
1295 }
1296 CloseHandle(lpMidiStrm->hThread);
1297 }
1298 DriverCallback(lpwm->mod.dwCallback, lpMidiStrm->wFlags,
1299 (HDRVR)lpMidiStrm->hDevice, MM_MOM_CLOSE,
1300 lpwm->mod.dwInstance, 0, 0);
1301 if(!ret) {
1302 lpMidiStrm->lock.DebugInfo->Spare[0] = 0;
1303 DeleteCriticalSection(&lpMidiStrm->lock);
1304 HeapFree(GetProcessHeap(), 0, lpMidiStrm);
1305 }
1306
1307 return midiOutClose((HMIDIOUT)hMidiStrm);
1308 }
1309
1310 /**************************************************************************
1311 * midiStreamOpen [WINMM.@]
1312 */
1313 MMRESULT WINAPI midiStreamOpen(HMIDISTRM* lphMidiStrm, LPUINT lpuDeviceID,
1314 DWORD cMidi, DWORD_PTR dwCallback,
1315 DWORD_PTR dwInstance, DWORD fdwOpen)
1316 {
1317 WINE_MIDIStream* lpMidiStrm;
1318 MMRESULT ret;
1319 MIDIOPENSTRMID mosm;
1320 LPWINE_MIDI lpwm;
1321 HMIDIOUT hMidiOut;
1322
1323 TRACE("(%p, %p, %d, 0x%08lx, 0x%08lx, 0x%08x)!\n",
1324 lphMidiStrm, lpuDeviceID, cMidi, dwCallback, dwInstance, fdwOpen);
1325
1326 if (cMidi != 1 || lphMidiStrm == NULL || lpuDeviceID == NULL)
1327 return MMSYSERR_INVALPARAM;
1328
1329 ret = WINMM_CheckCallback(dwCallback, fdwOpen, FALSE);
1330 if (ret != MMSYSERR_NOERROR)
1331 return ret;
1332
1333 lpMidiStrm = HeapAlloc(GetProcessHeap(), 0, sizeof(WINE_MIDIStream));
1334 if (!lpMidiStrm)
1335 return MMSYSERR_NOMEM;
1336
1337 lpMidiStrm->dwTempo = 500000; /* microseconds per quarter note, i.e. 120 BPM */
1338 lpMidiStrm->dwTimeDiv = 24; /* ticks per quarter note */
1339 lpMidiStrm->position_usec = 0;
1340 lpMidiStrm->dwLastPositionMS = 0;
1341 lpMidiStrm->status = MSM_STATUS_PAUSED;
1342 lpMidiStrm->dwElapsedMS = 0;
1343
1344 mosm.dwStreamID = (DWORD)lpMidiStrm;
1345 /* FIXME: the correct value is not allocated yet for MAPPER */
1346 mosm.wDeviceID = *lpuDeviceID;
1347 lpwm = MIDI_OutAlloc(&hMidiOut, &dwCallback, &dwInstance, &fdwOpen, 1, &mosm);
1348 if (!lpwm) {
1349 HeapFree(GetProcessHeap(), 0, lpMidiStrm);
1350 return MMSYSERR_NOMEM;
1351 }
1352 lpMidiStrm->hDevice = hMidiOut;
1353 *lphMidiStrm = (HMIDISTRM)hMidiOut;
1354
1355 lpwm->mld.uDeviceID = *lpuDeviceID;
1356
1357 /* don't rely on midiOut callbacks */
1358 ret = MMDRV_Open(&lpwm->mld, MODM_OPEN, (DWORD_PTR)&lpwm->mod, CALLBACK_NULL);
1359 if (ret != MMSYSERR_NOERROR) {
1360 MMDRV_Free(hMidiOut, &lpwm->mld);
1361 HeapFree(GetProcessHeap(), 0, lpMidiStrm);
1362 return ret;
1363 }
1364
1365 InitializeCriticalSection(&lpMidiStrm->lock);
1366 lpMidiStrm->lock.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": WINMM_MidiStream.lock");
1367
1368 lpMidiStrm->hEvent = CreateEventW(NULL, FALSE, FALSE, NULL);
1369 lpMidiStrm->wFlags = HIWORD(fdwOpen);
1370
1371 lpMidiStrm->hThread = CreateThread(NULL, 0, MMSYSTEM_MidiStream_Player,
1372 lpMidiStrm, 0, &(lpMidiStrm->dwThreadID));
1373
1374 if (!lpMidiStrm->hThread) {
1375 midiStreamClose((HMIDISTRM)hMidiOut);
1376 return MMSYSERR_NOMEM;
1377 }
1378 SetThreadPriority(lpMidiStrm->hThread, THREAD_PRIORITY_TIME_CRITICAL);
1379
1380 /* wait for thread to have started, and for its queue to be created */
1381 WaitForSingleObject(lpMidiStrm->hEvent, INFINITE);
1382
1383 TRACE("=> (%u/%d) hMidi=%p ret=%d lpMidiStrm=%p\n",
1384 *lpuDeviceID, lpwm->mld.uDeviceID, *lphMidiStrm, ret, lpMidiStrm);
1385
1386 DriverCallback(lpwm->mod.dwCallback, lpMidiStrm->wFlags,
1387 (HDRVR)lpMidiStrm->hDevice, MM_MOM_OPEN,
1388 lpwm->mod.dwInstance, 0, 0);
1389 return ret;
1390 }
1391
1392 /**************************************************************************
1393 * midiStreamOut [WINMM.@]
1394 */
1395 MMRESULT WINAPI midiStreamOut(HMIDISTRM hMidiStrm, LPMIDIHDR lpMidiHdr,
1396 UINT cbMidiHdr)
1397 {
1398 WINE_MIDIStream* lpMidiStrm;
1399 DWORD ret = MMSYSERR_NOERROR;
1400
1401 TRACE("(%p, %p, %u)!\n", hMidiStrm, lpMidiHdr, cbMidiHdr);
1402
1403 if (cbMidiHdr < offsetof(MIDIHDR,dwOffset) || !lpMidiHdr || !lpMidiHdr->lpData
1404 || lpMidiHdr->dwBufferLength < lpMidiHdr->dwBytesRecorded
1405 || lpMidiHdr->dwBytesRecorded % 4 /* player expects DWORD padding */)
1406 return MMSYSERR_INVALPARAM;
1407 /* FIXME: Native additionally checks if the MIDIEVENTs in lpData
1408 * exactly fit dwBytesRecorded. */
1409
1410 if (!(lpMidiHdr->dwFlags & MHDR_PREPARED))
1411 return MIDIERR_UNPREPARED;
1412
1413 if (lpMidiHdr->dwFlags & MHDR_INQUEUE)
1414 return MIDIERR_STILLPLAYING;
1415
1416 if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
1417 ret = MMSYSERR_INVALHANDLE;
1418 } else {
1419 lpMidiHdr->dwFlags |= MHDR_ISSTRM | MHDR_INQUEUE;
1420 lpMidiHdr->dwFlags &= ~MHDR_DONE;
1421 if (!PostThreadMessageA(lpMidiStrm->dwThreadID,
1422 WINE_MSM_HEADER, cbMidiHdr,
1423 (LPARAM)lpMidiHdr)) {
1424 ERR("bad PostThreadMessageA\n");
1425 ret = MMSYSERR_ERROR;
1426 }
1427 }
1428 return ret;
1429 }
1430
1431 static MMRESULT midistream_post_message_and_wait(WINE_MIDIStream* lpMidiStrm, UINT msg, LPARAM lParam)
1432 {
1433 HANDLE hObjects[2];
1434
1435 hObjects[0] = CreateEventW(NULL, FALSE, FALSE, NULL);
1436 if (!hObjects[0])
1437 return MMSYSERR_ERROR;
1438
1439 if (!PostThreadMessageA(lpMidiStrm->dwThreadID, msg, (WPARAM)hObjects[0], lParam)) {
1440 WARN("bad PostThreadMessage\n");
1441 CloseHandle(hObjects[0]);
1442 return MMSYSERR_ERROR;
1443 }
1444
1445 if (GetCurrentThreadId() != lpMidiStrm->dwThreadID) {
1446 DWORD ret;
1447 hObjects[1] = lpMidiStrm->hThread;
1448 ret = WaitForMultipleObjects(ARRAY_SIZE(hObjects), hObjects, FALSE, INFINITE);
1449 if (ret != WAIT_OBJECT_0) {
1450 CloseHandle(hObjects[0]);
1451 WARN("bad WaitForSingleObject (%u)\n", ret);
1452 return MMSYSERR_ERROR;
1453 }
1454 }
1455
1456 CloseHandle(hObjects[0]);
1457
1458 return MMSYSERR_NOERROR;
1459 }
1460
1461 /**************************************************************************
1462 * midiStreamPause [WINMM.@]
1463 */
1464 MMRESULT WINAPI midiStreamPause(HMIDISTRM hMidiStrm)
1465 {
1466 WINE_MIDIStream* lpMidiStrm;
1467
1468 TRACE("(%p)!\n", hMidiStrm);
1469
1470 if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL))
1471 return MMSYSERR_INVALHANDLE;
1472 return midistream_post_message_and_wait(lpMidiStrm, WINE_MSM_PAUSE, 0);
1473 }
1474
1475 static DWORD midistream_get_current_pulse(WINE_MIDIStream* lpMidiStrm)
1476 {
1477 DWORD pulses = 0;
1478 DWORD now = midistream_get_playing_position(lpMidiStrm);
1479 DWORD delta = now - lpMidiStrm->dwLastPositionMS;
1480 if (lpMidiStrm->dwTimeDiv > 0x8000) {
1481 /* SMPTE, unchecked FIXME */
1482 BYTE nf = 256 - HIBYTE(lpMidiStrm->dwTimeDiv);
1483 BYTE nsf = LOBYTE(lpMidiStrm->dwTimeDiv);
1484 pulses = (delta * nf * nsf) / 1000;
1485 }
1486 else if (lpMidiStrm->dwTimeDiv) {
1487 pulses = (DWORD)((double)(delta * lpMidiStrm->dwTimeDiv) *
1488 1000.0 / (double)lpMidiStrm->dwTempo);
1489 }
1490 return lpMidiStrm->dwPulses + pulses;
1491 }
1492
1493 /**************************************************************************
1494 * midiStreamPosition [WINMM.@]
1495 */
1496 MMRESULT WINAPI midiStreamPosition(HMIDISTRM hMidiStrm, LPMMTIME lpMMT, UINT cbmmt)
1497 {
1498 WINE_MIDIStream* lpMidiStrm;
1499 DWORD ret = MMSYSERR_NOERROR;
1500
1501 TRACE("(%p, %p, %u)!\n", hMidiStrm, lpMMT, cbmmt);
1502
1503 if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
1504 ret = MMSYSERR_INVALHANDLE;
1505 } else if (lpMMT == NULL || cbmmt != sizeof(MMTIME)) {
1506 ret = MMSYSERR_INVALPARAM;
1507 } else {
1508 EnterCriticalSection(&lpMidiStrm->lock);
1509 switch (lpMMT->wType) {
1510 case TIME_MIDI:
1511 if (lpMidiStrm->dwTimeDiv < 0x8000) {
1512 DWORD tdiv, pulses;
1513 tdiv = (lpMidiStrm->dwTimeDiv > 24) ? lpMidiStrm->dwTimeDiv : 24;
1514 pulses = midistream_get_current_pulse(lpMidiStrm);
1515 lpMMT->u.midi.songptrpos = (pulses + tdiv/8) / (tdiv/4);
1516 if (!lpMMT->u.midi.songptrpos && pulses) lpMMT->u.midi.songptrpos++;
1517 TRACE("=> song position %d (pulses %u, tdiv %u)\n", lpMMT->u.midi.songptrpos, pulses, tdiv);
1518 break;
1519 }
1520 /* fall through */
1521 case TIME_BYTES:
1522 case TIME_SAMPLES:
1523 lpMMT->wType = TIME_MS;
1524 /* fall through to alternative format */
1525 case TIME_MS:
1526 lpMMT->u.ms = midistream_get_playing_position(lpMidiStrm);
1527 TRACE("=> %d ms\n", lpMMT->u.ms);
1528 break;
1529 case TIME_TICKS:
1530 lpMMT->u.ticks = midistream_get_current_pulse(lpMidiStrm);
1531 TRACE("=> %d ticks\n", lpMMT->u.ticks);
1532 break;
1533 default:
1534 FIXME("Unsupported time type %x\n", lpMMT->wType);
1535 /* use TIME_MS instead */
1536 lpMMT->wType = TIME_MS;
1537 lpMMT->u.ms = midistream_get_playing_position(lpMidiStrm);
1538 TRACE("=> %d ms\n", lpMMT->u.ms);
1539 break;
1540 }
1541 LeaveCriticalSection(&lpMidiStrm->lock);
1542 }
1543 return ret;
1544 }
1545
1546 /**************************************************************************
1547 * midiStreamProperty [WINMM.@]
1548 */
1549 MMRESULT WINAPI midiStreamProperty(HMIDISTRM hMidiStrm, LPBYTE lpPropData, DWORD dwProperty)
1550 {
1551 WINE_MIDIStream* lpMidiStrm;
1552 MMRESULT ret = MMSYSERR_NOERROR;
1553
1554 TRACE("(%p, %p, %x)\n", hMidiStrm, lpPropData, dwProperty);
1555
1556 if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL)) {
1557 ret = MMSYSERR_INVALHANDLE;
1558 } else if ((dwProperty & (MIDIPROP_GET|MIDIPROP_SET)) == 0) {
1559 ret = MMSYSERR_INVALPARAM;
1560 } else if (dwProperty & MIDIPROP_TEMPO) {
1561 MIDIPROPTEMPO* mpt = (MIDIPROPTEMPO*)lpPropData;
1562
1563 EnterCriticalSection(&lpMidiStrm->lock);
1564 if (sizeof(MIDIPROPTEMPO) != mpt->cbStruct) {
1565 ret = MMSYSERR_INVALPARAM;
1566 } else if (dwProperty & MIDIPROP_SET) {
1567 lpMidiStrm->dwTempo = mpt->dwTempo;
1568 TRACE("Setting tempo to %d\n", mpt->dwTempo);
1569 } else if (dwProperty & MIDIPROP_GET) {
1570 mpt->dwTempo = lpMidiStrm->dwTempo;
1571 TRACE("Getting tempo <= %d\n", mpt->dwTempo);
1572 }
1573 LeaveCriticalSection(&lpMidiStrm->lock);
1574 } else if (dwProperty & MIDIPROP_TIMEDIV) {
1575 MIDIPROPTIMEDIV* mptd = (MIDIPROPTIMEDIV*)lpPropData;
1576
1577 if (sizeof(MIDIPROPTIMEDIV) != mptd->cbStruct) {
1578 ret = MMSYSERR_INVALPARAM;
1579 } else if (dwProperty & MIDIPROP_SET) {
1580 EnterCriticalSection(&lpMidiStrm->lock);
1581 if (lpMidiStrm->status != MSM_STATUS_PLAYING) {
1582 lpMidiStrm->dwTimeDiv = mptd->dwTimeDiv;
1583 TRACE("Setting time div to %d\n", mptd->dwTimeDiv);
1584 }
1585 else
1586 ret = MMSYSERR_INVALPARAM;
1587 LeaveCriticalSection(&lpMidiStrm->lock);
1588 } else if (dwProperty & MIDIPROP_GET) {
1589 mptd->dwTimeDiv = lpMidiStrm->dwTimeDiv;
1590 TRACE("Getting time div <= %d\n", mptd->dwTimeDiv);
1591 }
1592 } else {
1593 ret = MMSYSERR_INVALPARAM;
1594 }
1595
1596 return ret;
1597 }
1598
1599 /**************************************************************************
1600 * midiStreamRestart [WINMM.@]
1601 */
1602 MMRESULT WINAPI midiStreamRestart(HMIDISTRM hMidiStrm)
1603 {
1604 WINE_MIDIStream* lpMidiStrm;
1605
1606 TRACE("(%p)!\n", hMidiStrm);
1607
1608 if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL))
1609 return MMSYSERR_INVALHANDLE;
1610 return midistream_post_message_and_wait(lpMidiStrm, WINE_MSM_RESUME, 0);
1611 }
1612
1613 /**************************************************************************
1614 * midiStreamStop [WINMM.@]
1615 */
1616 MMRESULT WINAPI midiStreamStop(HMIDISTRM hMidiStrm)
1617 {
1618 WINE_MIDIStream* lpMidiStrm;
1619
1620 TRACE("(%p)!\n", hMidiStrm);
1621
1622 if (!MMSYSTEM_GetMidiStream(hMidiStrm, &lpMidiStrm, NULL))
1623 return MMSYSERR_INVALHANDLE;
1624 return midistream_post_message_and_wait(lpMidiStrm, WINE_MSM_STOP, 0);
1625 }
1626
1627 struct mm_starter
1628 {
1629 LPTASKCALLBACK cb;
1630 DWORD client;
1631 HANDLE event;
1632 };
1633
1634 static DWORD WINAPI mmTaskRun(void* pmt)
1635 {
1636 struct mm_starter mms;
1637
1638 memcpy(&mms, pmt, sizeof(struct mm_starter));
1639 HeapFree(GetProcessHeap(), 0, pmt);
1640 mms.cb(mms.client);
1641 if (mms.event) SetEvent(mms.event);
1642 return 0;
1643 }
1644
1645 /******************************************************************
1646 * mmTaskCreate (WINMM.@)
1647 */
1648 UINT WINAPI mmTaskCreate(LPTASKCALLBACK cb, HANDLE* ph, DWORD_PTR client)
1649 {
1650 HANDLE hThread;
1651 HANDLE hEvent = 0;
1652 struct mm_starter *mms;
1653
1654 mms = HeapAlloc(GetProcessHeap(), 0, sizeof(struct mm_starter));
1655 if (mms == NULL) return TASKERR_OUTOFMEMORY;
1656
1657 mms->cb = cb;
1658 mms->client = client;
1659 if (ph) hEvent = CreateEventW(NULL, FALSE, FALSE, NULL);
1660 mms->event = hEvent;
1661
1662 hThread = CreateThread(0, 0, mmTaskRun, mms, 0, NULL);
1663 if (!hThread) {
1664 HeapFree(GetProcessHeap(), 0, mms);
1665 if (hEvent) CloseHandle(hEvent);
1666 return TASKERR_OUTOFMEMORY;
1667 }
1668 SetThreadPriority(hThread, THREAD_PRIORITY_TIME_CRITICAL);
1669 if (ph) *ph = hEvent;
1670 CloseHandle(hThread);
1671 return 0;
1672 }
1673
1674 /******************************************************************
1675 * mmTaskBlock (WINMM.@)
1676 */
1677 VOID WINAPI mmTaskBlock(DWORD tid)
1678 {
1679 MSG msg;
1680
1681 do
1682 {
1683 GetMessageA(&msg, 0, 0, 0);
1684 if (msg.hwnd) DispatchMessageA(&msg);
1685 } while (msg.message != WM_USER);
1686 }
1687
1688 /******************************************************************
1689 * mmTaskSignal (WINMM.@)
1690 */
1691 BOOL WINAPI mmTaskSignal(DWORD tid)
1692 {
1693 return PostThreadMessageW(tid, WM_USER, 0, 0);
1694 }
1695
1696 /******************************************************************
1697 * mmTaskYield (WINMM.@)
1698 */
1699 VOID WINAPI mmTaskYield(VOID) {}
1700
1701 /******************************************************************
1702 * mmGetCurrentTask (WINMM.@)
1703 */
1704 DWORD WINAPI mmGetCurrentTask(VOID)
1705 {
1706 return GetCurrentThreadId();
1707 }
Windows API implementation