WebSVN – Games.Chess Giants – Blame – /util.cpp

Rev	Author	Line No.	Line
1	pmbaty	1	// util.cpp
		2
		3	#include "common.h"
		4
		5
		6	// internal typedefs
		7	typedef struct wsaerror_s
		8	{
		9	int number;
		10	const wchar_t *description;
		11	} wsaerror_t;
		12
		13
		14	const wchar_t GetDirectoryPath (const wchar_t pathname, wchar_t *path)
		15	{
		16	// this function builds a directory path out of a full file pathname
		17
		18	int char_index;
		19	int length;
		20
		21	length = (int) wcslen (pathname); // get length of pathname first
		22	if (length > MAX_PATH - 1)
		23	length = MAX_PATH - 1; // bound it to MAX_PATH characters max
		24
		25	for (char_index = 0; char_index < length; char_index++)
		26	{
		27	path[char_index] = pathname[char_index]; // now copy pathname in the destination string
		28	if (pathname[char_index] == 0)
		29	break; // don't copy beyond the end of source
		30	}
		31	path[length] = 0; // terminate the string
		32
		33	// now scan the destination string starting from the end until a field separator is found
		34	while ((length > 0) && !((path[length] == '\\') \|\| (path[length] == '/')) && (path[length] != ':'))
		35	length--; // go back one character after the other as long as it's not the case
		36
		37	// given the type of field separator we stopped on, keep it or not
		38	if (path[length] == ':')
		39	length++; // if it's a disk letter separator, keep it
		40
		41	path[length] = 0; // terminate the string at this position
		42	return (path); // and return a pointer to it
		43	}
		44
		45
59	pmbaty	46	void CreateOrUpdateApplicationMenu (void)
		47	{
		48	// this function creates or re-creates the main application menu and its accelerator table
		49
		50	HMENU hDropDownMenu;
		51	ACCEL accelerators[] =
		52	{
		53	{FVIRTKEY \| FCONTROL, L'O', MENUID_GAME_LOAD},
		54	{FVIRTKEY \| FCONTROL, L'S', MENUID_GAME_SAVE},
75	pmbaty	55	{FVIRTKEY, VK_PAUSE, MENUID_GAME_PAUSE},
136	pmbaty	56	{FVIRTKEY \| FCONTROL, L'Z', MENUID_MOVE_CANCELLASTMOVE},
59	pmbaty	57	{FVIRTKEY, VK_HOME, MENUID_CHESSBOARD_BEGINNINGOFGAME},
		58	{FVIRTKEY, VK_LEFT, MENUID_CHESSBOARD_PREVIOUSMOVE},
		59	{FVIRTKEY, VK_RIGHT, MENUID_CHESSBOARD_NEXTMOVE},
		60	{FVIRTKEY, VK_END, MENUID_CHESSBOARD_CURRENTSTATEOFGAME},
136	pmbaty	61	{FVIRTKEY \| FCONTROL, L'G', MENUID_MOVE_GOTOMOVE},
59	pmbaty	62	{FVIRTKEY, VK_F1, MENUID_HELP_HELP},
		63	{FVIRTKEY, VK_F2, MENUID_GAME_NEWGAME},
		64	{FVIRTKEY, VK_F3, MENUID_GAME_STATISTICS},
		65	{FVIRTKEY, VK_F4, MENUID_GAME_OPTIONS},
		66	{FVIRTKEY, VK_F5, MENUID_CHESSBOARD_TOPVIEW},
		67	{FVIRTKEY, VK_F6, MENUID_CHESSBOARD_DEFAULTVIEW},
		68	{FVIRTKEY, VK_F7, MENUID_CHESSBOARD_RESETVIEW},
		69	{FVIRTKEY, VK_UP, MENUID_CHESSBOARD_ZOOMIN},
		70	{FVIRTKEY, VK_DOWN, MENUID_CHESSBOARD_ZOOMOUT},
		71	{FVIRTKEY \| FCONTROL, VK_DOWN, MENUID_CHESSBOARD_DISPLAYWINDOWSDESKTOP},
		72	{FVIRTKEY, VK_F8, MENUID_CHESSBOARD_CHANGEAPPEARANCE},
		73	{FVIRTKEY, VK_F9, MENUID_INTERNET_SHOWONLINEPLAYERS},
		74	{FVIRTKEY, VK_F10, MENUID_INTERNET_SHOWSOUGHTGAMES},
		75	};
		76
		77	// if needed, destroy the accelerators table and the application menu object
		78	if (hMainAccelerators)
		79	DestroyAcceleratorTable (hMainAccelerators);
		80	hMainAccelerators = NULL;
		81	if (IsMenu (hMainMenu))
		82	DestroyMenu (hMainMenu);
		83	hMainMenu = NULL;
		84
		85	// now create the menu again
		86	hMainMenu = CreateMenu ();
		87	hDropDownMenu = CreateMenu (); // create the first drop-down item
		88	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_NEWGAME, LOCALIZE (L"Menu_GameNewGame"));
75	pmbaty	89	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_SETUPPOSITION, LOCALIZE (L"Menu_GameSetupPosition"));
59	pmbaty	90	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_LOAD, LOCALIZE (L"Menu_GameLoadGame"));
136	pmbaty	91	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_SAVE, LOCALIZE (L"Menu_GameSaveGame"));
		92	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_SAVEAS, LOCALIZE (L"Menu_GameSaveGameAs"));
		93	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_SAVEPOSITIONAS, LOCALIZE (L"Menu_GameSavePositionAs"));
59	pmbaty	94	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
136	pmbaty	95	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_PAUSE, LOCALIZE (L"Menu_GamePause"));
		96	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_RESIGN, LOCALIZE (L"Menu_GameResign"));
75	pmbaty	97	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
136	pmbaty	98	AppendMenu (hDropDownMenu, MF_STRING \| MF_GRAYED, MENUID_GAME_STATISTICS, LOCALIZE (L"Menu_GameStatistics")); // TODO
59	pmbaty	99	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_OPTIONS, LOCALIZE (L"Menu_GameOptions"));
		100	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
		101	AppendMenu (hDropDownMenu, MF_STRING, MENUID_GAME_QUIT, LOCALIZE (L"Menu_GameQuit"));
		102	AppendMenu (hMainMenu, MF_POPUP, (UINT) hDropDownMenu, LOCALIZE (L"Menu_Game"));
		103	DestroyMenu (hDropDownMenu);
		104	hDropDownMenu = CreateMenu (); // create the second drop-down item
136	pmbaty	105	AppendMenu (hDropDownMenu, MF_STRING, MENUID_MOVE_CANCELLASTMOVE, LOCALIZE (L"Menu_MoveCancelLastMove"));
75	pmbaty	106	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
136	pmbaty	107	AppendMenu (hDropDownMenu, MF_STRING, MENUID_MOVE_SUGGESTMOVE, LOCALIZE (L"Menu_MoveSuggestMove"));
		108	AppendMenu (hDropDownMenu, MF_STRING, MENUID_MOVE_COMMENTMOVE, LOCALIZE (L"Menu_MoveCommentMove"));
		109	AppendMenu (hDropDownMenu, MF_STRING, MENUID_MOVE_GOTOMOVE, LOCALIZE (L"Menu_MoveGoToMove"));
		110	AppendMenu (hMainMenu, MF_POPUP, (UINT) hDropDownMenu, LOCALIZE (L"Menu_Move"));
		111	DestroyMenu (hDropDownMenu);
		112	hDropDownMenu = CreateMenu (); // create the third drop-down item
		113	AppendMenu (hDropDownMenu, MF_STRING, MENUID_CHESSBOARD_RENAMESIDES, LOCALIZE (L"Menu_ChessboardRenameSides"));
		114	AppendMenu (hDropDownMenu, MF_STRING, MENUID_CHESSBOARD_SWAPSIDES, LOCALIZE (L"Menu_ChessboardSwapSides"));
59	pmbaty	115	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
		116	AppendMenu (hDropDownMenu, MF_STRING, MENUID_CHESSBOARD_TOPVIEW, LOCALIZE (L"Menu_ChessboardTopView"));
		117	AppendMenu (hDropDownMenu, MF_STRING, MENUID_CHESSBOARD_DEFAULTVIEW, LOCALIZE (L"Menu_ChessboardDefaultView"));
		118	AppendMenu (hDropDownMenu, MF_STRING, MENUID_CHESSBOARD_RESETVIEW, LOCALIZE (L"Menu_ChessboardResetView"));
		119	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
		120	AppendMenu (hDropDownMenu, MF_STRING, MENUID_CHESSBOARD_CHANGEAPPEARANCE, LOCALIZE (L"Menu_ChessboardChangeAppearance"));
		121	if (options.want_fullscreen)
		122	{
		123	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
		124	AppendMenu (hDropDownMenu, MF_STRING, MENUID_CHESSBOARD_DISPLAYWINDOWSDESKTOP, LOCALIZE (L"Menu_ChessboardDisplayWindowsDesktop"));
		125	}
		126	AppendMenu (hMainMenu, MF_POPUP, (UINT) hDropDownMenu, LOCALIZE (L"Menu_Chessboard"));
		127	DestroyMenu (hDropDownMenu);
136	pmbaty	128	hDropDownMenu = CreateMenu (); // create the fourth drop-down item
		129	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_SHOWONLINEPLAYERS, LOCALIZE (L"Menu_InternetShowOnlinePlayers"));
		130	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_SHOWSOUGHTGAMES, LOCALIZE (L"Menu_InternetShowSoughtGames"));
		131	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_SEEKGAME, LOCALIZE (L"Menu_InternetSeekGame"));
59	pmbaty	132	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
136	pmbaty	133	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_CHATTERCHANNELS, LOCALIZE (L"Menu_InternetChatterChannels"));
		134	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_ENTERCHATTEXT, LOCALIZE (L"Menu_InternetEnterChatText"));
59	pmbaty	135	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
136	pmbaty	136	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_DISPLAYPLAYERCARD, LOCALIZE (L"Menu_InternetDisplayPlayerCard"));
		137	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_DISPLAYYOURCARD, LOCALIZE (L"Menu_InternetDisplayYourCard"));
59	pmbaty	138	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
136	pmbaty	139	AppendMenu (hDropDownMenu, MF_STRING, MENUID_INTERNET_MOTD, LOCALIZE (L"Menu_InternetDisplayMOTD"));
59	pmbaty	140	AppendMenu (hMainMenu, MF_POPUP, (UINT) hDropDownMenu, LOCALIZE (L"Menu_Internet"));
		141	DestroyMenu (hDropDownMenu);
