1333 lines
40 KiB
C
1333 lines
40 KiB
C
/*
|
|
* Sample MIDI Wine Driver for Linux
|
|
*
|
|
* Copyright 1994 Martin Ayotte
|
|
*/
|
|
|
|
#ifndef WINELIB
|
|
#define BUILTIN_MMSYSTEM
|
|
#endif
|
|
|
|
#ifdef BUILTIN_MMSYSTEM
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
#include <sys/ioctl.h>
|
|
#include "windows.h"
|
|
#include "ldt.h"
|
|
#include "driver.h"
|
|
#include "mmsystem.h"
|
|
#include "xmalloc.h"
|
|
|
|
#include "stddebug.h"
|
|
#include "debug.h"
|
|
|
|
#ifdef linux
|
|
#include <linux/soundcard.h>
|
|
#endif
|
|
|
|
#ifdef linux
|
|
#define MIDI_DEV "/dev/sequencer"
|
|
|
|
#ifdef SOUND_VERSION
|
|
#define IOCTL(a,b,c) ioctl(a,b,&c)
|
|
#else
|
|
#define IOCTL(a,b,c) (c = ioctl(a,b,c) )
|
|
#endif
|
|
|
|
#define MAX_MIDIINDRV 2
|
|
#define MAX_MIDIOUTDRV 2
|
|
#define MAX_MCIMIDIDRV 2
|
|
|
|
typedef struct {
|
|
int unixdev;
|
|
int state;
|
|
DWORD bufsize;
|
|
MIDIOPENDESC midiDesc;
|
|
WORD wFlags;
|
|
LPMIDIHDR lpQueueHdr;
|
|
DWORD dwTotalPlayed;
|
|
} LINUX_MIDIIN;
|
|
|
|
typedef struct {
|
|
int unixdev;
|
|
int state;
|
|
DWORD bufsize;
|
|
MIDIOPENDESC midiDesc;
|
|
WORD wFlags;
|
|
LPMIDIHDR lpQueueHdr;
|
|
DWORD dwTotalPlayed;
|
|
} LINUX_MIDIOUT;
|
|
|
|
typedef struct {
|
|
int nUseCount; /* Incremented for each shared open */
|
|
BOOL fShareable; /* TRUE if first open was shareable */
|
|
WORD wNotifyDeviceID; /* MCI device ID with a pending notification */
|
|
HANDLE hCallback; /* Callback handle for pending notification */
|
|
HMMIO hFile; /* mmio file handle open as Element */
|
|
DWORD dwBeginData;
|
|
DWORD dwTotalLen;
|
|
WORD wFormat;
|
|
WORD nTracks;
|
|
WORD nTempo;
|
|
MCI_OPEN_PARMS openParms;
|
|
MIDIHDR MidiHdr;
|
|
WORD dwStatus;
|
|
} LINUX_MCIMIDI;
|
|
|
|
static LINUX_MIDIIN MidiInDev[MAX_MIDIINDRV];
|
|
static LINUX_MIDIOUT MidiOutDev[MAX_MIDIOUTDRV];
|
|
static LINUX_MCIMIDI MCIMidiDev[MAX_MCIMIDIDRV];
|
|
#endif
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_NotifyClient [internal]
|
|
*/
|
|
static DWORD MIDI_NotifyClient(UINT wDevID, WORD wMsg,
|
|
DWORD dwParam1, DWORD dwParam2)
|
|
{
|
|
#ifdef linux
|
|
if (MidiInDev[wDevID].wFlags != DCB_NULL && !DriverCallback(
|
|
MidiInDev[wDevID].midiDesc.dwCallback, MidiInDev[wDevID].wFlags,
|
|
MidiInDev[wDevID].midiDesc.hMidi, wMsg,
|
|
MidiInDev[wDevID].midiDesc.dwInstance, dwParam1, dwParam2)) {
|
|
dprintf_midi(stddeb, "MIDI_NotifyClient // can't notify client !\n");
|
|
return MMSYSERR_NOERROR;
|
|
}
|
|
return 0;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_ReadByte [internal]
|
|
*/
|
|
static DWORD MIDI_ReadByte(UINT wDevID, BYTE FAR *lpbyt)
|
|
{
|
|
#ifdef linux
|
|
if (lpbyt != NULL) {
|
|
if (mmioRead(MCIMidiDev[wDevID].hFile, (HPSTR)lpbyt,
|
|
(long) sizeof(BYTE)) == (long) sizeof(BYTE)) {
|
|
return 0;
|
|
}
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_ReadByte // error reading wDevID=%d \n", wDevID);
|
|
return MCIERR_INTERNAL;
|
|
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_ReadWord [internal]
|
|
*/
|
|
static DWORD MIDI_ReadWord(UINT wDevID, LPWORD lpw)
|
|
{
|
|
BYTE hibyte, lobyte;
|
|
if (lpw != NULL) {
|
|
if (MIDI_ReadByte(wDevID, &hibyte) == 0) {
|
|
if (MIDI_ReadByte(wDevID, &lobyte) == 0) {
|
|
*lpw = ((WORD)hibyte << 8) + lobyte;
|
|
return 0;
|
|
}
|
|
}
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_ReadWord // error reading wDevID=%d \n", wDevID);
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_ReadLong [internal]
|
|
*/
|
|
static DWORD MIDI_ReadLong(UINT wDevID, LPDWORD lpdw)
|
|
{
|
|
WORD hiword, loword;
|
|
if (lpdw != NULL) {
|
|
if (MIDI_ReadWord(wDevID, &hiword) == 0) {
|
|
if (MIDI_ReadWord(wDevID, &loword) == 0) {
|
|
*lpdw = MAKELONG(loword, hiword);
|
|
return 0;
|
|
}
|
|
}
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_ReadLong // error reading wDevID=%d \n", wDevID);
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_ReadVaryLen [internal]
|
|
*/
|
|
static DWORD MIDI_ReadVaryLen(UINT wDevID, LPDWORD lpdw)
|
|
{
|
|
BYTE byte;
|
|
DWORD value;
|
|
if (lpdw == NULL) return MCIERR_INTERNAL;
|
|
if (MIDI_ReadByte(wDevID, &byte) != 0) {
|
|
dprintf_midi(stddeb, "MIDI_ReadVaryLen // error reading wDevID=%d \n", wDevID);
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
value = (DWORD)(byte & 0x7F);
|
|
while (byte & 0x80) {
|
|
if (MIDI_ReadByte(wDevID, &byte) != 0) {
|
|
dprintf_midi(stddeb, "MIDI_ReadVaryLen // error reading wDevID=%d \n", wDevID);
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
value = (value << 7) + (byte & 0x7F);
|
|
}
|
|
*lpdw = value;
|
|
/*
|
|
dprintf_midi(stddeb, "MIDI_ReadVaryLen // val=%08lX \n", value);
|
|
*/
|
|
return 0;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_ReadMThd [internal]
|
|
*/
|
|
static DWORD MIDI_ReadMThd(UINT wDevID, DWORD dwOffset)
|
|
{
|
|
#ifdef linux
|
|
DWORD toberead;
|
|
FOURCC fourcc;
|
|
dprintf_midi(stddeb, "MIDI_ReadMThd(%04X, %08lX);\n", wDevID, dwOffset);
|
|
if (mmioSeek(MCIMidiDev[wDevID].hFile, dwOffset, SEEK_SET) != dwOffset) {
|
|
dprintf_midi(stddeb, "MIDI_ReadMThd // can't seek at %08lX begin of 'MThd' \n", dwOffset);
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
if (mmioRead(MCIMidiDev[wDevID].hFile, (HPSTR)&fourcc,
|
|
(long) sizeof(FOURCC)) != (long) sizeof(FOURCC)) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
if (MIDI_ReadLong(wDevID, &toberead) != 0) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
if (MIDI_ReadWord(wDevID, &MCIMidiDev[wDevID].wFormat) != 0) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
if (MIDI_ReadWord(wDevID, &MCIMidiDev[wDevID].nTracks) != 0) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
if (MIDI_ReadWord(wDevID, &MCIMidiDev[wDevID].nTempo) != 0) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_ReadMThd // toberead=%08lX, wFormat=%04X nTracks=%04X nTempo=%04X\n",
|
|
toberead, MCIMidiDev[wDevID].wFormat,
|
|
MCIMidiDev[wDevID].nTracks,
|
|
MCIMidiDev[wDevID].nTempo);
|
|
toberead -= 3 * sizeof(WORD);
|
|
/*
|
|
ntrks = read16bit ();
|
|
Mf_division = division = read16bit ();
|
|
*/
|
|
return 0;
|
|
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
static DWORD MIDI_ReadMTrk(UINT wDevID, DWORD dwOffset)
|
|
{
|
|
#ifdef linux
|
|
DWORD toberead;
|
|
FOURCC fourcc;
|
|
if (mmioSeek(MCIMidiDev[wDevID].hFile, dwOffset, SEEK_SET) != dwOffset) {
|
|
dprintf_midi(stddeb, "MIDI_ReadMTrk // can't seek at %08lX begin of 'MThd' \n", dwOffset);
|
|
}
|
|
if (mmioRead(MCIMidiDev[wDevID].hFile, (HPSTR)&fourcc,
|
|
(long) sizeof(FOURCC)) != (long) sizeof(FOURCC)) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
if (MIDI_ReadLong(wDevID, &toberead) != 0) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_ReadMTrk // toberead=%08lX\n", toberead);
|
|
toberead -= 3 * sizeof(WORD);
|
|
MCIMidiDev[wDevID].dwTotalLen = toberead;
|
|
return 0;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciOpen [internal]
|
|
*/
|
|
static DWORD MIDI_mciOpen(UINT wDevID, DWORD dwFlags, LPMCI_OPEN_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
MIDIOPENDESC MidiDesc;
|
|
DWORD dwRet;
|
|
DWORD dwOffset;
|
|
LPSTR lpstrElementName;
|
|
char str[128];
|
|
|
|
dprintf_midi(stddeb, "MIDI_mciOpen(%08lX, %p)\n", dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
if (MCIMidiDev[wDevID].nUseCount > 0) {
|
|
/* The driver already open on this channel */
|
|
/* If the driver was opened shareable before and this open specifies */
|
|
/* shareable then increment the use count */
|
|
if (MCIMidiDev[wDevID].fShareable && (dwFlags & MCI_OPEN_SHAREABLE))
|
|
++MCIMidiDev[wDevID].nUseCount;
|
|
else
|
|
return MCIERR_MUST_USE_SHAREABLE;
|
|
}
|
|
else {
|
|
MCIMidiDev[wDevID].nUseCount = 1;
|
|
MCIMidiDev[wDevID].fShareable = dwFlags & MCI_OPEN_SHAREABLE;
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // wDevID=%04X\n", wDevID);
|
|
lpParms->wDeviceID = wDevID;
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // lpParms->wDevID=%04X\n", lpParms->wDeviceID);
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // before OPEN_ELEMENT\n");
|
|
if (dwFlags & MCI_OPEN_ELEMENT) {
|
|
lpstrElementName = (LPSTR)PTR_SEG_TO_LIN(lpParms->lpstrElementName);
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // MCI_OPEN_ELEMENT '%s' !\n", lpstrElementName);
|
|
if (strlen(lpstrElementName) > 0) {
|
|
strcpy(str, lpstrElementName);
|
|
AnsiUpper(str);
|
|
MCIMidiDev[wDevID].hFile = mmioOpen(str, NULL,
|
|
MMIO_ALLOCBUF | MMIO_READWRITE | MMIO_EXCLUSIVE);
|
|
if (MCIMidiDev[wDevID].hFile == 0) {
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // can't find file='%s' !\n", str);
|
|
return MCIERR_FILE_NOT_FOUND;
|
|
}
|
|
}
|
|
else
|
|
MCIMidiDev[wDevID].hFile = 0;
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // hFile=%u\n", MCIMidiDev[wDevID].hFile);
|
|
memcpy(&MCIMidiDev[wDevID].openParms, lpParms, sizeof(MCI_OPEN_PARMS));
|
|
MCIMidiDev[wDevID].wNotifyDeviceID = lpParms->wDeviceID;
|
|
MCIMidiDev[wDevID].dwStatus = MCI_MODE_STOP;
|
|
MCIMidiDev[wDevID].dwBeginData = 0;
|
|
MCIMidiDev[wDevID].dwTotalLen = 0;
|
|
MidiDesc.hMidi = 0;
|
|
if (MCIMidiDev[wDevID].hFile != 0) {
|
|
MMCKINFO ckMainRIFF;
|
|
if (mmioDescend(MCIMidiDev[wDevID].hFile, &ckMainRIFF, NULL, 0) != 0) {
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
dprintf_midi(stddeb,"MIDI_mciOpen // ParentChunk ckid=%.4s fccType=%.4s cksize=%08lX \n",
|
|
(LPSTR)&ckMainRIFF.ckid, (LPSTR)&ckMainRIFF.fccType,
|
|
ckMainRIFF.cksize);
|
|
dwOffset = 0;
|
|
if (ckMainRIFF.ckid == mmioFOURCC('R', 'M', 'I', 'D')) {
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // is a 'RMID' file \n");
|
|
dwOffset = ckMainRIFF.dwDataOffset;
|
|
}
|
|
if (ckMainRIFF.ckid != mmioFOURCC('M', 'T', 'h', 'd')) {
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // unknown format !\n");
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
if (MIDI_ReadMThd(wDevID, dwOffset) != 0) {
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // can't read 'MThd' header \n");
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
dwOffset = mmioSeek(MCIMidiDev[wDevID].hFile, 0, SEEK_CUR);
|
|
if (MIDI_ReadMTrk(wDevID, dwOffset) != 0) {
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // can't read 'MTrk' header \n");
|
|
return MCIERR_INTERNAL;
|
|
}
|
|
dwOffset = mmioSeek(MCIMidiDev[wDevID].hFile, 0, SEEK_CUR);
|
|
MCIMidiDev[wDevID].dwBeginData = dwOffset;
|
|
dprintf_midi(stddeb, "MIDI_mciOpen // Chunk Found ckid=%.4s fccType=%.4s cksize=%08lX \n",
|
|
(LPSTR)&ckMainRIFF.ckid, (LPSTR)&ckMainRIFF.fccType,
|
|
ckMainRIFF.cksize);
|
|
}
|
|
dwRet = modMessage(0, MODM_OPEN, 0, (DWORD)&MidiDesc, CALLBACK_NULL);
|
|
dwRet = midMessage(0, MIDM_OPEN, 0, (DWORD)&MidiDesc, CALLBACK_NULL);
|
|
return 0;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciStop [internal]
|
|
*/
|
|
static DWORD MIDI_mciStop(UINT wDevID, DWORD dwFlags, LPMCI_GENERIC_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "MIDI_mciStop(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
MCIMidiDev[wDevID].dwStatus = MCI_MODE_STOP;
|
|
dprintf_midi(stddeb, "MIDI_mciStop // MCIMidiDev[wDevID].dwStatus=%p %d\n",
|
|
&MCIMidiDev[wDevID].dwStatus, MCIMidiDev[wDevID].dwStatus);
|
|
return 0;
|
|
#else
|
|
return MCIERR_INTERNAL;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciClose [internal]
|
|
*/
|
|
static DWORD MIDI_mciClose(UINT wDevID, DWORD dwParam, LPMCI_GENERIC_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
DWORD dwRet;
|
|
dprintf_midi(stddeb, "MIDI_mciClose(%u, %08lX, %p);\n", wDevID, dwParam, lpParms);
|
|
if (MCIMidiDev[wDevID].dwStatus != MCI_MODE_STOP) {
|
|
MIDI_mciStop(wDevID, MCI_WAIT, lpParms);
|
|
}
|
|
MCIMidiDev[wDevID].dwStatus = MCI_MODE_STOP;
|
|
MCIMidiDev[wDevID].nUseCount--;
|
|
if (MCIMidiDev[wDevID].nUseCount == 0) {
|
|
if (MCIMidiDev[wDevID].hFile != 0) {
|
|
mmioClose(MCIMidiDev[wDevID].hFile, 0);
|
|
MCIMidiDev[wDevID].hFile = 0;
|
|
dprintf_midi(stddeb, "MIDI_mciClose // hFile closed !\n");
|
|
}
|
|
dwRet = modMessage(0, MODM_CLOSE, 0, 0L, 0L);
|
|
if (dwRet != MMSYSERR_NOERROR) return MCIERR_INTERNAL;
|
|
dwRet = midMessage(0, MIDM_CLOSE, 0, 0L, 0L);
|
|
if (dwRet != MMSYSERR_NOERROR) return MCIERR_INTERNAL;
|
|
}
|
|
return 0;
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciPlay [internal]
|
|
*/
|
|
static DWORD MIDI_mciPlay(UINT wDevID, DWORD dwFlags, LPMCI_PLAY_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
int count;
|
|
int start, end;
|
|
LPMIDIHDR lpMidiHdr;
|
|
DWORD dwData;
|
|
LPWORD ptr;
|
|
DWORD dwRet;
|
|
dprintf_midi(stddeb, "MIDI_mciPlay(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (MCIMidiDev[wDevID].hFile == 0) {
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // can't find file='%s' !\n",
|
|
MCIMidiDev[wDevID].openParms.lpstrElementName);
|
|
return MCIERR_FILE_NOT_FOUND;
|
|
}
|
|
start = 1; end = 99999;
|
|
if (dwFlags & MCI_FROM) {
|
|
start = lpParms->dwFrom;
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // MCI_FROM=%d \n", start);
|
|
}
|
|
if (dwFlags & MCI_TO) {
|
|
end = lpParms->dwTo;
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // MCI_TO=%d \n", end);
|
|
}
|
|
#if 0
|
|
if (dwFlags & MCI_NOTIFY) {
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // MCI_NOTIFY %08lX !\n", lpParms->dwCallback);
|
|
switch(fork()) {
|
|
case -1:
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // Can't 'fork' process !\n");
|
|
break;
|
|
case 0:
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // process started ! play in background ...\n");
|
|
break;
|
|
default:
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // process started ! return to caller...\n");
|
|
return 0;
|
|
}
|
|
}
|
|
#endif
|
|
lpMidiHdr = &MCIMidiDev[wDevID].MidiHdr;
|
|
lpMidiHdr->lpData = (LPSTR) malloc(1200);
|
|
if (lpMidiHdr->lpData == NULL) return MCIERR_INTERNAL;
|
|
lpMidiHdr->dwBufferLength = 1024;
|
|
lpMidiHdr->dwUser = 0L;
|
|
lpMidiHdr->dwFlags = 0L;
|
|
dwRet = modMessage(0, MODM_PREPARE, 0, (DWORD)lpMidiHdr, sizeof(MIDIHDR));
|
|
/* dprintf_midi(stddeb, "MIDI_mciPlay // after MODM_PREPARE \n"); */
|
|
MCIMidiDev[wDevID].dwStatus = MCI_MODE_PLAY;
|
|
while(MCIMidiDev[wDevID].dwStatus != MCI_MODE_STOP) {
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // MCIMidiDev[wDevID].dwStatus=%p %d\n",
|
|
&MCIMidiDev[wDevID].dwStatus, MCIMidiDev[wDevID].dwStatus);
|
|
ptr = (LPWORD)lpMidiHdr->lpData;
|
|
for (count = 0; count < lpMidiHdr->dwBufferLength; count++) {
|
|
if (MIDI_ReadVaryLen(wDevID, &dwData) != 0) break;
|
|
*ptr = LOWORD(dwData);
|
|
}
|
|
/*
|
|
count = mmioRead(MCIMidiDev[wDevID].hFile, lpMidiHdr->lpData, lpMidiHdr->dwBufferLength);
|
|
*/
|
|
if (count < 1) break;
|
|
lpMidiHdr->dwBytesRecorded = count;
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // before MODM_LONGDATA lpMidiHdr=%p dwBytesRecorded=%lu\n",
|
|
lpMidiHdr, lpMidiHdr->dwBytesRecorded);
|
|
dwRet = modMessage(0, MODM_LONGDATA, 0, (DWORD)lpMidiHdr, sizeof(MIDIHDR));
|
|
}
|
|
dwRet = modMessage(0, MODM_UNPREPARE, 0, (DWORD)lpMidiHdr, sizeof(MIDIHDR));
|
|
if (lpMidiHdr->lpData != NULL) {
|
|
free(lpMidiHdr->lpData);
|
|
lpMidiHdr->lpData = NULL;
|
|
}
|
|
MCIMidiDev[wDevID].dwStatus = MCI_MODE_STOP;
|
|
if (dwFlags & MCI_NOTIFY) {
|
|
dprintf_midi(stddeb, "MIDI_mciPlay // MCI_NOTIFY_SUCCESSFUL %08lX !\n", lpParms->dwCallback);
|
|
mciDriverNotify((HWND)LOWORD(lpParms->dwCallback),
|
|
MCIMidiDev[wDevID].wNotifyDeviceID, MCI_NOTIFY_SUCCESSFUL);
|
|
#if 0
|
|
exit(1);
|
|
#endif
|
|
}
|
|
return 0;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciRecord [internal]
|
|
*/
|
|
static DWORD MIDI_mciRecord(UINT wDevID, DWORD dwFlags, LPMCI_RECORD_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
int start, end;
|
|
LPMIDIHDR lpMidiHdr;
|
|
DWORD dwRet;
|
|
|
|
dprintf_midi(stddeb, "MIDI_mciRecord(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (MCIMidiDev[wDevID].hFile == 0) {
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // can't find file='%s' !\n",
|
|
MCIMidiDev[wDevID].openParms.lpstrElementName);
|
|
return MCIERR_FILE_NOT_FOUND;
|
|
}
|
|
start = 1; end = 99999;
|
|
if (dwFlags & MCI_FROM) {
|
|
start = lpParms->dwFrom;
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // MCI_FROM=%d \n", start);
|
|
}
|
|
if (dwFlags & MCI_TO) {
|
|
end = lpParms->dwTo;
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // MCI_TO=%d \n", end);
|
|
}
|
|
lpMidiHdr = &MCIMidiDev[wDevID].MidiHdr;
|
|
lpMidiHdr->lpData = (LPSTR) xmalloc(1200);
|
|
lpMidiHdr->dwBufferLength = 1024;
|
|
lpMidiHdr->dwUser = 0L;
|
|
lpMidiHdr->dwFlags = 0L;
|
|
dwRet = midMessage(0, MIDM_PREPARE, 0, (DWORD)lpMidiHdr, sizeof(MIDIHDR));
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // after MIDM_PREPARE \n");
|
|
MCIMidiDev[wDevID].dwStatus = MCI_MODE_RECORD;
|
|
while(MCIMidiDev[wDevID].dwStatus != MCI_MODE_STOP) {
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // MCIMidiDev[wDevID].dwStatus=%p %d\n",
|
|
&MCIMidiDev[wDevID].dwStatus, MCIMidiDev[wDevID].dwStatus);
|
|
lpMidiHdr->dwBytesRecorded = 0;
|
|
dwRet = midMessage(0, MIDM_START, 0, 0L, 0L);
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // after MIDM_START lpMidiHdr=%p dwBytesRecorded=%lu\n",
|
|
lpMidiHdr, lpMidiHdr->dwBytesRecorded);
|
|
if (lpMidiHdr->dwBytesRecorded == 0) break;
|
|
}
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // before MIDM_UNPREPARE \n");
|
|
dwRet = midMessage(0, MIDM_UNPREPARE, 0, (DWORD)lpMidiHdr, sizeof(MIDIHDR));
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // after MIDM_UNPREPARE \n");
|
|
if (lpMidiHdr->lpData != NULL) {
|
|
free(lpMidiHdr->lpData);
|
|
lpMidiHdr->lpData = NULL;
|
|
}
|
|
MCIMidiDev[wDevID].dwStatus = MCI_MODE_STOP;
|
|
if (dwFlags & MCI_NOTIFY) {
|
|
dprintf_midi(stddeb, "MIDI_mciRecord // MCI_NOTIFY_SUCCESSFUL %08lX !\n", lpParms->dwCallback);
|
|
mciDriverNotify((HWND)LOWORD(lpParms->dwCallback),
|
|
MCIMidiDev[wDevID].wNotifyDeviceID, MCI_NOTIFY_SUCCESSFUL);
|
|
}
|
|
return 0;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciPause [internal]
|
|
*/
|
|
static DWORD MIDI_mciPause(UINT wDevID, DWORD dwFlags, LPMCI_GENERIC_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "MIDI_mciPause(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
return 0;
|
|
#else
|
|
return MCIERR_INTERNAL;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciResume [internal]
|
|
*/
|
|
static DWORD MIDI_mciResume(UINT wDevID, DWORD dwFlags, LPMCI_GENERIC_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "MIDI_mciResume(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
return 0;
|
|
#else
|
|
return MCIERR_INTERNAL;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciSet [internal]
|
|
*/
|
|
static DWORD MIDI_mciSet(UINT wDevID, DWORD dwFlags, LPMCI_SET_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "MIDI_mciSet(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
dprintf_midi(stddeb, "MIDI_mciSet // dwTimeFormat=%08lX\n", lpParms->dwTimeFormat);
|
|
dprintf_midi(stddeb, "MIDI_mciSet // dwAudio=%08lX\n", lpParms->dwAudio);
|
|
if (dwFlags & MCI_SET_TIME_FORMAT) {
|
|
switch (lpParms->dwTimeFormat) {
|
|
case MCI_FORMAT_MILLISECONDS:
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_FORMAT_MILLISECONDS !\n");
|
|
break;
|
|
case MCI_FORMAT_BYTES:
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_FORMAT_BYTES !\n");
|
|
break;
|
|
case MCI_FORMAT_SAMPLES:
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_FORMAT_SAMPLES !\n");
|
|
break;
|
|
default:
|
|
dprintf_midi(stddeb, "MIDI_mciSet // bad time format !\n");
|
|
return MCIERR_BAD_TIME_FORMAT;
|
|
}
|
|
}
|
|
if (dwFlags & MCI_SET_VIDEO) return MCIERR_UNSUPPORTED_FUNCTION;
|
|
if (dwFlags & MCI_SET_DOOR_OPEN) return MCIERR_UNSUPPORTED_FUNCTION;
|
|
if (dwFlags & MCI_SET_DOOR_CLOSED) return MCIERR_UNSUPPORTED_FUNCTION;
|
|
if (dwFlags & MCI_SET_AUDIO) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SET_AUDIO !\n");
|
|
}
|
|
if (dwFlags && MCI_SET_ON) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SET_ON !\n");
|
|
if (dwFlags && MCI_SET_AUDIO_LEFT) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SET_AUDIO_LEFT !\n");
|
|
}
|
|
if (dwFlags && MCI_SET_AUDIO_RIGHT) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SET_AUDIO_RIGHT !\n");
|
|
}
|
|
}
|
|
if (dwFlags & MCI_SET_OFF) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SET_OFF !\n");
|
|
}
|
|
if (dwFlags & MCI_SEQ_SET_MASTER) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SEQ_SET_MASTER !\n");
|
|
}
|
|
if (dwFlags & MCI_SEQ_SET_SLAVE) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SEQ_SET_SLAVE !\n");
|
|
}
|
|
if (dwFlags & MCI_SEQ_SET_OFFSET) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SEQ_SET_OFFSET !\n");
|
|
}
|
|
if (dwFlags & MCI_SEQ_SET_PORT) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SEQ_SET_PORT !\n");
|
|
}
|
|
if (dwFlags & MCI_SEQ_SET_TEMPO) {
|
|
dprintf_midi(stddeb, "MIDI_mciSet // MCI_SEQ_SET_TEMPO !\n");
|
|
}
|
|
return 0;
|
|
#else
|
|
return MCIERR_INTERNAL;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciStatus [internal]
|
|
*/
|
|
static DWORD MIDI_mciStatus(UINT wDevID, DWORD dwFlags, LPMCI_STATUS_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "MIDI_mciStatus(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
if (dwFlags & MCI_STATUS_ITEM) {
|
|
switch(lpParms->dwItem) {
|
|
case MCI_STATUS_CURRENT_TRACK:
|
|
lpParms->dwReturn = 1;
|
|
break;
|
|
case MCI_STATUS_LENGTH:
|
|
lpParms->dwReturn = 5555;
|
|
if (dwFlags & MCI_TRACK) {
|
|
lpParms->dwTrack = 1;
|
|
lpParms->dwReturn = 2222;
|
|
}
|
|
break;
|
|
case MCI_STATUS_MODE:
|
|
lpParms->dwReturn = MCI_MODE_STOP;
|
|
break;
|
|
case MCI_STATUS_MEDIA_PRESENT:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_STATUS_MEDIA_PRESENT !\n");
|
|
lpParms->dwReturn = TRUE;
|
|
break;
|
|
case MCI_STATUS_NUMBER_OF_TRACKS:
|
|
lpParms->dwReturn = 1;
|
|
break;
|
|
case MCI_STATUS_POSITION:
|
|
lpParms->dwReturn = 3333;
|
|
if (dwFlags & MCI_STATUS_START) {
|
|
lpParms->dwItem = 1;
|
|
}
|
|
if (dwFlags & MCI_TRACK) {
|
|
lpParms->dwTrack = 1;
|
|
lpParms->dwReturn = 777;
|
|
}
|
|
break;
|
|
case MCI_STATUS_READY:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_STATUS_READY !\n");
|
|
lpParms->dwReturn = TRUE;
|
|
break;
|
|
case MCI_STATUS_TIME_FORMAT:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_STATUS_TIME_FORMAT !\n");
|
|
lpParms->dwReturn = MCI_FORMAT_MILLISECONDS;
|
|
break;
|
|
case MCI_SEQ_STATUS_DIVTYPE:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_SEQ_STATUS_DIVTYPE !\n");
|
|
lpParms->dwReturn = 0;
|
|
break;
|
|
case MCI_SEQ_STATUS_MASTER:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_SEQ_STATUS_MASTER !\n");
|
|
lpParms->dwReturn = 0;
|
|
break;
|
|
case MCI_SEQ_STATUS_SLAVE:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_SEQ_STATUS_SLAVE !\n");
|
|
lpParms->dwReturn = 0;
|
|
break;
|
|
case MCI_SEQ_STATUS_OFFSET:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_SEQ_STATUS_OFFSET !\n");
|
|
lpParms->dwReturn = 0;
|
|
break;
|
|
case MCI_SEQ_STATUS_PORT:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_SEQ_STATUS_PORT !\n");
|
|
lpParms->dwReturn = 0;
|
|
break;
|
|
case MCI_SEQ_STATUS_TEMPO:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_SEQ_STATUS_TEMPO !\n");
|
|
lpParms->dwReturn = 0;
|
|
break;
|
|
default:
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // unknowm command %08lX !\n", lpParms->dwItem);
|
|
return MCIERR_UNRECOGNIZED_COMMAND;
|
|
}
|
|
}
|
|
if (dwFlags & MCI_NOTIFY) {
|
|
dprintf_midi(stddeb, "MIDI_mciStatus // MCI_NOTIFY_SUCCESSFUL %08lX !\n", lpParms->dwCallback);
|
|
mciDriverNotify((HWND)LOWORD(lpParms->dwCallback),
|
|
MCIMidiDev[wDevID].wNotifyDeviceID, MCI_NOTIFY_SUCCESSFUL);
|
|
}
|
|
return 0;
|
|
#else
|
|
return MCIERR_INTERNAL;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciGetDevCaps [internal]
|
|
*/
|
|
static DWORD MIDI_mciGetDevCaps(UINT wDevID, DWORD dwFlags,
|
|
LPMCI_GETDEVCAPS_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "MIDI_mciGetDevCaps(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
if (dwFlags & MCI_GETDEVCAPS_ITEM) {
|
|
switch(lpParms->dwItem) {
|
|
case MCI_GETDEVCAPS_CAN_RECORD:
|
|
lpParms->dwReturn = TRUE;
|
|
break;
|
|
case MCI_GETDEVCAPS_HAS_AUDIO:
|
|
lpParms->dwReturn = TRUE;
|
|
break;
|
|
case MCI_GETDEVCAPS_HAS_VIDEO:
|
|
lpParms->dwReturn = FALSE;
|
|
break;
|
|
case MCI_GETDEVCAPS_DEVICE_TYPE:
|
|
lpParms->dwReturn = MCI_DEVTYPE_SEQUENCER;
|
|
break;
|
|
case MCI_GETDEVCAPS_USES_FILES:
|
|
lpParms->dwReturn = TRUE;
|
|
break;
|
|
case MCI_GETDEVCAPS_COMPOUND_DEVICE:
|
|
lpParms->dwReturn = TRUE;
|
|
break;
|
|
case MCI_GETDEVCAPS_CAN_EJECT:
|
|
lpParms->dwReturn = FALSE;
|
|
break;
|
|
case MCI_GETDEVCAPS_CAN_PLAY:
|
|
lpParms->dwReturn = TRUE;
|
|
break;
|
|
case MCI_GETDEVCAPS_CAN_SAVE:
|
|
lpParms->dwReturn = FALSE;
|
|
break;
|
|
default:
|
|
return MCIERR_UNRECOGNIZED_COMMAND;
|
|
}
|
|
}
|
|
return 0;
|
|
#else
|
|
return MCIERR_INTERNAL;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* MIDI_mciInfo [internal]
|
|
*/
|
|
static DWORD MIDI_mciInfo(UINT wDevID, DWORD dwFlags, LPMCI_INFO_PARMS lpParms)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "MIDI_mciInfo(%u, %08lX, %p);\n", wDevID, dwFlags, lpParms);
|
|
if (lpParms == NULL) return MCIERR_INTERNAL;
|
|
lpParms->lpstrReturn = NULL;
|
|
switch(dwFlags) {
|
|
case MCI_INFO_PRODUCT:
|
|
lpParms->lpstrReturn = "Linux Sound System 0.5";
|
|
break;
|
|
case MCI_INFO_FILE:
|
|
lpParms->lpstrReturn = "FileName";
|
|
break;
|
|
default:
|
|
return MCIERR_UNRECOGNIZED_COMMAND;
|
|
}
|
|
if (lpParms->lpstrReturn != NULL)
|
|
lpParms->dwRetSize = strlen(lpParms->lpstrReturn);
|
|
else
|
|
lpParms->dwRetSize = 0;
|
|
return 0;
|
|
#else
|
|
return MCIERR_INTERNAL;
|
|
#endif
|
|
}
|
|
|
|
|
|
/*-----------------------------------------------------------------------*/
|
|
|
|
|
|
/**************************************************************************
|
|
* midGetDevCaps [internal]
|
|
*/
|
|
static DWORD midGetDevCaps(WORD wDevID, LPMIDIINCAPS lpCaps, DWORD dwSize)
|
|
{
|
|
dprintf_midi(stddeb, "midGetDevCaps(%u, %p, %08lX);\n", wDevID, lpCaps, dwSize);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
/**************************************************************************
|
|
* midOpen [internal]
|
|
*/
|
|
static DWORD midOpen(WORD wDevID, LPMIDIOPENDESC lpDesc, DWORD dwFlags)
|
|
{
|
|
#ifdef linux
|
|
int midi;
|
|
dprintf_midi(stddeb,
|
|
"midOpen(%u, %p, %08lX);\n", wDevID, lpDesc, dwFlags);
|
|
if (lpDesc == NULL) {
|
|
dprintf_midi(stddeb,"Linux 'midOpen' // Invalid Parameter !\n");
|
|
return MMSYSERR_INVALPARAM;
|
|
}
|
|
if (wDevID >= MAX_MIDIINDRV) {
|
|
dprintf_midi(stddeb,"Linux 'midOpen' // MAX_MIDIINDRV reached !\n");
|
|
return MMSYSERR_ALLOCATED;
|
|
}
|
|
MidiInDev[wDevID].unixdev = 0;
|
|
midi = open (MIDI_DEV, O_RDONLY, 0);
|
|
if (midi == -1) {
|
|
dprintf_midi(stddeb,"Linux 'midOpen' // can't open !\n");
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
MidiInDev[wDevID].wFlags = HIWORD(dwFlags & CALLBACK_TYPEMASK);
|
|
switch(MidiInDev[wDevID].wFlags) {
|
|
case DCB_NULL:
|
|
dprintf_midi(stddeb,"Linux 'midOpen' // CALLBACK_NULL !\n");
|
|
break;
|
|
case DCB_WINDOW:
|
|
dprintf_midi(stddeb,
|
|
"Linux 'midOpen' // CALLBACK_WINDOW !\n");
|
|
break;
|
|
case DCB_TASK:
|
|
dprintf_midi(stddeb,
|
|
"Linux 'midOpen' // CALLBACK_TASK !\n");
|
|
break;
|
|
case DCB_FUNCTION:
|
|
dprintf_midi(stddeb,
|
|
"Linux 'midOpen' // CALLBACK_FUNCTION !\n");
|
|
break;
|
|
}
|
|
MidiInDev[wDevID].lpQueueHdr = NULL;
|
|
MidiInDev[wDevID].unixdev = midi;
|
|
MidiInDev[wDevID].dwTotalPlayed = 0;
|
|
MidiInDev[wDevID].bufsize = 0x3FFF;
|
|
if (MIDI_NotifyClient(wDevID, MIM_OPEN, 0L, 0L) != MMSYSERR_NOERROR) {
|
|
dprintf_midi(stddeb,"Linux 'midOpen' // can't notify client !\n");
|
|
return MMSYSERR_INVALPARAM;
|
|
}
|
|
return MMSYSERR_NOERROR;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* midClose [internal]
|
|
*/
|
|
static DWORD midClose(WORD wDevID)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "midClose(%u);\n", wDevID);
|
|
if (MidiInDev[wDevID].unixdev == 0) {
|
|
dprintf_midi(stddeb,"Linux 'midClose' // can't close !\n");
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
close(MidiInDev[wDevID].unixdev);
|
|
MidiInDev[wDevID].unixdev = 0;
|
|
MidiInDev[wDevID].bufsize = 0;
|
|
if (MIDI_NotifyClient(wDevID, MIM_CLOSE, 0L, 0L) != MMSYSERR_NOERROR) {
|
|
dprintf_midi(stddeb,"Linux 'midClose' // can't notify client !\n");
|
|
return MMSYSERR_INVALPARAM;
|
|
}
|
|
return MMSYSERR_NOERROR;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* midAddBuffer [internal]
|
|
*/
|
|
static DWORD midAddBuffer(WORD wDevID, LPMIDIHDR lpMidiHdr, DWORD dwSize)
|
|
{
|
|
dprintf_midi(stddeb, "midAddBuffer(%u, %p, %08lX);\n", wDevID, lpMidiHdr, dwSize);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
/**************************************************************************
|
|
* midPrepare [internal]
|
|
*/
|
|
static DWORD midPrepare(WORD wDevID, LPMIDIHDR lpMidiHdr, DWORD dwSize)
|
|
{
|
|
dprintf_midi(stddeb, "midPrepare(%u, %p, %08lX);\n", wDevID, lpMidiHdr, dwSize);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
/**************************************************************************
|
|
* midUnprepare [internal]
|
|
*/
|
|
static DWORD midUnprepare(WORD wDevID, LPMIDIHDR lpMidiHdr, DWORD dwSize)
|
|
{
|
|
dprintf_midi(stddeb, "midUnprepare(%u, %p, %08lX);\n", wDevID, lpMidiHdr, dwSize);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
/**************************************************************************
|
|
* midReset [internal]
|
|
*/
|
|
static DWORD midReset(WORD wDevID)
|
|
{
|
|
dprintf_midi(stddeb, "midReset(%u);\n", wDevID);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* midStart [internal]
|
|
*/
|
|
static DWORD midStart(WORD wDevID)
|
|
{
|
|
dprintf_midi(stddeb, "midStart(%u);\n", wDevID);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* midStop [internal]
|
|
*/
|
|
static DWORD midStop(WORD wDevID)
|
|
{
|
|
dprintf_midi(stddeb, "midStop(%u);\n", wDevID);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* midMessage [sample driver]
|
|
*/
|
|
DWORD midMessage(WORD wDevID, WORD wMsg, DWORD dwUser,
|
|
DWORD dwParam1, DWORD dwParam2)
|
|
{
|
|
dprintf_midi(stddeb, "midMessage(%u, %04X, %08lX, %08lX, %08lX);\n",
|
|
wDevID, wMsg, dwUser, dwParam1, dwParam2);
|
|
switch(wMsg) {
|
|
case MIDM_OPEN:
|
|
return midOpen(wDevID, (LPMIDIOPENDESC)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MIDM_CLOSE:
|
|
return midClose(wDevID);
|
|
case MIDM_ADDBUFFER:
|
|
return midAddBuffer(wDevID, (LPMIDIHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MIDM_PREPARE:
|
|
return midPrepare(wDevID, (LPMIDIHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MIDM_UNPREPARE:
|
|
return midUnprepare(wDevID, (LPMIDIHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MIDM_GETDEVCAPS:
|
|
return midGetDevCaps(wDevID, (LPMIDIINCAPS)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MIDM_GETNUMDEVS:
|
|
return 0;
|
|
case MIDM_RESET:
|
|
return midReset(wDevID);
|
|
case MIDM_START:
|
|
return midStart(wDevID);
|
|
case MIDM_STOP:
|
|
return midStop(wDevID);
|
|
}
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
}
|
|
|
|
|
|
|
|
/*-----------------------------------------------------------------------*/
|
|
|
|
|
|
/**************************************************************************
|
|
* modGetDevCaps [internal]
|
|
*/
|
|
static DWORD modGetDevCaps(WORD wDevID, LPMIDIOUTCAPS lpCaps, DWORD dwSize)
|
|
{
|
|
dprintf_midi(stddeb, "modGetDevCaps(%u, %p, %08lX);\n", wDevID, lpCaps, dwSize);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* modOpen [internal]
|
|
*/
|
|
static DWORD modOpen(WORD wDevID, LPMIDIOPENDESC lpDesc, DWORD dwFlags)
|
|
{
|
|
#ifdef linux
|
|
int midi;
|
|
dprintf_midi(stddeb,
|
|
"modOpen(%u, %p, %08lX);\n", wDevID, lpDesc, dwFlags);
|
|
if (lpDesc == NULL) {
|
|
dprintf_midi(stddeb,"Linux 'modOpen' // Invalid Parameter !\n");
|
|
return MMSYSERR_INVALPARAM;
|
|
}
|
|
if (wDevID >= MAX_MIDIOUTDRV) {
|
|
dprintf_midi(stddeb,"Linux 'modOpen' // MAX_MIDIOUTDRV reached !\n");
|
|
return MMSYSERR_ALLOCATED;
|
|
}
|
|
MidiOutDev[wDevID].unixdev = 0;
|
|
midi = open (MIDI_DEV, O_WRONLY, 0);
|
|
if (midi == -1) {
|
|
dprintf_midi(stddeb,"Linux 'modOpen' // can't open !\n");
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
MidiOutDev[wDevID].wFlags = HIWORD(dwFlags & CALLBACK_TYPEMASK);
|
|
switch(MidiOutDev[wDevID].wFlags) {
|
|
case DCB_NULL:
|
|
dprintf_midi(stddeb,"Linux 'modOpen' // CALLBACK_NULL !\n");
|
|
break;
|
|
case DCB_WINDOW:
|
|
dprintf_midi(stddeb,
|
|
"Linux 'modOpen' // CALLBACK_WINDOW !\n");
|
|
break;
|
|
case DCB_TASK:
|
|
dprintf_midi(stddeb,
|
|
"Linux 'modOpen' // CALLBACK_TASK !\n");
|
|
break;
|
|
case DCB_FUNCTION:
|
|
dprintf_midi(stddeb,
|
|
"Linux 'modOpen' // CALLBACK_FUNCTION !\n");
|
|
break;
|
|
}
|
|
MidiOutDev[wDevID].lpQueueHdr = NULL;
|
|
MidiOutDev[wDevID].unixdev = midi;
|
|
MidiOutDev[wDevID].dwTotalPlayed = 0;
|
|
MidiOutDev[wDevID].bufsize = 0x3FFF;
|
|
if (MIDI_NotifyClient(wDevID, MOM_OPEN, 0L, 0L) != MMSYSERR_NOERROR) {
|
|
dprintf_midi(stddeb,"Linux 'modOpen' // can't notify client !\n");
|
|
return MMSYSERR_INVALPARAM;
|
|
}
|
|
dprintf_midi(stddeb,
|
|
"Linux 'modOpen' // Succesful unixdev=%d !\n", midi);
|
|
return MMSYSERR_NOERROR;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* modClose [internal]
|
|
*/
|
|
static DWORD modClose(WORD wDevID)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb, "modClose(%u);\n", wDevID);
|
|
if (MidiOutDev[wDevID].unixdev == 0) {
|
|
dprintf_midi(stddeb,"Linux 'modClose' // can't close !\n");
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
close(MidiOutDev[wDevID].unixdev);
|
|
MidiOutDev[wDevID].unixdev = 0;
|
|
MidiOutDev[wDevID].bufsize = 0;
|
|
if (MIDI_NotifyClient(wDevID, MOM_CLOSE, 0L, 0L) != MMSYSERR_NOERROR) {
|
|
dprintf_midi(stddeb,"Linux 'modClose' // can't notify client !\n");
|
|
return MMSYSERR_INVALPARAM;
|
|
}
|
|
return MMSYSERR_NOERROR;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* modData [internal]
|
|
*/
|
|
static DWORD modData(WORD wDevID, DWORD dwParam)
|
|
{
|
|
#ifdef linux
|
|
WORD event;
|
|
dprintf_midi(stddeb,
|
|
"modData(%u, %08lX);\n", wDevID, dwParam);
|
|
if (MidiOutDev[wDevID].unixdev == 0) {
|
|
dprintf_midi(stddeb,"Linux 'modData' // can't play !\n");
|
|
return MIDIERR_NODEVICE;
|
|
}
|
|
event = LOWORD(dwParam);
|
|
if (write (MidiOutDev[wDevID].unixdev,
|
|
&event, sizeof(WORD)) != sizeof(WORD)) {
|
|
dprintf_midi(stddeb,
|
|
"modData() // error writting unixdev !\n");
|
|
}
|
|
return MMSYSERR_NOTENABLED;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* modLongData [internal]
|
|
*/
|
|
static DWORD modLongData(WORD wDevID, LPMIDIHDR lpMidiHdr, DWORD dwSize)
|
|
{
|
|
#ifdef linux
|
|
int count;
|
|
LPWORD ptr;
|
|
dprintf_midi(stddeb,
|
|
"modLongData(%u, %p, %08lX);\n", wDevID, lpMidiHdr, dwSize);
|
|
dprintf_midi(stddeb, "modLongData(%u, %p, %08lX);\n", wDevID, lpMidiHdr, dwSize);
|
|
if (MidiOutDev[wDevID].unixdev == 0) {
|
|
dprintf_midi(stddeb,"Linux 'modLongData' // can't play !\n");
|
|
return MIDIERR_NODEVICE;
|
|
}
|
|
if (lpMidiHdr->lpData == NULL) return MIDIERR_UNPREPARED;
|
|
if (!(lpMidiHdr->dwFlags & MHDR_PREPARED)) return MIDIERR_UNPREPARED;
|
|
if (lpMidiHdr->dwFlags & MHDR_INQUEUE) return MIDIERR_STILLPLAYING;
|
|
lpMidiHdr->dwFlags &= ~MHDR_DONE;
|
|
lpMidiHdr->dwFlags |= MHDR_INQUEUE;
|
|
dprintf_midi(stddeb,
|
|
"modLongData() // dwBytesRecorded %lu !\n", lpMidiHdr->dwBytesRecorded);
|
|
/*
|
|
count = write (MidiOutDev[wDevID].unixdev,
|
|
lpMidiHdr->lpData, lpMidiHdr->dwBytesRecorded);
|
|
*/
|
|
ptr = (LPWORD)lpMidiHdr->lpData;
|
|
for (count = 0; count < lpMidiHdr->dwBytesRecorded; count++) {
|
|
if (write (MidiOutDev[wDevID].unixdev, ptr,
|
|
sizeof(WORD)) != sizeof(WORD)) break;
|
|
ptr++;
|
|
}
|
|
if (count != lpMidiHdr->dwBytesRecorded) {
|
|
dprintf_midi(stddeb,
|
|
"modLongData() // error writting unixdev #%d ! (%d != %ld)\n",
|
|
MidiOutDev[wDevID].unixdev, count, lpMidiHdr->dwBytesRecorded);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
lpMidiHdr->dwFlags &= ~MHDR_INQUEUE;
|
|
lpMidiHdr->dwFlags |= MHDR_DONE;
|
|
if (MIDI_NotifyClient(wDevID, MOM_DONE, 0L, 0L) != MMSYSERR_NOERROR) {
|
|
dprintf_midi(stddeb,"Linux 'modLongData' // can't notify client !\n");
|
|
return MMSYSERR_INVALPARAM;
|
|
}
|
|
return MMSYSERR_NOERROR;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* modPrepare [internal]
|
|
*/
|
|
static DWORD modPrepare(WORD wDevID, LPMIDIHDR lpMidiHdr, DWORD dwSize)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb,
|
|
"modPrepare(%u, %p, %08lX);\n", wDevID, lpMidiHdr, dwSize);
|
|
if (MidiOutDev[wDevID].unixdev == 0) {
|
|
dprintf_midi(stddeb,"Linux 'modPrepare' // can't prepare !\n");
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
if (MidiOutDev[wDevID].lpQueueHdr != NULL) {
|
|
dprintf_midi(stddeb,"Linux 'modPrepare' // already prepare !\n");
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
MidiOutDev[wDevID].dwTotalPlayed = 0;
|
|
MidiOutDev[wDevID].lpQueueHdr = lpMidiHdr;
|
|
if (lpMidiHdr->dwFlags & MHDR_INQUEUE) return MIDIERR_STILLPLAYING;
|
|
lpMidiHdr->dwFlags |= MHDR_PREPARED;
|
|
lpMidiHdr->dwFlags &= ~MHDR_DONE;
|
|
return MMSYSERR_NOERROR;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* modUnprepare [internal]
|
|
*/
|
|
static DWORD modUnprepare(WORD wDevID, LPMIDIHDR lpMidiHdr, DWORD dwSize)
|
|
{
|
|
#ifdef linux
|
|
dprintf_midi(stddeb,
|
|
"modUnprepare(%u, %p, %08lX);\n", wDevID, lpMidiHdr, dwSize);
|
|
if (MidiOutDev[wDevID].unixdev == 0) {
|
|
dprintf_midi(stddeb,"Linux 'modUnprepare' // can't unprepare !\n");
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
return MMSYSERR_NOERROR;
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
/**************************************************************************
|
|
* modReset [internal]
|
|
*/
|
|
static DWORD modReset(WORD wDevID)
|
|
{
|
|
dprintf_midi(stddeb, "modReset(%u);\n", wDevID);
|
|
return MMSYSERR_NOTENABLED;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* modMessage [sample driver]
|
|
*/
|
|
DWORD modMessage(WORD wDevID, WORD wMsg, DWORD dwUser,
|
|
DWORD dwParam1, DWORD dwParam2)
|
|
{
|
|
dprintf_midi(stddeb, "modMessage(%u, %04X, %08lX, %08lX, %08lX);\n",
|
|
wDevID, wMsg, dwUser, dwParam1, dwParam2);
|
|
switch(wMsg) {
|
|
case MODM_OPEN:
|
|
return modOpen(wDevID, (LPMIDIOPENDESC)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MODM_CLOSE:
|
|
return modClose(wDevID);
|
|
case MODM_DATA:
|
|
return modData(wDevID, dwParam1);
|
|
case MODM_LONGDATA:
|
|
return modLongData(wDevID, (LPMIDIHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MODM_PREPARE:
|
|
return modPrepare(wDevID, (LPMIDIHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MODM_UNPREPARE:
|
|
return modUnprepare(wDevID, (LPMIDIHDR)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MODM_GETDEVCAPS:
|
|
return modGetDevCaps(wDevID, (LPMIDIOUTCAPS)PTR_SEG_TO_LIN(dwParam1), dwParam2);
|
|
case MODM_GETNUMDEVS:
|
|
return 1;
|
|
case MODM_GETVOLUME:
|
|
return 0;
|
|
case MODM_SETVOLUME:
|
|
return 0;
|
|
case MODM_RESET:
|
|
return modReset(wDevID);
|
|
}
|
|
return MMSYSERR_NOTSUPPORTED;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* MIDI_DriverProc [sample driver]
|
|
*/
|
|
LONG MIDI_DriverProc(DWORD dwDevID, HDRVR hDriv, WORD wMsg,
|
|
DWORD dwParam1, DWORD dwParam2)
|
|
{
|
|
#ifdef linux
|
|
switch(wMsg) {
|
|
case DRV_LOAD:
|
|
return 1;
|
|
case DRV_FREE:
|
|
return 1;
|
|
case DRV_OPEN:
|
|
return 1;
|
|
case DRV_CLOSE:
|
|
return 1;
|
|
case DRV_ENABLE:
|
|
return 1;
|
|
case DRV_DISABLE:
|
|
return 1;
|
|
case DRV_QUERYCONFIGURE:
|
|
return 1;
|
|
case DRV_CONFIGURE:
|
|
MessageBox(0, "Sample Midi Linux Driver !",
|
|
"MMLinux Driver", MB_OK);
|
|
return 1;
|
|
case DRV_INSTALL:
|
|
return DRVCNF_RESTART;
|
|
case DRV_REMOVE:
|
|
return DRVCNF_RESTART;
|
|
case MCI_OPEN_DRIVER:
|
|
case MCI_OPEN:
|
|
return MIDI_mciOpen(dwDevID, dwParam1, (LPMCI_OPEN_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_CLOSE_DRIVER:
|
|
case MCI_CLOSE:
|
|
return MIDI_mciClose(dwDevID, dwParam1, (LPMCI_GENERIC_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_PLAY:
|
|
return MIDI_mciPlay(dwDevID, dwParam1, (LPMCI_PLAY_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_RECORD:
|
|
return MIDI_mciRecord(dwDevID, dwParam1, (LPMCI_RECORD_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_STOP:
|
|
return MIDI_mciStop(dwDevID, dwParam1, (LPMCI_GENERIC_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_SET:
|
|
return MIDI_mciSet(dwDevID, dwParam1, (LPMCI_SET_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_PAUSE:
|
|
return MIDI_mciPause(dwDevID, dwParam1, (LPMCI_GENERIC_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_RESUME:
|
|
return MIDI_mciResume(dwDevID, dwParam1, (LPMCI_GENERIC_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_STATUS:
|
|
return MIDI_mciStatus(dwDevID, dwParam1, (LPMCI_STATUS_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_GETDEVCAPS:
|
|
return MIDI_mciGetDevCaps(dwDevID, dwParam1, (LPMCI_GETDEVCAPS_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
case MCI_INFO:
|
|
return MIDI_mciInfo(dwDevID, dwParam1, (LPMCI_INFO_PARMS)PTR_SEG_TO_LIN(dwParam2));
|
|
default:
|
|
return DefDriverProc(dwDevID, hDriv, wMsg, dwParam1, dwParam2);
|
|
}
|
|
#else
|
|
return MMSYSERR_NOTENABLED;
|
|
#endif
|
|
}
|
|
|
|
|
|
/*-----------------------------------------------------------------------*/
|
|
|
|
#endif /* #ifdef BUILTIN_MMSYSTEM */
|