Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

150 lines
3.2 KiB

/*******************************Module*Header*********************************\
* Module Name: support.c
*
* MultiMedia Systems MIDI Sequencer DLL
*
* Created: 27-Feb-1992
* Author: ROBINSP
*
* History:
*
* Copyright (c) 1985-1998 Microsoft Corporation
*
\******************************************************************************/
#define UNICODE
#include <windows.h>
#include <mmsystem.h>
#include <mmsys.h>
CRITICAL_SECTION CritSec;
CRITICAL_SECTION SeqCritSec;
//
// Cut-down critical section stuff
//
VOID InitCrit(VOID)
{
InitializeCriticalSection(&CritSec);
InitializeCriticalSection(&SeqCritSec);
}
VOID DeleteCrit(VOID)
{
DeleteCriticalSection(&CritSec);
DeleteCriticalSection(&SeqCritSec);
}
VOID EnterCrit(VOID)
{
EnterCriticalSection(&CritSec);
}
VOID LeaveCrit(VOID)
{
LeaveCriticalSection(&CritSec);
}
VOID EnterSeq(VOID)
{
EnterCriticalSection(&SeqCritSec);
}
VOID LeaveSeq(VOID)
{
LeaveCriticalSection(&SeqCritSec);
Sleep(4); // Give someone else a chance
}
/*************************************************************************
*
* @doc MCISEQ
*
* @func UINT | TaskBlock | This function blocks the current
* task context if its event count is 0.
*
* @rdesc Returns the message value of the signal sent.
*
************************************************************************/
UINT TaskBlock(VOID)
{
MSG msg;
LeaveSeq();
/*
* Loop until we get the message we want
*/
for (;;) {
/*
* Retrieve any message for task
*/
GetMessage(&msg, NULL, 0, 0);
/*
* If the message is for a window dispatch it
*/
if (msg.hwnd != NULL) {
DispatchMessage(&msg);
} else {
break;
}
}
EnterSeq();
return msg.message;
}
/*************************************************************************
*
* @doc MCISEQ
*
* @func BOOL | TaskSignal | This function signals the specified
* task, incrementing its event count and unblocking
* it.
*
* @parm DWORD | dwThreadId | Thread ID from <f mmGetCurrentTask>.
*
* @parm UINT | Msg | Signal message to send.
*
* @rdesc Returns TRUE if the signal was sent, else FALSE if the message
* queue was full.
*
* @xref mmTaskBlock mmTaskCreate
*
* @comm For predictable results, must only be called from a task
* created with <f mmTaskCreate>.
*
************************************************************************/
BOOL TaskSignal(DWORD dwThreadId, UINT Msg)
{
return PostThreadMessage(dwThreadId, Msg, 0, 0);
}
/*************************************************************************
*
* @doc MCISEQ
*
* @func VOID | TaskWaitComplete | This function waits for the
* specified task to terminate.
*
* @parm HANDLE | h | Task handle. For predictable results, get the
* task handle from <f mmGetCurrentTask>.
*
* @rdesc No return code
*
************************************************************************/
VOID TaskWaitComplete(HANDLE h)
{
LeaveSeq();
WaitForSingleObject(h, INFINITE); // Wait (no timeout) for thread to complete
CloseHandle(h);
// Note that the handle will be freed by thread itself.
EnterSeq();
}