136	pmbaty	142	hDropDownMenu = CreateMenu (); // create the fifth drop-down item
59	pmbaty	143	AppendMenu (hDropDownMenu, MF_STRING, MENUID_HELP_HELP, LOCALIZE (L"Menu_HelpDisplayHelp"));
		144	AppendMenu (hDropDownMenu, MF_STRING, MENUID_HELP_GETCHESSGAMES, LOCALIZE (L"Menu_HelpGetChessGames"));
		145	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
		146	AppendMenu (hDropDownMenu, MF_STRING, MENUID_HELP_ADDMODIFYVISUALTHEMES, LOCALIZE (L"Menu_HelpAddModifyThemes"));
		147	AppendMenu (hDropDownMenu, MF_STRING, MENUID_HELP_ADDMODIFYENGINES, LOCALIZE (L"Menu_HelpAddModifyEngines"));
		148	AppendMenu (hDropDownMenu, MF_STRING, MENUID_HELP_ADDMODIFYTRANSLATIONS, LOCALIZE (L"Menu_HelpAddModifyTranslations"));
		149	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
154	pmbaty	150	AppendMenu (hDropDownMenu, MF_STRING, MENUID_HELP_REPORTAPROBLEM, LOCALIZE (L"Menu_HelpReportAProblem"));
		151	AppendMenu (hDropDownMenu, MF_SEPARATOR, 0, NULL);
59	pmbaty	152	AppendMenu (hDropDownMenu, MF_STRING, MENUID_HELP_ABOUT, LOCALIZE (L"Menu_HelpAbout"));
		153	AppendMenu (hMainMenu, MF_POPUP, (UINT) hDropDownMenu, LOCALIZE (L"Menu_Help"));
		154	DestroyMenu (hDropDownMenu);
		155
		156	// finally, set this menu to be the app's menu
		157	SetMenu (hMainWnd, hMainMenu);
		158
		159	// (re-)create the accelerators
		160	hMainAccelerators = CreateAcceleratorTable (accelerators, sizeof (accelerators) / sizeof (ACCEL));
		161
		162	return; // finished, application menu is (re)created
		163	}
		164
		165
