0N/A/*
2362N/A * Copyright (c) 1999, 2007, Oracle and/or its affiliates. All rights reserved.
0N/A * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
0N/A *
0N/A * This code is free software; you can redistribute it and/or modify it
0N/A * under the terms of the GNU General Public License version 2 only, as
2362N/A * published by the Free Software Foundation. Oracle designates this
0N/A * particular file as subject to the "Classpath" exception as provided
2362N/A * by Oracle in the LICENSE file that accompanied this code.
0N/A *
0N/A * This code is distributed in the hope that it will be useful, but WITHOUT
0N/A * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
0N/A * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
0N/A * version 2 for more details (a copy is included in the LICENSE file that
0N/A * accompanied this code).
0N/A *
0N/A * You should have received a copy of the GNU General Public License version
0N/A * 2 along with this work; if not, write to the Free Software Foundation,
0N/A * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
0N/A *
2362N/A * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
2362N/A * or visit www.oracle.com if you need additional information or have any
2362N/A * questions.
0N/A */
0N/A
0N/A#define USE_ERROR
0N/A#define USE_TRACE
0N/A
0N/A/* include Java Sound specific headers as C code */
0N/Aextern "C" {
0N/A#include "PLATFORM_API_WinOS_Util.h"
0N/A}
0N/A
0N/A#if USE_PLATFORM_MIDI_IN == TRUE
0N/A
0N/A#ifdef USE_ERROR
0N/A#include <stdio.h>
0N/A#define MIDIIN_CHECK_ERROR { \
0N/A if (err != MMSYSERR_NOERROR) \
0N/A ERROR3("MIDI IN Error in %s:%d : %s\n", __FILE__, __LINE__, MIDI_IN_GetErrorStr((INT32) err)); \
0N/A }
0N/A#else
0N/A#define MIDIIN_CHECK_ERROR
0N/A#endif
0N/A
0N/A/*
0N/A * Callback from the MIDI device for all messages.
0N/A */
0N/A//$$fb dwParam1 holds a pointer for long messages. How can that be a DWORD then ???
0N/Avoid CALLBACK MIDI_IN_PutMessage( HMIDIIN hMidiIn, UINT wMsg, UINT_PTR dwInstance, UINT_PTR dwParam1, UINT_PTR dwParam2 ) {
0N/A
0N/A MidiDeviceHandle* handle = (MidiDeviceHandle*) dwInstance;
0N/A
0N/A TRACE3("> MIDI_IN_PutMessage, hMidiIn: %x, wMsg: %x, dwInstance: %x\n", hMidiIn, wMsg, dwInstance);
0N/A TRACE2(" dwParam1: %x, dwParam2: %x\n", dwParam1, dwParam2);
0N/A
0N/A switch(wMsg) {
0N/A
0N/A case MIM_OPEN:
0N/A TRACE0("< MIDI_IN_PutMessage: MIM_OPEN\n");
0N/A break;
0N/A
0N/A case MIM_CLOSE:
0N/A TRACE0("< MIDI_IN_PutMessage: MIM_CLOSE\n");
0N/A break;
0N/A
0N/A case MIM_MOREDATA:
0N/A case MIM_DATA:
0N/A TRACE3(" MIDI_IN_PutMessage: MIM_MOREDATA or MIM_DATA. status=%x data1=%x data2=%x\n",
0N/A dwParam1 & 0xFF, (dwParam1 & 0xFF00)>>8, (dwParam1 & 0xFF0000)>>16);
0N/A if (handle!=NULL && handle->queue!=NULL && handle->platformData) {
0N/A MIDI_QueueAddShort(handle->queue,
0N/A // queue stores packedMsg in big endian
0N/A //(dwParam1 << 24) | ((dwParam1 << 8) & 0xFF0000) | ((dwParam1 >> 8) & 0xFF00),
0N/A (UINT32) dwParam1,
0N/A // queue uses microseconds
0N/A ((INT64) dwParam2)*1000,
0N/A // overwrite if queue is full
0N/A TRUE);
0N/A SetEvent((HANDLE) handle->platformData);
0N/A }
0N/A TRACE0("< MIDI_IN_PutMessage\n");
0N/A break;
0N/A
0N/A case MIM_LONGDATA:
0N/A TRACE1(" MIDI_IN_PutMessage: MIM_LONGDATA (%d bytes recorded)\n", (int) (((MIDIHDR*) dwParam1)->dwBytesRecorded));
0N/A if (handle!=NULL && handle->queue!=NULL && handle->platformData) {
0N/A MIDIHDR* hdr = (MIDIHDR*) dwParam1;
0N/A TRACE2(" MIDI_IN_PutMessage: Adding to queue: index %d, %d bytes\n", (INT32) hdr->dwUser, hdr->dwBytesRecorded);
0N/A MIDI_QueueAddLong(handle->queue,
0N/A (UBYTE*) hdr->lpData,
0N/A (UINT32) hdr->dwBytesRecorded,
0N/A // sysex buffer index
0N/A (INT32) hdr->dwUser,
0N/A // queue uses microseconds
0N/A ((INT64) dwParam2)*1000,
0N/A // overwrite if queue is full
0N/A TRUE);
0N/A SetEvent((HANDLE) handle->platformData);
0N/A }
0N/A TRACE0("< MIDI_IN_PutMessage\n");
0N/A break;
0N/A
0N/A case MIM_ERROR:
0N/A ERROR0("< MIDI_IN_PutMessage: MIM_ERROR!\n");
0N/A break;
0N/A
0N/A case MIM_LONGERROR:
0N/A if (dwParam1 != 0) {
0N/A MIDIHDR* hdr = (MIDIHDR*) dwParam1;
0N/A#ifdef USE_TRACE
0N/A if (hdr->dwBytesRecorded > 0) {
0N/A TRACE2(" MIDI_IN_PutMessage: MIM_LONGERROR! recorded: %d bytes with status 0x%2x\n",
0N/A hdr->dwBytesRecorded, (int) (*((UBYTE*) hdr->lpData)));
0N/A }
0N/A#endif
0N/A // re-add hdr to device query
0N/A hdr->dwBytesRecorded = 0;
0N/A midiInAddBuffer((HMIDIIN)handle->deviceHandle, hdr, sizeof(MIDIHDR));
0N/A }
0N/A ERROR0("< MIDI_IN_PutMessage: MIM_LONGERROR!\n");
0N/A break;
0N/A
0N/A default:
0N/A ERROR1("< MIDI_IN_PutMessage: ERROR unknown message %d!\n", wMsg);
0N/A break;
0N/A
0N/A } // switch (wMsg)
0N/A}
0N/A
0N/A
0N/A/*
0N/A** data/routines for opening MIDI input (MidiIn) device by separate thread
0N/A** (joint into MidiIn_OpenHelper class)
0N/A** see 6415669 - MidiIn device stops work and crushes JVM after exiting
0N/A** from thread that has open the device (it looks like WinMM bug).
0N/A*/
0N/Aclass MidiIn_OpenHelper {
0N/Apublic:
0N/A /* opens MidiIn device */
0N/A static MMRESULT midiInOpen(INT32 deviceID, MidiDeviceHandle* handle);
0N/A /* checks for initialization success */
0N/A static inline BOOL isInitialized() { return data.threadHandle != NULL; }
0N/Aprotected:
0N/A MidiIn_OpenHelper() {} // no need to create an instance
0N/A
0N/A /* data class */
0N/A class Data {
0N/A public:
0N/A Data();
0N/A ~Data();
0N/A // public data to access from parent class
0N/A CRITICAL_SECTION crit_sect;
0N/A volatile HANDLE threadHandle;
0N/A volatile HANDLE doEvent; // event to resume thread
0N/A volatile HANDLE doneEvent; // processing has been completed
0N/A volatile MMRESULT err; // processing result
0N/A // data to process; (handle == null) is command to thread terminating
0N/A volatile INT32 deviceID;
0N/A volatile MidiDeviceHandle* handle;
0N/A } static data;
0N/A
0N/A /* StartThread function */
0N/A static DWORD WINAPI __stdcall ThreadProc(void *param);
0N/A};
0N/A
0N/A/* MidiIn_OpenHelper class implementation
0N/A*/
0N/AMidiIn_OpenHelper::Data MidiIn_OpenHelper::data;
0N/A
0N/AMidiIn_OpenHelper::Data::Data() {
0N/A threadHandle = NULL;
0N/A ::InitializeCriticalSection(&crit_sect);
0N/A doEvent = ::CreateEvent(NULL, FALSE, FALSE, NULL);
0N/A doneEvent = ::CreateEvent(NULL, FALSE, FALSE, NULL);
0N/A if (doEvent != NULL && doneEvent != NULL)
0N/A threadHandle = ::CreateThread(NULL, 0, ThreadProc, NULL, 0, NULL);
0N/A}
0N/A
0N/AMidiIn_OpenHelper::Data::~Data() {
0N/A ::EnterCriticalSection(&crit_sect);
0N/A if (threadHandle != NULL) {
0N/A // terminate thread
0N/A handle = NULL;
0N/A ::SetEvent(doEvent);
0N/A ::CloseHandle(threadHandle);
0N/A threadHandle = NULL;
0N/A }
0N/A ::LeaveCriticalSection(&crit_sect);
0N/A // won't delete doEvent/doneEvent/crit_sect
0N/A // - Windows will do during process shutdown
0N/A}
0N/A
0N/ADWORD WINAPI __stdcall MidiIn_OpenHelper::ThreadProc(void *param) {
0N/A while (1) {
0N/A // wait for something to do
0N/A ::WaitForSingleObject(data.doEvent, INFINITE);
0N/A if (data.handle == NULL) {
0N/A // (data.handle == NULL) is a signal to terminate thread
0N/A break;
0N/A }
0N/A
0N/A data.err = ::midiInOpen((HMIDIIN*)&(data.handle->deviceHandle),
0N/A data.deviceID, (UINT_PTR)&(MIDI_IN_PutMessage),
0N/A (UINT_PTR)data.handle,
0N/A CALLBACK_FUNCTION|MIDI_IO_STATUS);
0N/A
0N/A ::SetEvent(data.doneEvent);
0N/A }
0N/A return 0;
0N/A}
0N/A
0N/AMMRESULT MidiIn_OpenHelper::midiInOpen(INT32 deviceID, MidiDeviceHandle* handle) {
0N/A MMRESULT err;
0N/A ::EnterCriticalSection(&data.crit_sect);
0N/A if (!isInitialized()) {
0N/A ::LeaveCriticalSection(&data.crit_sect);
0N/A return MMSYSERR_ERROR;
0N/A }
0N/A data.deviceID = deviceID;
0N/A data.handle = handle;
0N/A ::SetEvent(data.doEvent);
0N/A ::WaitForSingleObject(data.doneEvent, INFINITE);
0N/A err = data.err;
0N/A ::LeaveCriticalSection(&data.crit_sect);
0N/A return err;
0N/A}
0N/A
0N/A
0N/A// PLATFORM_MIDI_IN method implementations
0N/A
0N/A/* not thread safe */
0N/Astatic char winMidiInErrMsg[WIN_MAX_ERROR_LEN];
0N/A
0N/Achar* MIDI_IN_GetErrorStr(INT32 err) {
0N/A winMidiInErrMsg[0] = 0;
0N/A midiInGetErrorText((MMRESULT) err, winMidiInErrMsg, WIN_MAX_ERROR_LEN);
0N/A return winMidiInErrMsg;
0N/A}
0N/A
0N/AINT32 MIDI_IN_GetNumDevices() {
0N/A return (INT32) midiInGetNumDevs();
0N/A}
0N/A
0N/AINT32 getMidiInCaps(INT32 deviceID, MIDIINCAPS* caps, INT32* err) {
0N/A (*err) = midiInGetDevCaps(deviceID, caps, sizeof(MIDIINCAPS));
0N/A return ((*err) == MMSYSERR_NOERROR);
0N/A}
0N/A
0N/AINT32 MIDI_IN_GetDeviceName(INT32 deviceID, char *name, UINT32 nameLength) {
0N/A MIDIINCAPS midiInCaps;
0N/A INT32 err;
0N/A
0N/A if (getMidiInCaps(deviceID, &midiInCaps, &err)) {
0N/A strncpy(name, midiInCaps.szPname, nameLength-1);
0N/A name[nameLength-1] = 0;
0N/A return MIDI_SUCCESS;
0N/A }
0N/A MIDIIN_CHECK_ERROR;
0N/A return err;
0N/A}
0N/A
0N/A
0N/AINT32 MIDI_IN_GetDeviceVendor(INT32 deviceID, char *name, UINT32 nameLength) {
0N/A return MIDI_NOT_SUPPORTED;
0N/A}
0N/A
0N/A
0N/AINT32 MIDI_IN_GetDeviceDescription(INT32 deviceID, char *name, UINT32 nameLength) {
0N/A return MIDI_NOT_SUPPORTED;
0N/A}
0N/A
0N/A
0N/A
0N/AINT32 MIDI_IN_GetDeviceVersion(INT32 deviceID, char *name, UINT32 nameLength) {
0N/A MIDIINCAPS midiInCaps;
0N/A INT32 err = MIDI_NOT_SUPPORTED;
0N/A
0N/A if (getMidiInCaps(deviceID, &midiInCaps, &err) && (nameLength>7)) {
0N/A sprintf(name, "%d.%d", (midiInCaps.vDriverVersion & 0xFF00) >> 8, midiInCaps.vDriverVersion & 0xFF);
0N/A return MIDI_SUCCESS;
0N/A }
0N/A MIDIIN_CHECK_ERROR;
0N/A return err;
0N/A}
0N/A
0N/A
0N/AINT32 prepareBuffers(MidiDeviceHandle* handle) {
0N/A SysExQueue* sysex;
0N/A MMRESULT err = MMSYSERR_NOERROR;
0N/A int i;
0N/A
0N/A if (!handle || !handle->longBuffers || !handle->deviceHandle) {
0N/A ERROR0("MIDI_IN_prepareBuffers: handle, or longBuffers, or deviceHandle==NULL\n");
0N/A return MIDI_INVALID_HANDLE;
0N/A }
0N/A sysex = (SysExQueue*) handle->longBuffers;
0N/A for (i = 0; i<sysex->count; i++) {
0N/A MIDIHDR* hdr = &(sysex->header[i]);
0N/A midiInPrepareHeader((HMIDIIN) handle->deviceHandle, hdr, sizeof(MIDIHDR));
0N/A err = midiInAddBuffer((HMIDIIN) handle->deviceHandle, hdr, sizeof(MIDIHDR));
0N/A }
0N/A MIDIIN_CHECK_ERROR;
0N/A return (INT32) err;
0N/A}
0N/A
0N/AINT32 unprepareBuffers(MidiDeviceHandle* handle) {
0N/A SysExQueue* sysex;
0N/A MMRESULT err = MMSYSERR_NOERROR;
0N/A int i;
0N/A
0N/A if (!handle || !handle->longBuffers || !handle->deviceHandle) {
0N/A ERROR0("MIDI_IN_unprepareBuffers: handle, or longBuffers, or deviceHandle==NULL\n");
0N/A return MIDI_INVALID_HANDLE;
0N/A }
0N/A sysex = (SysExQueue*) handle->longBuffers;
0N/A for (i = 0; i<sysex->count; i++) {
0N/A err = midiInUnprepareHeader((HMIDIIN) handle->deviceHandle, &(sysex->header[i]), sizeof(MIDIHDR));
0N/A }
0N/A MIDIIN_CHECK_ERROR;
0N/A return (INT32) err;
0N/A}
0N/A
0N/AINT32 MIDI_IN_OpenDevice(INT32 deviceID, MidiDeviceHandle** handle) {
0N/A MMRESULT err;
0N/A
0N/A TRACE0("> MIDI_IN_OpenDevice\n");
0N/A#ifdef USE_ERROR
0N/A setvbuf(stdout, NULL, (int)_IONBF, 0);
0N/A setvbuf(stderr, NULL, (int)_IONBF, 0);
0N/A#endif
0N/A
0N/A (*handle) = (MidiDeviceHandle*) malloc(sizeof(MidiDeviceHandle));
0N/A if (!(*handle)) {
0N/A ERROR0("< ERROR: MIDI_IN_OpenDevice: out of memory\n");
0N/A return MIDI_OUT_OF_MEMORY;
0N/A }
0N/A memset(*handle, 0, sizeof(MidiDeviceHandle));
0N/A
0N/A // create queue
0N/A (*handle)->queue = MIDI_CreateQueue(MIDI_IN_MESSAGE_QUEUE_SIZE);
0N/A if (!(*handle)->queue) {
0N/A ERROR0("< ERROR: MIDI_IN_OpenDevice: could not create queue\n");
0N/A free(*handle);
0N/A (*handle) = NULL;
0N/A return MIDI_OUT_OF_MEMORY;
0N/A }
0N/A
0N/A // create long buffer queue
0N/A if (!MIDI_WinCreateLongBufferQueue(*handle, MIDI_IN_LONG_QUEUE_SIZE, MIDI_IN_LONG_MESSAGE_SIZE, NULL)) {
0N/A ERROR0("< ERROR: MIDI_IN_OpenDevice: could not create long Buffers\n");
0N/A MIDI_DestroyQueue((*handle)->queue);
0N/A free(*handle);
0N/A (*handle) = NULL;
0N/A return MIDI_OUT_OF_MEMORY;
0N/A }
0N/A
0N/A // finally open the device
0N/A err = MidiIn_OpenHelper::midiInOpen(deviceID, *handle);
0N/A
0N/A if ((err != MMSYSERR_NOERROR) || (!(*handle)->deviceHandle)) {
0N/A MIDIIN_CHECK_ERROR;
0N/A MIDI_WinDestroyLongBufferQueue(*handle);
0N/A MIDI_DestroyQueue((*handle)->queue);
0N/A free(*handle);
0N/A (*handle) = NULL;
0N/A return (INT32) err;
0N/A }
0N/A
0N/A prepareBuffers(*handle);
0N/A MIDI_SetStartTime(*handle);
0N/A TRACE0("< MIDI_IN_OpenDevice: midiInOpen succeeded\n");
0N/A return MIDI_SUCCESS;
0N/A}
0N/A
0N/A
0N/AINT32 MIDI_IN_CloseDevice(MidiDeviceHandle* handle) {
0N/A MMRESULT err;
0N/A
0N/A TRACE0("> MIDI_IN_CloseDevice: midiInClose\n");
0N/A if (!handle) {
0N/A ERROR0("ERROR: MIDI_IN_CloseDevice: handle is NULL\n");
0N/A return MIDI_INVALID_HANDLE;
0N/A }
0N/A midiInReset((HMIDIIN) handle->deviceHandle);
0N/A unprepareBuffers(handle);
0N/A err = midiInClose((HMIDIIN) handle->deviceHandle);
0N/A handle->deviceHandle=NULL;
0N/A MIDIIN_CHECK_ERROR;
0N/A MIDI_WinDestroyLongBufferQueue(handle);
0N/A
0N/A if (handle->queue!=NULL) {
0N/A MidiMessageQueue* queue = handle->queue;
0N/A handle->queue = NULL;
0N/A MIDI_DestroyQueue(queue);
0N/A }
0N/A free(handle);
0N/A
0N/A TRACE0("< MIDI_IN_CloseDevice: midiInClose succeeded\n");
0N/A return (INT32) err;
0N/A}
0N/A
0N/A
0N/AINT32 MIDI_IN_StartDevice(MidiDeviceHandle* handle) {
0N/A MMRESULT err;
0N/A
0N/A if (!handle || !handle->deviceHandle || !handle->queue) {
0N/A ERROR0("ERROR: MIDI_IN_StartDevice: handle or queue is NULL\n");
0N/A return MIDI_INVALID_HANDLE;
0N/A }
0N/A
0N/A // clear all the events from the queue
0N/A MIDI_QueueClear(handle->queue);
0N/A
0N/A handle->platformData = (void*) CreateEvent(NULL, FALSE /*manual reset*/, FALSE /*signaled*/, NULL);
0N/A if (!handle->platformData) {
0N/A ERROR0("ERROR: MIDI_IN_StartDevice: could not create event\n");
0N/A return MIDI_OUT_OF_MEMORY;
0N/A }
0N/A
0N/A err = midiInStart((HMIDIIN) handle->deviceHandle);
0N/A /* $$mp 200308-11: This method is already called in ...open(). It is
0N/A unclear why is is called again. The specification says that
0N/A MidiDevice.getMicrosecondPosition() returns the time since the
0N/A device was opened (the spec doesn't know about start/stop).
0N/A So I guess this call is obsolete. */
0N/A MIDI_SetStartTime(handle);
0N/A
0N/A MIDIIN_CHECK_ERROR;
0N/A TRACE0("MIDI_IN_StartDevice: midiInStart finished\n");
0N/A return (INT32) err;
0N/A}
0N/A
0N/A
0N/AINT32 MIDI_IN_StopDevice(MidiDeviceHandle* handle) {
0N/A MMRESULT err;
0N/A HANDLE event;
0N/A
0N/A TRACE0("> MIDI_IN_StopDevice: midiInStop \n");
0N/A if (!handle || !handle->platformData) {
0N/A ERROR0("ERROR: MIDI_IN_StopDevice: handle or event is NULL\n");
0N/A return MIDI_INVALID_HANDLE;
0N/A }
0N/A // encourage MIDI_IN_GetMessage to return soon
0N/A event = handle->platformData;
0N/A handle->platformData = NULL;
0N/A SetEvent(event);
0N/A
0N/A err = midiInStop((HMIDIIN) handle->deviceHandle);
0N/A
0N/A // wait until the Java thread has exited
0N/A while (handle->isWaiting) Sleep(0);
0N/A CloseHandle(event);
0N/A
0N/A MIDIIN_CHECK_ERROR;
0N/A TRACE0("< MIDI_IN_StopDevice: midiInStop finished\n");
0N/A return (INT32) err;
0N/A}
0N/A
0N/A
0N/A/* return time stamp in microseconds */
0N/AINT64 MIDI_IN_GetTimeStamp(MidiDeviceHandle* handle) {
0N/A return MIDI_GetTimeStamp(handle);
0N/A}
0N/A
0N/A
0N/A// read the next message from the queue
0N/AMidiMessage* MIDI_IN_GetMessage(MidiDeviceHandle* handle) {
0N/A if (handle == NULL) {
0N/A return NULL;
0N/A }
0N/A while (handle->queue!=NULL && handle->platformData!=NULL) {
0N/A MidiMessage* msg = MIDI_QueueRead(handle->queue);
0N/A DWORD res;
0N/A if (msg != NULL) {
0N/A //fprintf(stdout, "GetMessage returns index %d\n", msg->data.l.index); fflush(stdout);
0N/A return msg;
0N/A }
0N/A TRACE0("MIDI_IN_GetMessage: before waiting\n");
0N/A handle->isWaiting = TRUE;
0N/A res = WaitForSingleObject((HANDLE) handle->platformData, 2000);
0N/A handle->isWaiting = FALSE;
0N/A if (res == WAIT_TIMEOUT) {
0N/A // break out back to Java from time to time - just to be sure
0N/A TRACE0("MIDI_IN_GetMessage: waiting finished with timeout\n");
0N/A break;
0N/A }
0N/A TRACE0("MIDI_IN_GetMessage: waiting finished\n");
0N/A }
0N/A return NULL;
0N/A}
0N/A
0N/Avoid MIDI_IN_ReleaseMessage(MidiDeviceHandle* handle, MidiMessage* msg) {
0N/A SysExQueue* sysex;
0N/A if (handle == NULL || handle->queue == NULL) {
0N/A return;
0N/A }
0N/A sysex = (SysExQueue*) handle->longBuffers;
0N/A if (msg->type == LONG_MESSAGE && sysex) {
0N/A MIDIHDR* hdr = &(sysex->header[msg->data.l.index]);
0N/A //fprintf(stdout, "ReleaseMessage index %d\n", msg->data.l.index); fflush(stdout);
0N/A hdr->dwBytesRecorded = 0;
0N/A midiInAddBuffer((HMIDIIN) handle->deviceHandle, hdr, sizeof(MIDIHDR));
0N/A }
0N/A MIDI_QueueRemove(handle->queue, TRUE /*onlyLocked*/);
0N/A}
0N/A
0N/A#endif // USE_PLATFORM_MIDI_IN