173 lines
4.3 KiB
C
173 lines
4.3 KiB
C
/*
|
|
* debug.c
|
|
*
|
|
* debugging menu support
|
|
*
|
|
* Debug level info is in WIN.INI in the [debug] section:
|
|
*
|
|
* [debug]
|
|
* App=0 level for App
|
|
*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <windows.h>
|
|
#include "mcitest.h"
|
|
#include <stdarg.h>
|
|
|
|
#if DBG
|
|
|
|
#define DEFAULTDEBUGLEVEL 1
|
|
int __iDebugLevel = DEFAULTDEBUGLEVEL;
|
|
|
|
void dDbgSetDebugMenuLevel(int i)
|
|
{
|
|
HMENU hMenu;
|
|
UINT m;
|
|
|
|
if ((i < 0) || (i > 4)) i = 4;
|
|
hMenu = GetMenu(hwndMainDlg);
|
|
for (m=IDM_DEBUG0; m<=IDM_DEBUG4; m++) {
|
|
CheckMenuItem(hMenu, m, MF_UNCHECKED);
|
|
}
|
|
CheckMenuItem(hMenu, (UINT)(i + IDM_DEBUG0), MF_CHECKED);
|
|
__iDebugLevel = i;
|
|
dprintf3((TEXT("Debug level set to %d"), i));
|
|
}
|
|
|
|
/***************************************************************************
|
|
|
|
@doc INTERNAL
|
|
|
|
@api void | dDbgOut | This function sends output to the current
|
|
debug output device.
|
|
|
|
@parm LPSTR | lpszFormat | Pointer to a printf style format string.
|
|
@parm ??? | ... | Args.
|
|
|
|
@rdesc There is no return value.
|
|
|
|
****************************************************************************/
|
|
|
|
void dDbgOut(LPTSTR lpszFormat, ...)
|
|
{
|
|
int i;
|
|
TCHAR buf[256];
|
|
va_list va;
|
|
|
|
i = wsprintf(buf, TEXT("%s: "), aszAppName);
|
|
|
|
va_start(va, lpszFormat);
|
|
i += wvsprintf(buf+i, lpszFormat, va);
|
|
va_end(va);
|
|
|
|
buf[i++] = TEXT('\n');
|
|
buf[i] = 0;
|
|
|
|
OutputDebugString(buf);
|
|
}
|
|
|
|
/***************************************************************************
|
|
|
|
@doc INTERNAL
|
|
|
|
@api int | dDbgGetLevel | This function gets the current debug level
|
|
for a module.
|
|
|
|
@parm LPSTR | lpszModule | The name of the module.
|
|
|
|
@rdesc The return value is the current debug level.
|
|
|
|
@comm The information is kept in the [debug] section of WIN.INI
|
|
|
|
****************************************************************************/
|
|
|
|
int dDbgGetLevel(LPTSTR lpszAppName)
|
|
{
|
|
return GetProfileInt(TEXT("mmdebug"), lpszAppName, DEFAULTDEBUGLEVEL);
|
|
}
|
|
|
|
/***************************************************************************
|
|
|
|
@doc INTERNAL
|
|
|
|
@api int | dDbgSaveLevel | This function saves the current debug level
|
|
for a module.
|
|
|
|
@parm LPSTR | lpszModule | The name of the module.
|
|
@parm int | iLevel | The value to save.
|
|
|
|
@rdesc There is no return value.
|
|
|
|
@comm The information is kept in the [debug] section of WIN.INI
|
|
|
|
****************************************************************************/
|
|
|
|
void dDbgSaveLevel(LPTSTR lpszAppName, int iLevel)
|
|
{
|
|
TCHAR buf[80];
|
|
|
|
wsprintf(buf, TEXT("%d"), iLevel);
|
|
WriteProfileString(TEXT("debug"), lpszAppName, buf);
|
|
}
|
|
|
|
/***************************************************************************
|
|
|
|
@doc INTERNAL
|
|
|
|
@api void | dDbgAssert | This function shows an assert message box.
|
|
|
|
@parm LPSTR | exp | Pointer to the expression string.
|
|
@parm LPSTR | file | Pointer to the file name.
|
|
@parm int | line | The line number.
|
|
|
|
@rdesc There is no return value.
|
|
|
|
@comm We try to use the current active window as the parent. If
|
|
this fails we use the desktop window. The box is system
|
|
modal to avoid any trouble.
|
|
|
|
****************************************************************************/
|
|
|
|
void dDbgAssert(LPTSTR exp, LPTSTR file, int line)
|
|
{
|
|
TCHAR bufTmp[256];
|
|
int iResponse;
|
|
HWND hWnd;
|
|
|
|
wsprintf(bufTmp,
|
|
TEXT("Expression: %s\nFile: %s, Line: %d\n\nAbort: Exit Process\nRetry: Enter Debugger\nIgnore: Continue"),
|
|
exp, file, line);
|
|
|
|
// try to use the active window, but NULL is ok if there
|
|
// isn't one.
|
|
|
|
hWnd = GetActiveWindow();
|
|
|
|
iResponse = MessageBox(hWnd,
|
|
bufTmp,
|
|
TEXT("Assertion Failure"),
|
|
MB_TASKMODAL
|
|
| MB_ICONEXCLAMATION
|
|
| MB_DEFBUTTON3
|
|
| MB_ABORTRETRYIGNORE);
|
|
|
|
switch (iResponse) {
|
|
case 0:
|
|
dprintf1((TEXT("Assert message box failed")));
|
|
dprintf2((TEXT(" Expression: %s"), exp));
|
|
dprintf2((TEXT(" File: %s, Line: %d"), file, line));
|
|
break;
|
|
case IDABORT:
|
|
ExitProcess(1);
|
|
break;
|
|
case IDRETRY:
|
|
DebugBreak();
|
|
break;
|
|
case IDIGNORE:
|
|
break;
|
|
}
|
|
}
|
|
|
|
#endif
|