1	pmbaty	166	void CenterWindow (HWND hWnd, HWND hParentWnd)
		167	{
		168	// this function centers the specified window on the specified parent.
		169
		170	RECT rRect;
		171	RECT rParentRect;
		172	int width;
		173	int height;
		174	int parent_width;
		175	int parent_height;
		176	int x;
		177	int y;
		178
		179	// get the current rectangle of the current window
		180	GetWindowRect (hWnd, &rRect);
		181	width = rRect.right - rRect.left;
		182	height = rRect.bottom - rRect.top;
		183
		184	// does this window have a parent AND it is NOT the desktop ?
		185	if (IsWindow (hParentWnd) && (hParentWnd != GetDesktopWindow ()))
		186	{
		187	// get the rectangle of the parent window
		188	GetWindowRect (hParentWnd, &rParentRect);
		189	parent_width = rParentRect.right - rParentRect.left;
		190	parent_height = rParentRect.bottom - rParentRect.top;
		191
		192	// now compute the new X and Y positions so as to have the window centered in its parent
		193	x = rParentRect.left + parent_width / 2 - width / 2;
		194	y = rParentRect.top + parent_height / 2 - height / 2;
		195	}
		196	else
		197	{
		198	// else draw window in the center of the screen
		199	x = GetSystemMetrics (SM_CXSCREEN) / 2 - width / 2;
		200	y = GetSystemMetrics (SM_CYSCREEN) / 2 - height / 2;
		201	}
		202
		203	// now ask to change the position of the window
		204	SetWindowPos (hWnd, NULL, x, y, 0, 0, SWP_NOSIZE \| SWP_NOZORDER);
		205
		206	return; // finished
		207	}
		208
		209
		210	void HintWindow (HWND hWnd)
		211	{
		212	// this function makes a window blink to the foreground for one second, playing a "ding" sound
		213
		214	FLASHWINFO fw;
		215
185	pmbaty	216	Audio_PlaySoundAtCenter (SOUNDTYPE_HINTWINDOW); // play a beep at the center of the board
1	pmbaty	217	SetForegroundWindow (hWnd); // modal dialog windows have priority over all others
		218
		219	fw.cbSize = sizeof (fw);
		220	fw.hwnd = hWnd;
		221	fw.dwFlags = FLASHW_CAPTION;
		222	fw.dwTimeout = 50;
		223	fw.uCount = 3;
		224	FlashWindowEx (&fw); // flash it so the user notices it
		225
		226	return; // finished
		227	}
		228
		229
		230	float ProcessTime (void)
		231	{
		232	// this function returns the time in seconds elapsed since the executable process started.
		233	// The rollover check ensures the program will continue running after clock() will have
		234	// overflown its integer value (it does so every 24 days or so). With this rollover check
		235	// we have a lifetime of more than billion years, w00t!
		236	// thanks to botmeister for the rollover check idea.
		237
		238	static long prev_clock = 0;
		239	static long rollover_count = 0;
		240	long current_clock;
		241	double time_in_seconds;
		242
		243	current_clock = clock (); // get system clock
		244
		245	// has the clock overflown ?
		246	if (current_clock < prev_clock)
		247	rollover_count++; // omg, it has, we're running for more than 24 days!
		248
		249	// now convert the time to seconds since last rollover
		250	time_in_seconds = (double) current_clock / CLOCKS_PER_SEC; // convert clock to seconds
		251
		252	prev_clock = current_clock; // keep track of current time for future calls of this function
		253
		254	// and return the time in seconds, adding the overflow differences if necessary.
		255	// HACK: grant the timer to start at 60 seconds to ensure all timer checks work well
		256	return ((float) (60.0f + time_in_seconds + (((double) LONG_MAX + 1.0) / CLOCKS_PER_SEC) * rollover_count));
		257	}
		258
		259
		260	float WrapAngle (float angle)
		261	{
		262	// this function adds or substracts 360 enough times needed to angle to clamp it into the
		263	// [-180, 180[ bounds.
		264
		265	if (angle < -180.0f)
		266	angle += 360.0f * abs (((int) angle - 180) / 360);
		267	else if (angle >= 180)
		268	angle -= 360.0f * abs (((int) angle + 180) / 360);
		269
		270	if (angle == 180.0f)
		271	angle = -180.0f; // needs 2nd pass to check for floating-point rounding errors
		272
		273	return (angle); // finished
		274	}
		275
		276
		277	bool SafeTerminateProcess (HANDLE hProcess, unsigned int uExitCode)
		278	{
		279	// taken from Dr. Dobbs : how to terminate any process cleanly. Simple : Create a remote
		280	// thread in it, and make its start address point right into kernel32's ExitProcess()
		281	// function. This of course assumes that remote code injection is possible.
		282
		283	unsigned long dwTID;
		284	unsigned long dwCode;
		285	unsigned long dwErr = 0;
		286	HMODULE hModule;
		287	HANDLE hProcessDup;
		288	HANDLE hRT;
		289	bool bSuccess = false;
		290	bool bDup;
		291
		292	bDup = (DuplicateHandle (GetCurrentProcess (), hProcess, GetCurrentProcess (), &hProcessDup, PROCESS_ALL_ACCESS, FALSE, 0) != 0);
		293
		294	// detect the special case where the process is already dead
		295	if (GetExitCodeProcess (bDup ? hProcessDup : hProcess, &dwCode) && (dwCode == STILL_ACTIVE))
		296	{
		297	hModule = GetModuleHandle (L"Kernel32");
		298	if (hModule)
		299	{
		300	hRT = CreateRemoteThread (bDup ? hProcessDup : hProcess, NULL, 0,
		301	(LPTHREAD_START_ROUTINE) GetProcAddress (hModule, "ExitProcess"),
		302	(void *) uExitCode, 0, &dwTID);
		303	if (hRT != NULL)
		304	{
		305	// must wait process to terminate to guarantee that it has exited
		306	WaitForSingleObject (bDup ? hProcessDup : hProcess, INFINITE);
		307	CloseHandle (hRT);
		308	bSuccess = true;
		309	}
		310	else
		311	dwErr = GetLastError ();
		312	}
		313	else
		314	dwErr = GetLastError ();
		315	}
		316	else
		317	dwErr = ERROR_PROCESS_ABORTED;
		318
		319	if (bDup)
		320	CloseHandle (hProcessDup);
		321
		322	if (!bSuccess)
		323	SetLastError (dwErr);
		324
		325	return (bSuccess);
		326	}
		327
		328
		329	wchar_t ReachBeginningOfCurrentLine (wchar_t string, wchar_t *current_pos)
		330	{
		331	// this function parses string backwards from current_pos until it finds either a line feed,
		332	// or the beginning of string, and returns the first character of the line.
		333
		334	while ((current_pos > string) && (*current_pos != L'\n'))
		335	current_pos--; // find the previous line feed
		336
		337	if (*current_pos == L'\n')
		338	current_pos++; // if we've found one, skip it
		339
		340	return (current_pos); // and return where we are
		341	}
		342
		343
		344	wchar_t ReachBeginningOfNextLine (wchar_t string, wchar_t *current_pos)
		345	{
		346	// this function parses string forward from current_pos until it finds either a line feed,
		347	// or the end of string, and returns the first character of the line (or NULL).
		348
		349	current_pos = wcschr (current_pos, L'\n'); // find the next line feed
		350	if (current_pos != NULL)
		351	current_pos++; // if we've found one, skip it
		352	if (*current_pos == 0)
		353	current_pos = NULL; // if it's the end of the string, don't return anything
		354
		355	return (current_pos); // and return what we've found
		356	}
		357
		358
		359	wchar_t ReadACompleteLine (wchar_t destination_line, int max_length, wchar_t *source_buffer)
		360	{
		361	// copy a line from a given string, ONLY if it ends with a carriage return.
		362	// use it like:
		363	// while (blah = sgets (dest, sizeof (dest), blah)) != NULL)
		364
		365	wchar_t *pointer;
		366	int char_index;
		367	int source_length;
		368
		369	if (source_buffer[0] == 0)
		370	{
		371	destination_line[0] = 0;
		372	return (NULL); // if EOS return a NULL pointer
		373	}
		374
		375	pointer = wcschr (source_buffer, L'\n'); // get to the first carriage return we can find
		376
		377	// found none ?
		378	if (pointer == NULL)
		379	{
		380	destination_line[0] = 0;
		381	return (NULL); // if none return a NULL pointer
		382	}
		383
		384	// get the number of remaining characters in source string
		385	source_length = wcslen (source_buffer);
		386
		387	// as long as we haven't filled the destination string...
		388	for (char_index = 0; char_index < max_length; char_index++)
		389	{
		390	destination_line[char_index] = source_buffer[char_index]; // copy the line we found
		391	if ((char_index + 1 == source_length) \|\| (source_buffer[char_index] == '\n'))
		392	break; // don't copy beyond the end of source string, nor beyond the end of line
		393	}
		394	if (char_index < max_length)
		395	destination_line[char_index] = 0; // terminate string ourselves
		396	else
		397	destination_line[max_length - 1] = 0;
		398
		399	return (&pointer[1]); // and return next line's source buffer pointer
		400	}
		401
		402
		403	wchar_t wcsgets (wchar_t destination_line, int max_length, wchar_t *source_buffer)
		404	{
		405	// copy a line from a given string. Kinda like fgets() when you're reading from a string.
		406	// use it like:
		407	// while (blah = sgets (dest, sizeof (dest), blah)) != NULL)
		408
		409	wchar_t *pointer;
		410	int char_index;
		411	int source_length;
		412
		413	if (source_buffer[0] == 0)
		414	{
		415	destination_line[0] = 0;
		416	return (NULL); // if EOS return a NULL pointer
		417	}
		418
		419	pointer = wcschr (source_buffer, L'\n'); // get to the first carriage return we can find
		420
		421	// found none ?
		422	if (pointer == NULL)
		423	{
		424	// if so, copy the line we found
		425	for (char_index = 0; char_index < max_length; char_index++)
		426	{
		427	destination_line[char_index] = source_buffer[char_index]; // copy the line we found
		428	if (source_buffer[char_index] == 0)
		429	break; // don't copy beyond the end of source
		430	}
		431
		432	if (char_index == max_length)
		433	destination_line[max_length - 1] = 0; // ensure string is terminated
		434
		435	return (&source_buffer[wcslen (source_buffer)]); // and return a pointer to the end of the string
		436	}
		437	else
		438	pointer++; // else if a carriage return was found, skip it
		439
		440	// get the number of remaining characters in source string
		441	source_length = wcslen (source_buffer);
		442
		443	// as long as we haven't filled the destination string...
		444	for (char_index = 0; char_index < max_length; char_index++)
		445	{
		446	destination_line[char_index] = source_buffer[char_index]; // copy the line we found
		447	if ((char_index + 1 == source_length) \|\| (source_buffer[char_index] == '\n'))
		448	break; // don't copy beyond the end of source string, nor beyond the end of line
		449	}
		450	if (char_index < max_length)
		451	destination_line[char_index] = 0; // terminate string ourselves
		452	else
		453	destination_line[max_length - 1] = 0;
		454
		455	return (pointer); // and return next line's source buffer pointer
		456	}
		457
		458
		459	wchar_t wcsistr (const wchar_t haystack, const wchar_t *needle)
		460	{
		461	// windows has no wcsistr() implementation, so here is mine.
		462
		463	const wchar_t *ptr_upper;
		464	const wchar_t *ptr_lower;
		465	const wchar_t *ptr_either;
		466	size_t needle_length;
		467
		468	needle_length = wcslen (needle); // get needle length
		469	ptr_either = haystack; // start searching at the beginning of haystack
		470
		471	for (;;) // endless loop
		472	{
		473	ptr_upper = wcschr (haystack, towupper (*needle)); // find occurence of first character (uppercase)
		474	ptr_lower = wcschr (haystack, towlower (*needle)); // find occurence of first character (lowercase)
		475
		476	if ((ptr_upper == NULL) && (ptr_lower == NULL))
		477	break; // if no occurence in either case, then haystack doesn't contain needle
		478	else if (ptr_upper == NULL)
		479	ptr_either = ptr_lower; // no uppercase, check in lowercase
		480	else if (ptr_lower == NULL)
		481	ptr_either = ptr_upper; // no lowercase, check in uppercase
		482	else if (ptr_lower < ptr_upper)
		483	ptr_either = ptr_lower; // both occurences found, take the first one
		484	else
		485	ptr_either = ptr_upper; // both occurences found, take the first one
		486
		487	if (_wcsnicmp (ptr_either, needle, needle_length) == 0) // now compare needle case insensitively at that position in haystack
		488	return ((wchar_t *) ptr_either); // if we find something, return its position
		489
		490	haystack = ptr_either + 1; // else advance in haystack
		491	}
		492
		493	return (NULL); // haystack doesn't contain needle
		494	}
		495
		496
		497	void ConvertCRLFsToSingleSpaces (wchar_t *multiline_string)
		498	{
		499	// this function modifies multiline_string by removing CRs and turning LFs into single spaces
		500
		501	int length;
		502	int char_index;
		503	int char_index2;
		504
		505	length = wcslen (multiline_string); // get input string length
		506
		507	// for each character in string that is NOT a carriage return...
		508	char_index2 = 0;
		509	for (char_index = 0; char_index < length; char_index++)
		510	if (multiline_string[char_index] != L'\r')
		511	{
		512	if (multiline_string[char_index] == L'\n')
		513	multiline_string[char_index2] = L' '; // convert newlines to spaces
		514	else
		515	multiline_string[char_index2] = multiline_string[char_index]; // else overwrite string with itself
		516
		517	char_index2++; // we've written one character more
		518	}
		519	multiline_string[char_index2] = 0; // finish string
		520
		521	return; // finished, string is now single-line
		522	}
		523
		524
		525	void ConvertTo7BitASCII (char dest, size_t dest_size_in_bytes, wchar_t source)
		526	{
		527	// helper function to quickly convert a wide char string to 7-bit ASCII
		528
		529	// do the conversion. Use WideCharToMultiByte() preferentially because wcstombs()
		530	// stops at the first non-convertible character, whereas the former doesn't.
		531	WideCharToMultiByte (20127, 0, source, -1, dest, dest_size_in_bytes, NULL, NULL); // 20127 is 7-bit US-ASCII code page
		532	return;
		533	}
		534
		535
		536	void ConvertToWideChar (wchar_t dest, size_t dest_size_in_wchars, char source)
		537	{
		538	// helper function to quickly convert an ASCII string to wide char
		539
		540	size_t converted_count;
		541
171	pmbaty	542	// do the conversion (WARNING: EXTREMELY COSTY FUNCTION!)
1	pmbaty	543	mbstowcs_s (&converted_count, dest, dest_size_in_wchars, source, _TRUNCATE);
		544	return;
		545	}
		546
		547
		548	void MinutesToWideCharString (wchar_t *dest, size_t dest_size_in_wchars, int minutes)
		549	{
		550	// helper function to convert a time in minutes in a string mentioning days, hours and minutes
		551
		552	int days;
		553	int hours;
		554
		555	days = minutes / (60 * 24); // count the number of days
		556	minutes -= days * (60 * 24); // substract the result
		557	hours = minutes / 60; // count the number of hours
		558	minutes -= hours * 60; // substract the result
		559
		560	// now choose the right display format
		561	if (days > 0)
		562	swprintf_s (dest, dest_size_in_wchars, L"%d %s %d %s %d %s", days, LOCALIZE (L"Days"), hours, LOCALIZE (L"Hours"), minutes, LOCALIZE (L"Minutes"));
		563	else if (hours > 0)
		564	swprintf_s (dest, dest_size_in_wchars, L"%d %s %d %s", hours, LOCALIZE (L"Hours"), minutes, LOCALIZE (L"Minutes"));
		565	else
		566	swprintf_s (dest, dest_size_in_wchars, L"%d %s", minutes, LOCALIZE (L"Minutes"));
		567
		568	return; // finished
		569	}
		570
		571
		572	void SecondsToWideCharString (wchar_t *dest, size_t dest_size_in_wchars, int seconds)
		573	{
		574	// helper function to convert a time in seconds in a string mentioning days, hours, minutes and seconds
		575
		576	int days;
		577	int hours;
		578	int minutes;
		579
		580	days = seconds / (60 * 60 * 24); // count the number of days
		581	seconds -= days * (60 * 60 * 24); // substract the result
		582	hours = seconds / (60 * 60); // count the number of hours
		583	seconds -= hours * (60 * 60); // substract the result
		584	minutes = seconds / 60; // count the number of minutes
		585	seconds -= minutes * 60; // substract the result
		586
		587	// now choose the right display format
		588	if (days > 0)
		589	swprintf_s (dest, dest_size_in_wchars, L"%d %s %d %s %d %s %d %s", days, LOCALIZE (L"Days"), hours, LOCALIZE (L"Hours"), minutes, LOCALIZE (L"Minutes"), seconds, LOCALIZE (L"Seconds"));
		590	else if (hours > 0)
		591	swprintf_s (dest, dest_size_in_wchars, L"%d %s %d %s %d %s", hours, LOCALIZE (L"Hours"), minutes, LOCALIZE (L"Minutes"), seconds, LOCALIZE (L"Seconds"));
		592	else if (minutes > 0)
		593	swprintf_s (dest, dest_size_in_wchars, L"%d %s %d %s", minutes, LOCALIZE (L"Minutes"), seconds, LOCALIZE (L"Seconds"));
		594	else
		595	swprintf_s (dest, dest_size_in_wchars, L"%d %s", seconds, LOCALIZE (L"Seconds"));
		596
		597	return; // finished
		598	}
		599
		600
		601	int MonthStringToNumber (wchar_t *month_string)
		602	{
		603	// helper function to convert a month string to its equivalent number
		604
		605	if (_wcsnicmp (month_string, L"jan", 3) == 0) return (1); // january
		606	else if (_wcsnicmp (month_string, L"feb", 3) == 0) return (2); // february
		607	else if (_wcsnicmp (month_string, L"mar", 3) == 0) return (3); // march
		608	else if (_wcsnicmp (month_string, L"apr", 3) == 0) return (4); // april
		609	else if (_wcsnicmp (month_string, L"may", 3) == 0) return (5); // may
		610	else if (_wcsnicmp (month_string, L"jun", 3) == 0) return (6); // june
		611	else if (_wcsnicmp (month_string, L"jul", 3) == 0) return (7); // july
		612	else if (_wcsnicmp (month_string, L"aug", 3) == 0) return (8); // august
		613	else if (_wcsnicmp (month_string, L"sep", 3) == 0) return (9); // september
		614	else if (_wcsnicmp (month_string, L"oct", 3) == 0) return (10); // october
		615	else if (_wcsnicmp (month_string, L"nov", 3) == 0) return (11); // november
		616	else if (_wcsnicmp (month_string, L"dec", 3) == 0) return (12); // december
		617
		618	return (0); // month not found or not a month
		619	}
		620
		621
		622	bool GetImageSize (const wchar_t imagefile_pathname, int width, int *height)
		623	{
		624	// routine to get the size of a DDS/JPG/PNG/TGA/BMP image. JPEG code courtesy of wischik.com.
		625
		626	wchar_t valid_pathname[MAX_PATH];
		627	unsigned char buffer[26];
		628	FILE *fp;
		629	int length;
		630	int pos;
		631
		632	length = wcslen (imagefile_pathname); // get pathname length
		633
		634	// does the pathname we want end with a wildcard ?
		635	if ((length > 0) && (imagefile_pathname[length - 1] == L'*'))
		636	{
		637	// test if a corresponding .dds, .jpg, .jpeg, .png, .tga or .bmp file exists
		638	wcsncpy_s (valid_pathname, WCHAR_SIZEOF (valid_pathname), imagefile_pathname, length - 1);
		639
		640	// try these extensions one after the other...
		641	wcscpy_s (&valid_pathname[length - 1], WCHAR_SIZEOF (valid_pathname) - (length - 1), L"dds");
81	pmbaty	642	if (_waccess (valid_pathname, 0) != 0)
1	pmbaty	643	{
		644	wcscpy_s (&valid_pathname[length - 1], WCHAR_SIZEOF (valid_pathname) - (length - 1), L"jpg");
81	pmbaty	645	if (_waccess (valid_pathname, 0) != 0)
1	pmbaty	646	{
		647	wcscpy_s (&valid_pathname[length - 1], WCHAR_SIZEOF (valid_pathname) - (length - 1), L"jpeg");
81	pmbaty	648	if (_waccess (valid_pathname, 0) != 0)
1	pmbaty	649	{
		650	wcscpy_s (&valid_pathname[length - 1], WCHAR_SIZEOF (valid_pathname) - (length - 1), L"png");
81	pmbaty	651	if (_waccess (valid_pathname, 0) != 0)
1	pmbaty	652	{
		653	wcscpy_s (&valid_pathname[length - 1], WCHAR_SIZEOF (valid_pathname) - (length - 1), L"tga");
81	pmbaty	654	if (_waccess (valid_pathname, 0) != 0)
1	pmbaty	655	{
		656	wcscpy_s (&valid_pathname[length - 1], WCHAR_SIZEOF (valid_pathname) - (length - 1), L"bmp");
81	pmbaty	657	if (_waccess (valid_pathname, 0) != 0)
1	pmbaty	658	return (false); // if none of these extensions match, bomb out
		659	}
		660	}
		661	}
		662	}
		663	}
		664	}
		665	else
		666	wcscpy_s (valid_pathname, WCHAR_SIZEOF (valid_pathname), imagefile_pathname); // the filename we want is known
		667
		668	// open the file for binary reading first
		669	_wfopen_s (&fp, valid_pathname, L"rb");
		670	if (fp == NULL)
		671	return (false); // if unable to open the file, return FALSE
		672
		673	// get file length
		674	fseek (fp, 0, SEEK_END);
		675	length = ftell (fp);
		676	fseek (fp, 0, SEEK_SET);
		677
		678	// if file is not large enough to hold a single chunk of data, it can't possibly be a valid image
		679	if (length < 26)
		680	{
		681	fclose (fp); // so close it
		682	return (FALSE); // and return FALSE
		683	}
		684
		685	// Strategy:
		686	// reading JPEG dimensions requires scanning through jpeg chunks
		687	// reading PNG dimensions requires the first 24 bytes of the file
		688	// reading BMP dimensions requires the first 26 bytes of the file
		689	// In all formats, the file is at least 26 bytes big, so we'll read that always
		690	fread (buffer, 26, 1, fp);
		691
		692	// For DDS files, dimensions are given at bytes 12 (height) and 16 (width)
		693	if ((buffer[0] == 'D') && (buffer[1] == 'D') && (buffer[2] == 'S') && (buffer[3] == ' '))
		694	{
		695	memcpy (width, &buffer[16], sizeof (unsigned long));
		696	memcpy (height, &buffer[12], sizeof (unsigned long));
		697	fclose (fp); // close file now
		698	return (true); // copy out the width and height and return TRUE
		699	}
		700
		701	// For JPEGs, we need to read the first 12 bytes of each chunk.
		702	// We'll read those 12 bytes at buf+2...buf+14, i.e. overwriting the existing buf.
		703	else if ((buffer[0] == 0xFF) && (buffer[1] == 0xD8) && (buffer[2] == 0xFF))
		704	{
		705	pos = 2; // start at the beginning
		706
		707	// as long as there's the beginning of a new chunk to parse in our buffer...
		708	while (buffer[2] == 0xFF)
		709	{
		710	// is that chunk the one we want ?
		711	if ((buffer[2 + 1] == 0xC0) \|\| (buffer[2 + 1] == 0xC1) \|\| (buffer[2 + 1] == 0xC2) \|\| (buffer[2 + 1] == 0xC3))
		712	{
		713	height = 256 (int) buffer[2 + 5] + (int) buffer[2 + 6]; // copy out the height and width
		714	width = 256 (int) buffer[2 + 7] + (int) buffer[2 + 8];
		715	fclose (fp); // close file now
		716	return (true); // and return TRUE
		717	}
		718
		719	pos += 2 + 256 * (int) buffer[2 + 2] + (int) buffer[2 + 3]; // else increase pos by the size of the chunk
		720	if (pos >= length)
		721	{
		722	fclose (fp); // close file now
		723	return (false); // stop searching if end of file is reached
		724	}
		725
		726	fseek (fp, pos, SEEK_SET); // seek at beginning of next block
		727	fread (&buffer[2], 10, 1, fp); // and read another 10-byte block
		728	}
		729	}
		730
		731	// PNG: the first frame is by definition an IHDR frame, which gives dimensions
		732	else if ((buffer[0] == 0x89) && (buffer[1] == 'P') && (buffer[2] == 'N') && (buffer[3] == 'G')
		733	&& (buffer[4] == 0x0D) && (buffer[5] == 0x0A) && (buffer[6] == 0x1A) && (buffer[7] == 0x0A)
		734	&& (buffer[12] == 'I') && (buffer[13] == 'H') && (buffer[14] == 'D') && (buffer[15]=='R'))
		735	{
		736	*width = (buffer[16] << 24) \| (buffer[17] << 16) \| (buffer[18] << 8) \| (buffer[19] << 0);
		737	*height = (buffer[20] << 24) \| (buffer[21] << 16) \| (buffer[22] << 8) \| (buffer[23] << 0);
		738	fclose (fp); // close file now
		739	return (true); // copy out the width and height and return TRUE
		740	}
		741
		742	// TGA: read the image size from the TGA header
		743	else if ((buffer[0] == 0x00) && ((buffer[1] == 0x00) \|\| (buffer[1] == 0x01)))
		744	{
		745	*width = (buffer[13] << 8) \| (buffer[12] << 0);
		746	*height = (buffer[15] << 8) \| (buffer[14] << 0);
		747	fclose (fp); // close file now
		748	return (true); // copy out the width and height and return TRUE
		749	}
		750
		751	// BMP: read the bitmap file header, then the image header
		752	else if ((buffer[0] == 'B') && (buffer[1] == 'M')
		753	&& (buffer[6] == 0) && (buffer[7] == 0) && (buffer[8] == 0) && (buffer[9] == 0))
		754	{
		755	memcpy (width, &buffer[18], sizeof (unsigned long));
		756	memcpy (height, &buffer[22], sizeof (unsigned long));
		757	fclose (fp); // close file now
		758	return (true); // copy out the width and height and return TRUE
		759	}
		760
		761	fclose (fp); // close file now
		762	return (false); // file is probably not a DDS, BMP, PNG, TGA or JPEG image
		763	}
		764
		765
		766	void Debug_Init (const wchar_t *logfile_name)
		767	{
		768	// helper function for debug log file initialization
		769
		770	FILE *fp;
		771
		772	// build the log file full qualified path name
11	pmbaty	773	swprintf_s (logfile_pathname, WCHAR_SIZEOF (logfile_pathname), L"%s/%s", app_path, logfile_name);
1	pmbaty	774
		775	// open it and erase it
		776	_wfopen_s (&fp, logfile_pathname, L"wb");
		777	if (fp != NULL)
		778	{
		779	fwprintf_s (fp, L"===LOG FILE RESET===\n"); // write the log initialization string
		780	fclose (fp); // flush buffers and close file
		781	}
		782
		783	return; // finished
		784	}
		785
		786
		787	void Debug_Log (const wchar_t *fmt, ...)
		788	{
		789	// helper function for debug logging
		790
		791	FILE *fp;
		792	va_list argptr;
		793
		794	// open the log file in append mode
		795	_wfopen_s (&fp, logfile_pathname, L"ab");
		796	if (fp != NULL)
		797	{
57	pmbaty	798	va_start (argptr, fmt);
		799	vfwprintf_s (fp, fmt, argptr); // concatenate all the arguments in one string
		800	va_end (argptr);
1	pmbaty	801	fclose (fp); // flush buffers and close it
		802	}
		803
		804	return; // finished
		805	}
		806
		807
