openttd-mini: comparison win32.c

equal deleted inserted replaced

-:614bba52258d
+:0a7025304867
 	pal = alloca(sizeof(LOGPALETTE) + (256-1) * sizeof(PALETTEENTRY));
 	pal->palVersion = 0x300;
 	pal->palNumEntries = 256;
 	for(i=0,b=_cur_palette; i!=256;i++,b+=3) {
 		pal->palPalEntry[i].peRed = b[0];
 		pal->palPalEntry[i].peGreen = b[1];
 		pal->palPalEntry[i].peBlue = b[2];
 		pal->palPalEntry[i].peFlags = 0;
 	}
 	_wnd.gdi_palette = CreatePalette(pal);
 	if (_wnd.gdi_palette == NULL)
 		error("CreatePalette failed!\n");
 }
 static void UpdatePalette(HDC dc, uint start, uint count)
 {
 	AS(VK_DIVIDE,			WKC_NUM_DIV),
 	AS(VK_MULTIPLY,		WKC_NUM_MUL),
 	AS(VK_SUBTRACT,		WKC_NUM_MINUS),
 	AS(VK_ADD,				WKC_NUM_PLUS),
 	AS(VK_DECIMAL,		WKC_NUM_DECIMAL),
 	{0}
 };
 static uint MapWindowsKey(uint key)
 {
 	const VkMapping	*map = _vk_mapping - 1;
 static bool AllocateDibSection(int w, int h);
 static void ClientSizeChanged(int w, int h)
 {
 	if (_wnd.double_size) { w >>= 1; h >>= 1; }
 	// allocate new dib section of the new size
 	if (AllocateDibSection(w, h)) {
 		// mark all palette colors dirty
 		_pal_first_dirty = 0;
 		_pal_last_dirty = 255;
 		GameSizeChanged();
 		// redraw screen
 		if (_wnd.running) {
 			_screen.dst_ptr = _wnd.buffer_bits;
 			UpdateWindows();
 		}
 		BeginPaint(hwnd, &ps);
 		dc = ps.hdc;
 		dc2 = CreateCompatibleDC(dc);
 		old_bmp = SelectObject(dc2, _wnd.dib_sect);
 		old_palette = SelectPalette(dc, _wnd.gdi_palette, FALSE);
 		if (_pal_last_dirty != -1) {
 			UpdatePalette(dc2, _pal_first_dirty, _pal_last_dirty - _pal_first_dirty + 1);
 			_pal_last_dirty = -1;
 		}
 		BitBlt(dc, 0, 0, _wnd.width, _wnd.height, dc2, 0, 0, SRCCOPY);
 		SelectPalette(dc, old_palette, TRUE);
 		SelectObject(dc2, old_bmp);
 		DeleteDC(dc2);
 		EndPaint(hwnd, &ps);
 		ReleaseDC(hwnd, hDC);
 		if (nChanged)
 			InvalidateRect(hwnd, NULL, FALSE);
 		return 0;
 	}
 	case WM_CLOSE:
 		AskExitGame();
 		return 0;
 	case WM_LBUTTONDOWN:
 		if (_wnd.double_size) {
 			x >>= 1;
 			y >>= 1;
 		}
 		if (_cursor.fix_at) {
 			int dx = x - _cursor.pos.x;
 			int dy = y - _cursor.pos.y;
 			if (dx != 0 || dy != 0) {
 				_cursor.delta.x += dx;
 		MyShowCursor(false);
 		return 0;
 	}
 	case WM_KEYDOWN:
 		{
 		// this is the rewritten ascii input function
 		// it disables windows deadkey handling --> more linux like :D
 unsigned short w = 0;
 		int r = 0;
 		byte ks[256];
 			_double_size ^= 1;
 			_wnd.double_size = _double_size;
 			ClientSizeChanged(_wnd.width, _wnd.height);
 			MarkWholeScreenDirty();
 		}
 		break;
 	case WM_SYSKEYDOWN:
 		switch(wParam) {
 		case VK_RETURN:
 		RECT r2;
 		int w, h;
 		SetRect(&r2, 0, 0, 0, 0);
 		AdjustWindowRect(&r2, GetWindowLong(hwnd, GWL_STYLE), FALSE);
 		w = r->right - r->left - (r2.right - r2.left);
 		h = r->bottom - r->top - (r2.bottom - r2.top);
 		if (_wnd.double_size) { w >>= 1; h >>= 1; }
 		w = clamp(w & ~0x7, 64, MAX_SCREEN_WIDTH);
 		h = clamp(h & ~0x7, 64, MAX_SCREEN_HEIGHT);
 #if !defined(GET_WHEEL_DELTA_WPARAM)
 # define GET_WHEEL_DELTA_WPARAM(wparam) ((short)HIWORD(wparam))
 #endif  //GET_WHEEL_DELTA_WPARAM
 	case WM_MOUSEWHEEL: {
 		int delta = GET_WHEEL_DELTA_WPARAM(wParam);
 		if (delta < 0) {
 			_cursor.wheel++;
 		} else if (delta > 0) {
 			_cursor.wheel--;
 		}
 static void MakeWindow(bool full_screen)
 {
 	_fullscreen = full_screen;
 	_wnd.double_size = _double_size && !full_screen;
 	// recreate window?
 	if ((full_screen|_wnd.fullscreen) && _wnd.main_wnd) {
 		DestroyWindow(_wnd.main_wnd);
 		_wnd.main_wnd = 0;
 	}
 	if (full_screen) {
 		DEVMODE settings;
 		memset(&settings, 0, sizeof(DEVMODE));
 		settings.dmSize = sizeof(DEVMODE);
 		settings.dmFields = DM_PELSWIDTH | DM_PELSHEIGHT;
 	{
 		RECT r;
 		uint style;
 		int x, y, w, h;
 		if ((_wnd.fullscreen=full_screen) != false) {
 			style = WS_POPUP | WS_VISIBLE;
 			SetRect(&r, 0, 0, _wnd.width_org, _wnd.height_org);
 		} else {
 			style = WS_OVERLAPPEDWINDOW | WS_VISIBLE;
 	if (_wnd.alloced_bits) {
 		free(_wnd.alloced_bits);
 		_wnd.alloced_bits = NULL;
 	}
 	bi = alloca(sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD)*256);
 	memset(bi, 0, sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD)*256);
 	bi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
 	{
 		if (_wnd.double_size) {
 			_wnd.alloced_bits = _wnd.buffer_bits = (byte*)malloc(w * h);
 			w *= 2;
 			h *= 2;
 		}
 		bi->bmiHeader.biWidth = _wnd.width = w;
 		bi->bmiHeader.biHeight = -(_wnd.height = h);
 	}
 	bi->bmiHeader.biPlanes = 1;
 	bi->bmiHeader.biBitCount = 8;
 	bi->bmiHeader.biCompression = BI_RGB;
 	if (_wnd.dib_sect)
 	_wnd.dib_sect = CreateDIBSection(dc, bi, DIB_RGB_COLORS, &_wnd.bitmap_bits, NULL, 0);
 	if (_wnd.dib_sect == NULL)
 		error("CreateDIBSection failed");
 	ReleaseDC(0, dc);
 	if (!_wnd.double_size)
 		_wnd.buffer_bits = _wnd.bitmap_bits;
 	return true;
 }
 {
 	int i = 0, n = 0;
 	DEVMODE dm;
 	while (EnumDisplaySettings(NULL, i++, &dm)) {
 		if (dm.dmBitsPerPel == 8 &&
 				IS_INT_INSIDE(dm.dmPelsWidth, 640, MAX_SCREEN_WIDTH+1) &&
 				IS_INT_INSIDE(dm.dmPelsHeight, 480, MAX_SCREEN_HEIGHT+1) &&
 				(n == 0 || _resolutions[n-1][0] != dm.dmPelsWidth || _resolutions[n-1][1] != dm.dmPelsHeight)) {
 			_resolutions[n][0] = dm.dmPelsWidth;
 			_resolutions[n][1] = dm.dmPelsHeight;
 	byte *d = (byte*)_wnd.bitmap_bits + top * p * 4 + left * 2;
 	int i;
 	while (height) {
 		for(i=0; i!=width; i++) {
 			d[i*2] = d[i*2+1] = d[i*2+p*2] = d[i*2+1+p*2] = s[i];
 		}
 		s += p;
 		d += p * 4;
 		height--;
 	}
 #endif
 			_fast_forward |= 2;
 		} else if (_fast_forward&2) {
 			_fast_forward = 0;
 		}
 		cur_ticks=GetTickCount();
 		if ((_fast_forward && !_pause) || cur_ticks > next_tick)
 			next_tick = cur_ticks;
 		if (cur_ticks == next_tick) {
 			next_tick += 30;
 			_ctrl_pressed = _wnd.has_focus && GetAsyncKeyState(VK_CONTROL)<0;
 			_shift_pressed = _wnd.has_focus && GetAsyncKeyState(VK_SHIFT)<0;
 			_dbg_screen_rect = _wnd.has_focus && GetAsyncKeyState(VK_CAPITAL)<0;
 			// determine which directional keys are down
 			_dirkeys =
 				(GetAsyncKeyState(VK_LEFT) < 0 ? 1 : 0) +
 				(GetAsyncKeyState(VK_UP) < 0 ? 2 : 0) +
 				(GetAsyncKeyState(VK_RIGHT) < 0 ? 4 : 0) +
 				(GetAsyncKeyState(VK_DOWN) < 0 ? 8 : 0);
 			GameLoop();
 			_cursor.delta.x = _cursor.delta.y = 0;
 			if (_force_full_redraw)
 				MarkWholeScreenDirty();
 static bool Win32GdiChangeRes(int w, int h)
 {
 	_wnd.width = _wnd.width_org = w;
 	_wnd.height = _wnd.height_org = h;
 	MakeWindow(_wnd.fullscreen);
 	return true;
 }
 const HalVideoDriver _win32_video_driver = {
 	Win32GdiStart,
 	do {
 		if ((vol=_midi.new_vol) != -1) {
 			_midi.new_vol = -1;
 			MidiIntSetVolume(vol);
 		}
 		if ((s=_midi.start_song)[0]) {
 			_midi.playing = MidiIntPlaySong(s);
 			s[0] = 0;
 			// Delay somewhat in case we don't manage to play.
 			if (!_midi.playing) {
 				Sleep(5000);
 			}
 		}
 		if (_midi.stop_song != false && _midi.playing) {
 			_midi.stop_song = false;
 			_midi.playing = false;
 static void FillHeaders()
 {
 	WAVEHDR *hdr;
 	for(hdr=_wave_hdr; hdr != endof(_wave_hdr); hdr++) {
 		if (!(hdr->dwFlags & WHDR_INQUEUE)) {
 			MxMixSamples(_mixer, hdr->lpData, hdr->dwBufferLength >> 2);
 			if (waveOutWrite(_waveout, hdr, sizeof(WAVEHDR)) != MMSYSERR_NOERROR)
 				error("waveOutWrite failed");
 		}
 	}
 }
 static char *Win32SoundStart(char **parm)
 {
 	WAVEFORMATEX wfex;
 	int hz;
 	_bufsize = GetDriverParamInt(parm, "bufsize", 1024);
 	hz = GetDriverParamInt(parm, "hz", 11025);
 	wfex.wFormatTag = WAVE_FORMAT_PCM;
 	wfex.nChannels = 2;
 	wfex.nSamplesPerSec = hz;
 static uint32 *_crc_table;
 static void MakeCRCTable(uint32 *table) {
 	uint32 crc, poly = 0xEDB88320L;
 	int	i, j;
 	_crc_table = table;
 	for (i=0; i!=256; i++) {
 		crc = i;
 		for (j=8; j!=0; j--) {
 				filesize += numread;
 				crc = CalcCRC(buffer, numread, crc);
 			}
 			dfi->size = filesize;
 			dfi->crc32 = crc ^ (uint32)-1;
 			if (GetFileTime(file, NULL, NULL, &write_time)) {
 				FileTimeToSystemTime(&write_time, &dfi->file_time);
 			}
 			CloseHandle(file);
 		}
 	}
 	output = PrintModuleInfo(output, NULL);
 	return output;
 }
 static const char _crash_desc[] =
 	"A serious fault condition occured in the game. The game will shut down.\n"
 	"Press \"Submit report\" to send crash information to the developers. "
 	"This will greatly help debugging. The information contained in the report is "
 	"displayed below.\n"
 	"Press \"Emergency save\" to attempt saving the game.";
 static const char _save_succeeded[] =
 	"Emergency save succeeded.\nBe aware that critical parts of the internal game state "
 	"may have become corrupted. The saved game is not guaranteed to work.";
 bool EmergencySave();
 	BOOL (WINAPI *InternetCloseHandle)(HINTERNET);
 	BOOL (WINAPI *HttpQueryInfo)(HINTERNET, DWORD, LPVOID, LPDWORD, LPDWORD);
 } WinInetProcs;
 #define M(x) x "\0"
 static const char wininet_files[] =
 	M("wininet.dll")
 	M("InternetOpenA")
 	M("InternetConnectA")
 	M("HttpOpenRequestA")
 	M("HttpSendRequestA")
 	HINTERNET inet, conn, http;
 	char *err = NULL;
 	DWORD code, len;
 	static char buf[100];
 	char buff[100];
 	if (_wininet.InternetOpen == NULL && !LoadLibraryList((void**)&_wininet, wininet_files)) return "can't load wininet.dll";
 	inet = _wininet.InternetOpen("TTD", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0 );
 	if (inet == NULL) { err = "internetopen failed"; goto error1; }
 	if (!_wininet.HttpSendRequest(http, "Content-type: application/binary", -1, msg, msglen)) { err = "httpsendrequest failed"; goto error4; }
 	len = sizeof(code);
 	if (!_wininet.HttpQueryInfo(http, HTTP_QUERY_STATUS_CODE | HTTP_QUERY_FLAG_NUMBER, &code, &len, 0)) { err = "httpqueryinfo failed"; goto error4; }
 	if (code != 200) {
 		int l = sprintf(buf, "Server said: %d ", code);
 		len = sizeof(buf) - l;
 		_wininet.HttpQueryInfo(http, HTTP_QUERY_STATUS_TEXT, buf + l, &len, 0);
 		err = buf;
 	h = CreateFile(file, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
 	if (h == NULL) return;
 	size = GetFileSize(h, NULL);
 	if (size > 500000) goto error1;
 	mem = malloc(size);
 	if (mem == NULL) goto error1;
 	if (!ReadFile(h, mem, size, &read, NULL) || read != size) goto error2;
 	SubmitCrashReport(wnd, mem, size, file);
 error2:
 	free(mem);
 error1:
 	CloseHandle(h);
 {
 	RECT r,r2;
 	int offs;
 	GetWindowRect(wnd, &r);
 	SetDlgItemText(wnd, 15, _expand_texts[mode == 1]);
 	if (mode >= 0) {
 		GetWindowRect(GetDlgItem(wnd, 11), &r2);
 		offs = r2.bottom - r2.top + 10;
 		if (!mode) offs=-offs;
 		SetWindowPos(wnd, HWND_TOPMOST, 0, 0, r.right - r.left, r.bottom - r.top + offs, SWP_NOMOVE | SWP_NOZORDER);
 	} else {
 		SetWindowPos(wnd, HWND_TOPMOST,
 			(GetSystemMetrics(SM_CXSCREEN) - (r.right - r.left)) >> 1,
 			(GetSystemMetrics(SM_CYSCREEN) - (r.bottom - r.top)) >> 1,
 			0, 0, SWP_NOSIZE);
 	}
 }
 				MessageBoxA(wnd, "Save failed", "Save failed", MB_ICONINFORMATION);
 			break;
 		}
 		case 14: { // Submit crash report
 			char *s;
 			SetCursor(LoadCursor(NULL, IDC_WAIT));
 			s = SubmitCrashReport(wnd, _crash_msg, strlen(_crash_msg), "");
 			if (s) {
 				MessageBoxA(wnd, s, "Error", MB_ICONSTOP);
 				break;
 			}
 			// try to submit emergency savegame
 			if (_did_emerg_save || DoEmergencySave(wnd)) {
 				SubmitFile(wnd, "crash.sav");
 			}
 			// try to submit the autosaved game
 	char *output;
 	static bool had_exception;
 	if (had_exception) { ExitProcess(0); }
 	had_exception = true;
 	_ident = GetTickCount(); // something pretty unique
 	MakeCRCTable(alloca(256 * sizeof(uint32)));
 	_crash_msg = output = LocalAlloc(LMEM_FIXED, 8192);
 	{
 		SYSTEMTIME time;
 		GetLocalTime(&time);
 		output += sprintf(output,
 			"*** OpenTTD Crash Report ***\r\n"
 			"Date: %d-%.2d-%.2d %.2d:%.2d:%.2d\r\n"
 			"Build: %s built on " __TIMESTAMP__ "\r\n",
 			time.wYear,
 			time.wMonth,
 static void Win32InitializeExceptions()
 {
 	_asm {
 		mov _safe_esp,esp
 	}
 	SetUnhandledExceptionFilter(ExceptionHandler);
 }
 #endif
 static char *_fios_path;
 }
 static HANDLE MyFindFirstFile(char *path, char *file, WIN32_FIND_DATA *fd)
 {
 	char paths[MAX_PATH];
 	sprintf(paths, "%s\\%s", path, file);
 	return FindFirstFile(paths, fd);
 }
 int CDECL compare_FiosItems (const void *a, const void *b) {
 	const FiosItem *db = (const FiosItem *) b;
 	int r;
 	if (_savegame_sort_order < 2) // sort by date
 r = da->mtime < db->mtime ? -1 : 1;
 	else
 		r = stricmp(da->title[0] ? da->title : da->name, db->title[0] ? db->title : db->name);
 	if (_savegame_sort_order & 1) r = -r;
 	return r;
 }
 	if (_fios_path[3] != 0) {
 		fios = FiosAlloc();
 		fios->type = FIOS_TYPE_PARENT;
 		strcpy(fios->title, ".. (Parent directory)");
 	}
 	// Show subdirectories first
 	h = MyFindFirstFile(_fios_path, "*.*", &fd);
 	if (h != INVALID_HANDLE_VALUE) {
 		do {
 	switch(item->type) {
 	case FIOS_TYPE_DRIVE:
 		sprintf(path, "%c:\\", item->title[0]);
 		break;
 	case FIOS_TYPE_PARENT:
 		// Skip drive part
 		path += 3;
 		s = path;
 		while (*path) {
 	case FIOS_TYPE_DIR:
 		// Scan to end
 		while (*++path);
 		// Add backslash?
 		if (path[-1] != '\\') *path++ = '\\';
 		strcpy(path, item->name);
 		break;
 	case FIOS_TYPE_FILE:
 		FiosMakeSavegameName(str_buffr, item->name);
 	root[2] = '\\';
 	root[3] = 0;
 	if (GetDiskFreeSpace(root, &spc, &bps, &nfc, &tnc)) {
 		uint32 tot = ((spc*bps)*(uint64)nfc) >> 20;
 		SET_DPARAM32(0, tot);
 		return STR_4005_BYTES_FREE;
 	} else {
 		return STR_4006_UNABLE_TO_READ_DRIVE;
 	}
 }
 			line++;
 		// end?
 		if (*line == 0)
 			break;
 		// special handling when quoted
 		if (*line == '"') {
 			argv[n++] = ++line;
 			while (*line != '"') {
 				if (*line == 0) return n;
 			while (*line != ' ' && *line != '\t') {
 				if (*line == 0) return n;
 				line++;
 			}
 		}
 		*line++ = 0;
 	} while (n != max_argc);
 	return n;
 }
 	if (_has_console) return;
 	_has_console = true;
 	AllocConsole();
 	hand = GetStdHandle(STD_OUTPUT_HANDLE);
 	GetConsoleScreenBufferInfo(hand, &coninfo);
 	coninfo.dwSize.Y = 500;
 	SetConsoleScreenBufferSize(hand, coninfo.dwSize);
 	// redirect unbuffered STDIN, STDOUT, STDERR to the console
 #if !defined(__CYGWIN__)
 	*stdout = *_fdopen( _open_osfhandle((long)hand, _O_TEXT), "w" );
 	*stdin = *_fdopen(_open_osfhandle((long)GetStdHandle(STD_INPUT_HANDLE), _O_TEXT), "w" );
 	*stderr = *_fdopen(_open_osfhandle((long)GetStdHandle(STD_ERROR_HANDLE), _O_TEXT), "w" );
 #else
 	// open_osfhandle is not in cygwin
 	*stdout = *fdopen(1, "w" );
 	*stdin = *fdopen(0, "w" );
 	*stderr = *fdopen(2, "w" );
 #endif
 	setvbuf( stdin, NULL, _IONBF, 0 );
 	setvbuf( stdout, NULL, _IONBF, 0 );
 	setvbuf( stderr, NULL, _IONBF, 0 );
 }
 void ShowInfo(const char *str)
 {
 	if (_has_console)
 		puts(str);
 	else {
 		bool old;
 		ReleaseCapture();
 		_left_button_clicked =_left_button_down = false;
 		old = MyShowCursor(true);
 		if (MessageBoxA(GetActiveWindow(), str, "OpenTTD", MB_ICONINFORMATION | MB_OKCANCEL) == IDCANCEL) {
 			CreateConsole();
 		}
 		MyShowCursor(old);
 #endif
 	argc = ParseCommandLine(GetCommandLine(), argv, lengthof(argv));
 #if defined(WIN32_EXCEPTION_TRACKER)
 	{
 		Win32InitializeExceptions();
 	}
 #endif
 #if defined(WIN32_EXCEPTION_TRACKER_DEBUG)
 	char *s;
 	char *cfg;
 	_path.personal_dir = _path.game_data_dir = cfg = malloc(MAX_PATH);
 	GetCurrentDirectory(MAX_PATH - 1, cfg);
 	s = strchr(cfg, 0);
 	if (s[-1] != '\\') { s[0] = '\\'; s[1] = 0; }
 	_path.save_dir = str_fmt("%ssave", cfg);

changeset 193	0a7025304867
parent 164	0cbdf3c9bde1
child 196	c4c33c0764a0