1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
3 * Wine MIDI mapper driver
5 * Copyright 1999, 2000, 2001 Eric Pouech
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22 * notification has to be implemented
31 //#include "winbase.h"
36 #include <wine/unicode.h>
37 #include <wine/debug.h>
40 * Here's how Windows stores the midiOut mapping information.
42 * Full form (in HKU) is:
44 * [Software\\Microsoft\\Windows\\CurrentVersion\\Multimedia\\MIDIMap] 988836060
45 * "AutoScheme"=dword:00000000
46 * "ConfigureCount"=dword:00000004
47 * "CurrentInstrument"="Wine OSS midi"
48 * "CurrentScheme"="epp"
50 * "UseScheme"=dword:00000000
53 * CurrentInstrument: name of midiOut device to use when UseScheme is 0. Wine uses an extension
54 * of the form #n to link to n'th midiOut device of the system
55 * CurrentScheme: when UseScheme is non null, it's the scheme to use (see below)
57 * UseScheme: trigger for simple/complex mapping
59 * A scheme is defined (in HKLM) as:
61 * [System\\CurrentControlSet\\Control\\MediaProperties\\PrivateProperties\\Midi\\Schemes\\<nameScheme>]
62 * <nameScheme>: one key for each defined scheme (system wide)
63 * under each one of these <nameScheme> keys, there's:
64 * [...\\<nameScheme>\\<idxDevice>]
65 * "Channels"="<bitMask>"
66 * (the default value of this key also refers to the name of the device).
68 * this defines, for each midiOut device (identified by its index in <idxDevice>), which
69 * channels have to be mapped onto it. The <bitMask> defines the channels (from 0 to 15)
70 * will be mapped (mapping occurs for channel <ch> if bit <ch> is set in <bitMask>
72 * Further mapping information can also be defined in:
73 * [System\\CurrentControlSet\\Control\\MediaProperties\\PrivateProperties\\Midi\\Ports\\<nameDevice>\\Instruments\\<idx>]
74 * "Definition"="<.idf file>"
75 * "FriendlyName"="#for .idx file#"
78 * This last part isn't implemented (.idf file support).
81 WINE_DEFAULT_DEBUG_CHANNEL(msacm
);
83 typedef struct tagMIDIOUTPORT
85 WCHAR name
[MAXPNAMELEN
];
88 unsigned short uDevID
;
90 unsigned int aChn
[16];
93 typedef struct tagMIDIMAPDATA
95 struct tagMIDIMAPDATA
* self
;
96 MIDIOUTPORT
* ChannelMap
[16];
99 static MIDIOUTPORT
* midiOutPorts
;
100 static unsigned numMidiOutPorts
;
102 static BOOL
MIDIMAP_IsBadData(MIDIMAPDATA
* mm
)
104 if (!IsBadReadPtr(mm
, sizeof(MIDIMAPDATA
)) && mm
->self
== mm
)
106 TRACE("Bad midimap data (%p)\n", mm
);
110 static BOOL
MIDIMAP_FindPort(const WCHAR
* name
, unsigned* dev
)
112 for (*dev
= 0; *dev
< numMidiOutPorts
; (*dev
)++)
114 TRACE("%s\n", wine_dbgstr_w(midiOutPorts
[*dev
].name
));
115 if (strcmpW(midiOutPorts
[*dev
].name
, name
) == 0)
118 /* try the form #nnn */
119 if (*name
== '#' && isdigit(name
[1]))
121 const WCHAR
* ptr
= name
+ 1;
125 *dev
= *dev
* 10 + *ptr
- '0';
126 } while (isdigit(*++ptr
));
127 if (*dev
< numMidiOutPorts
)
133 static BOOL
MIDIMAP_LoadSettingsDefault(MIDIMAPDATA
* mom
, const WCHAR
* port
)
137 if (port
!= NULL
&& !MIDIMAP_FindPort(port
, &dev
))
139 ERR("Registry glitch: couldn't find midi out (%s)\n", wine_dbgstr_w(port
));
143 /* this is necessary when no midi out ports are present */
144 if (dev
>= numMidiOutPorts
)
147 for (i
= 0; i
< 16; i
++) mom
->ChannelMap
[i
] = &midiOutPorts
[dev
];
152 static BOOL
MIDIMAP_LoadSettingsScheme(MIDIMAPDATA
* mom
, const WCHAR
* scheme
)
154 HKEY hSchemesKey
, hKey
, hPortKey
;
155 unsigned i
, idx
, dev
;
156 WCHAR buffer
[256], port
[256];
157 DWORD type
, size
, mask
;
159 for (i
= 0; i
< 16; i
++) mom
->ChannelMap
[i
] = NULL
;
161 if (RegOpenKeyA(HKEY_LOCAL_MACHINE
,
162 "System\\CurrentControlSet\\Control\\MediaProperties\\PrivateProperties\\Midi\\Schemes",
167 if (RegOpenKeyW(hSchemesKey
, scheme
, &hKey
))
169 RegCloseKey(hSchemesKey
);
173 for (idx
= 0; !RegEnumKeyW(hKey
, idx
, buffer
, sizeof(buffer
)); idx
++)
175 if (RegOpenKeyW(hKey
, buffer
, &hPortKey
)) continue;
178 if (RegQueryValueExW(hPortKey
, NULL
, 0, &type
, (void*)port
, &size
)) continue;
180 if (!MIDIMAP_FindPort(port
, &dev
)) continue;
183 if (RegQueryValueExA(hPortKey
, "Channels", 0, &type
, (void*)&mask
, &size
))
186 for (i
= 0; i
< 16; i
++)
190 if (mom
->ChannelMap
[i
])
191 ERR("Quirks in registry, channel %u is mapped twice\n", i
);
192 mom
->ChannelMap
[i
] = &midiOutPorts
[dev
];
197 RegCloseKey(hSchemesKey
);
203 static BOOL
MIDIMAP_LoadSettings(MIDIMAPDATA
* mom
)
208 if (RegOpenKeyA(HKEY_CURRENT_USER
,
209 "Software\\Microsoft\\Windows\\CurrentVersion\\Multimedia\\MIDIMap", &hKey
))
211 ret
= MIDIMAP_LoadSettingsDefault(mom
, NULL
);
215 DWORD type
, size
, out
;
220 if (!RegQueryValueExA(hKey
, "UseScheme", 0, &type
, (void*)&out
, &size
) && out
)
222 static const WCHAR cs
[] = {'C','u','r','r','e','n','t','S','c','h','e','m','e',0};
223 size
= sizeof(buffer
);
224 if (!RegQueryValueExW(hKey
, cs
, 0, &type
, (void*)buffer
, &size
))
226 if (!(ret
= MIDIMAP_LoadSettingsScheme(mom
, buffer
)))
227 ret
= MIDIMAP_LoadSettingsDefault(mom
, NULL
);
231 ERR("Wrong registry: UseScheme is active, but no CurrentScheme found\n");
236 static const WCHAR ci
[] = {'C','u','r','r','e','n','t','I','n','s','t','r','u','m','e','n','t',0};
237 size
= sizeof(buffer
);
238 if (!RegQueryValueExW(hKey
, ci
, 0, &type
, (void*)buffer
, &size
) && *buffer
)
240 ret
= MIDIMAP_LoadSettingsDefault(mom
, buffer
);
244 ret
= MIDIMAP_LoadSettingsDefault(mom
, NULL
);
250 if (ret
&& TRACE_ON(msacm
))
254 for (i
= 0; i
< 16; i
++)
256 TRACE("chnMap[%2d] => %d\n",
257 i
, mom
->ChannelMap
[i
] ? mom
->ChannelMap
[i
]->uDevID
: -1);
263 static DWORD
modOpen(DWORD_PTR
*lpdwUser
, LPMIDIOPENDESC lpDesc
, DWORD dwFlags
)
265 MIDIMAPDATA
* mom
= HeapAlloc(GetProcessHeap(), 0, sizeof(MIDIMAPDATA
));
267 TRACE("(%p %p %08lx)\n", lpdwUser
, lpDesc
, dwFlags
);
269 if (!mom
) return MMSYSERR_NOMEM
;
271 if (MIDIMAP_LoadSettings(mom
))
273 *lpdwUser
= (DWORD_PTR
)mom
;
276 return MMSYSERR_NOERROR
;
278 HeapFree(GetProcessHeap(), 0, mom
);
279 return MIDIERR_INVALIDSETUP
;
282 static DWORD
modClose(MIDIMAPDATA
* mom
)
285 DWORD ret
= MMSYSERR_NOERROR
;
287 if (MIDIMAP_IsBadData(mom
)) return MMSYSERR_ERROR
;
289 for (i
= 0; i
< 16; i
++)
292 if (mom
->ChannelMap
[i
] && mom
->ChannelMap
[i
]->loaded
> 0)
294 t
= midiOutClose(mom
->ChannelMap
[i
]->hMidi
);
295 if (t
== MMSYSERR_NOERROR
)
297 mom
->ChannelMap
[i
]->loaded
= 0;
298 mom
->ChannelMap
[i
]->hMidi
= 0;
300 else if (ret
== MMSYSERR_NOERROR
)
304 if (ret
== MMSYSERR_NOERROR
)
305 HeapFree(GetProcessHeap(), 0, mom
);
309 static DWORD
modLongData(MIDIMAPDATA
* mom
, LPMIDIHDR lpMidiHdr
, DWORD_PTR dwParam2
)
312 DWORD ret
= MMSYSERR_NOERROR
;
315 if (MIDIMAP_IsBadData(mom
))
316 return MMSYSERR_ERROR
;
319 for (chn
= 0; chn
< 16; chn
++)
321 if (mom
->ChannelMap
[chn
] && mom
->ChannelMap
[chn
]->loaded
> 0)
324 midiOutPrepareHeader(mom
->ChannelMap
[chn
]->hMidi
, &mh
, sizeof(mh
));
325 ret
= midiOutLongMsg(mom
->ChannelMap
[chn
]->hMidi
, &mh
, sizeof(mh
));
326 midiOutUnprepareHeader(mom
->ChannelMap
[chn
]->hMidi
, &mh
, sizeof(mh
));
327 if (ret
!= MMSYSERR_NOERROR
) break;
333 static DWORD
modData(MIDIMAPDATA
* mom
, DWORD_PTR dwParam
)
335 BYTE lb
= LOBYTE(LOWORD(dwParam
));
336 WORD chn
= lb
& 0x0F;
337 DWORD ret
= MMSYSERR_NOERROR
;
339 if (MIDIMAP_IsBadData(mom
))
340 return MMSYSERR_ERROR
;
342 if (!mom
->ChannelMap
[chn
]) return MMSYSERR_NOERROR
;
353 if (mom
->ChannelMap
[chn
]->loaded
== 0)
355 if (midiOutOpen(&mom
->ChannelMap
[chn
]->hMidi
, mom
->ChannelMap
[chn
]->uDevID
,
356 0L, 0L, CALLBACK_NULL
) == MMSYSERR_NOERROR
)
357 mom
->ChannelMap
[chn
]->loaded
= 1;
359 mom
->ChannelMap
[chn
]->loaded
= -1;
360 /* FIXME: should load here the IDF midi data... and allow channel and
364 if (mom
->ChannelMap
[chn
]->loaded
> 0)
368 dwParam
|= mom
->ChannelMap
[chn
]->aChn
[chn
];
370 if ((LOBYTE(LOWORD(dwParam
)) & 0xF0) == 0xC0 /* program change */ &&
371 mom
->ChannelMap
[chn
]->lpbPatch
)
373 BYTE patch
= HIBYTE(LOWORD(dwParam
));
376 dwParam
&= ~0x0000FF00;
377 dwParam
|= mom
->ChannelMap
[chn
]->lpbPatch
[patch
];
379 ret
= midiOutShortMsg(mom
->ChannelMap
[chn
]->hMidi
, dwParam
);
383 for (chn
= 0; chn
< 16; chn
++)
385 if (mom
->ChannelMap
[chn
]->loaded
> 0)
386 ret
= midiOutShortMsg(mom
->ChannelMap
[chn
]->hMidi
, dwParam
);
390 FIXME("ooch %lu\n", dwParam
);
396 static DWORD
modPrepare(MIDIMAPDATA
* mom
, LPMIDIHDR lpMidiHdr
, DWORD_PTR dwParam2
)
398 if (MIDIMAP_IsBadData(mom
)) return MMSYSERR_ERROR
;
399 if (lpMidiHdr
->dwFlags
& (MHDR_ISSTRM
|MHDR_PREPARED
))
400 return MMSYSERR_INVALPARAM
;
402 lpMidiHdr
->dwFlags
|= MHDR_PREPARED
;
403 return MMSYSERR_NOERROR
;
406 static DWORD
modUnprepare(MIDIMAPDATA
* mom
, LPMIDIHDR lpMidiHdr
, DWORD_PTR dwParam2
)
408 if (MIDIMAP_IsBadData(mom
)) return MMSYSERR_ERROR
;
409 if ((lpMidiHdr
->dwFlags
& MHDR_ISSTRM
) || !(lpMidiHdr
->dwFlags
& MHDR_PREPARED
))
410 return MMSYSERR_INVALPARAM
;
412 lpMidiHdr
->dwFlags
&= ~MHDR_PREPARED
;
413 return MMSYSERR_NOERROR
;
416 static DWORD
modGetDevCaps(UINT wDevID
, MIDIMAPDATA
* mom
, LPMIDIOUTCAPSW lpMidiCaps
, DWORD_PTR size
)
418 static const WCHAR name
[] = {'W','i','n','e',' ','m','i','d','i',' ','m','a','p','p','e','r',0};
419 lpMidiCaps
->wMid
= 0x00FF;
420 lpMidiCaps
->wPid
= 0x0001;
421 lpMidiCaps
->vDriverVersion
= 0x0100;
422 lstrcpyW(lpMidiCaps
->szPname
, name
);
423 lpMidiCaps
->wTechnology
= MOD_MAPPER
;
424 lpMidiCaps
->wVoices
= 0;
425 lpMidiCaps
->wNotes
= 0;
426 lpMidiCaps
->wChannelMask
= 0xFFFF;
427 lpMidiCaps
->dwSupport
= 0L;
429 return MMSYSERR_NOERROR
;
432 static DWORD
modReset(MIDIMAPDATA
* mom
)
435 DWORD ret
= MMSYSERR_NOERROR
;
437 if (MIDIMAP_IsBadData(mom
))
438 return MMSYSERR_ERROR
;
440 for (chn
= 0; chn
< 16; chn
++)
442 if (mom
->ChannelMap
[chn
] && mom
->ChannelMap
[chn
]->loaded
> 0)
444 ret
= midiOutReset(mom
->ChannelMap
[chn
]->hMidi
);
445 if (ret
!= MMSYSERR_NOERROR
) break;
451 /**************************************************************************
452 * modMessage (MIDIMAP.@)
454 DWORD WINAPI
MIDIMAP_modMessage(UINT wDevID
, UINT wMsg
, DWORD_PTR dwUser
,
455 DWORD_PTR dwParam1
, DWORD_PTR dwParam2
)
457 TRACE("(%u, %04X, %08lX, %08lX, %08lX);\n",
458 wDevID
, wMsg
, dwUser
, dwParam1
, dwParam2
);
466 /* FIXME: Pretend this is supported */
469 case MODM_OPEN
: return modOpen ((LPDWORD
)dwUser
, (LPMIDIOPENDESC
)dwParam1
,dwParam2
);
470 case MODM_CLOSE
: return modClose ((MIDIMAPDATA
*)dwUser
);
472 case MODM_DATA
: return modData ((MIDIMAPDATA
*)dwUser
, dwParam1
);
473 case MODM_LONGDATA
: return modLongData ((MIDIMAPDATA
*)dwUser
, (LPMIDIHDR
)dwParam1
, dwParam2
);
474 case MODM_PREPARE
: return modPrepare ((MIDIMAPDATA
*)dwUser
, (LPMIDIHDR
)dwParam1
, dwParam2
);
475 case MODM_UNPREPARE
: return modUnprepare ((MIDIMAPDATA
*)dwUser
, (LPMIDIHDR
)dwParam1
, dwParam2
);
476 case MODM_RESET
: return modReset ((MIDIMAPDATA
*)dwUser
);
478 case MODM_GETDEVCAPS
: return modGetDevCaps (wDevID
, (MIDIMAPDATA
*)dwUser
, (LPMIDIOUTCAPSW
)dwParam1
,dwParam2
);
479 case MODM_GETNUMDEVS
: return 1;
480 case MODM_GETVOLUME
: return MMSYSERR_NOTSUPPORTED
;
481 case MODM_SETVOLUME
: return MMSYSERR_NOTSUPPORTED
;
483 FIXME("unknown message %d!\n", wMsg
);
485 return MMSYSERR_NOTSUPPORTED
;
488 /*======================================================================*
490 *======================================================================*/
492 /**************************************************************************
493 * MIDIMAP_drvOpen [internal]
495 static LRESULT
MIDIMAP_drvOpen(LPSTR str
)
503 numMidiOutPorts
= midiOutGetNumDevs();
504 midiOutPorts
= HeapAlloc(GetProcessHeap(), 0,
505 numMidiOutPorts
* sizeof(MIDIOUTPORT
));
506 for (dev
= 0; dev
< numMidiOutPorts
; dev
++)
508 if (midiOutGetDevCapsW(dev
, &moc
, sizeof(moc
)) == 0L)
510 strcpyW(midiOutPorts
[dev
].name
, moc
.szPname
);
511 midiOutPorts
[dev
].loaded
= 0;
512 midiOutPorts
[dev
].hMidi
= 0;
513 midiOutPorts
[dev
].uDevID
= dev
;
514 midiOutPorts
[dev
].lpbPatch
= NULL
;
515 for (i
= 0; i
< 16; i
++)
516 midiOutPorts
[dev
].aChn
[i
] = i
;
520 midiOutPorts
[dev
].loaded
= -1;
527 /**************************************************************************
528 * MIDIMAP_drvClose [internal]
530 static LRESULT
MIDIMAP_drvClose(DWORD_PTR dwDevID
)
534 HeapFree(GetProcessHeap(), 0, midiOutPorts
);
541 /**************************************************************************
542 * DriverProc (MIDIMAP.@)
544 LRESULT CALLBACK
MIDIMAP_DriverProc(DWORD_PTR dwDevID
, HDRVR hDriv
, UINT wMsg
,
545 LPARAM dwParam1
, LPARAM dwParam2
)
547 /* EPP TRACE("(%08lX, %04X, %08lX, %08lX, %08lX)\n", */
548 /* EPP dwDevID, hDriv, wMsg, dwParam1, dwParam2); */
552 case DRV_LOAD
: return 1;
553 case DRV_FREE
: return 1;
554 case DRV_OPEN
: return MIDIMAP_drvOpen((LPSTR
)dwParam1
);
555 case DRV_CLOSE
: return MIDIMAP_drvClose(dwDevID
);
556 case DRV_ENABLE
: return 1;
557 case DRV_DISABLE
: return 1;
558 case DRV_QUERYCONFIGURE
: return 1;
559 case DRV_CONFIGURE
: MessageBoxA(0, "MIDIMAP MultiMedia Driver !", "OSS Driver", MB_OK
); return 1;
560 case DRV_INSTALL
: return DRVCNF_RESTART
;
561 case DRV_REMOVE
: return DRVCNF_RESTART
;
563 return DefDriverProc(dwDevID
, hDriv
, wMsg
, dwParam1
, dwParam2
);