177	pmbaty	808	void Debug_LogMove (boardmove_t move, const wchar_t fmt, ...)
154	pmbaty	809	{
177	pmbaty	810	// helper function for debug logging
		811
		812	FILE *fp;
		813	va_list argptr;
		814	int i;
		815	int j;
		816
		817	// open the log file in append mode
		818	_wfopen_s (&fp, logfile_pathname, L"ab");
		819	if (fp != NULL)
		820	{
		821	va_start (argptr, fmt);
		822	vfwprintf_s (fp, fmt, argptr); // concatenate all the arguments in one string
		823	va_end (argptr);
		824
		825	// capture and encode the move
		826	fwprintf (fp, L"\t+---+---+---+---+---+---+---+---+\n");
		827	for (i = 7; i >= 0; i--) // lines are in reverse order in this stupid program of mine >.<
		828	{
		829	fwprintf (fp, L"\t\|");
		830	for (j = 0; j < 8; j++)
		831	{
		832	if (move->slots[i][j].part == PART_ROOK) fwprintf (fp, (move->slots[i][j].color == COLOR_WHITE ? L" R \|" : L" r \|"));
		833	else if (move->slots[i][j].part == PART_KNIGHT) fwprintf (fp, (move->slots[i][j].color == COLOR_WHITE ? L" N \|" : L" n \|"));
		834	else if (move->slots[i][j].part == PART_BISHOP) fwprintf (fp, (move->slots[i][j].color == COLOR_WHITE ? L" B \|" : L" b \|"));
		835	else if (move->slots[i][j].part == PART_QUEEN) fwprintf (fp, (move->slots[i][j].color == COLOR_WHITE ? L" Q \|" : L" q \|"));
		836	else if (move->slots[i][j].part == PART_KING) fwprintf (fp, (move->slots[i][j].color == COLOR_WHITE ? L" K \|" : L" k \|"));
		837	else if (move->slots[i][j].part == PART_PAWN) fwprintf (fp, (move->slots[i][j].color == COLOR_WHITE ? L" P \|" : L" p \|"));
		838	else fwprintf (fp, L" \|");
		839	}
		840	fwprintf (fp, L"\n");
		841	fwprintf (fp, L"\t+---+---+---+---+---+---+---+---+\n");
		842	}
		843
		844	fclose (fp); // flush buffers and close it
		845	}
		846
		847	return; // finished
		848	}
		849
		850
		851	bool Debug_SendLogToAuthor (char *reason, bool should_include_description)
		852	{
154	pmbaty	853	// this function upload the engine history to the remote server for debug purposes.
		854
160	pmbaty	855	static wchar_t descriptionfile_pathname[MAX_PATH];
154	pmbaty	856	static char log_buffer[512 * 1024];
		857	static char log_base64buffer[512 * 1024 * 4 / 3];
160	pmbaty	858	static char description_buffer[512 * 1024];
		859	static char description_base64buffer[512 * 1024 * 4 / 3];
154	pmbaty	860	static char board_buffer[8 * 5 * 8 * 3];
		861	static char board_base64buffer[8 * 5 * 8 * 3 * 4 / 3];
		862	static char http_buffer[1024 * 1024]; // used both for request and reply
		863	static char user_email[64];
		864	static char program_version[10];
		865
		866	struct sockaddr_in service;
		867	struct hostent *hostinfo;
160	pmbaty	868	SHELLEXECUTEINFO bugreport_shinfo;
		869	buffer_t bugreport_buffer;
154	pmbaty	870	unsigned char part;
		871	char *write_ptr;
		872	int write_index;
		873	int read_index;
		874	int length;
		875	SOCKET s;
		876	FILE *fp;
		877	int i;
		878	int j;
		879
		880	// get a hand on the log file and read its contents
		881	_wfopen_s (&fp, logfile_pathname, L"rb");
160	pmbaty	882	if (fp != NULL)
		883	{
		884	fseek (fp, 0, SEEK_END);
		885	length = ftell (fp); // get file size
		886	if (length > sizeof (log_base64buffer) - 1)
177	pmbaty	887	swprintf_s ((wchar_t *) log_base64buffer, WCHAR_SIZEOF (log_base64buffer), L"Log file at \"%s\" too big (> %d bytes).", logfile_pathname, sizeof (log_base64buffer) - 1); // history file too big
		888	else
		889	{
		890	fseek (fp, 0, SEEK_SET);
		891	fread (log_base64buffer, 1, length, fp);
		892	log_base64buffer[length] = 0; // terminate buffer ourselves
		893	}
160	pmbaty	894	fclose (fp);
		895	}
		896	else
177	pmbaty	897	swprintf_s ((wchar_t *) log_base64buffer, WCHAR_SIZEOF (log_base64buffer), L"Couldn't open log file at \"%s\".", logfile_pathname); // couldn't open game history log file
		898	ConvertTo7BitASCII (log_buffer, sizeof (log_buffer), (wchar_t *) log_base64buffer);
154	pmbaty	899
160	pmbaty	900	// should the user include a problem report ?
		901	if (should_include_description)
		902	{
		903	// have the user describe his problem with Notepad
		904	swprintf_s (descriptionfile_pathname, WCHAR_SIZEOF (descriptionfile_pathname), L"%s\\Chess Giants bug report.txt", app_path);
		905	Buffer_Initialize (&bugreport_buffer);
		906	length = wcslen (LOCALIZE (L"PleaseDescribeTheProblem"));
		907	Buffer_Append (&bugreport_buffer, (char ) LOCALIZE (L"PleaseDescribeTheProblem"), length sizeof (wchar_t));
		908	Buffer_Append (&bugreport_buffer, (char ) L"\r\n", 2 sizeof (wchar_t));
		909	for (write_index = 0; write_index < length; write_index++)
		910	Buffer_Append (&bugreport_buffer, (char *) L"-", sizeof (wchar_t));
		911	Buffer_Append (&bugreport_buffer, (char ) L"\r\n", 2 sizeof (wchar_t));
		912	Buffer_Append (&bugreport_buffer, (char ) L"\r\n=> ", 5 sizeof (wchar_t));
		913	Buffer_WriteToFileW (&bugreport_buffer, descriptionfile_pathname);
		914	memset (&bugreport_shinfo, 0, sizeof (bugreport_shinfo));
		915	bugreport_shinfo.cbSize = sizeof (SHELLEXECUTEINFO);
		916	bugreport_shinfo.fMask = SEE_MASK_NOCLOSEPROCESS;
		917	bugreport_shinfo.lpFile = L"notepad.exe";
		918	bugreport_shinfo.lpParameters = descriptionfile_pathname;
		919	bugreport_shinfo.nShow = SW_SHOW;
		920	ShellExecuteEx (&bugreport_shinfo);
		921	WaitForSingleObject (bugreport_shinfo.hProcess, INFINITE);
		922	CloseHandle (bugreport_shinfo.hProcess);
		923
		924	// get a hand on the error description file and read its contents
		925	_wfopen_s (&fp, descriptionfile_pathname, L"rb");
		926	if (fp != NULL)
		927	{
		928	fseek (fp, 0, SEEK_END);
		929	length = ftell (fp); // get file size
		930	fseek (fp, 0, SEEK_SET);
		931	if (length > sizeof (description_base64buffer) - 1)
		932	return (false); // history file too big, return an error condition
		933	fread (description_base64buffer, 1, length, fp);
		934	description_base64buffer[length] = 0; // terminate buffer ourselves
		935	fclose (fp);
		936	_wunlink (descriptionfile_pathname); // as soon as it's read, DELETE the error description file
		937	}
		938	else
177	pmbaty	939	swprintf_s ((wchar_t *) description_base64buffer, WCHAR_SIZEOF (description_base64buffer), L"Couldn't open error description file at \"%s\".", descriptionfile_pathname); // couldn't open error description file
		940	ConvertTo7BitASCII (description_buffer, sizeof (description_buffer), (wchar_t *) description_base64buffer);
160	pmbaty	941	}
		942	else
		943	description_buffer[0] = 0; // no description
		944
177	pmbaty	945	// append the program-given reason to the description buffer
		946	strcat_s (description_buffer, sizeof (description_buffer), "\n\nChess Giants reason: ");
		947	strcat_s (description_buffer, sizeof (description_buffer), reason);
		948
154	pmbaty	949	// capture and encode the board
		950	strcpy_s (board_buffer, sizeof (board_buffer), "+---+---+---+---+---+---+---+---+\n");
		951	for (i = 7; i >= 0; i--) // lines are in reverse order in this stupid program of mine >.<
		952	{
		953	write_ptr = &board_buffer[strlen (board_buffer)];
		954	*write_ptr = '\|'; write_ptr++;
		955	for (j = 0; j < 8; j++)
		956	{
		957	part = the_board.moves[the_board.move_count - 1].slots[i][j].part;
		958	*write_ptr = ' '; write_ptr++;
		959	if (part == PART_ROOK) *write_ptr = 'r';
161	pmbaty	960	else if (part == PART_KNIGHT) *write_ptr = 'n';
154	pmbaty	961	else if (part == PART_BISHOP) *write_ptr = 'b';
		962	else if (part == PART_QUEEN) *write_ptr = 'q';
		963	else if (part == PART_KING) *write_ptr = 'k';
		964	else if (part == PART_PAWN) *write_ptr = 'p';
		965	else *write_ptr = ' ';
		966	if (the_board.moves[the_board.move_count - 1].slots[i][j].color == COLOR_WHITE) write_ptr = toupper (write_ptr);
		967	*write_ptr++;
		968	*write_ptr = ' '; write_ptr++;
		969	*write_ptr = '\|'; write_ptr++;
		970	}
		971	*write_ptr = '\n'; write_ptr++;
		972	*write_ptr = 0;
		973	strcat_s (board_buffer, sizeof (board_buffer), "+---+---+---+---+---+---+---+---+\n");
		974	}
		975
		976	// build the program version
158	pmbaty	977	sprintf_s (program_version, sizeof (program_version), "%04d%02d%02d",
		978	atoi (strrchr (__DATE__, ' ') + 1),
		979	(__DATE__[0] == 'F' ? 2 : // February
		980	(__DATE__[0] == 'S' ? 9 : // September
		981	(__DATE__[0] == 'O' ? 10 : // October
		982	(__DATE__[0] == 'N' ? 11 : // November
		983	(__DATE__[0] == 'D' ? 12 : // December
		984	(__DATE__[1] == 'p' ? 4 : // April
		985	(__DATE__[0] == 'A' ? 8 : // August
		986	(__DATE__[2] == 'r' ? 3 : // March
		987	(__DATE__[0] == 'M' ? 5 : // May
		988	(__DATE__[1] == 'a' ? 1 : // January
		989	(__DATE__[2] == 'n' ? 6 : // June
		990	(__DATE__[0] == 'J' ? 7 : // July
		991	0)))))))))))),
		992	atoi (strchr (__DATE__, ' ') + 1));
154	pmbaty	993
		994	// get our distribution server's IP address from the host name
		995	hostinfo = gethostbyname ("pmbaty.com");
		996	if (hostinfo == NULL)
		997	return (false); // couldn't resolve hostname, return an error condition
		998
		999	// fill in the sockaddr server structure with the server hostinfo data
		1000	service.sin_family = AF_INET;
		1001	service.sin_addr.s_addr = inet_addr (inet_ntoa ((struct in_addr ) hostinfo->h_addr_list[0]));
		1002	service.sin_port = htons (80); // connect to webserver there (port 80)
		1003
		1004	// create our socket
		1005	if ((s = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP)) == INVALID_SOCKET)
		1006	return (false); // couldn't resolve hostname, return an error condition
		1007
		1008	// connect to the distributor's webserver using that socket
		1009	if (connect (s, (struct sockaddr *) &service, sizeof (service)) == -1)
		1010	{
		1011	closesocket (s); // finished communicating, close TCP socket
		1012	return (false); // couldn't resolve hostname, return an error condition
		1013	}
		1014
		1015	// build the HTTP POST query and send it
		1016	if (options.registration.user_email[0] != 0)
		1017	ConvertTo7BitASCII (user_email, sizeof (user_email), options.registration.user_email);
		1018	else
		1019	strcpy_s (user_email, sizeof (user_email), "an+unregistered+user");
		1020	length = strlen ("registrant=") + strlen (user_email)
		1021	+ strlen ("&version=") + strlen (program_version)
