mirror of
https://github.com/reactos/reactos.git
synced 2024-11-02 21:09:15 +00:00
358 lines
10 KiB
C
358 lines
10 KiB
C
/*
|
|
*
|
|
* COPYRIGHT: See COPYING in the top level directory
|
|
* PROJECT: ReactOS Multimedia
|
|
* FILE: lib/mmdrv/midi.c
|
|
* PURPOSE: Multimedia User Mode Driver
|
|
* PROGRAMMER: Andrew Greenwood
|
|
* UPDATE HISTORY:
|
|
* Jan 30, 2004: Imported into ReactOS tree
|
|
*/
|
|
|
|
#include "mmdrv.h"
|
|
#include "wave.h"
|
|
|
|
#define NDEBUG
|
|
#include <debug.h>
|
|
|
|
// MIDI device instance information
|
|
//
|
|
#define LOCAL_DATA_SIZE 20
|
|
typedef struct _LOCALMIDIHDR {
|
|
OVERLAPPED Ovl;
|
|
DWORD BytesReturned;
|
|
struct _LOCALMIDIHDR *lpNext;
|
|
BOOL Done;
|
|
PVOID pClient;
|
|
// MIDI_DD_INPUT_DATA MidiData;
|
|
BYTE ExtraData[LOCAL_DATA_SIZE - sizeof(ULONG)];
|
|
|
|
} LOCALMIDIHDR, *PLOCALMIDIHDR;
|
|
|
|
#define LOCAL_MIDI_BUFFERS 8
|
|
|
|
typedef struct {
|
|
|
|
BOOL fMidiInStarted;
|
|
DWORD dwMsg;
|
|
DWORD dwCurData;
|
|
BYTE status;
|
|
BOOLEAN fSysex;
|
|
BOOLEAN Bad;
|
|
BYTE bBytesLeft;
|
|
BYTE bBytePos;
|
|
DWORD dwCurTime;
|
|
DWORD dwMsgTime;
|
|
|
|
|
|
PLOCALMIDIHDR DeviceQueue;
|
|
|
|
LOCALMIDIHDR
|
|
Bufs[LOCAL_MIDI_BUFFERS];
|
|
|
|
|
|
} LOCALMIDIDATA, *PLOCALMIDIDATA;
|
|
|
|
|
|
typedef struct tag_MIDIALLOC {
|
|
struct tag_MIDIALLOC *Next; // Chain of devices
|
|
UINT DeviceNumber; // Number of device
|
|
UINT DeviceType; // MidiInput or MidiOutput
|
|
DWORD dwCallback; // client's callback
|
|
DWORD dwInstance; // client's instance data
|
|
HMIDI hMidi; // handle for stream
|
|
HANDLE DeviceHandle; // Midi device handle
|
|
LPMIDIHDR lpMIQueue; // Buffers sent to device
|
|
// This is only required so that
|
|
// CLOSE knows when things have
|
|
// really finished.
|
|
// notify. This is only accessed
|
|
// on the device thread and its
|
|
// apcs so does not need any
|
|
// synchronized access.
|
|
HANDLE Event; // Event for driver syncrhonization
|
|
// and notification of auxiliary
|
|
// task operation completion.
|
|
// MIDITHREADFUNCTION AuxFunction; // Function for thread to perform
|
|
union {
|
|
LPMIDIHDR pHdr; // Buffer to pass in aux task
|
|
ULONG State; // State to set
|
|
struct {
|
|
ULONG Function; // IOCTL to use
|
|
PBYTE pData; // Data to set or get
|
|
ULONG DataLen; // Length of data
|
|
} GetSetData;
|
|
|
|
} AuxParam;
|
|
// 0 means terminate task.
|
|
HANDLE ThreadHandle; // Handle for termination ONLY
|
|
HANDLE AuxEvent1; // Aux thread waits on this
|
|
HANDLE AuxEvent2; // Aux thread caller waits on this
|
|
DWORD AuxReturnCode; // Return code from Aux task
|
|
DWORD dwFlags; // Open flags
|
|
PLOCALMIDIDATA Mid; // Extra midi input structures
|
|
int l; // Helper global for modMidiLength
|
|
|
|
} MIDIALLOC, *PMIDIALLOC;
|
|
|
|
PMIDIALLOC MidiHandleList; // Our chain of wave handles
|
|
|
|
|
|
|
|
static DWORD OpenMidiDevice(UINT DeviceType, DWORD ID, DWORD User, DWORD Param1, DWORD Param2)
|
|
{
|
|
PMIDIALLOC pClient = NULL;
|
|
MMRESULT Result = MMSYSERR_NOERROR;
|
|
|
|
// Check ID?
|
|
DPRINT("OpenMidiDevice()\n");
|
|
|
|
switch(DeviceType)
|
|
{
|
|
case MidiOutDevice :
|
|
pClient = (PMIDIALLOC) HeapAlloc(Heap, 0, sizeof(MIDIALLOC));
|
|
if ( pClient ) memset(pClient, 0, sizeof(MIDIALLOC));
|
|
break;
|
|
|
|
case MidiInDevice :
|
|
pClient = (PMIDIALLOC) HeapAlloc(Heap, 0, sizeof(MIDIALLOC) + sizeof(LOCALMIDIDATA));
|
|
if ( pClient ) memset(pClient, 0, sizeof(MIDIALLOC) + sizeof(LOCALMIDIDATA));
|
|
break;
|
|
};
|
|
|
|
if ( !pClient )
|
|
return MMSYSERR_NOMEM;
|
|
|
|
if (DeviceType == MidiInDevice)
|
|
{
|
|
int i;
|
|
pClient->Mid = (PLOCALMIDIDATA)(pClient + 1);
|
|
for (i = 0 ;i < LOCAL_MIDI_BUFFERS ; i++)
|
|
{
|
|
pClient->Mid->Bufs[i].pClient = pClient;
|
|
}
|
|
}
|
|
|
|
pClient->DeviceType = DeviceType;
|
|
pClient->dwCallback = ((LPMIDIOPENDESC)Param1)->dwCallback;
|
|
pClient->dwInstance = ((LPMIDIOPENDESC)Param1)->dwInstance;
|
|
pClient->hMidi = ((LPMIDIOPENDESC)Param1)->hMidi;
|
|
pClient->dwFlags = Param2;
|
|
|
|
Result = OpenDevice(DeviceType, ID, &pClient->DeviceHandle, (GENERIC_READ | GENERIC_WRITE));
|
|
|
|
if ( Result != MMSYSERR_NOERROR )
|
|
{
|
|
// cleanup
|
|
return Result;
|
|
}
|
|
|
|
pClient->Event = CreateEvent(NULL, FALSE, FALSE, NULL);
|
|
|
|
if ( !pClient->Event )
|
|
{
|
|
// cleanup
|
|
return MMSYSERR_NOMEM;
|
|
}
|
|
|
|
if (DeviceType == MidiInDevice)
|
|
{
|
|
|
|
pClient->AuxEvent1 = CreateEvent(NULL, FALSE, FALSE, NULL);
|
|
if (pClient->AuxEvent1 == NULL)
|
|
{
|
|
// cleanup
|
|
return MMSYSERR_NOMEM;
|
|
}
|
|
|
|
pClient->AuxEvent2 = CreateEvent(NULL, FALSE, FALSE, NULL);
|
|
if (pClient->AuxEvent2 == NULL)
|
|
{
|
|
// cleanup
|
|
return MMSYSERR_NOMEM;
|
|
}
|
|
|
|
|
|
// TaskCreate
|
|
|
|
|
|
WaitForSingleObject(pClient->AuxEvent2, INFINITE);
|
|
}
|
|
|
|
PMIDIALLOC *pUserHandle;
|
|
pUserHandle = (PMIDIALLOC*) User;
|
|
*pUserHandle = pClient;
|
|
|
|
// callback
|
|
|
|
return MMSYSERR_NOERROR;
|
|
}
|
|
|
|
|
|
|
|
static DWORD WriteMidi(PBYTE pData, ULONG Length, PMIDIALLOC pClient)
|
|
{
|
|
DWORD BytesReturned;
|
|
|
|
DPRINT("IOCTL_MIDI_PLAY == %d [%x]\n", IOCTL_MIDI_PLAY, IOCTL_MIDI_PLAY);
|
|
|
|
if ( !DeviceIoControl(pClient->DeviceHandle, IOCTL_MIDI_PLAY, (PVOID)pData,
|
|
Length, NULL, 0, &BytesReturned, NULL))
|
|
return TranslateStatus();
|
|
|
|
return MMSYSERR_NOERROR;
|
|
}
|
|
|
|
|
|
static int GetMidiLength(PMIDIALLOC pClient, BYTE b)
|
|
{
|
|
if (b >= 0xF8)
|
|
{
|
|
// Realtime message - leave running status
|
|
return 1; // Write one byte
|
|
}
|
|
|
|
switch (b)
|
|
{
|
|
case 0xF0: case 0xF4: case 0xF5: case 0xF6: case 0xF7:
|
|
pClient->l = 1;
|
|
return pClient->l;
|
|
|
|
case 0xF1: case 0xF3:
|
|
pClient->l = 2;
|
|
return pClient->l;
|
|
|
|
case 0xF2:
|
|
pClient->l = 3;
|
|
return pClient->l;
|
|
}
|
|
|
|
switch (b & 0xF0)
|
|
{
|
|
case 0x80: case 0x90: case 0xA0: case 0xB0: case 0xE0:
|
|
pClient->l = 3;
|
|
return pClient->l;
|
|
|
|
case 0xC0: case 0xD0:
|
|
pClient->l = 2;
|
|
return pClient->l;
|
|
}
|
|
|
|
return (pClient->l - 1); // uses previous value if data byte (running status)
|
|
}
|
|
|
|
|
|
|
|
/* ----------------------------------------------------------------------------
|
|
Exported functions
|
|
----------------------------------------------------------------------------- */
|
|
|
|
APIENTRY DWORD midMessage(DWORD dwId, DWORD dwMessage, DWORD dwUser, DWORD dwParam1, DWORD dwParam2)
|
|
{
|
|
DPRINT("midMessage\n");
|
|
return MMSYSERR_NOERROR;
|
|
|
|
switch (dwMessage) {
|
|
case MIDM_GETNUMDEVS:
|
|
DPRINT("MIDM_GETNUMDEVS");
|
|
return GetDeviceCount(MidiInDevice);
|
|
|
|
case MIDM_GETDEVCAPS:
|
|
DPRINT("MIDM_GETDEVCAPS");
|
|
return GetDeviceCapabilities(dwId, MidiInDevice, (LPBYTE)dwParam1, (DWORD)dwParam2);
|
|
|
|
case MIDM_OPEN:
|
|
DPRINT("MIDM_OPEN");
|
|
return MMSYSERR_NOERROR;
|
|
|
|
case MIDM_CLOSE:
|
|
DPRINT("MIDM_CLOSE");
|
|
return MMSYSERR_NOERROR;
|
|
|
|
case MIDM_ADDBUFFER:
|
|
DPRINT("MIDM_ADDBUFFER");
|
|
return MMSYSERR_NOERROR;
|
|
|
|
case MIDM_STOP:
|
|
DPRINT("MIDM_PAUSE");
|
|
return MMSYSERR_NOERROR;
|
|
|
|
case MIDM_START:
|
|
DPRINT("MIDM_RESTART");
|
|
return MMSYSERR_NOERROR;
|
|
|
|
case MIDM_RESET:
|
|
DPRINT("MIDM_RESET");
|
|
return MMSYSERR_NOERROR;
|
|
|
|
default:
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
}
|
|
|
|
// the function should never get to this point
|
|
//FIXME: Would it be wise to assert here?
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
}
|
|
|
|
APIENTRY DWORD modMessage(DWORD ID, DWORD Message, DWORD User, DWORD Param1, DWORD Param2)
|
|
{
|
|
DPRINT("modMessage\n");
|
|
|
|
switch(Message)
|
|
{
|
|
case MODM_GETNUMDEVS:
|
|
DPRINT("MODM_GETNUMDEVS == %d\n", (int)GetDeviceCount(MidiOutDevice));
|
|
return GetDeviceCount(MidiOutDevice);
|
|
|
|
case MODM_GETDEVCAPS:
|
|
DPRINT("MODM_GETDEVCAPS");
|
|
return GetDeviceCapabilities(ID, MidiOutDevice, (LPBYTE)Param1, (DWORD)Param2);
|
|
|
|
case MODM_OPEN :
|
|
return OpenMidiDevice(MidiOutDevice, ID, User, Param1, Param2);
|
|
|
|
case MODM_CLOSE:
|
|
DPRINT("MODM_CLOSE");
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
|
|
case MODM_DATA:
|
|
DPRINT("MODM_DATA");
|
|
|
|
int i;
|
|
BYTE b[4];
|
|
for (i = 0; i < 4; i ++) {
|
|
b[i] = (BYTE)(Param1 % 256);
|
|
Param1 /= 256;
|
|
}
|
|
return WriteMidi(b, GetMidiLength((PMIDIALLOC)User, b[0]),
|
|
(PMIDIALLOC)User);
|
|
|
|
case MODM_LONGDATA:
|
|
DPRINT("MODM_LONGDATA");
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
|
|
case MODM_RESET:
|
|
DPRINT("MODM_RESET");
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
|
|
case MODM_SETVOLUME:
|
|
DPRINT("MODM_SETVOLUME");
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
|
|
case MODM_GETVOLUME:
|
|
DPRINT("MODM_GETVOLUME");
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
|
|
case MODM_CACHEPATCHES:
|
|
DPRINT("MODM_CACHEPATCHES");
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
|
|
case MODM_CACHEDRUMPATCHES:
|
|
DPRINT("MODM_CACHEDRUMPATCHES");
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
|
|
};
|
|
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
}
|