/* NetHack 3.5	dprintf.c	$Date$  $Revision$ */
/*	SCCS Id: @(#)dprintf.c	3.5	1994/01/29		  */
/* Copyright (c) Jon W{tte, 1993.				  */
/* NetHack may be freely redistributed.  See license for details. */

#include "hack.h"
#include "macwin.h"

static Boolean
KeyDown (unsigned short code) {
unsigned char keys [16];

	GetKeys ((void *) keys);
	return ((keys [code >> 3] >> (code & 7)) & 1) != 0;
}


void
dprintf (char *format, ...)
{
char buffer [500];
va_list list;
int doit;
#define DO_DEBUGSTR 1
#define DO_PLINE 2

	if (flags.debug) {
		doit = 0;
		if (macFlags.hasDebugger && KeyDown (0x39)) {					/* Caps Lock */
			doit = DO_DEBUGSTR;
		} else if (KeyDown (0x3B) && iflags.window_inited &&			/* Control */
			(WIN_MESSAGE != -1) && theWindows [WIN_MESSAGE].its_window) {
			doit = DO_PLINE;
		}
		
		if (doit) {
			va_start (list, format);
			vsprintf (&buffer [1], format, list);
			va_end (list) ;

			if (doit == DO_DEBUGSTR) {
				buffer [0] = strlen (&buffer [1]);
				DebugStr ((uchar *) buffer);
			} else if (doit == DO_PLINE)		
				pline ("%s", &buffer [1]);
		}
	}
}