mirror of https://github.com/lianthony/NT4.0
55 lines
1.1 KiB
55 lines
1.1 KiB
/* debug.c - debugging support for ZM
|
|
* 21-Aug-1987 mz Change references from MAXARG to MAXLINELEN
|
|
*/
|
|
|
|
#define INCL_DOSINFOSEG
|
|
#include "wzport.h"
|
|
|
|
#include <stdio.h>
|
|
#include <assert.h>
|
|
#include <tools.h>
|
|
#include <stdarg.h>
|
|
#include "dh.h"
|
|
|
|
#include "zm.h"
|
|
|
|
/* debugging tools */
|
|
|
|
#if DEBUG
|
|
VOID PASCAL INTERNAL debugProc (HW hWnd, INT command, WDATA data)
|
|
{
|
|
INT width = TWINWIDTH ( hWnd );
|
|
INT winSize;
|
|
|
|
switch (command) {
|
|
case KEY:
|
|
debout ("Sorry, debug window takes no input");
|
|
break;
|
|
case CREATE:
|
|
winSize = width * TWINHEIGHT ( hWnd ) * sizeof ( CHAR );
|
|
hWnd->pContent = PoolAlloc ( winSize );
|
|
assert ( hWnd->pContent != NULL );
|
|
Fill ( ( LPSTR ) hWnd->pContent, ' ', winSize );
|
|
break;
|
|
default:
|
|
defWndProc (hWnd, command, data);
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
void debout (PSTR fmt, ...)
|
|
{
|
|
CHAR debbuf[MAXLINELEN];
|
|
va_list pu;
|
|
|
|
va_start( pu, fmt );
|
|
if (hDebug != NULL) {
|
|
vsprintf (debbuf, fmt, pu);
|
|
SendMessage (hDebug, DISPLAYSTR, debbuf);
|
|
}
|
|
va_end( pu );
|
|
}
|
|
|
|
|
|
#endif
|