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.
145 lines
3.9 KiB
145 lines
3.9 KiB
//+---------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
// Copyright (C) Microsoft Corporation, 1992 - 1993.
|
|
//
|
|
// File: compat.c
|
|
//
|
|
// Contents: Compatibility routines for old callers
|
|
//
|
|
// Classes:
|
|
//
|
|
// Functions:
|
|
//
|
|
// History: 3-14-95 RichardW Created
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
|
|
#include "debuglib.h"
|
|
#include <debnot.h>
|
|
|
|
DWORD __CompatInfoLevel = 3;
|
|
DebugModule __CompatGlobal = {NULL, NULL, 0, 0, &__CompatHeader};
|
|
DebugHeader __CompatHeader = {DEBUG_TAG, NULL, INVALID_HANDLE_VALUE,
|
|
INVALID_HANDLE_VALUE, 0, &__CompatGlobal};
|
|
DebugModule __CompatModule = {NULL, &__CompatInfoLevel, 0, 3,
|
|
&__CompatHeader, 0, 0, "Compat",
|
|
{"Error", "Warning", "Trace", "",
|
|
"IError", "IWarning", "ITrace", "",
|
|
"", "", "", "", "", "", "", "",
|
|
"", "", "", "", "", "", "", "",
|
|
"", "", "", "", "", "", "", "" }
|
|
};
|
|
DebugModule * __pCompatModule = &__CompatModule;
|
|
|
|
|
|
void
|
|
vdprintf(
|
|
unsigned long ulCompMask,
|
|
char const *pszComp,
|
|
char const *ppszfmt,
|
|
va_list ArgList)
|
|
{
|
|
__CompatModule.pModuleName = (char *) pszComp;
|
|
if (DbgpHeader)
|
|
{
|
|
__CompatModule.pHeader = DbgpHeader;
|
|
}
|
|
_DebugOut(__pCompatModule, ulCompMask, (char *) ppszfmt, ArgList);
|
|
}
|
|
|
|
|
|
void
|
|
Win4AssertEx(
|
|
char const * szFile,
|
|
int iLine,
|
|
char const * szMessage)
|
|
{
|
|
CHAR szDebug[MAX_PATH];
|
|
|
|
szDebug[RTL_NUMBER_OF(szDebug) - 1] = '\0';
|
|
|
|
if (szMessage)
|
|
{
|
|
_snprintf(szDebug, RTL_NUMBER_OF(szDebug) - 1, "%d.%d> ASSERTION FAILED: %s, %s:%d\n",
|
|
GetCurrentProcessId(), GetCurrentThreadId(),
|
|
szMessage, szFile, iLine);
|
|
}
|
|
else
|
|
{
|
|
_snprintf(szDebug, RTL_NUMBER_OF(szDebug) - 1, "%d.%d> ASSERTION FAILED %s:%d\n",
|
|
GetCurrentProcessId(), GetCurrentThreadId(),
|
|
szFile, iLine);
|
|
}
|
|
|
|
OutputDebugStringA(szDebug);
|
|
|
|
DebugBreak();
|
|
|
|
}
|
|
|
|
|
|
//+------------------------------------------------------------
|
|
// Function: SetWin4InfoLevel(unsigned long ulNewLevel)
|
|
//
|
|
// Synopsis: Sets the global info level for debugging output
|
|
// Returns: Old info level
|
|
//
|
|
//-------------------------------------------------------------
|
|
|
|
unsigned long
|
|
SetWin4InfoLevel(
|
|
unsigned long ulNewLevel)
|
|
{
|
|
|
|
return(ulNewLevel);
|
|
}
|
|
|
|
|
|
//+------------------------------------------------------------
|
|
// Function: _SetWin4InfoMask(unsigned long ulNewMask)
|
|
//
|
|
// Synopsis: Sets the global info mask for debugging output
|
|
// Returns: Old info mask
|
|
//
|
|
//-------------------------------------------------------------
|
|
|
|
unsigned long
|
|
SetWin4InfoMask(
|
|
unsigned long ulNewMask)
|
|
{
|
|
return(ulNewMask);
|
|
}
|
|
|
|
|
|
//+------------------------------------------------------------
|
|
// Function: _SetWin4AssertLevel(unsigned long ulNewLevel)
|
|
//
|
|
// Synopsis: Sets the global assert level for debugging output
|
|
// Returns: Old assert level
|
|
//
|
|
//-------------------------------------------------------------
|
|
|
|
typedef unsigned long (APINOT * SetWin4AssertLevelFn)( unsigned long ulNewLevel );
|
|
|
|
unsigned long
|
|
SetWin4AssertLevel(
|
|
unsigned long ulNewLevel)
|
|
{
|
|
SetWin4AssertLevelFn OleSetWin4AssertLevel;
|
|
HMODULE Module;
|
|
|
|
Module = GetModuleHandle(L"ole32.dll");
|
|
|
|
|
|
if (Module != NULL)
|
|
{
|
|
OleSetWin4AssertLevel = (SetWin4AssertLevelFn) GetProcAddress(Module, "SetWin4AssertLevel");
|
|
if (OleSetWin4AssertLevel != NULL)
|
|
{
|
|
OleSetWin4AssertLevel(ulNewLevel);
|
|
}
|
|
}
|
|
|
|
return(ulNewLevel);
|
|
}
|