tron@2186: /* $Id$ */
tron@2186: 
belugas@6117: /** @file win32.cpp Implementation of MS Windows system calls */
belugas@6117: 
truelight@0: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
tron@1302: #include "debug.h"
tron@2162: #include "saveload.h"
glx@8125: #include "gfx_func.h"
rubidium@8107: #include "textbuf_gui.h"
rubidium@10040: #include "fileio_func.h"
rubidium@10040: #include "fios.h"
smatz@9085: #include "rev.h"
truelight@0: #include <windows.h>
truelight@0: #include <winnt.h>
truelight@0: #include <wininet.h>
truelight@0: #include <io.h>
truelight@0: #include <fcntl.h>
Darkvater@5304: #include <shlobj.h> // SHGetFolderPath
tron@2160: #include "variables.h"
tron@2183: #include "win32.h"
rubidium@8130: #include "core/alloc_func.hpp"
rubidium@8131: #include "functions.h"
rubidium@8131: #include "core/random_func.hpp"
glx@8216: #include "core/bitmath_func.hpp"
glx@8216: #include "string_func.h"
smatz@9457: #include "gamelog.h"
Darkvater@4210: #include <ctype.h>
Darkvater@5168: #include <tchar.h>
Darkvater@4218: #include <errno.h>
Darkvater@4218: #include <sys/types.h>
Darkvater@4218: #include <sys/stat.h>
glx@7457: #if defined(_MSC_VER) && !defined(WINCE)
glx@7457: 	#include <dbghelp.h>
glx@9638: 	#include "strings_func.h"
glx@7457: #endif
tron@2171: 
truelight@0: static bool _has_console;
truelight@0: 
tron@2208: static bool cursor_visible = true;
tron@2208: 
tron@2207: bool MyShowCursor(bool show)
tron@2207: {
tron@2209: 	if (cursor_visible == show) return show;
tron@2207: 
tron@2209: 	cursor_visible = show;
tron@2207: 	ShowCursor(show);
tron@2207: 
tron@2207: 	return !show;
tron@2207: }
tron@2207: 
Darkvater@5168: /** Helper function needed by dynamically loading libraries
Darkvater@5168:  * XXX: Hurray for MS only having an ANSI GetProcAddress function
Darkvater@5168:  * on normal windows and no Wide version except for in Windows Mobile/CE */
Darkvater@5168: bool LoadLibraryList(Function proc[], const char *dll)
truelight@0: {
tron@1468: 	while (*dll != '\0') {
Darkvater@5168: 		HMODULE lib;
Darkvater@5168: 		lib = LoadLibrary(MB_TO_WIDE(dll));
tron@2183: 
tron@2183: 		if (lib == NULL) return false;
tron@4077: 		for (;;) {
tron@4077: 			FARPROC p;
tron@2183: 
glx@9215: 			while (*dll++ != '\0') { /* Nothing */ }
tron@2183: 			if (*dll == '\0') break;
Darkvater@5168: #if defined(WINCE)
truelight@5758: 			p = GetProcAddress(lib, MB_TO_WIDE(dll));
Darkvater@5168: #else
truelight@0: 			p = GetProcAddress(lib, dll);
Darkvater@5168: #endif
tron@2183: 			if (p == NULL) return false;
tron@2183: 			*proc++ = (Function)p;
truelight@0: 		}
truelight@0: 		dll++;
truelight@0: 	}
truelight@0: 	return true;
truelight@0: }
truelight@0: 
darkvater@796: #ifdef _MSC_VER
Darkvater@5168: static const char *_exception_string = NULL;
glx@8051: void SetExceptionString(const char *s, ...)
glx@8051: {
glx@8051: 	va_list va;
glx@8051: 	char buf[512];
glx@8051: 
glx@8051: 	va_start(va, s);
glx@8051: 	vsnprintf(buf, lengthof(buf), s, va);
glx@8051: 	va_end(va);
glx@8051: 
glx@8051: 	_exception_string = strdup(buf);
glx@8051: }
Darkvater@2428: #endif
truelight@0: 
glx@9470: void ShowOSErrorBox(const char *buf, bool system)
truelight@0: {
truelight@0: 	MyShowCursor(true);
Darkvater@5168: 	MessageBox(GetActiveWindow(), MB_TO_WIDE(buf), _T("Error!"), MB_ICONSTOP);
truelight@0: 
belugas@6432: /* if exception tracker is enabled, we crash here to let the exception handler handle it. */
truelight@0: #if defined(WIN32_EXCEPTION_TRACKER) && !defined(_DEBUG)
glx@9470: 	if (system) {
truelight@0: 		_exception_string = buf;
truelight@0: 		*(byte*)0 = 0;
truelight@0: 	}
truelight@0: #endif
truelight@0: }
truelight@0: 
truelight@7408: #if defined(_MSC_VER) && !defined(WINCE)
Darkvater@2428: 
Darkvater@2428: static void *_safe_esp;
Darkvater@2428: static char *_crash_msg;
Darkvater@2428: static bool _expanded;
Darkvater@2428: static bool _did_emerg_save;
Darkvater@2428: static int _ident;
Darkvater@2428: 
rubidium@6248: struct DebugFileInfo {
truelight@0: 	uint32 size;
truelight@0: 	uint32 crc32;
truelight@0: 	SYSTEMTIME file_time;
rubidium@6248: };
truelight@0: 
truelight@0: static uint32 *_crc_table;
truelight@0: 
rubidium@7321: static void MakeCRCTable(uint32 *table)
rubidium@7321: {
truelight@0: 	uint32 crc, poly = 0xEDB88320L;
tron@2026: 	int i;
tron@2026: 	int j;
truelight@193: 
truelight@0: 	_crc_table = table;
truelight@0: 
tron@1468: 	for (i = 0; i != 256; i++) {
truelight@0: 		crc = i;
tron@1468: 		for (j = 8; j != 0; j--) {
belugas@4078: 			crc = (crc & 1 ? (crc >> 1) ^ poly : crc >> 1);
truelight@0: 		}
truelight@0: 		table[i] = crc;
truelight@0: 	}
truelight@0: }
truelight@0: 
rubidium@7321: static uint32 CalcCRC(byte *data, uint size, uint32 crc)
rubidium@7321: {
tron@1468: 	for (; size > 0; size--) {
tron@1468: 		crc = ((crc >> 8) & 0x00FFFFFF) ^ _crc_table[(crc ^ *data++) & 0xFF];
tron@1468: 	}
truelight@0: 	return crc;
truelight@0: }
truelight@0: 
Darkvater@5168: static void GetFileInfo(DebugFileInfo *dfi, const TCHAR *filename)
truelight@0: {
Darkvater@5310: 	HANDLE file;
truelight@0: 	memset(dfi, 0, sizeof(dfi));
truelight@0: 
Darkvater@5310: 	file = CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, 0);
Darkvater@5310: 	if (file != INVALID_HANDLE_VALUE) {
truelight@0: 		byte buffer[1024];
truelight@0: 		DWORD numread;
truelight@0: 		uint32 filesize = 0;
truelight@0: 		FILETIME write_time;
truelight@0: 		uint32 crc = (uint32)-1;
truelight@0: 
Darkvater@5310: 		for (;;) {
Darkvater@5310: 			if (ReadFile(file, buffer, sizeof(buffer), &numread, NULL) == 0 || numread == 0)
Darkvater@5310: 				break;
Darkvater@5310: 			filesize += numread;
Darkvater@5310: 			crc = CalcCRC(buffer, numread, crc);
Darkvater@5310: 		}
Darkvater@5310: 		dfi->size = filesize;
Darkvater@5310: 		dfi->crc32 = crc ^ (uint32)-1;
truelight@193: 
Darkvater@5310: 		if (GetFileTime(file, NULL, NULL, &write_time)) {
Darkvater@5310: 			FileTimeToSystemTime(&write_time, &dfi->file_time);
truelight@0: 		}
Darkvater@5310: 		CloseHandle(file);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: 
rubidium@10301: static char *PrintModuleInfo(char *output, const char *last, HMODULE mod)
truelight@0: {
Darkvater@5168: 	TCHAR buffer[MAX_PATH];
truelight@0: 	DebugFileInfo dfi;
tron@1468: 
truelight@0: 	GetModuleFileName(mod, buffer, MAX_PATH);
truelight@0: 	GetFileInfo(&dfi, buffer);
rubidium@10301: 	output += seprintf(output, last, " %-20s handle: %p size: %d crc: %.8X date: %d-%.2d-%.2d %.2d:%.2d:%.2d\r\n",
Darkvater@5168: 		WIDE_TO_MB(buffer),
truelight@0: 		mod,
truelight@0: 		dfi.size,
truelight@0: 		dfi.crc32,
truelight@0: 		dfi.file_time.wYear,
truelight@0: 		dfi.file_time.wMonth,
truelight@0: 		dfi.file_time.wDay,
truelight@0: 		dfi.file_time.wHour,
truelight@0: 		dfi.file_time.wMinute,
truelight@0: 		dfi.file_time.wSecond
truelight@0: 	);
truelight@0: 	return output;
truelight@0: }
truelight@0: 
rubidium@10301: static char *PrintModuleList(char *output, const char *last)
truelight@0: {
Darkvater@5310: 	BOOL (WINAPI *EnumProcessModules)(HANDLE, HMODULE*, DWORD, LPDWORD);
truelight@0: 
Darkvater@5168: 	if (LoadLibraryList((Function*)&EnumProcessModules, "psapi.dll\0EnumProcessModules\0\0")) {
Darkvater@5310: 		HMODULE modules[100];
Darkvater@5310: 		DWORD needed;
Darkvater@5310: 		BOOL res;
Darkvater@5310: 
Darkvater@5310: 		HANDLE proc = OpenProcess(PROCESS_ALL_ACCESS, FALSE, GetCurrentProcessId());
Darkvater@5310: 		if (proc != NULL) {
truelight@0: 			res = EnumProcessModules(proc, modules, sizeof(modules), &needed);
truelight@0: 			CloseHandle(proc);
truelight@0: 			if (res) {
glx@9146: 				size_t count = min(needed / sizeof(HMODULE), lengthof(modules));
Darkvater@5310: 
rubidium@10301: 				for (size_t i = 0; i != count; i++) output = PrintModuleInfo(output, last, modules[i]);
truelight@0: 				return output;
truelight@0: 			}
truelight@0: 		}
truelight@0: 	}
rubidium@10301: 	output = PrintModuleInfo(output, last, NULL);
truelight@0: 	return output;
truelight@0: }
truelight@0: 
Darkvater@5168: static const TCHAR _crash_desc[] =
Darkvater@5168: 	_T("A serious fault condition occured in the game. The game will shut down.\n")
Darkvater@5530: 	_T("Please send the crash information and the crash.dmp file (if any) to the developers.\n")
Darkvater@5529: 	_T("This will greatly help debugging. The correct place to do this is http://bugs.openttd.org. ")
Darkvater@5168: 	_T("The information contained in the report is displayed below.\n")
Darkvater@5168: 	_T("Press \"Emergency save\" to attempt saving the game.");
truelight@0: 
Darkvater@5168: static const TCHAR _save_succeeded[] =
Darkvater@5168: 	_T("Emergency save succeeded.\n")
Darkvater@5168: 	_T("Be aware that critical parts of the internal game state may have become ")
Darkvater@5168: 	_T("corrupted. The saved game is not guaranteed to work.");
truelight@0: 
rubidium@6247: static bool EmergencySave()
Darkvater@1881: {
rubidium@6929: 	SaveOrLoad("crash.sav", SL_SAVE, BASE_DIR);
Darkvater@1881: 	return true;
Darkvater@1881: }
truelight@0: 
Darkvater@5311: /* Disable the crash-save submit code as it's not used */
Darkvater@5311: #if 0
Darkvater@5311: 
rubidium@6248: struct WinInetProcs {
rubidium@8969: 	HINTERNET (WINAPI *InternetOpen)(LPCTSTR, DWORD, LPCTSTR, LPCTSTR, DWORD);
Darkvater@5168: 	HINTERNET (WINAPI *InternetConnect)(HINTERNET, LPCTSTR, INTERNET_PORT, LPCTSTR, LPCTSTR, DWORD, DWORD, DWORD);
Darkvater@5168: 	HINTERNET (WINAPI *HttpOpenRequest)(HINTERNET, LPCTSTR, LPCTSTR, LPCTSTR, LPCTSTR, LPCTSTR *, DWORD, DWORD);
Darkvater@5168: 	BOOL (WINAPI *HttpSendRequest)(HINTERNET, LPCTSTR, DWORD, LPVOID, DWORD);
truelight@0: 	BOOL (WINAPI *InternetCloseHandle)(HINTERNET);
truelight@0: 	BOOL (WINAPI *HttpQueryInfo)(HINTERNET, DWORD, LPVOID, LPDWORD, LPDWORD);
rubidium@6248: };
truelight@0: 
truelight@0: #define M(x) x "\0"
Darkvater@5168: #if defined(UNICODE)
Darkvater@5168: # define W(x) x "W"
Darkvater@5168: #else
Darkvater@5168: # define W(x) x "A"
Darkvater@5168: #endif
truelight@193: static const char wininet_files[] =
truelight@0: 	M("wininet.dll")
Darkvater@5168: 	M(W("InternetOpen"))
Darkvater@5168: 	M(W("InternetConnect"))
Darkvater@5168: 	M(W("HttpOpenRequest"))
Darkvater@5168: 	M(W("HttpSendRequest"))
truelight@0: 	M("InternetCloseHandle")
Darkvater@5168: 	M(W("HttpQueryInfo"))
truelight@0: 	M("");
Darkvater@5168: #undef W
truelight@0: #undef M
truelight@0: 
truelight@0: static WinInetProcs _wininet;
truelight@0: 
Darkvater@5168: static const TCHAR *SubmitCrashReport(HWND wnd, void *msg, size_t msglen, const TCHAR *arg)
truelight@0: {
truelight@0: 	HINTERNET inet, conn, http;
Darkvater@5168: 	const TCHAR *err = NULL;
truelight@0: 	DWORD code, len;
Darkvater@5168: 	static TCHAR buf[100];
Darkvater@5168: 	TCHAR buff[100];
truelight@0: 
Darkvater@5168: 	if (_wininet.InternetOpen == NULL && !LoadLibraryList((Function*)&_wininet, wininet_files)) return _T("can't load wininet.dll");
truelight@0: 
Darkvater@5168: 	inet = _wininet.InternetOpen(_T("OTTD"), INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0 );
Darkvater@5168: 	if (inet == NULL) { err = _T("internetopen failed"); goto error1; }
truelight@0: 
Darkvater@5168: 	conn = _wininet.InternetConnect(inet, _T("www.openttd.org"), INTERNET_DEFAULT_HTTP_PORT, _T(""), _T(""), INTERNET_SERVICE_HTTP, 0, 0);
Darkvater@5168: 	if (conn == NULL) { err = _T("internetconnect failed"); goto error2; }
truelight@0: 
Darkvater@5168: 	_sntprintf(buff, lengthof(buff), _T("/crash.php?file=%s&ident=%d"), arg, _ident);
Darkvater@5168: 
Darkvater@5168: 	http = _wininet.HttpOpenRequest(conn, _T("POST"), buff, NULL, NULL, NULL, INTERNET_FLAG_NO_CACHE_WRITE , 0);
Darkvater@5168: 	if (http == NULL) { err = _T("httpopenrequest failed"); goto error3; }
Darkvater@5168: 
Darkvater@5168: 	if (!_wininet.HttpSendRequest(http, _T("Content-type: application/binary"), -1, msg, (DWORD)msglen)) { err = _T("httpsendrequest failed"); goto error4; }
truelight@0: 
truelight@0: 	len = sizeof(code);
Darkvater@5168: 	if (!_wininet.HttpQueryInfo(http, HTTP_QUERY_STATUS_CODE | HTTP_QUERY_FLAG_NUMBER, &code, &len, 0)) { err = _T("httpqueryinfo failed"); goto error4; }
truelight@193: 
truelight@0: 	if (code != 200) {
Darkvater@5168: 		int l = _sntprintf(buf, lengthof(buf), _T("Server said: %d "), code);
truelight@0: 		len = sizeof(buf) - l;
truelight@0: 		_wininet.HttpQueryInfo(http, HTTP_QUERY_STATUS_TEXT, buf + l, &len, 0);
truelight@0: 		err = buf;
truelight@0: 	}
truelight@0: 
truelight@0: error4:
truelight@0: 	_wininet.InternetCloseHandle(http);
truelight@0: error3:
truelight@0: 	_wininet.InternetCloseHandle(conn);
truelight@0: error2:
truelight@0: 	_wininet.InternetCloseHandle(inet);
truelight@0: error1:
truelight@0: 	return err;
truelight@0: }
truelight@0: 
Darkvater@5168: static void SubmitFile(HWND wnd, const TCHAR *file)
truelight@0: {
truelight@0: 	HANDLE h;
truelight@0: 	unsigned long size;
truelight@0: 	unsigned long read;
truelight@0: 	void *mem;
truelight@0: 
truelight@0: 	h = CreateFile(file, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
truelight@0: 	if (h == NULL) return;
truelight@0: 
truelight@0: 	size = GetFileSize(h, NULL);
truelight@0: 	if (size > 500000) goto error1;
truelight@193: 
rubidium@8037: 	mem = MallocT<byte>(size);
truelight@0: 	if (mem == NULL) goto error1;
truelight@0: 
truelight@0: 	if (!ReadFile(h, mem, size, &read, NULL) || read != size) goto error2;
truelight@0: 
truelight@193: 	SubmitCrashReport(wnd, mem, size, file);
truelight@0: 
truelight@0: error2:
truelight@0: 	free(mem);
truelight@0: error1:
truelight@0: 	CloseHandle(h);
truelight@0: }
truelight@0: 
Darkvater@5311: #endif /* Disabled crash-submit procedures */
Darkvater@5311: 
Darkvater@5168: static const TCHAR * const _expand_texts[] = {_T("S&how report >>"), _T("&Hide report <<") };
truelight@0: 
truelight@0: static void SetWndSize(HWND wnd, int mode)
truelight@0: {
rubidium@6491: 	RECT r, r2;
truelight@0: 	int offs;
truelight@0: 
truelight@0: 	GetWindowRect(wnd, &r);
truelight@193: 
truelight@0: 	SetDlgItemText(wnd, 15, _expand_texts[mode == 1]);
truelight@193: 
truelight@0: 	if (mode >= 0) {
truelight@0: 		GetWindowRect(GetDlgItem(wnd, 11), &r2);
truelight@0: 		offs = r2.bottom - r2.top + 10;
tron@1468: 		if (!mode) offs = -offs;
tron@1468: 		SetWindowPos(wnd, HWND_TOPMOST, 0, 0,
tron@1468: 			r.right - r.left, r.bottom - r.top + offs, SWP_NOMOVE | SWP_NOZORDER);
truelight@0: 	} else {
truelight@193: 		SetWindowPos(wnd, HWND_TOPMOST,
tron@1468: 			(GetSystemMetrics(SM_CXSCREEN) - (r.right - r.left)) / 2,
tron@1468: 			(GetSystemMetrics(SM_CYSCREEN) - (r.bottom - r.top)) / 2,
truelight@0: 			0, 0, SWP_NOSIZE);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: static bool DoEmergencySave(HWND wnd)
truelight@0: {
truelight@0: 	bool b = false;
truelight@0: 
truelight@0: 	EnableWindow(GetDlgItem(wnd, 13), FALSE);
truelight@0: 	_did_emerg_save = true;
truelight@0: 	__try {
truelight@0: 		b = EmergencySave();
truelight@0: 	} __except (1) {}
truelight@0: 	return b;
truelight@0: }
truelight@0: 
rubidium@6491: static INT_PTR CALLBACK CrashDialogFunc(HWND wnd, UINT msg, WPARAM wParam, LPARAM lParam)
truelight@0: {
tron@2952: 	switch (msg) {
Darkvater@5310: 		case WM_INITDIALOG: {
Darkvater@5168: #if defined(UNICODE)
Darkvater@5312: 			/* We need to put the crash-log in a seperate buffer because the default
Darkvater@5722: 			 * buffer in MB_TO_WIDE is not large enough (512 chars) */
Darkvater@5310: 			wchar_t crash_msgW[8096];
Darkvater@5168: #endif
Darkvater@5310: 			SetDlgItemText(wnd, 10, _crash_desc);
Darkvater@5310: 			SetDlgItemText(wnd, 11, MB_TO_WIDE_BUFFER(_crash_msg, crash_msgW, lengthof(crash_msgW)));
Darkvater@5310: 			SendDlgItemMessage(wnd, 11, WM_SETFONT, (WPARAM)GetStockObject(ANSI_FIXED_FONT), FALSE);
Darkvater@5310: 			SetWndSize(wnd, -1);
Darkvater@5310: 		} return TRUE;
Darkvater@5310: 		case WM_COMMAND:
Darkvater@5310: 			switch (wParam) {
Darkvater@5310: 				case 12: /* Close */
Darkvater@5310: 					ExitProcess(0);
Darkvater@5310: 				case 13: /* Emergency save */
Darkvater@5310: 					if (DoEmergencySave(wnd)) {
Darkvater@5310: 						MessageBox(wnd, _save_succeeded, _T("Save successful"), MB_ICONINFORMATION);
Darkvater@5310: 					} else {
Darkvater@5310: 						MessageBox(wnd, _T("Save failed"), _T("Save failed"), MB_ICONINFORMATION);
Darkvater@5310: 					}
Darkvater@5310: 					break;
Darkvater@5311: /* Disable the crash-save submit code as it's not used */
Darkvater@5311: #if 0
Darkvater@5310: 				case 14: { /* Submit crash report */
Darkvater@5310: 					const TCHAR *s;
truelight@0: 
Darkvater@5310: 					SetCursor(LoadCursor(NULL, IDC_WAIT));
Darkvater@5168: 
Darkvater@5310: 					s = SubmitCrashReport(wnd, _crash_msg, strlen(_crash_msg), _T(""));
Darkvater@5310: 					if (s != NULL) {
Darkvater@5310: 						MessageBox(wnd, s, _T("Error"), MB_ICONSTOP);
Darkvater@5310: 						break;
Darkvater@5310: 					}
Darkvater@5310: 
Darkvater@5310: 					// try to submit emergency savegame
Darkvater@5310: 					if (_did_emerg_save || DoEmergencySave(wnd)) SubmitFile(wnd, _T("crash.sav"));
Darkvater@5310: 
Darkvater@5310: 					// try to submit the autosaved game
Darkvater@5310: 					if (_opt.autosave) {
Darkvater@5310: 						TCHAR buf[40];
Darkvater@5310: 						_sntprintf(buf, lengthof(buf), _T("autosave%d.sav"), (_autosave_ctr - 1) & 3);
Darkvater@5310: 						SubmitFile(wnd, buf);
Darkvater@5310: 					}
Darkvater@5310: 					EnableWindow(GetDlgItem(wnd, 14), FALSE);
Darkvater@5310: 					SetCursor(LoadCursor(NULL, IDC_ARROW));
Darkvater@5310: 					MessageBox(wnd, _T("Crash report submitted. Thank you."), _T("Crash Report"), MB_ICONINFORMATION);
rubidium@6492: 				} break;
Darkvater@5311: #endif /* Disabled crash-submit procedures */
Darkvater@5310: 				case 15: /* Expand window to show crash-message */
Darkvater@5310: 					_expanded ^= 1;
Darkvater@5310: 					SetWndSize(wnd, _expanded);
Darkvater@5310: 					break;
truelight@0: 			}
Darkvater@5310: 			return TRUE;
Darkvater@5310: 		case WM_CLOSE: ExitProcess(0);
truelight@0: 	}
truelight@0: 
truelight@0: 	return FALSE;
truelight@0: }
truelight@0: 
rubidium@6247: static void Handler2()
truelight@0: {
truelight@0: 	ShowCursor(TRUE);
truelight@0: 	ShowWindow(GetActiveWindow(), FALSE);
truelight@0: 	DialogBox(GetModuleHandle(NULL), MAKEINTRESOURCE(100), NULL, CrashDialogFunc);
truelight@0: }
truelight@0: 
rubidium@6247: extern bool CloseConsoleLogIfActive();
darkvater@1023: 
smatz@9457: static HANDLE _file_crash_log;
smatz@9457: 
smatz@9457: static void GamelogPrintCrashLogProc(const char *s)
smatz@9457: {
smatz@9457: 	DWORD num_written;
rubidium@9552: 	WriteFile(_file_crash_log, s, (DWORD)strlen(s), &num_written, NULL);
rubidium@9552: 	WriteFile(_file_crash_log, "\r\n", (DWORD)strlen("\r\n"), &num_written, NULL);
smatz@9457: }
smatz@9457: 
rubidium@10301: /** Amount of output for the execption handler. */
rubidium@10301: static const int EXCEPTION_OUTPUT_SIZE = 8192;
rubidium@10301: 
truelight@0: static LONG WINAPI ExceptionHandler(EXCEPTION_POINTERS *ep)
truelight@0: {
truelight@0: 	char *output;
Darkvater@5168: 	static bool had_exception = false;
truelight@0: 
tron@1468: 	if (had_exception) ExitProcess(0);
truelight@0: 	had_exception = true;
truelight@193: 
truelight@0: 	_ident = GetTickCount(); // something pretty unique
truelight@0: 
smatz@9488: 	MakeCRCTable(AllocaM(uint32, 256));
rubidium@10301: 	_crash_msg = output = (char*)LocalAlloc(LMEM_FIXED, EXCEPTION_OUTPUT_SIZE);
rubidium@10301: 	const char *last = output + EXCEPTION_OUTPUT_SIZE - 1;
truelight@0: 
truelight@0: 	{
truelight@0: 		SYSTEMTIME time;
truelight@0: 		GetLocalTime(&time);
rubidium@10301: 		output += seprintf(output, last,
truelight@0: 			"*** OpenTTD Crash Report ***\r\n"
truelight@0: 			"Date: %d-%.2d-%.2d %.2d:%.2d:%.2d\r\n"
Darkvater@4236: 			"Build: %s built on " __DATE__ " " __TIME__ "\r\n",
truelight@0: 			time.wYear,
truelight@0: 			time.wMonth,
truelight@0: 			time.wDay,
truelight@0: 			time.wHour,
truelight@0: 			time.wMinute,
truelight@0: 			time.wSecond,
Darkvater@3204: 			_openttd_revision
truelight@0: 		);
truelight@0: 	}
truelight@0: 
tron@1468: 	if (_exception_string)
rubidium@10301: 		output += seprintf(output, last, "Reason: %s\r\n", _exception_string);
truelight@0: 
rubidium@10301: 	output += seprintf(output, last, "Language: %s\r\n", _dynlang.curr_file);
glx@9638: 
Darkvater@2482: #ifdef _M_AMD64
rubidium@10301: 	output += seprintf(output, last, "Exception %.8X at %.16IX\r\n"
Darkvater@2482: 		"Registers:\r\n"
Darkvater@2482: 		"RAX: %.16llX RBX: %.16llX RCX: %.16llX RDX: %.16llX\r\n"
Darkvater@2482: 		"RSI: %.16llX RDI: %.16llX RBP: %.16llX RSP: %.16llX\r\n"
Darkvater@2482: 		"R8:  %.16llX R9:  %.16llX R10: %.16llX R11: %.16llX\r\n"
Darkvater@2482: 		"R12: %.16llX R13: %.16llX R14: %.16llX R15: %.16llX\r\n"
Darkvater@2482: 		"RIP: %.16llX EFLAGS: %.8X\r\n"
Darkvater@2482: 		"\r\nBytes at CS:RIP:\r\n",
Darkvater@2482: 		ep->ExceptionRecord->ExceptionCode,
Darkvater@2482: 		ep->ExceptionRecord->ExceptionAddress,
Darkvater@2482: 		ep->ContextRecord->Rax,
Darkvater@2482: 		ep->ContextRecord->Rbx,
Darkvater@2482: 		ep->ContextRecord->Rcx,
Darkvater@2482: 		ep->ContextRecord->Rdx,
Darkvater@2482: 		ep->ContextRecord->Rsi,
Darkvater@2482: 		ep->ContextRecord->Rdi,
Darkvater@2482: 		ep->ContextRecord->Rbp,
Darkvater@2482: 		ep->ContextRecord->Rsp,
Darkvater@2482: 		ep->ContextRecord->R8,
Darkvater@2482: 		ep->ContextRecord->R9,
Darkvater@2482: 		ep->ContextRecord->R10,
Darkvater@2482: 		ep->ContextRecord->R11,
Darkvater@2482: 		ep->ContextRecord->R12,
Darkvater@2482: 		ep->ContextRecord->R13,
Darkvater@2482: 		ep->ContextRecord->R14,
Darkvater@2482: 		ep->ContextRecord->R15,
Darkvater@2482: 		ep->ContextRecord->Rip,
Darkvater@2482: 		ep->ContextRecord->EFlags
Darkvater@2482: 	);
Darkvater@2482: #else
rubidium@10301: 	output += seprintf(output, last, "Exception %.8X at %.8p\r\n"
truelight@0: 		"Registers:\r\n"
truelight@0: 		" EAX: %.8X EBX: %.8X ECX: %.8X EDX: %.8X\r\n"
truelight@0: 		" ESI: %.8X EDI: %.8X EBP: %.8X ESP: %.8X\r\n"
truelight@0: 		" EIP: %.8X EFLAGS: %.8X\r\n"
truelight@0: 		"\r\nBytes at CS:EIP:\r\n",
truelight@0: 		ep->ExceptionRecord->ExceptionCode,
truelight@0: 		ep->ExceptionRecord->ExceptionAddress,
truelight@0: 		ep->ContextRecord->Eax,
truelight@0: 		ep->ContextRecord->Ebx,
truelight@0: 		ep->ContextRecord->Ecx,
truelight@0: 		ep->ContextRecord->Edx,
truelight@0: 		ep->ContextRecord->Esi,
truelight@0: 		ep->ContextRecord->Edi,
truelight@0: 		ep->ContextRecord->Ebp,
truelight@0: 		ep->ContextRecord->Esp,
truelight@0: 		ep->ContextRecord->Eip,
truelight@0: 		ep->ContextRecord->EFlags
truelight@0: 	);
Darkvater@2482: #endif
truelight@0: 
truelight@0: 	{
Darkvater@2482: #ifdef _M_AMD64
Darkvater@2482: 		byte *b = (byte*)ep->ContextRecord->Rip;
Darkvater@2482: #else
truelight@0: 		byte *b = (byte*)ep->ContextRecord->Eip;
Darkvater@2482: #endif
truelight@0: 		int i;
tron@1468: 		for (i = 0; i != 24; i++) {
truelight@0: 			if (IsBadReadPtr(b, 1)) {
rubidium@10301: 				output += seprintf(output, last, " ??"); // OCR: WAS: , 0);
truelight@0: 			} else {
rubidium@10301: 				output += seprintf(output, last, " %.2X", *b);
truelight@0: 			}
truelight@0: 			b++;
truelight@0: 		}
rubidium@10301: 		output += seprintf(output, last,
truelight@0: 			"\r\n"
truelight@0: 			"\r\nStack trace: \r\n"
truelight@0: 		);
truelight@0: 	}
truelight@0: 
truelight@0: 	{
rubidium@6491: 		int i, j;
Darkvater@2482: #ifdef _M_AMD64
Darkvater@2482: 		uint32 *b = (uint32*)ep->ContextRecord->Rsp;
Darkvater@2482: #else
truelight@0: 		uint32 *b = (uint32*)ep->ContextRecord->Esp;
Darkvater@2482: #endif
tron@1468: 		for (j = 0; j != 24; j++) {
tron@1468: 			for (i = 0; i != 8; i++) {
rubidium@6491: 				if (IsBadReadPtr(b, sizeof(uint32))) {
rubidium@10301: 					output += seprintf(output, last, " ????????"); //OCR: WAS - , 0);
truelight@0: 				} else {
rubidium@10301: 					output += seprintf(output, last, " %.8X", *b);
truelight@0: 				}
truelight@0: 				b++;
truelight@0: 			}
rubidium@10301: 			output += seprintf(output, last, "\r\n");
truelight@0: 		}
truelight@0: 	}
truelight@0: 
rubidium@10301: 	output += seprintf(output, last, "\r\nModule information:\r\n");
rubidium@10301: 	output = PrintModuleList(output, last);
truelight@0: 
truelight@0: 	{
rubidium@10186: 		_OSVERSIONINFOA os;
truelight@0: 		os.dwOSVersionInfoSize = sizeof(os);
rubidium@10186: 		GetVersionExA(&os);
rubidium@10301: 		output += seprintf(output, last, "\r\nSystem information:\r\n"
smatz@9457: 			" Windows version %d.%d %d %s\r\n\r\n",
tron@1468: 			os.dwMajorVersion, os.dwMinorVersion, os.dwBuildNumber, os.szCSDVersion);
truelight@0: 	}
truelight@0: 
smatz@9457: 	_file_crash_log = CreateFile(_T("crash.log"), GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, 0);
smatz@9457: 
smatz@9457: 	if (_file_crash_log != INVALID_HANDLE_VALUE) {
truelight@0: 		DWORD num_written;
smatz@9457: 		WriteFile(_file_crash_log, _crash_msg, output - _crash_msg, &num_written, NULL);
truelight@0: 	}
truelight@0: 
glx@7457: #if !defined(_DEBUG)
glx@7457: 	HMODULE dbghelp = LoadLibrary(_T("dbghelp.dll"));
glx@7457: 	if (dbghelp != NULL) {
glx@7457: 		typedef BOOL (WINAPI *MiniDumpWriteDump_t)(HANDLE, DWORD, HANDLE,
glx@7457: 				MINIDUMP_TYPE,
glx@7457: 				CONST PMINIDUMP_EXCEPTION_INFORMATION,
glx@7457: 				CONST PMINIDUMP_USER_STREAM_INFORMATION,
glx@7457: 				CONST PMINIDUMP_CALLBACK_INFORMATION);
glx@7457: 		MiniDumpWriteDump_t funcMiniDumpWriteDump = (MiniDumpWriteDump_t)GetProcAddress(dbghelp, "MiniDumpWriteDump");
glx@7457: 		if (funcMiniDumpWriteDump != NULL) {
glx@7457: 			HANDLE file  = CreateFile(_T("crash.dmp"), GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, 0);
glx@7457: 			HANDLE proc  = GetCurrentProcess();
glx@7457: 			DWORD procid = GetCurrentProcessId();
glx@7457: 			MINIDUMP_EXCEPTION_INFORMATION mdei;
glx@7457: 			MINIDUMP_USER_STREAM userstream;
glx@7457: 			MINIDUMP_USER_STREAM_INFORMATION musi;
glx@7457: 			char msg[] = "****** Built on " __DATE__ " " __TIME__ ". ******";
glx@7457: 
glx@7457: 			userstream.Type        = LastReservedStream + 1;
glx@7457: 			userstream.Buffer      = msg;
glx@7457: 			userstream.BufferSize  = sizeof(msg);
glx@7457: 
glx@7457: 			musi.UserStreamCount   = 1;
glx@7457: 			musi.UserStreamArray   = &userstream;
glx@7457: 
glx@7457: 			mdei.ThreadId = GetCurrentThreadId();
glx@7457: 			mdei.ExceptionPointers  = ep;
glx@7457: 			mdei.ClientPointers     = false;
glx@7457: 
glx@7457: 			funcMiniDumpWriteDump(proc, procid, file, MiniDumpWithDataSegs, &mdei, &musi, NULL);
glx@7457: 		}
glx@7457: 		FreeLibrary(dbghelp);
glx@7457: 	}
glx@7457: #endif
glx@7457: 
smatz@9457: 	if (_file_crash_log != INVALID_HANDLE_VALUE) {
smatz@9457: 		GamelogPrint(&GamelogPrintCrashLogProc);
smatz@9457: 		CloseHandle(_file_crash_log);
smatz@9457: 	}
smatz@9457: 
darkvater@1023: 	/* Close any possible log files */
darkvater@1023: 	CloseConsoleLogIfActive();
darkvater@1023: 
truelight@0: 	if (_safe_esp) {
Darkvater@2482: #ifdef _M_AMD64
Darkvater@2482: 		ep->ContextRecord->Rip = (DWORD64)Handler2;
Darkvater@2482: 		ep->ContextRecord->Rsp = (DWORD64)_safe_esp;
Darkvater@2482: #else
truelight@0: 		ep->ContextRecord->Eip = (DWORD)Handler2;
truelight@0: 		ep->ContextRecord->Esp = (DWORD)_safe_esp;
Darkvater@2482: #endif
truelight@0: 		return EXCEPTION_CONTINUE_EXECUTION;
truelight@0: 	}
darkvater@1023: 
darkvater@1023: 
darkvater@1023: 	return EXCEPTION_EXECUTE_HANDLER;
truelight@0: }
truelight@0: 
KUDr@6171: #ifdef _M_AMD64
smatz@10017: extern "C" void *_get_safe_esp();
KUDr@6171: #endif
KUDr@6171: 
rubidium@6247: static void Win32InitializeExceptions()
truelight@0: {
Darkvater@2482: #ifdef _M_AMD64
smatz@10017: 	_safe_esp = _get_safe_esp();
Darkvater@2482: #else
truelight@0: 	_asm {
tron@1468: 		mov _safe_esp, esp
truelight@0: 	}
Darkvater@2482: #endif
truelight@193: 
truelight@0: 	SetUnhandledExceptionFilter(ExceptionHandler);
truelight@0: }
Darkvater@3341: #endif /* _MSC_VER */
truelight@0: 
Darkvater@4218: /* Code below for windows version of opendir/readdir/closedir copied and
Darkvater@4218:  * modified from Jan Wassenberg's GPL implementation posted over at
Darkvater@4218:  * http://www.gamedev.net/community/forums/topic.asp?topic_id=364584&whichpage=1&#2398903 */
Darkvater@4218: 
Darkvater@4218: /* suballocator - satisfies most requests with a reusable static instance.
Darkvater@4218:  * this avoids hundreds of alloc/free which would fragment the heap.
Darkvater@5891:  * To guarantee concurrency, we fall back to malloc if the instance is
Darkvater@4218:  * already in use (it's important to avoid suprises since this is such a
Darkvater@4218:  * low-level routine). */
Darkvater@4218: static DIR _global_dir;
Darkvater@5891: static LONG _global_dir_is_in_use = false;
Darkvater@4218: 
rubidium@6247: static inline DIR *dir_calloc()
Darkvater@4218: {
Darkvater@4218: 	DIR *d;
Darkvater@4218: 
Darkvater@5891: 	if (InterlockedExchange(&_global_dir_is_in_use, true) == (LONG)true) {
KUDr@5609: 		d = CallocT<DIR>(1);
Darkvater@4218: 	} else {
Darkvater@4218: 		d = &_global_dir;
Darkvater@4224: 		memset(d, 0, sizeof(*d));
Darkvater@4218: 	}
Darkvater@4218: 	return d;
Darkvater@4218: }
Darkvater@4218: 
Darkvater@4218: static inline void dir_free(DIR *d)
Darkvater@4218: {
Darkvater@4218: 	if (d == &_global_dir) {
Darkvater@5891: 		_global_dir_is_in_use = (LONG)false;
Darkvater@4218: 	} else {
Darkvater@4218: 		free(d);
Darkvater@4218: 	}
Darkvater@4218: }
Darkvater@4218: 
Darkvater@6251: DIR *opendir(const TCHAR *path)
Darkvater@4218: {
Darkvater@4218: 	DIR *d;
Darkvater@4218: 	UINT sem = SetErrorMode(SEM_FAILCRITICALERRORS); // disable 'no-disk' message box
Darkvater@6251: 	DWORD fa = GetFileAttributes(path);
Darkvater@4218: 
Darkvater@4224: 	if ((fa != INVALID_FILE_ATTRIBUTES) && (fa & FILE_ATTRIBUTE_DIRECTORY)) {
Darkvater@4224: 		d = dir_calloc();
Darkvater@4224: 		if (d != NULL) {
Darkvater@6251: 			TCHAR search_path[MAX_PATH];
Darkvater@6251: 			bool slash = path[_tcslen(path) - 1] == '\\';
Darkvater@6165: 
Darkvater@6165: 			/* build search path for FindFirstFile, try not to append additional slashes
Darkvater@6165: 			 * as it throws Win9x off its groove for root directories */
Darkvater@6251: 			_sntprintf(search_path, lengthof(search_path), _T("%s%s*"), path, slash ? _T("") : _T("\\"));
Darkvater@6089: 			*lastof(search_path) = '\0';
Darkvater@6251: 			d->hFind = FindFirstFile(search_path, &d->fd);
Darkvater@4224: 
Darkvater@4224: 			if (d->hFind != INVALID_HANDLE_VALUE ||
Darkvater@4224: 					GetLastError() == ERROR_NO_MORE_FILES) { // the directory is empty
Darkvater@4224: 				d->ent.dir = d;
Darkvater@4224: 				d->at_first_entry = true;
Darkvater@4224: 			} else {
Darkvater@4224: 				dir_free(d);
Darkvater@4224: 				d = NULL;
Darkvater@4224: 			}
Darkvater@4224: 		} else {
Darkvater@4224: 			errno = ENOMEM;
Darkvater@4224: 		}
Darkvater@4224: 	} else {
Darkvater@4224: 		/* path not found or not a directory */
Darkvater@4224: 		d = NULL;
Darkvater@4218: 		errno = ENOENT;
Darkvater@4218: 	}
Darkvater@4218: 
Darkvater@4218: 	SetErrorMode(sem); // restore previous setting
Darkvater@4218: 	return d;
Darkvater@4218: }
Darkvater@4218: 
Darkvater@4218: struct dirent *readdir(DIR *d)
Darkvater@4218: {
Darkvater@4218: 	DWORD prev_err = GetLastError(); // avoid polluting last error
Darkvater@4218: 
Darkvater@4218: 	if (d->at_first_entry) {
Darkvater@4218: 		/* the directory was empty when opened */
Darkvater@4218: 		if (d->hFind == INVALID_HANDLE_VALUE) return NULL;
Darkvater@4218: 		d->at_first_entry = false;
Darkvater@6251: 	} else if (!FindNextFile(d->hFind, &d->fd)) { // determine cause and bail
Darkvater@4218: 		if (GetLastError() == ERROR_NO_MORE_FILES) SetLastError(prev_err);
Darkvater@4218: 		return NULL;
Darkvater@4218: 	}
Darkvater@4218: 
Darkvater@4218: 	/* This entry has passed all checks; return information about it.
Darkvater@4218: 	 * (note: d_name is a pointer; see struct dirent definition) */
Darkvater@4218: 	d->ent.d_name = d->fd.cFileName;
Darkvater@4218: 	return &d->ent;
Darkvater@4218: }
Darkvater@4218: 
Darkvater@4218: int closedir(DIR *d)
Darkvater@4218: {
Darkvater@4218: 	FindClose(d->hFind);
Darkvater@4218: 	dir_free(d);
Darkvater@4218: 	return 0;
Darkvater@4218: }
Darkvater@4218: 
Darkvater@4221: bool FiosIsRoot(const char *file)
truelight@0: {
Darkvater@4221: 	return file[3] == '\0'; // C:\...
truelight@0: }
truelight@0: 
rubidium@6247: void FiosGetDrives()
truelight@0: {
truelight@7408: #if defined(WINCE)
truelight@7408: 	/* WinCE only knows one drive: / */
glx@9443: 	FiosItem *fios = _fios_items.Append();
truelight@7408: 	fios->type = FIOS_TYPE_DRIVE;
truelight@7408: 	fios->mtime = 0;
truelight@7408: 	snprintf(fios->name, lengthof(fios->name), PATHSEP "");
skidd13@10310: 	strecpy(fios->title, fios->name, lastof(fios->title));
truelight@7408: #else
Darkvater@5168: 	TCHAR drives[256];
Darkvater@5168: 	const TCHAR *s;
truelight@0: 
rubidium@10186: 	GetLogicalDriveStrings(lengthof(drives), drives);
Darkvater@4221: 	for (s = drives; *s != '\0';) {
glx@9443: 		FiosItem *fios = _fios_items.Append();
Darkvater@4221: 		fios->type = FIOS_TYPE_DRIVE;
Darkvater@4221: 		fios->mtime = 0;
Darkvater@5168: 		snprintf(fios->name, lengthof(fios->name),  "%c:", s[0] & 0xFF);
skidd13@10310: 		strecpy(fios->title, fios->name, lastof(fios->title));
glx@9215: 		while (*s++ != '\0') { /* Nothing */ }
truelight@0: 	}
truelight@7408: #endif
truelight@0: }
truelight@0: 
Darkvater@4221: bool FiosIsValidFile(const char *path, const struct dirent *ent, struct stat *sb)
truelight@0: {
belugas@6432: 	/* hectonanoseconds between Windows and POSIX epoch */
Darkvater@4247: 	static const int64 posix_epoch_hns = 0x019DB1DED53E8000LL;
Darkvater@6251: 	const WIN32_FIND_DATA *fd = &ent->dir->fd;
truelight@0: 
Darkvater@4224: 	sb->st_size  = ((uint64) fd->nFileSizeHigh << 32) + fd->nFileSizeLow;
Darkvater@4245: 	/* UTC FILETIME to seconds-since-1970 UTC
Darkvater@4245: 	 * we just have to subtract POSIX epoch and scale down to units of seconds.
Darkvater@4245: 	 * http://www.gamedev.net/community/forums/topic.asp?topic_id=294070&whichpage=1&#1860504
Darkvater@4245: 	 * XXX - not entirely correct, since filetimes on FAT aren't UTC but local,
Darkvater@4245: 	 * this won't entirely be correct, but we use the time only for comparsion. */
Darkvater@4245: 	sb->st_mtime = (time_t)((*(uint64*)&fd->ftLastWriteTime - posix_epoch_hns) / 1E7);
Darkvater@4221: 	sb->st_mode  = (fd->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)? S_IFDIR : S_IFREG;
Darkvater@4224: 
Darkvater@4221: 	return true;
truelight@0: }
truelight@0: 
rubidium@6240: bool FiosIsHiddenFile(const struct dirent *ent)
rubidium@6240: {
rubidium@6240: 	return (ent->dir->fd.dwFileAttributes & (FILE_ATTRIBUTE_HIDDEN | FILE_ATTRIBUTE_SYSTEM)) != 0;
rubidium@6240: }
rubidium@6240: 
Darkvater@4222: bool FiosGetDiskFreeSpace(const char *path, uint32 *tot)
truelight@0: {
darkvater@1596: 	UINT sem = SetErrorMode(SEM_FAILCRITICALERRORS);  // disable 'no-disk' message box
Darkvater@4222: 	bool retval = false;
Darkvater@5168: 	TCHAR root[4];
truelight@0: 	DWORD spc, bps, nfc, tnc;
darkvater@1596: 
Darkvater@5168: 	_sntprintf(root, lengthof(root), _T("%c:") _T(PATHSEP), path[0]);
darkvater@1596: 	if (tot != NULL && GetDiskFreeSpace(root, &spc, &bps, &nfc, &tnc)) {
darkvater@1596: 		*tot = ((spc * bps) * (uint64)nfc) >> 20;
Darkvater@4222: 		retval = true;
tron@4077: 	}
darkvater@1596: 
darkvater@1596: 	SetErrorMode(sem); // reset previous setting
Darkvater@4222: 	return retval;
truelight@0: }
truelight@0: 
truelight@0: static int ParseCommandLine(char *line, char **argv, int max_argc)
truelight@0: {
truelight@0: 	int n = 0;
truelight@0: 
truelight@0: 	do {
belugas@6432: 		/* skip whitespace */
Darkvater@5310: 		while (*line == ' ' || *line == '\t') line++;
truelight@0: 
belugas@6432: 		/* end? */
Darkvater@5310: 		if (*line == '\0') break;
truelight@193: 
belugas@6432: 		/* special handling when quoted */
truelight@0: 		if (*line == '"') {
truelight@0: 			argv[n++] = ++line;
truelight@0: 			while (*line != '"') {
tron@1468: 				if (*line == '\0') return n;
truelight@0: 				line++;
truelight@0: 			}
truelight@0: 		} else {
truelight@0: 			argv[n++] = line;
truelight@0: 			while (*line != ' ' && *line != '\t') {
tron@1468: 				if (*line == '\0') return n;
truelight@0: 				line++;
truelight@0: 			}
truelight@0: 		}
tron@1468: 		*line++ = '\0';
truelight@0: 	} while (n != max_argc);
truelight@0: 
truelight@0: 	return n;
truelight@0: }
truelight@0: 
rubidium@6247: void CreateConsole()
truelight@0: {
truelight@7408: #if defined(WINCE)
truelight@7408: 	/* WinCE doesn't support console stuff */
truelight@7408: #else
truelight@0: 	HANDLE hand;
truelight@0: 	CONSOLE_SCREEN_BUFFER_INFO coninfo;
truelight@0: 
truelight@0: 	if (_has_console) return;
truelight@0: 	_has_console = true;
truelight@0: 
Darkvater@4572: 	AllocConsole();
truelight@193: 
truelight@0: 	hand = GetStdHandle(STD_OUTPUT_HANDLE);
truelight@0: 	GetConsoleScreenBufferInfo(hand, &coninfo);
truelight@0: 	coninfo.dwSize.Y = 500;
truelight@0: 	SetConsoleScreenBufferSize(hand, coninfo.dwSize);
truelight@193: 
belugas@6432: 	/* redirect unbuffered STDIN, STDOUT, STDERR to the console */
tron@2172: #if !defined(__CYGWIN__)
Darkvater@2482: 	*stdout = *_fdopen( _open_osfhandle((intptr_t)hand, _O_TEXT), "w" );
Darkvater@2482: 	*stdin = *_fdopen(_open_osfhandle((intptr_t)GetStdHandle(STD_INPUT_HANDLE), _O_TEXT), "r" );
Darkvater@2482: 	*stderr = *_fdopen(_open_osfhandle((intptr_t)GetStdHandle(STD_ERROR_HANDLE), _O_TEXT), "w" );
truelight@0: #else
belugas@6432: 	/* open_osfhandle is not in cygwin */
truelight@0: 	*stdout = *fdopen(1, "w" );
truelight@543: 	*stdin = *fdopen(0, "r" );
truelight@193: 	*stderr = *fdopen(2, "w" );
truelight@0: #endif
truelight@193: 
tron@1468: 	setvbuf(stdin, NULL, _IONBF, 0);
tron@1468: 	setvbuf(stdout, NULL, _IONBF, 0);
tron@1468: 	setvbuf(stderr, NULL, _IONBF, 0);
truelight@7408: #endif
truelight@0: }
truelight@0: 
truelight@0: void ShowInfo(const char *str)
truelight@0: {
tron@4077: 	if (_has_console) {
Darkvater@5674: 		fprintf(stderr, "%s\n", str);
tron@4077: 	} else {
truelight@0: 		bool old;
Darkvater@5722: #if defined(UNICODE)
Darkvater@5722: 			/* We need to put the text in a seperate buffer because the default
Darkvater@5722: 			 * buffer in MB_TO_WIDE might not be large enough (512 chars) */
Darkvater@5722: 			wchar_t help_msgW[4096];
Darkvater@5722: #endif
truelight@0: 		ReleaseCapture();
truelight@0: 		_left_button_clicked =_left_button_down = false;
truelight@193: 
truelight@0: 		old = MyShowCursor(true);
Darkvater@5722: 		if (MessageBox(GetActiveWindow(), MB_TO_WIDE_BUFFER(str, help_msgW, lengthof(help_msgW)), _T("OpenTTD"), MB_ICONINFORMATION | MB_OKCANCEL) == IDCANCEL) {
truelight@0: 			CreateConsole();
truelight@0: 		}
truelight@0: 		MyShowCursor(old);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@7408: #if defined(WINCE)
truelight@7408: int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPTSTR lpCmdLine, int nCmdShow)
truelight@7408: #else
Darkvater@6251: int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
truelight@7408: #endif
truelight@0: {
truelight@0: 	int argc;
truelight@0: 	char *argv[64]; // max 64 command line arguments
Darkvater@5312: 	char *cmdline;
truelight@0: 
Darkvater@6276: #if !defined(UNICODE)
Darkvater@6276: 	_codepage = GetACP(); // get system codepage as some kind of a default
Darkvater@6276: #endif /* UNICODE */
Darkvater@6276: 
Darkvater@5168: #if defined(UNICODE)
truelight@7408: 
truelight@7408: #if !defined(WINCE)
glx@6614: 	/* Check if a win9x user started the win32 version */
glx@9470: 	if (HasBit(GetVersion(), 31)) usererror("This version of OpenTTD doesn't run on windows 95/98/ME.\nPlease download the win9x binary and try again.");
truelight@7408: #endif
glx@6614: 
Darkvater@5312: 	/* For UNICODE we need to convert the commandline to char* _AND_
Darkvater@5312: 	 * save it because argv[] points into this buffer and thus needs to
Darkvater@5312: 	 * be available between subsequent calls to FS2OTTD() */
Darkvater@5312: 	char cmdlinebuf[MAX_PATH];
Darkvater@6276: #endif /* UNICODE */
Darkvater@5168: 
Darkvater@5312: 	cmdline = WIDE_TO_MB_BUFFER(GetCommandLine(), cmdlinebuf, lengthof(cmdlinebuf));
Darkvater@5312: 
truelight@0: #if defined(_DEBUG)
truelight@0: 	CreateConsole();
truelight@0: #endif
truelight@0: 
truelight@7408: #if !defined(WINCE)
Darkvater@2428: 	_set_error_mode(_OUT_TO_MSGBOX); // force assertion output to messagebox
truelight@7408: #endif
truelight@0: 
Darkvater@5310: 	/* setup random seed to something quite random */
skidd13@7935: 	SetRandomSeed(GetTickCount());
truelight@0: 
Darkvater@5168: 	argc = ParseCommandLine(cmdline, argv, lengthof(argv));
truelight@0: 
truelight@0: #if defined(WIN32_EXCEPTION_TRACKER)
Darkvater@5168: 	Win32InitializeExceptions();
truelight@0: #endif
truelight@0: 
truelight@0: #if defined(WIN32_EXCEPTION_TRACKER_DEBUG)
truelight@0: 	_try {
Darkvater@5168: 		LONG WINAPI ExceptionHandler(EXCEPTION_POINTERS *ep);
truelight@0: #endif
truelight@0: 		ttd_main(argc, argv);
truelight@0: 
truelight@0: #if defined(WIN32_EXCEPTION_TRACKER_DEBUG)
truelight@0: 	} _except (ExceptionHandler(_exception_info())) {}
truelight@0: #endif
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@5758: #if defined(WINCE)
truelight@5758: void GetCurrentDirectoryW(int length, wchar_t *path)
truelight@5758: {
truelight@5758: 	/* Get the name of this module */
truelight@5758: 	GetModuleFileName(NULL, path, length);
truelight@5758: 
truelight@5758: 	/* Remove the executable name, this we call CurrentDir */
Darkvater@6124: 	wchar_t *pDest = wcsrchr(path, '\\');
truelight@5758: 	if (pDest != NULL) {
truelight@5758: 		int result = pDest - path + 1;
truelight@5758: 		path[result] = '\0';
truelight@5758: 	}
truelight@5758: }
truelight@5758: #endif
truelight@5758: 
rubidium@6834: char *getcwd(char *buf, size_t size)
truelight@0: {
truelight@7408: #if defined(WINCE)
rubidium@8970: 	TCHAR path[MAX_PATH];
truelight@7408: 	GetModuleFileName(NULL, path, MAX_PATH);
truelight@7408: 	convert_from_fs(path, buf, size);
truelight@7408: 	/* GetModuleFileName returns dir with file, so remove everything behind latest '\\' */
truelight@7408: 	char *p = strrchr(buf, '\\');
truelight@7408: 	if (p != NULL) *p = '\0';
truelight@7408: #elif defined(UNICODE)
Darkvater@6251: 	TCHAR path[MAX_PATH];
Darkvater@6251: 	GetCurrentDirectory(MAX_PATH - 1, path);
rubidium@6834: 	convert_from_fs(path, buf, size);
Darkvater@6251: #else
rubidium@6834: 	GetCurrentDirectory(size, buf);
rubidium@6834: #endif
rubidium@6834: 	return buf;
rubidium@6834: }
rubidium@6834: 
rubidium@6834: 
rubidium@6834: void DetermineBasePaths(const char *exe)
rubidium@6834: {
glx@7589: 	extern void ScanForTarFiles();
rubidium@6929: 	char tmp[MAX_PATH];
rubidium@6929: 	TCHAR path[MAX_PATH];
rubidium@6929: #ifdef WITH_PERSONAL_DIR
rubidium@6929: 	SHGetFolderPath(NULL, CSIDL_PERSONAL, NULL, SHGFP_TYPE_CURRENT, path);
rubidium@10201: 	strecpy(tmp, WIDE_TO_MB_BUFFER(path, tmp, lengthof(tmp)), lastof(tmp));
rubidium@6929: 	AppendPathSeparator(tmp, MAX_PATH);
rubidium@6929: 	ttd_strlcat(tmp, PERSONAL_DIR, MAX_PATH);
rubidium@6929: 	AppendPathSeparator(tmp, MAX_PATH);
rubidium@6929: 	_searchpaths[SP_PERSONAL_DIR] = strdup(tmp);
rubidium@6834: 
rubidium@6929: 	SHGetFolderPath(NULL, CSIDL_COMMON_DOCUMENTS, NULL, SHGFP_TYPE_CURRENT, path);
rubidium@10201: 	strecpy(tmp, WIDE_TO_MB_BUFFER(path, tmp, lengthof(tmp)), lastof(tmp));
rubidium@6929: 	AppendPathSeparator(tmp, MAX_PATH);
rubidium@6929: 	ttd_strlcat(tmp, PERSONAL_DIR, MAX_PATH);
rubidium@6929: 	AppendPathSeparator(tmp, MAX_PATH);
rubidium@6929: 	_searchpaths[SP_SHARED_DIR] = strdup(tmp);
rubidium@6834: #else
rubidium@6929: 	_searchpaths[SP_PERSONAL_DIR] = NULL;
rubidium@6929: 	_searchpaths[SP_SHARED_DIR]   = NULL;
Darkvater@6251: #endif
truelight@193: 
rubidium@6929: 	/* Get the path to working directory of OpenTTD */
rubidium@6929: 	getcwd(tmp, lengthof(tmp));
rubidium@6929: 	AppendPathSeparator(tmp, MAX_PATH);
rubidium@6929: 	_searchpaths[SP_WORKING_DIR] = strdup(tmp);
rubidium@6929: 
rubidium@6929: 	if (!GetModuleFileName(NULL, path, lengthof(path))) {
rubidium@6929: 		DEBUG(misc, 0, "GetModuleFileName failed (%d)\n", GetLastError());
rubidium@6929: 		_searchpaths[SP_BINARY_DIR] = NULL;
rubidium@6929: 	} else {
rubidium@6929: 		TCHAR exec_dir[MAX_PATH];
rubidium@6929: 		_tcsncpy(path, MB_TO_WIDE_BUFFER(exe, path, lengthof(path)), lengthof(path));
rubidium@6929: 		if (!GetFullPathName(path, lengthof(exec_dir), exec_dir, NULL)) {
rubidium@6929: 			DEBUG(misc, 0, "GetFullPathName failed (%d)\n", GetLastError());
rubidium@6929: 			_searchpaths[SP_BINARY_DIR] = NULL;
rubidium@6929: 		} else {
rubidium@10201: 			strecpy(tmp, WIDE_TO_MB_BUFFER(exec_dir, tmp, lengthof(tmp)), lastof(tmp));
rubidium@6929: 			char *s = strrchr(tmp, PATHSEPCHAR);
rubidium@6929: 			*(s + 1) = '\0';
rubidium@6929: 			_searchpaths[SP_BINARY_DIR] = strdup(tmp);
rubidium@6929: 		}
rubidium@6929: 	}
rubidium@6929: 
rubidium@6929: 	_searchpaths[SP_INSTALLATION_DIR]       = NULL;
rubidium@6929: 	_searchpaths[SP_APPLICATION_BUNDLE_DIR] = NULL;
glx@7589: 
glx@7589: 	ScanForTarFiles();
truelight@0: }
truelight@0: 
Darkvater@1390: /**
Darkvater@1390:  * Insert a chunk of text from the clipboard onto the textbuffer. Get TEXT clipboard
Darkvater@1390:  * and append this up to the maximum length (either absolute or screenlength). If maxlength
Darkvater@1390:  * is zero, we don't care about the screenlength but only about the physical length of the string
belugas@6443:  * @param tb Textbuf type to be changed
peter1138@7372:  * @return true on successful change of Textbuf, or false otherwise
Darkvater@1390:  */
Darkvater@1390: bool InsertTextBufferClipboard(Textbuf *tb)
Darkvater@1390: {
peter1138@5108: 	HGLOBAL cbuf;
peter1138@5108: 	char utf8_buf[512];
peter1138@5108: 	const char *ptr;
Darkvater@1390: 
peter1138@5108: 	WChar c;
rubidium@9390: 	uint16 width, length;
peter1138@5108: 
peter1138@5108: 	if (IsClipboardFormatAvailable(CF_UNICODETEXT)) {
peter1138@5108: 		OpenClipboard(NULL);
peter1138@5108: 		cbuf = GetClipboardData(CF_UNICODETEXT);
peter1138@5108: 
rubidium@5587: 		ptr = (const char*)GlobalLock(cbuf);
Darkvater@6275: 		const char *ret = convert_from_fs((wchar_t*)ptr, utf8_buf, lengthof(utf8_buf));
peter1138@5108: 		GlobalUnlock(cbuf);
peter1138@5108: 		CloseClipboard();
peter1138@5108: 
Darkvater@5312: 		if (*ret == '\0') return false;
Darkvater@6275: #if !defined(UNICODE)
peter1138@5108: 	} else if (IsClipboardFormatAvailable(CF_TEXT)) {
Darkvater@1390: 		OpenClipboard(NULL);
Darkvater@1390: 		cbuf = GetClipboardData(CF_TEXT);
Darkvater@1390: 
rubidium@5587: 		ptr = (const char*)GlobalLock(cbuf);
skidd13@10310: 		strecpy(utf8_buf, FS2OTTD(ptr), lastof(utf8_buf));
Darkvater@6275: 
Darkvater@1390: 		GlobalUnlock(cbuf);
Darkvater@1390: 		CloseClipboard();
Darkvater@6275: #endif /* UNICODE */
peter1138@5108: 	} else {
peter1138@5108: 		return false;
Darkvater@1390: 	}
peter1138@5108: 
peter1138@5108: 	width = length = 0;
peter1138@5108: 
peter1138@5108: 	for (ptr = utf8_buf; (c = Utf8Consume(&ptr)) != '\0';) {
peter1138@5108: 		if (!IsPrintable(c)) break;
peter1138@5108: 
rubidium@9390: 		byte len = Utf8CharLen(c);
smatz@10280: 		if (tb->size + length + len > tb->maxsize) break;
Darkvater@6195: 
Darkvater@6195: 		byte charwidth = GetCharacterWidth(FS_NORMAL, c);
peter1138@5108: 		if (tb->maxwidth != 0 && width + tb->width + charwidth > tb->maxwidth) break;
peter1138@5108: 
peter1138@5108: 		width += charwidth;
Darkvater@6195: 		length += len;
peter1138@5108: 	}
peter1138@5108: 
peter1138@5108: 	if (length == 0) return false;
peter1138@5108: 
smatz@10280: 	memmove(tb->buf + tb->caretpos + length, tb->buf + tb->caretpos, tb->size - tb->caretpos);
peter1138@5108: 	memcpy(tb->buf + tb->caretpos, utf8_buf, length);
peter1138@5108: 	tb->width += width;
peter1138@5108: 	tb->caretxoffs += width;
peter1138@5108: 
smatz@10280: 	tb->size += length;
peter1138@5108: 	tb->caretpos += length;
smatz@10280: 	assert(tb->size <= tb->maxsize);
smatz@10280: 	tb->buf[tb->size - 1] = '\0'; // terminating zero
peter1138@5108: 
peter1138@5108: 	return true;
Darkvater@1390: }
Darkvater@1885: 
ludde@2073: 
ludde@2073: void CSleep(int milliseconds)
ludde@2073: {
ludde@2073: 	Sleep(milliseconds);
Darkvater@2099: }
ludde@2125: 
ludde@2125: 
belugas@6432: /** Utility function to get the current timestamp in milliseconds
belugas@6432:  * Useful for profiling */
rubidium@6247: int64 GetTS()
ludde@2125: {
ludde@2125: 	static double freq;
ludde@2125: 	__int64 value;
ludde@2125: 	if (!freq) {
ludde@2125: 		QueryPerformanceFrequency((LARGE_INTEGER*)&value);
ludde@2125: 		freq = (double)1000000 / value;
ludde@2125: 	}
ludde@2125: 	QueryPerformanceCounter((LARGE_INTEGER*)&value);
ludde@2125: 	return (__int64)(value * freq);
ludde@2139: }
Darkvater@5167: 
Darkvater@6251: 
Darkvater@6251: /**
Darkvater@6251:  * Convert to OpenTTD's encoding from that of the local environment.
Darkvater@6251:  * When the project is built in UNICODE, the system codepage is irrelevant and
Darkvater@6251:  * the input string is wide. In ANSI mode, the string is in the
Darkvater@6251:  * local codepage which we'll convert to wide-char, and then to UTF-8.
Darkvater@6251:  * OpenTTD internal encoding is UTF8.
Darkvater@6251:  * The returned value's contents can only be guaranteed until the next call to
Darkvater@6251:  * this function. So if the value is needed for anything else, use convert_from_fs
Darkvater@6251:  * @param name pointer to a valid string that will be converted (local, or wide)
Darkvater@6251:  * @return pointer to the converted string; if failed string is of zero-length
Darkvater@6251:  * @see the current code-page comes from video\win32_v.cpp, event-notification
Darkvater@6251:  * WM_INPUTLANGCHANGE */
Darkvater@6251: const char *FS2OTTD(const TCHAR *name)
Darkvater@6251: {
Darkvater@6251: 	static char utf8_buf[512];
Darkvater@6251: #if defined(UNICODE)
Darkvater@6251: 	return convert_from_fs(name, utf8_buf, lengthof(utf8_buf));
Darkvater@6251: #else
Darkvater@6251: 	char *s = utf8_buf;
Darkvater@6251: 
Darkvater@6251: 	for (; *name != '\0'; name++) {
Darkvater@6251: 		wchar_t w;
Darkvater@6251: 		int len = MultiByteToWideChar(_codepage, 0, name, 1, &w, 1);
Darkvater@6251: 		if (len != 1) {
Darkvater@6251: 			DEBUG(misc, 0, "[utf8] M2W error converting '%c'. Errno %d", *name, GetLastError());
Darkvater@6251: 			continue;
Darkvater@6251: 		}
Darkvater@6251: 
Darkvater@6251: 		if (s + Utf8CharLen(w) >= lastof(utf8_buf)) break;
Darkvater@6251: 		s += Utf8Encode(s, w);
Darkvater@6251: 	}
Darkvater@6251: 
Darkvater@6251: 	*s = '\0';
Darkvater@6251: 	return utf8_buf;
Darkvater@6251: #endif /* UNICODE */
Darkvater@6251: }
Darkvater@6251: 
Darkvater@6251: /**
Darkvater@6251:  * Convert from OpenTTD's encoding to that of the local environment.
Darkvater@6251:  * When the project is built in UNICODE the system codepage is irrelevant and
Darkvater@6251:  * the converted string is wide. In ANSI mode, the UTF8 string is converted
Darkvater@6251:  * to multi-byte.
Darkvater@6251:  * OpenTTD internal encoding is UTF8.
Darkvater@6251:  * The returned value's contents can only be guaranteed until the next call to
Darkvater@6251:  * this function. So if the value is needed for anything else, use convert_from_fs
Darkvater@6251:  * @param name pointer to a valid string that will be converted (UTF8)
Darkvater@6251:  * @return pointer to the converted string; if failed string is of zero-length
Darkvater@6251:  * @see the current code-page comes from video\win32_v.cpp, event-notification
Darkvater@6251:  * WM_INPUTLANGCHANGE */
Darkvater@6251: const TCHAR *OTTD2FS(const char *name)
Darkvater@6251: {
Darkvater@6251: 	static TCHAR system_buf[512];
Darkvater@6251: #if defined(UNICODE)
Darkvater@6251: 	return convert_to_fs(name, system_buf, lengthof(system_buf));
Darkvater@6251: #else
Darkvater@6251: 	char *s = system_buf;
Darkvater@6251: 
Darkvater@6251: 	for (WChar c; (c = Utf8Consume(&name)) != '\0';) {
Darkvater@6251: 		if (s >= lastof(system_buf)) break;
Darkvater@6251: 
Darkvater@6251: 		char mb;
Darkvater@6251: 		int len = WideCharToMultiByte(_codepage, 0, (wchar_t*)&c, 1, &mb, 1, NULL, NULL);
Darkvater@6251: 		if (len != 1) {
Darkvater@6251: 			DEBUG(misc, 0, "[utf8] W2M error converting '0x%X'. Errno %d", c, GetLastError());
Darkvater@6251: 			continue;
Darkvater@6251: 		}
Darkvater@6251: 
Darkvater@6251: 		*s++ = mb;
Darkvater@6251: 	}
Darkvater@6251: 
Darkvater@6251: 	*s = '\0';
Darkvater@6251: 	return system_buf;
Darkvater@6251: #endif /* UNICODE */
Darkvater@6251: }
Darkvater@6251: 
Darkvater@6251: 
Darkvater@6251: /** Convert to OpenTTD's encoding from that of the environment in
Darkvater@6251:  * UNICODE. OpenTTD encoding is UTF8, local is wide
Darkvater@6251:  * @param name pointer to a valid string that will be converted
Darkvater@6251:  * @param utf8_buf pointer to a valid buffer that will receive the converted string
Darkvater@6251:  * @param buflen length in characters of the receiving buffer
Darkvater@6251:  * @return pointer to utf8_buf. If conversion fails the string is of zero-length */
Darkvater@6251: char *convert_from_fs(const wchar_t *name, char *utf8_buf, size_t buflen)
Darkvater@6251: {
glx@9156: 	int len = WideCharToMultiByte(CP_UTF8, 0, name, -1, utf8_buf, (int)buflen, NULL, NULL);
Darkvater@6251: 	if (len == 0) {
Darkvater@6251: 		DEBUG(misc, 0, "[utf8] W2M error converting wide-string. Errno %d", GetLastError());
Darkvater@6251: 		utf8_buf[0] = '\0';
Darkvater@6251: 	}
Darkvater@6251: 
Darkvater@6251: 	return utf8_buf;
Darkvater@6251: }
Darkvater@6251: 
Darkvater@6251: 
Darkvater@6251: /** Convert from OpenTTD's encoding to that of the environment in
Darkvater@6251:  * UNICODE. OpenTTD encoding is UTF8, local is wide
Darkvater@5167:  * @param name pointer to a valid string that will be converted
Darkvater@5218:  * @param utf16_buf pointer to a valid wide-char buffer that will receive the
Darkvater@5218:  * converted string
Darkvater@5218:  * @param buflen length in wide characters of the receiving buffer
Darkvater@5218:  * @return pointer to utf16_buf. If conversion fails the string is of zero-length */
Darkvater@5218: wchar_t *convert_to_fs(const char *name, wchar_t *utf16_buf, size_t buflen)
Darkvater@5218: {
glx@9156: 	int len = MultiByteToWideChar(CP_UTF8, 0, name, -1, utf16_buf, (int)buflen);
Darkvater@5218: 	if (len == 0) {
Darkvater@6251: 		DEBUG(misc, 0, "[utf8] M2W error converting '%s'. Errno %d", name, GetLastError());
Darkvater@5218: 		utf16_buf[0] = '\0';
Darkvater@5218: 	}
Darkvater@5218: 
Darkvater@5218: 	return utf16_buf;
Darkvater@5218: }
Darkvater@5218: 
Darkvater@5304: /** Our very own SHGetFolderPath function for support of windows operating
Darkvater@5304:  * systems that don't have this function (eg Win9x, etc.). We try using the
Darkvater@5304:  * native function, and if that doesn't exist we will try a more crude approach
Darkvater@5304:  * of environment variables and hope for the best */
Darkvater@5304: HRESULT OTTDSHGetFolderPath(HWND hwnd, int csidl, HANDLE hToken, DWORD dwFlags, LPTSTR pszPath)
Darkvater@5304: {
Darkvater@5304: 	static HRESULT (WINAPI *SHGetFolderPath)(HWND, int, HANDLE, DWORD, LPTSTR) = NULL;
Darkvater@5304: 	static bool first_time = true;
Darkvater@5304: 
Darkvater@5304: 	/* We only try to load the library one time; if it fails, it fails */
Darkvater@5304: 	if (first_time) {
Darkvater@5304: #if defined(UNICODE)
Darkvater@5304: # define W(x) x "W"
Darkvater@5304: #else
Darkvater@5304: # define W(x) x "A"
Darkvater@5304: #endif
Darkvater@5304: 		if (!LoadLibraryList((Function*)&SHGetFolderPath, "SHFolder.dll\0" W("SHGetFolderPath") "\0\0")) {
Darkvater@5380: 			DEBUG(misc, 0, "Unable to load " W("SHGetFolderPath") "from SHFolder.dll");
Darkvater@5304: 		}
Darkvater@5304: #undef W
Darkvater@5304: 		first_time = false;
Darkvater@5304: 	}
Darkvater@5304: 
Darkvater@5304: 	if (SHGetFolderPath != NULL) return SHGetFolderPath(hwnd, csidl, hToken, dwFlags, pszPath);
Darkvater@5304: 
Darkvater@5304: 	/* SHGetFolderPath doesn't exist, try a more conservative approach,
Darkvater@5304: 	 * eg environment variables. This is only included for legacy modes
Darkvater@5304: 	 * MSDN says: that 'pszPath' is a "Pointer to a null-terminated string of
Darkvater@5304: 	 * length MAX_PATH which will receive the path" so let's assume that
Darkvater@5304: 	 * Windows 95 with Internet Explorer 5.0, Windows 98 with Internet Explorer 5.0,
Darkvater@5304: 	 * Windows 98 Second Edition (SE), Windows NT 4.0 with Internet Explorer 5.0,
Darkvater@5304: 	 * Windows NT 4.0 with Service Pack 4 (SP4) */
Darkvater@5304: 	{
Darkvater@5304: 		DWORD ret;
Darkvater@5304: 		switch (csidl) {
Darkvater@5304: 			case CSIDL_FONTS: /* Get the system font path, eg %WINDIR%\Fonts */
Darkvater@5336: 				ret = GetEnvironmentVariable(_T("WINDIR"), pszPath, MAX_PATH);
Darkvater@5304: 				if (ret == 0) break;
Darkvater@5336: 				_tcsncat(pszPath, _T("\\Fonts"), MAX_PATH);
Darkvater@5304: 
Darkvater@5304: 				return (HRESULT)0;
Darkvater@5304: 				break;
Darkvater@5304: 			/* XXX - other types to go here when needed... */
Darkvater@5304: 		}
Darkvater@5304: 	}
Darkvater@5304: 
Darkvater@5304: 	return E_INVALIDARG;
Darkvater@5304: }
KUDr@7348: 
KUDr@7348: /** Determine the current user's locale. */
KUDr@7348: const char *GetCurrentLocale(const char *)
KUDr@7348: {
KUDr@7350: 	char lang[9], country[9];
KUDr@7348: 	if (GetLocaleInfoA(LOCALE_USER_DEFAULT, LOCALE_SISO639LANGNAME, lang, lengthof(lang)) == 0 ||
KUDr@7348: 	    GetLocaleInfoA(LOCALE_USER_DEFAULT, LOCALE_SISO3166CTRYNAME, country, lengthof(country)) == 0) {
KUDr@7348: 		/* Unable to retrieve the locale. */
KUDr@7348: 		return NULL;
KUDr@7348: 	}
KUDr@7348: 	/* Format it as 'en_us'. */
KUDr@7350: 	static char retbuf[6] = {lang[0], lang[1], '_', country[0], country[1], 0};
KUDr@7348: 	return retbuf;
KUDr@7348: }