180	pmbaty	1022	+ strlen ("&player1=") + 1
		1023	+ strlen ("&player2=") + 1
154	pmbaty	1024	+ strlen ("&board=") + base64_encode (board_base64buffer, board_buffer, strlen (board_buffer))
160	pmbaty	1025	+ strlen ("&log=") + base64_encode (log_base64buffer, log_buffer, strlen (log_buffer))
		1026	+ strlen ("&description=") + base64_encode (description_base64buffer, description_buffer, strlen (description_buffer));
154	pmbaty	1027	sprintf_s (http_buffer, sizeof (http_buffer),
		1028	"POST /chess/sendcrash.php HTTP/1.1\r\n"
		1029	"Host: pmbaty.com\r\n"
		1030	"Content-Type: application/x-www-form-urlencoded\r\n"
		1031	"Content-Length: %d\r\n"
		1032	"Connection: close\r\n"
		1033	"\r\n"
180	pmbaty	1034	"registrant=%s&version=%s&player1=%c&player2=%c&board=%s&log=%s&description=%s", length,
		1035	user_email, // registrant=
		1036	program_version, // &version=
		1037	(the_board.players[COLOR_WHITE].type == PLAYER_INTERNET ? 'I' : (the_board.players[COLOR_WHITE].type == PLAYER_COMPUTER ? 'C' : 'H')), // &player1=
		1038	(the_board.players[COLOR_BLACK].type == PLAYER_INTERNET ? 'I' : (the_board.players[COLOR_BLACK].type == PLAYER_COMPUTER ? 'C' : 'H')), // &player2=
		1039	board_base64buffer, // &board=
		1040	log_base64buffer, // &log=
		1041	description_base64buffer); // &description=
