tron@2186: /* $Id$ */
tron@2186: 
belugas@6125: /** @file debug.cpp */
belugas@6125: 
tron@1302: #include "stdafx.h"
tron@1302: #include <stdio.h>
tron@1299: #include <stdarg.h>
Darkvater@1891: #include "openttd.h"
tron@1299: #include "console.h"
tron@1299: #include "debug.h"
tron@2163: #include "functions.h"
Darkvater@1847: #include "string.h"
truelight@5959: #include "network/core/core.h"
truelight@5959: 
truelight@5959: #if defined(ENABLE_NETWORK)
truelight@5959: SOCKET _debug_socket = INVALID_SOCKET;
truelight@5959: #endif /* ENABLE_NETWORK */
tron@1299: 
tron@1299: int _debug_ai_level;
tron@2210: int _debug_driver_level;
tron@1299: int _debug_grf_level;
tron@1299: int _debug_map_level;
tron@1299: int _debug_misc_level;
tron@1299: int _debug_ms_level;
tron@1299: int _debug_net_level;
Darkvater@5380: int _debug_sprite_level;
truelight@1322: int _debug_oldloader_level;
ludde@2125: int _debug_ntp_level;
matthijs@1678: int _debug_npf_level;
KUDr@3900: int _debug_yapf_level;
peter1138@5108: int _debug_freetype_level;
Darkvater@5380: int _debug_sl_level;
KUDr@5664: int _debug_station_level;
tron@1299: 
tron@1299: 
rubidium@6248: struct DebugLevel {
Darkvater@1847: 	const char *name;
Darkvater@1847: 	int *level;
rubidium@6248: };
Darkvater@1847: 
Darkvater@1847: #define DEBUG_LEVEL(x) { #x, &_debug_##x##_level }
Darkvater@1847: 	static const DebugLevel debug_level[] = {
Darkvater@1847: 	DEBUG_LEVEL(ai),
tron@2210: 	DEBUG_LEVEL(driver),
Darkvater@1847: 	DEBUG_LEVEL(grf),
Darkvater@1847: 	DEBUG_LEVEL(map),
Darkvater@1847: 	DEBUG_LEVEL(misc),
Darkvater@1847: 	DEBUG_LEVEL(ms),
Darkvater@1847: 	DEBUG_LEVEL(net),
Darkvater@5380: 	DEBUG_LEVEL(sprite),
Darkvater@1847: 	DEBUG_LEVEL(oldloader),
ludde@2125: 	DEBUG_LEVEL(ntp),
KUDr@3900: 	DEBUG_LEVEL(npf),
peter1138@5108: 	DEBUG_LEVEL(yapf),
Darkvater@5380: 	DEBUG_LEVEL(freetype),
Darkvater@5380: 	DEBUG_LEVEL(sl),
KUDr@5664: 	DEBUG_LEVEL(station),
Darkvater@1847: 	};
Darkvater@1847: #undef DEBUG_LEVEL
tron@1299: 
Darkvater@5406: #if !defined(NO_DEBUG_MESSAGES)
Darkvater@5406: 
Darkvater@5406: /** Functionized DEBUG macro for compilers that don't support
Darkvater@5406:  * variadic macros (__VA_ARGS__) such as...yes MSVC2003 and lower */
Darkvater@5406: #if defined(NO_VARARG_MACRO)
Darkvater@5406: void CDECL DEBUG(int name, int level, ...)
Darkvater@5406: {
Darkvater@5406: 	va_list va;
Darkvater@5406: 	const char *dbg;
Darkvater@5406: 	const DebugLevel *dl = &debug_level[name];
Darkvater@5406: 
Darkvater@5406: 	if (level != 0 && *dl->level < level) return;
Darkvater@5406: 	dbg = dl->name;
Darkvater@5406: 	va_start(va, level);
Darkvater@5406: #else
Darkvater@5406: void CDECL debug(const char *dbg, ...)
Darkvater@5406: {
Darkvater@5406: 	va_list va;
Darkvater@5406: 	va_start(va, dbg);
Darkvater@5406: #endif /* NO_VARARG_MACRO */
Darkvater@5406: 	{
Darkvater@5406: 		const char *s;
Darkvater@5406: 		char buf[1024];
Darkvater@5406: 
Darkvater@5406: 		s = va_arg(va, const char*);
Darkvater@5406: 		vsnprintf(buf, lengthof(buf), s, va);
Darkvater@5406: 		va_end(va);
truelight@5959: #if defined(ENABLE_NETWORK)
truelight@5959: 		if (_debug_socket != INVALID_SOCKET) {
truelight@5959: 			char buf2[lengthof(buf) + 32];
truelight@5959: 
truelight@5959: 			snprintf(buf2, lengthof(buf2), "dbg: [%s] %s\n", dbg, buf);
truelight@5959: 			send(_debug_socket, buf2, strlen(buf2), 0);
truelight@5959: 		} else
truelight@5959: #endif /* ENABLE_NETWORK */
truelight@5959: 		{
truelight@7405: #if defined(WINCE)
truelight@7405: 			/* We need to do OTTD2FS twice, but as it uses a static buffer, we need to store one temporary */
truelight@7405: 			TCHAR tbuf[512];
truelight@7405: 			_sntprintf(tbuf, sizeof(tbuf), _T("%s"), OTTD2FS(dbg));
truelight@7405: 			NKDbgPrintfW(_T("dbg: [%s] %s\n"), tbuf, OTTD2FS(buf));
truelight@7405: #else
truelight@5959: 			fprintf(stderr, "dbg: [%s] %s\n", dbg, buf);
truelight@7405: #endif
truelight@5959: 			IConsoleDebug(dbg, buf);
truelight@5959: 		}
Darkvater@5406: 	}
Darkvater@5406: }
Darkvater@5406: #endif /* NO_DEBUG_MESSAGES */
Darkvater@5406: 
tron@1299: void SetDebugString(const char *s)
tron@1299: {
tron@1299: 	int v;
tron@1299: 	char *end;
tron@1299: 	const char *t;
tron@1299: 
belugas@6125: 	/* global debugging level? */
tron@1299: 	if (*s >= '0' && *s <= '9') {
tron@1299: 		const DebugLevel *i;
tron@1299: 
tron@1299: 		v = strtoul(s, &end, 0);
tron@1299: 		s = end;
tron@1299: 
tron@2639: 		for (i = debug_level; i != endof(debug_level); ++i) *i->level = v;
tron@1299: 	}
tron@1299: 
belugas@6125: 	/* individual levels */
tron@2639: 	for (;;) {
tron@1299: 		const DebugLevel *i;
tron@1299: 		int *p;
tron@1299: 
belugas@6125: 		/* skip delimiters */
tron@1299: 		while (*s == ' ' || *s == ',' || *s == '\t') s++;
tron@1299: 		if (*s == '\0') break;
tron@1299: 
tron@1299: 		t = s;
tron@1299: 		while (*s >= 'a' && *s <= 'z') s++;
tron@1299: 
belugas@6125: 		/* check debugging levels */
tron@1299: 		p = NULL;
tron@1299: 		for (i = debug_level; i != endof(debug_level); ++i)
tron@1299: 			if (s == t + strlen(i->name) && strncmp(t, i->name, s - t) == 0) {
tron@1299: 				p = i->level;
tron@1299: 				break;
tron@1299: 			}
tron@1299: 
tron@1299: 		if (*s == '=') s++;
tron@1299: 		v = strtoul(s, &end, 0);
tron@1299: 		s = end;
tron@2639: 		if (p != NULL) {
tron@1299: 			*p = v;
tron@2639: 		} else {
tron@1299: 			ShowInfoF("Unknown debug level '%.*s'", s - t, t);
tron@1299: 			return;
tron@1299: 		}
tron@1299: 	}
tron@1299: }
Darkvater@1847: 
Darkvater@1847: /** Print out the current debug-level
Darkvater@1847:  * Just return a string with the values of all the debug categorites
Darkvater@1847:  * @return string with debug-levels
Darkvater@1847:  */
rubidium@6247: const char *GetDebugString()
Darkvater@1847: {
Darkvater@1847: 	const DebugLevel *i;
Darkvater@1847: 	static char dbgstr[100];
Darkvater@1847: 	char dbgval[20];
Darkvater@1847: 
Darkvater@1847: 	memset(dbgstr, 0, sizeof(dbgstr));
Darkvater@1847: 	i = debug_level;
Darkvater@1847: 	snprintf(dbgstr, sizeof(dbgstr), "%s=%d", i->name, *i->level);
Darkvater@1847: 
Darkvater@1847: 	for (i++; i != endof(debug_level); i++) {
Darkvater@1847: 		snprintf(dbgval, sizeof(dbgval), ", %s=%d", i->name, *i->level);
Darkvater@1847: 		ttd_strlcat(dbgstr, dbgval, sizeof(dbgstr));
Darkvater@1847: 	}
Darkvater@1847: 
Darkvater@1847: 	return dbgstr;
Darkvater@1847: }