154	pmbaty	1042	length = strlen (http_buffer);
		1043	write_index = send (s, http_buffer, length, 0); // send the HTTP query
		1044	if (write_index != length)
		1045	{
		1046	closesocket (s); // finished communicating, close TCP socket
		1047	return (false); // couldn't resolve hostname, return an error condition
		1048	}
		1049
		1050	// read the reply (10 seconds timeout)
		1051	http_buffer[0] = 0;
		1052	read_index = RecvWithTimeout (s, 10.0f, http_buffer, sizeof (http_buffer), 0);
		1053	if (read_index < 1)
		1054	{
		1055	closesocket (s); // finished communicating, close TCP socket
		1056	return (false); // couldn't resolve hostname, return an error condition
		1057	}
		1058
		1059	closesocket (s); // finished communicating, close TCP socket
		1060
		1061	// terminate recv buffer ourselves
		1062	http_buffer[read_index] = 0;
		1063
		1064	//MessageBoxA (NULL, http_buffer, "HTTP response", MB_OK);
		1065	return (strstr (http_buffer, "Success") != NULL); // and return whether the server accepted our post
		1066	}
		1067
		1068
153	pmbaty	1069	int RecvWithTimeout (int socket_id, float timeout_in_seconds, char *outbuf, size_t outbuf_size, int flags)
		1070	{
		1071	// variant of recv() that honors a specific timeout in seconds
		1072
		1073	unsigned long nonblocking_mode;
		1074	unsigned long msec_start;
		1075	float timediff;
		1076	int total_size;
		1077	int recv_size;
		1078
		1079	// make socket non blocking
		1080	nonblocking_mode = 1;
		1081	ioctlsocket (socket_id, FIONBIO, &nonblocking_mode);
		1082
		1083	// loop endlessly, noting the time at which we start
		1084	msec_start = GetTickCount ();
		1085	total_size = 0;
		1086	for (;;)
		1087	{
		1088	// see how much time elapsed since the last time we received data
		1089	timediff = (GetTickCount () - msec_start) / 1000.0f;
		1090	if (timediff > timeout_in_seconds)
		1091	break; // if we've waited long enough, give up
		1092
		1093	// see if we have something to read from the socket
		1094	recv_size = recv (socket_id, &outbuf[total_size], outbuf_size - total_size, flags);
		1095	if (recv_size == 0)
		1096	break; // on TCP disconnection, give up too
		1097	else if (recv_size < 0)
		1098	{
		1099	Sleep (100); // if nothing was received then we want to wait a little before trying again, 0.1 seconds
		1100	continue;
		1101	}
		1102
		1103	total_size += recv_size; // increase the received bytes count
		1104	outbuf[total_size] = 0; // terminate outbuf ourselves
		1105	if (total_size == outbuf_size)
		1106	break; // if the output buffer is full, give up
		1107	msec_start = GetTickCount (); // and remember when we last received data (i.e. now)
		1108	}
		1109
		1110	return (total_size); // and return the number of bytes received
		1111	}
		1112
		1113
1	pmbaty	1114	const wchar_t *GetLastNetworkError (void)
		1115	{
		1116	// this function retrieves and translates the last WSA error code into a full text string
		1117
		1118	static const wsaerror_t wsa_errors[] =
		1119	{
		1120	{6, L"WSA_INVALID_HANDLE: Specified event object handle is invalid. [An application attempts to use an event object, but the specified handle is not valid. Note that this error is returned by the operating system, so the error number may change in future releases of Windows.]"},
		1121	{8, L"WSA_NOT_ENOUGH_MEMORY: Insufficient memory available. [An application used a Windows Sockets function that directly maps to a Windows function. The Windows function is indicating a lack of required memory resources. Note that this error is returned by the operating system, so the error number may change in future releases of Windows.]"},
		1122	{87, L"WSA_INVALID_PARAMETER: One or more parameters are invalid. [An application used a Windows Sockets function which directly maps to a Windows function. The Windows function is indicating a problem with one or more parameters. Note that this error is returned by the operating system, so the error number may change in future releases of Windows.]"},
		1123	{995, L"WSA_OPERATION_ABORTED: Overlapped operation aborted. [An overlapped operation was canceled due to the closure of the socket, or the execution of the SIO_FLUSH command in WSAIoctl. Note that this error is returned by the operating system, so the error number may change in future releases of Windows.]"},
		1124	{996, L"WSA_IO_INCOMPLETE: Overlapped I/O event object not in signaled state. [The application has tried to determine the status of an overlapped operation which is not yet completed. Applications that use WSAGetOverlappedResult (with the fWait flag set to FALSE) in a polling mode to determine when an overlapped operation has completed, get this error code until the operation is complete. Note that this error is returned by the operating system, so the error number may change in future releases of Windows.]"},
		1125	{997, L"WSA_IO_PENDING: Overlapped operations will complete later. [The application has initiated an overlapped operation that cannot be completed immediately. A completion indication will be given later when the operation has been completed. Note that this error is returned by the operating system, so the error number may change in future releases of Windows.]"},
		1126	{10004, L"WSAEINTR: Interrupted function call. [A blocking operation was interrupted by a call to WSACancelBlockingCall.]"},
		1127	{10009, L"WSAEBADF: File handle is not valid. [The file handle supplied is not valid.]"},
		1128	{10013, L"WSAEACCES: Permission denied. [An attempt was made to access a socket in a way forbidden by its access permissions. An example is using a broadcast address for sendto without broadcast permission being set using setsockopt(SO_BROADCAST). Another possible reason for the WSAEACCES error is that when the bind function is called (on Windows NT 4 SP4 or later), another application, service, or kernel mode driver is bound to the same address with exclusive access. Such exclusive access is a new feature of Windows NT 4 SP4 and later, and is implemented by using the SO_EXCLUSIVEADDRUSE option.]"},
		1129	{10014, L"WSAEFAULT: Bad address. [The system detected an invalid pointer address in attempting to use a pointer argument of a call. This error occurs if an application passes an invalid pointer value, or if the length of the buffer is too small. For instance, if the length of an argument, which is a sockaddr structure, is smaller than the sizeof(sockaddr).]"},
		1130	{10022, L"WSAEINVAL: Invalid argument. [Some invalid argument was supplied (for example, specifying an invalid level to the setsockopt function). In some instances, it also refers to the current state of the socket�for instance, calling accept on a socket that is not listening.]"},
		1131	{10024, L"WSAEMFILE: Too many open files. [Too many open sockets. Each implementation may have a maximum number of socket handles available, either globally, per process, or per thread.]"},
		1132	{10035, L"WSAEWOULDBLOCK: Resource temporarily unavailable. [This error is returned from operations on nonblocking sockets that cannot be completed immediately, for example recv when no data is queued to be read from the socket. It is a nonfatal error, and the operation should be retried later. It is normal for WSAEWOULDBLOCK to be reported as the result from calling connect on a nonblocking SOCK_STREAM socket, since some time must elapse for the connection to be established.]"},
		1133	{10036, L"WSAEINPROGRESS: Operation now in progress. [A blocking operation is currently executing. Windows Sockets only allows a single blocking operation�per- task or thread�to be outstanding, and if any other function call is made (whether or not it references that or any other socket) the function fails with the WSAEINPROGRESS error.]"},
		1134	{10037, L"WSAEALREADY: Operation already in progress. [An operation was attempted on a nonblocking socket with an operation already in progress�that is, calling connect a second time on a nonblocking socket that is already connecting, or canceling an asynchronous request (WSAAsyncGetXbyY) that has already been canceled or completed.]"},
		1135	{10038, L"WSAENOTSOCK: Socket operation on nonsocket. [An operation was attempted on something that is not a socket. Either the socket handle parameter did not reference a valid socket, or for select, a member of an fd_set was not valid.]"},
		1136	{10039, L"WSAEDESTADDRREQ: Destination address required. [A required address was omitted from an operation on a socket. For example, this error is returned if sendto is called with the remote address of ADDR_ANY.]"},
		1137	{10040, L"WSAEMSGSIZE: Message too long. [A message sent on a datagram socket was larger than the internal message buffer or some other network limit, or the buffer used to receive a datagram was smaller than the datagram itself.]"},
		1138	{10041, L"WSAEPROTOTYPE: Protocol wrong type for socket. [A protocol was specified in the socket function call that does not support the semantics of the socket type requested. For example, the ARPA Internet UDP protocol cannot be specified with a socket type of SOCK_STREAM.]"},
		1139	{10042, L"WSAENOPROTOOPT: Bad protocol option. [An unknown, invalid or unsupported option or level was specified in a getsockopt or setsockopt call.]"},
		1140	{10043, L"WSAEPROTONOSUPPORT: Protocol not supported. [The requested protocol has not been configured into the system, or no implementation for it exists. For example, a socket call requests a SOCK_DGRAM socket, but specifies a stream protocol.]"},
		1141	{10044, L"WSAESOCKTNOSUPPORT: Socket type not supported. [The support for the specified socket type does not exist in this address family. For example, the optional type SOCK_RAW might be selected in a socket call, and the implementation does not support SOCK_RAW sockets at all.]"},
		1142	{10045, L"WSAEOPNOTSUPP: Operation not supported. [The attempted operation is not supported for the type of object referenced. Usually this occurs when a socket descriptor to a socket that cannot support this operation is trying to accept a connection on a datagram socket.]"},
		1143	{10046, L"WSAEPFNOSUPPORT: Protocol family not supported. [The protocol family has not been configured into the system or no implementation for it exists. This message has a slightly different meaning from WSAEAFNOSUPPORT. However, it is interchangeable in most cases, and all Windows Sockets functions that return one of these messages also specify WSAEAFNOSUPPORT.]"},
		1144	{10047, L"WSAEAFNOSUPPORT: Address family not supported by protocol family. [An address incompatible with the requested protocol was used. All sockets are created with an associated address family (that is, AF_INET for Internet Protocols) and a generic protocol type (that is, SOCK_STREAM). This error is returned if an incorrect protocol is explicitly requested in the socket call, or if an address of the wrong family is used for a socket, for example, in sendto.]"},
		1145	{10048, L"WSAEADDRINUSE: Address already in use. [Typically, only one usage of each socket address (protocol/IP address/port) is permitted. This error occurs if an application attempts to bind a socket to an IP address/port that has already been used for an existing socket, or a socket that was not closed properly, or one that is still in the process of closing. For server applications that need to bind multiple sockets to the same port number, consider using setsockopt (SO_REUSEADDR). Client applications usually need not call bind at all� connect chooses an unused port automatically. When bind is called with a wildcard address (involving ADDR_ANY), a WSAEADDRINUSE error could be delayed until the specific address is committed. This could happen with a call to another function later, including connect, listen, WSAConnect, or WSAJoinLeaf.]"},
		1146	{10049, L"WSAEADDRNOTAVAIL: Cannot assign requested address. [The requested address is not valid in its context. This normally results from an attempt to bind to an address that is not valid for the local computer. This can also result from connect, sendto, WSAConnect, WSAJoinLeaf, or WSASendTo when the remote address or port is not valid for a remote computer (for example, address or port 0).]"},
		1147	{10050, L"WSAENETDOWN: Network is down. [A socket operation encountered a dead network. This could indicate a serious failure of the network system (that is, the protocol stack that the Windows Sockets DLL runs over), the network interface, or the local network itself.]"},
		1148	{10051, L"WSAENETUNREACH: Network is unreachable. [A socket operation was attempted to an unreachable network. This usually means the local software knows no route to reach the remote host.]"},
		1149	{10052, L"WSAENETRESET: Network dropped connection on reset. [The connection has been broken due to keep-alive activity detecting a failure while the operation was in progress. It can also be returned by setsockopt if an attempt is made to set SO_KEEPALIVE on a connection that has already failed.]"},
		1150	{10053, L"WSAECONNABORTED: Software caused connection abort. [An established connection was aborted by the software in your host computer, possibly due to a data transmission time-out or protocol error.]"},
		1151	{10054, L"WSAECONNRESET: Connection reset by peer. [An existing connection was forcibly closed by the remote host. This normally results if the peer application on the remote host is suddenly stopped, the host is rebooted, the host or remote network interface is disabled, or the remote host uses a hard close (see setsockopt for more information on the SO_LINGER option on the remote socket). This error may also result if a connection was broken due to keep-alive activity detecting a failure while one or more operations are in progress. Operations that were in progress fail with WSAENETRESET. Subsequent operations fail with WSAECONNRESET.]"},
		1152	{10055, L"WSAENOBUFS: No buffer space available. [An operation on a socket could not be performed because the system lacked sufficient buffer space or because a queue was full.]"},
		1153	{10056, L"WSAEISCONN: Socket is already connected. [A connect request was made on an already-connected socket. Some implementations also return this error if sendto is called on a connected SOCK_DGRAM socket (for SOCK_STREAM sockets, the to parameter in sendto is ignored) although other implementations treat this as a legal occurrence.]"},
		1154	{10057, L"WSAENOTCONN: Socket is not connected. [A request to send or receive data was disallowed because the socket is not connected and (when sending on a datagram socket using sendto) no address was supplied. Any other type of operation might also return this error�for example, setsockopt setting SO_KEEPALIVE if the connection has been reset.]"},
		1155	{10058, L"WSAESHUTDOWN: Cannot send after socket shutdown. [A request to send or receive data was disallowed because the socket had already been shut down in that direction with a previous shutdown call. By calling shutdown a partial close of a socket is requested, which is a signal that sending or receiving, or both have been discontinued.]"},
		1156	{10059, L"WSAETOOMANYREFS: Too many references. [Too many references to some kernel object.]"},
		1157	{10060, L"WSAETIMEDOUT: Connection timed out. [A connection attempt failed because the connected party did not properly respond after a period of time, or the established connection failed because the connected host has failed to respond.]"},
		1158	{10061, L"WSAECONNREFUSED: Connection refused. [No connection could be made because the target computer actively refused it. This usually results from trying to connect to a service that is inactive on the foreign host�that is, one with no server application running.]"},
		1159	{10062, L"WSAELOOP: Cannot translate name. [Cannot translate a name.]"},
		1160	{10063, L"WSAENAMETOOLONG: Name too long. [A name component or a name was too long.]"},
		1161	{10064, L"WSAEHOSTDOWN: Host is down. [A socket operation failed because the destination host is down. A socket operation encountered a dead host. Networking activity on the local host has not been initiated. These conditions are more likely to be indicated by the error WSAETIMEDOUT.]"},
		1162	{10065, L"WSAEHOSTUNREACH: No route to host. [A socket operation was attempted to an unreachable host. See WSAENETUNREACH.]"},
		1163	{10066, L"WSAENOTEMPTY: Directory not empty. [Cannot remove a directory that is not empty.]"},
		1164	{10067, L"WSAEPROCLIM: Too many processes. [A Windows Sockets implementation may have a limit on the number of applications that can use it simultaneously.WSAStartup may fail with this error if the limit has been reached.]"},
		1165	{10068, L"WSAEUSERS: User quota exceeded. [Ran out of user quota.]"},
		1166	{10069, L"WSAEDQUOT: Disk quota exceeded. [Ran out of disk quota.]"},
		1167	{10070, L"WSAESTALE: Stale file handle reference. [The file handle reference is no longer available.]"},
		1168	{10071, L"WSAEREMOTE: Item is remote. [The item is not available locally.]"},
		1169	{10091, L"WSASYSNOTREADY: Network subsystem is unavailable. [This error is returned by WSAStartup if the Windows Sockets implementation cannot function at this time because the underlying system it uses to provide network services is currently unavailable. Users should check that the appropriate Windows Sockets DLL file is in the current path, that they are not trying to use more than one Windows Sockets implementation simultaneously. If there is more than one Winsock DLL on your system, be sure the first one in the path is appropriate for the network subsystem currently loaded, that the Windows Sockets implementation documentation to be sure all necessary components are currently installed and configured correctly.]"},
		1170	{10092, L"WSAVERNOTSUPPORTED: Winsock.dll version out of range. [The current Windows Sockets implementation does not support the Windows Sockets specification version requested by the application. Check that no old Windows Sockets DLL files are being accessed.]"},
		1171	{10093, L"WSANOTINITIALISED: Successful WSAStartup not yet performed. [Either the application has not called WSAStartup or WSAStartup failed. The application may be accessing a socket that the current active task does not own (that is, trying to share a socket between tasks), or WSACleanup has been called too many times.]"},
		1172	{10101, L"WSAEDISCON: Graceful shutdown in progress. [Returned by WSARecv and WSARecvFrom to indicate that the remote party has initiated a graceful shutdown sequence.]"},
		1173	{10102, L"WSAENOMORE: No more results. [No more results can be returned by the WSALookupServiceNext function.]"},
		1174	{10103, L"WSAECANCELLED: Call has been canceled. [A call to the WSALookupServiceEnd function was made while this call was still processing. The call has been canceled.]"},
		1175	{10104, L"WSAEINVALIDPROCTABLE: Procedure call table is invalid. [The service provider procedure call table is invalid. A service provider returned a bogus procedure table to Ws2_32.dll. This is usually caused by one or more of the function pointers being NULL.]"},
		1176	{10105, L"WSAEINVALIDPROVIDER: Service provider is invalid. [The requested service provider is invalid. This error is returned by the WSCGetProviderInfo and WSCGetProviderInfo32 functions if the protocol entry specified could not be found. This error is also returned if the service provider returned a version number other than 2.0.]"},
		1177	{10106, L"WSAEPROVIDERFAILEDINIT: Service provider failed to initialize. [The requested service provider could not be loaded or initialized. This error is returned if either a service provider's DLL could not be loaded (LoadLibrary failed) or the provider's WSPStartup or NSPStartup function failed.]"},
		1178	{10107, L"WSASYSCALLFAILURE: System call failure. [A system call that should never fail has failed. This is a generic error code, returned under various condition. Returned when a system call that should never fail does fail. For example, if a call to WaitForMultipleEvents fails or one of the registry functions fails trying to manipulate the protocol/namespace catalogs. Returned when a provider does not return SUCCESS and does not provide an extended error code. Can indicate a service provider implementation error.]"},
		1179	{10108, L"WSASERVICE_NOT_FOUND: Service not found. [No such service is known. The service cannot be found in the specified name space.]"},
		1180	{10109, L"WSATYPE_NOT_FOUND: Class type not found. [The specified class was not found.]"},
		1181	{10110, L"WSA_E_NO_MORE: No more results. [No more results can be returned by the WSALookupServiceNext function.]"},
		1182	{10111, L"WSA_E_CANCELLED: Call was canceled. [A call to the WSALookupServiceEnd function was made while this call was still processing. The call has been canceled.]"},
		1183	{10112, L"WSAEREFUSED: Database query was refused. [A database query failed because it was actively refused.]"},
		1184	{11001, L"WSAHOST_NOT_FOUND: Host not found. [No such host is known. The name is not an official host name or alias, or it cannot be found in the database(s) being queried. This error may also be returned for protocol and service queries, and means that the specified name could not be found in the relevant database.]"},
		1185	{11002, L"WSATRY_AGAIN: Nonauthoritative host not found. [This is usually a temporary error during host name resolution and means that the local server did not receive a response from an authoritative server. A retry at some time later may be successful.]"},
		1186	{11003, L"WSANO_RECOVERY: This is a nonrecoverable error. [This indicates that some sort of nonrecoverable error occurred during a database lookup. This may be because the database files (for example, BSD-compatible HOSTS, SERVICES, or PROTOCOLS files) could not be found, or a DNS request was returned by the server with a severe error.]"},
		1187	{11004, L"WSANO_DATA: Valid name, no data record of requested type. [The requested name is valid and was found in the database, but it does not have the correct associated data being resolved for. The usual example for this is a host name-to-address translation attempt (using gethostbyname or WSAAsyncGetHostByName) which uses the DNS (Domain Name Server). An MX record is returned but no A record�indicating the host itself exists, but is not directly reachable.]"},
		1188	{11005, L"WSA_QOS_RECEIVERS: QOS receivers. [At least one QOS reserve has arrived.]"},
		1189	{11006, L"WSA_QOS_SENDERS: QOS senders. [At least one QOS send path has arrived.]"},
		1190	{11007, L"WSA_QOS_NO_SENDERS: No QOS senders. [There are no QOS senders.]"},
		1191	{11008, L"WSA_QOS_NO_RECEIVERS: QOS no receivers. [There are no QOS receivers.]"},
		1192	{11009, L"WSA_QOS_REQUEST_CONFIRMED: QOS request confirmed. [The QOS reserve request has been confirmed.]"},
		1193	{11010, L"WSA_QOS_ADMISSION_FAILURE: QOS admission error. [A QOS error occurred due to lack of resources.]"},
		1194	{11011, L"WSA_QOS_POLICY_FAILURE: QOS policy failure. [The QOS request was rejected because the policy system couldn't allocate the requested resource within the existing policy.]"},
		1195	{11012, L"WSA_QOS_BAD_STYLE: QOS bad style. [An unknown or conflicting QOS style was encountered.]"},
		1196	{11013, L"WSA_QOS_BAD_OBJECT: QOS bad object. [A problem was encountered with some part of the filterspec or the provider-specific buffer in general.]"},
		1197	{11014, L"WSA_QOS_TRAFFIC_CTRL_ERROR: QOS traffic control error. [An error with the underlying traffic control (TC) API as the generic QOS request was converted for local enforcement by the TC API. This could be due to an out of memory error or to an internal QOS provider error.]"},
		1198	{11015, L"WSA_QOS_GENERIC_ERROR: QOS generic error. [A general QOS error.]"},
		1199	{11016, L"WSA_QOS_ESERVICETYPE: QOS service type error. [An invalid or unrecognized service type was found in the QOS flowspec.]"},
		1200	{11017, L"WSA_QOS_EFLOWSPEC: QOS flowspec error. [An invalid or inconsistent flowspec was found in the QOS structure.]"},
		1201	{11018, L"WSA_QOS_EPROVSPECBUF: Invalid QOS provider buffer. [An invalid QOS provider-specific buffer.]"},
		1202	{11019, L"WSA_QOS_EFILTERSTYLE: Invalid QOS filter style. [An invalid QOS filter style was used.]"},
		1203	{11020, L"WSA_QOS_EFILTERTYPE: Invalid QOS filter type. [An invalid QOS filter type was used.]"},
		1204	{11021, L"WSA_QOS_EFILTERCOUNT: Incorrect QOS filter count. [An incorrect number of QOS FILTERSPECs were specified in the FLOWDESCRIPTOR.]"},
		1205	{11022, L"WSA_QOS_EOBJLENGTH: Invalid QOS object length. [An object with an invalid ObjectLength field was specified in the QOS provider-specific buffer.]"},
		1206	{11023, L"WSA_QOS_EFLOWCOUNT: Incorrect QOS flow count. [An incorrect number of flow descriptors was specified in the QOS structure.]"},
		1207	{11024, L"WSA_QOS_EUNKOWNPSOBJ: Unrecognized QOS object. [An unrecognized object was found in the QOS provider-specific buffer.]"},
		1208	{11025, L"WSA_QOS_EPOLICYOBJ: Invalid QOS policy object. [An invalid policy object was found in the QOS provider-specific buffer.]"},
		1209	{11026, L"WSA_QOS_EFLOWDESC: Invalid QOS flow descriptor. [An invalid QOS flow descriptor was found in the flow descriptor list.]"},
		1210	{11027, L"WSA_QOS_EPSFLOWSPEC: Invalid QOS provider-specific flowspec. [An invalid or inconsistent flowspec was found in the QOS provider-specific buffer.]"},
		1211	{11028, L"WSA_QOS_EPSFILTERSPEC: Invalid QOS provider-specific filterspec. [An invalid FILTERSPEC was found in the QOS provider-specific buffer.]"},
		1212	{11029, L"WSA_QOS_ESDMODEOBJ: Invalid QOS shape discard mode object. [An invalid shape discard mode object was found in the QOS provider-specific buffer.]"},
		1213	{11030, L"WSA_QOS_ESHAPERATEOBJ: Invalid QOS shaping rate object. [An invalid shaping rate object was found in the QOS provider-specific buffer.]"},
		1214	{11031, L"WSA_QOS_RESERVED_PETYPE: Reserved policy QOS element type. [A reserved policy element was found in the QOS provider-specific buffer.]"}
		1215	};
		1216	size_t error_index;
		1217	int error;
		1218
		1219	error = WSAGetLastError (); // first get the error code from the system
		1220
		1221	// for each error code we know, see if it's the one we want
		1222	for (error_index = 0; error_index < sizeof (wsa_errors) / sizeof (wsaerror_t); error_index++)
		1223	if (wsa_errors[error_index].number == error)
		1224	return (wsa_errors[error_index].description); // if it's that one, return its description
		1225
		1226	// error code not found
		1227	return (L"Unknown error.");
		1228	}
		1229
		1230
11	pmbaty	1231	HICON W32LoadIcon (const wchar_t *fmt, ...)
		1232	{
		1233	// this function loads an icon from a file into an icon handle.
		1234
		1235	static wchar_t icofile_pathname[MAX_PATH];
		1236	va_list argptr;
		1237
		1238	// concatenate all the arguments in one string
		1239	va_start (argptr, fmt);
		1240	wvsprintf (icofile_pathname, fmt, argptr);
		1241	va_end (argptr);
		1242
		1243	// load the icon from file and return the resulting handle
		1244	return ((HICON) LoadImage (NULL, icofile_pathname, IMAGE_ICON, 0, 0, LR_LOADFROMFILE));
		1245	}
		1246
		1247
		1248	HBITMAP W32LoadImage (const wchar_t *fmt, ...)
		1249	{
		1250	// this function loads an image from a file into a bitmap handle.
		1251
		1252	static wchar_t imgfile_pathname[MAX_PATH];
		1253	va_list argptr;
		1254
		1255	// concatenate all the arguments in one string
		1256	va_start (argptr, fmt);
		1257	wvsprintf (imgfile_pathname, fmt, argptr);
		1258	va_end (argptr);
		1259
		1260	// load the image from file and return the resulting handle
		1261	return ((HBITMAP) LoadImage (NULL, imgfile_pathname, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE));
		1262	}
14	pmbaty	1263
		1264
83	pmbaty	1265	bool IsRegistrationCorrect (const wchar_t *email, const unsigned __int32 code)
14	pmbaty	1266	{
		1267	// quick helper to see if the program is registered. It contains an address to potential crackers.
		1268	// Notice: user's email address may be a wchar_t array, and thus may contain Unicode characters.
		1269	// /!\ WARNING: THE CRACKER MESSAGE SHOULD NEVER CHANGE, AND NEITHER SHOULD THE ALGORITHM BELOW /!\
		1270
		1271	static const char crackermsg[] = "Please, respect my work. DON'T PUBLISH if you crack my program. Thank you and happy cracking :)";
62	pmbaty	1272	static const wchar_t *blacklist[] = { L"bono@fff.com" }; // those crackers didn't play fair :(
14	pmbaty	1273
83	pmbaty	1274	unsigned __int32 correct_activationcode;
14	pmbaty	1275	int byte_index;
		1276	int length;
		1277
		1278	// compute the maximal length of the string for which we need to checksum
		1279	length = wcslen (email);
		1280	if (length > sizeof (crackermsg) - 1)
		1281	length = sizeof (crackermsg) - 1; // bound it to the length of the cracker message
		1282
62	pmbaty	1283	// reuse byte_index to parse the blacklist
		1284	for (byte_index = 0; byte_index < sizeof (blacklist) / sizeof (wchar_t *); byte_index++)
		1285	if (_wcsicmp (blacklist[byte_index], email) == 0)
		1286	return (false); // if email is blacklisted, report it to be false
		1287
14	pmbaty	1288	// hash the supplied e-mail
		1289	correct_activationcode = 5381; // start value
		1290	for (byte_index = 0; byte_index < sizeof (crackermsg) - 1; byte_index++)
		1291	correct_activationcode = ((correct_activationcode << 5) + correct_activationcode)
83	pmbaty	1292	+ ((unsigned __int32) (length > 0 ? towlower (email[byte_index % length]) : 1) // prevent zero divide
		1293	^ (unsigned __int32) crackermsg[byte_index]); // hash = hash * 33 + (char(email) ^ char(crackermsg))
14	pmbaty	1294	correct_activationcode &= 0x7FFFFFFF; // make sure the results remain positive
		1295
		1296	// as usuals, it alls boils down to a single test :(
		1297	return ((length > sizeof ("a@b.c") - 1) && (code == correct_activationcode));
		1298	}

Subversion Repositories Games.Chess Giants

Games.Chess Giants/util.cpp – Rev 185