/* ** i_system.cpp ** Timers, pre-console output, IWAD selection, and misc system routines. ** **--------------------------------------------------------------------------- ** Copyright 1998-2009 Randy Heit ** Copyright (C) 2007-2012 Skulltag Development Team ** Copyright (C) 2007-2016 Zandronum Development Team ** Copyright (C) 2017-2022 GZDoom Development Team ** All rights reserved. ** ** Redistribution and use in source and binary forms, with or without ** modification, are permitted provided that the following conditions ** are met: ** ** 1. Redistributions of source code must retain the above copyright ** notice, this list of conditions and the following disclaimer. ** 2. Redistributions in binary form must reproduce the above copyright ** notice, this list of conditions and the following disclaimer in the ** documentation and/or other materials provided with the distribution. ** 3. The name of the author may not be used to endorse or promote products ** derived from this software without specific prior written permission. ** 4. Redistributions in any form must be accompanied by information on how to ** obtain complete source code for the software and any accompanying software ** that uses the software. The source code must either be included in the ** distribution or be available for no more than the cost of distribution plus ** a nominal fee, and must be freely redistributable under reasonable ** conditions. For an executable file, complete source code means the source ** code for all modules it contains. It does not include source code for ** modules or files that typically accompany the major components of the ** operating system on which the executable file runs. ** ** THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR ** IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES ** OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. ** IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, ** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT ** NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, ** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF ** THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. **--------------------------------------------------------------------------- ** */ // HEADER FILES ------------------------------------------------------------ #pragma warning(disable:4996) #include #include #include #include #include #include #include #include #include #define WIN32_LEAN_AND_MEAN #include #include #include #include #include #include #include "hardware.h" #include "printf.h" #include "version.h" #include "i_sound.h" #include "resource.h" #include "stats.h" #include "v_text.h" #include "utf8.h" #include "i_input.h" #include "c_dispatch.h" #include "v_font.h" #include "i_system.h" #include "bitmap.h" #include "cmdlib.h" #include "i_interface.h" #include "i_mainwindow.h" // MACROS ------------------------------------------------------------------ #ifdef _MSC_VER // Turn off "conversion from 'LONG_PTR' to 'LONG', possible loss of data" // generated by SetClassLongPtr(). #pragma warning(disable:4244) #endif // TYPES ------------------------------------------------------------------- // PUBLIC FUNCTION PROTOTYPES ---------------------------------------------- void DestroyCustomCursor(); // PRIVATE FUNCTION PROTOTYPES --------------------------------------------- static HCURSOR CreateCompatibleCursor(FBitmap &cursorpic, int leftofs, int topofs); static HCURSOR CreateAlphaCursor(FBitmap &cursorpic, int leftofs, int topofs); static HCURSOR CreateBitmapCursor(int xhot, int yhot, HBITMAP and_mask, HBITMAP color_mask); // EXTERNAL DATA DECLARATIONS ---------------------------------------------- EXTERN_CVAR (Bool, queryiwad); // Used on welcome/IWAD screen. EXTERN_CVAR (Int, vid_preferbackend) extern HANDLE StdOut; extern bool FancyStdOut; extern HINSTANCE g_hInst; extern FILE *Logfile; extern bool NativeMouse; // PUBLIC DATA DEFINITIONS ------------------------------------------------- CVAR (String, queryiwad_key, "shift", CVAR_GLOBALCONFIG|CVAR_ARCHIVE); CVAR (Bool, con_debugoutput, false, 0); double PerfToSec, PerfToMillisec; UINT TimerPeriod; const char* sys_ostype = ""; // PRIVATE DATA DEFINITIONS ------------------------------------------------ static WadStuff *WadList; static int NumWads; static int DefaultWad; static HCURSOR CustomCursor; //========================================================================== // // I_DetectOS // // Determine which version of Windows the game is running on. // //========================================================================== void I_DetectOS(void) { OSVERSIONINFOEX info; const char *osname; info.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX); if (!GetVersionEx((OSVERSIONINFO *)&info)) { // Retry with the older OSVERSIONINFO structure. info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx((OSVERSIONINFO *)&info); } switch (info.dwPlatformId) { case VER_PLATFORM_WIN32_NT: osname = "NT"; if (info.dwMajorVersion == 6) { if (info.dwMinorVersion == 0) { osname = (info.wProductType == VER_NT_WORKSTATION) ? "Vista" : "Server 2008"; } else if (info.dwMinorVersion == 1) { osname = (info.wProductType == VER_NT_WORKSTATION) ? "7" : "Server 2008 R2"; } else if (info.dwMinorVersion == 2) { // Starting with Windows 8.1, you need to specify in your manifest // the highest version of Windows you support, which will also be the // highest version of Windows this function returns. osname = (info.wProductType == VER_NT_WORKSTATION) ? "8" : "Server 2012"; } else if (info.dwMinorVersion == 3) { osname = (info.wProductType == VER_NT_WORKSTATION) ? "8.1" : "Server 2012 R2"; } else if (info.dwMinorVersion == 4) { osname = (info.wProductType == VER_NT_WORKSTATION) ? "10 (beta)" : "Server 2016 (beta)"; } } else if (info.dwMajorVersion == 10) { osname = (info.wProductType == VER_NT_WORKSTATION) ? (info.dwBuildNumber >= 22000 ? "11 (or higher)" : "10") : "Server 2016 (or higher)"; } break; default: osname = "Unknown OS"; break; } if (!batchrun) Printf ("OS: Windows %s (NT %lu.%lu) Build %lu\n %s\n", osname, info.dwMajorVersion, info.dwMinorVersion, info.dwBuildNumber, info.szCSDVersion); sys_ostype = osname; } //========================================================================== // // CalculateCPUSpeed // // Make a decent guess at how much time elapses between TSC steps. This can // vary over runtime depending on power management settings, so should not // be used anywhere that truely accurate timing actually matters. // //========================================================================== void CalculateCPUSpeed() { LARGE_INTEGER freq; QueryPerformanceFrequency (&freq); if (freq.QuadPart != 0) { LARGE_INTEGER count1, count2; cycle_t ClockCalibration; DWORD min_diff; ClockCalibration.Reset(); // Count cycles for at least 55 milliseconds. // The performance counter may be very low resolution compared to CPU // speeds today, so the longer we count, the more accurate our estimate. // On the other hand, we don't want to count too long, because we don't // want the user to notice us spend time here, since most users will // probably never use the performance statistics. min_diff = freq.LowPart * 11 / 200; // Minimize the chance of task switching during the testing by going very // high priority. This is another reason to avoid timing for too long. SetPriorityClass(GetCurrentProcess(), REALTIME_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_TIME_CRITICAL); // Make sure we start timing on a counter boundary. QueryPerformanceCounter(&count1); do { QueryPerformanceCounter(&count2); } while (count1.QuadPart == count2.QuadPart); // Do the timing loop. ClockCalibration.Clock(); do { QueryPerformanceCounter(&count1); } while ((count1.QuadPart - count2.QuadPart) < min_diff); ClockCalibration.Unclock(); SetPriorityClass(GetCurrentProcess(), NORMAL_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_NORMAL); PerfToSec = double(count1.QuadPart - count2.QuadPart) / (double(ClockCalibration.GetRawCounter()) * freq.QuadPart); PerfToMillisec = PerfToSec * 1000.0; } if (!batchrun) Printf ("CPU speed: %.0f MHz\n", 0.001 / PerfToMillisec); } //========================================================================== // // I_PrintStr // // Send output to the list box shown during startup (and hidden during // gameplay). // //========================================================================== static void PrintToStdOut(const char *cpt, HANDLE StdOut) { const char* srcp = cpt; FString printData = ""; bool terminal = FancyStdOut; while (*srcp != 0) { if (*srcp == 0x1c && terminal) { srcp += 1; const uint8_t* scratch = (const uint8_t*)srcp; // GCC does not like direct casting of the parameter. EColorRange range = V_ParseFontColor(scratch, CR_UNTRANSLATED, CR_YELLOW); srcp = (char*)scratch; if (range != CR_UNDEFINED) { PalEntry color = V_LogColorFromColorRange(range); printData.AppendFormat("\033[38;2;%u;%u;%um", color.r, color.g, color.b); } } else if (*srcp != 0x1c && *srcp != 0x1d && *srcp != 0x1e && *srcp != 0x1f) { printData += *srcp++; } else { if (srcp[1] != 0) srcp += 2; else break; } } DWORD bytes_written; WriteFile(StdOut, printData.GetChars(), (DWORD)printData.Len(), &bytes_written, NULL); if (terminal) WriteFile(StdOut, "\033[0m", 4, &bytes_written, NULL); } void I_PrintStr(const char *cp) { mainwindow.PrintStr(cp); PrintToStdOut(cp, StdOut); } //========================================================================== // // SetQueryIWAD // // The user had the "Don't ask again" box checked when they closed the // IWAD selection dialog. // //========================================================================== static void SetQueryIWad(HWND dialog) { HWND checkbox = GetDlgItem(dialog, IDC_DONTASKIWAD); int state = (int)SendMessage(checkbox, BM_GETCHECK, 0, 0); bool query = (state != BST_CHECKED); if (!query && queryiwad) { MessageBoxA(dialog, "You have chosen not to show this dialog box in the future.\n" "If you wish to see it again, hold down SHIFT while starting " GAMENAME ".", "Don't ask me this again", MB_OK | MB_ICONINFORMATION); } queryiwad = query; } //========================================================================== // // IWADBoxCallback // // Dialog proc for the IWAD selector. // //========================================================================== static int* pAutoloadflags; BOOL CALLBACK IWADBoxCallback(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam) { int& flags = *pAutoloadflags;; HWND ctrl; int i; switch (message) { case WM_INITDIALOG: // Add our program name to the window title { WCHAR label[256]; FString newlabel; GetWindowTextW(hDlg, label, countof(label)); FString alabel(label); newlabel.Format(GAMENAME " %s: %s", GetVersionString(), alabel.GetChars()); auto wlabel = newlabel.WideString(); SetWindowTextW(hDlg, wlabel.c_str()); } // [SP] Upstreamed from Zandronum char szString[256]; // Check the current video settings. SendDlgItemMessage( hDlg, IDC_WELCOME_FULLSCREEN, BM_SETCHECK, vid_fullscreen ? BST_CHECKED : BST_UNCHECKED, 0 ); switch (vid_preferbackend) { case 1: SendDlgItemMessage( hDlg, IDC_WELCOME_VULKAN2, BM_SETCHECK, BST_CHECKED, 0 ); break; #ifdef HAVE_GLES2 case 2: case 3: SendDlgItemMessage( hDlg, IDC_WELCOME_VULKAN4, BM_SETCHECK, BST_CHECKED, 0 ); break; #endif default: SendDlgItemMessage( hDlg, IDC_WELCOME_VULKAN1, BM_SETCHECK, BST_CHECKED, 0 ); break; } // [SP] This is our's SendDlgItemMessage( hDlg, IDC_WELCOME_NOAUTOLOAD, BM_SETCHECK, (flags & 1) ? BST_CHECKED : BST_UNCHECKED, 0); SendDlgItemMessage( hDlg, IDC_WELCOME_LIGHTS, BM_SETCHECK, (flags & 2) ? BST_CHECKED : BST_UNCHECKED, 0 ); SendDlgItemMessage( hDlg, IDC_WELCOME_BRIGHTMAPS, BM_SETCHECK, (flags & 4) ? BST_CHECKED : BST_UNCHECKED, 0 ); SendDlgItemMessage( hDlg, IDC_WELCOME_WIDESCREEN, BM_SETCHECK, (flags & 8) ? BST_CHECKED : BST_UNCHECKED, 0 ); // Set up our version string. snprintf(szString, sizeof(szString), "Version %s.", GetVersionString()); SetDlgItemTextA (hDlg, IDC_WELCOME_VERSION, szString); // Populate the list with all the IWADs found ctrl = GetDlgItem(hDlg, IDC_IWADLIST); for (i = 0; i < NumWads; i++) { const char *filepart = strrchr(WadList[i].Path, '/'); if (filepart == NULL) filepart = WadList[i].Path; else filepart++; FString work; if (*filepart) work.Format("%s (%s)", WadList[i].Name.GetChars(), filepart); else work = WadList[i].Name.GetChars(); std::wstring wide = work.WideString(); SendMessage(ctrl, LB_ADDSTRING, 0, (LPARAM)wide.c_str()); SendMessage(ctrl, LB_SETITEMDATA, i, (LPARAM)i); } SendMessage(ctrl, LB_SETCURSEL, DefaultWad, 0); SetFocus(ctrl); // Set the state of the "Don't ask me again" checkbox ctrl = GetDlgItem(hDlg, IDC_DONTASKIWAD); SendMessage(ctrl, BM_SETCHECK, queryiwad ? BST_UNCHECKED : BST_CHECKED, 0); // Make sure the dialog is in front. If SHIFT was pressed to force it visible, // then the other window will normally be on top. SetForegroundWindow(hDlg); break; case WM_COMMAND: if (LOWORD(wParam) == IDCANCEL) { EndDialog (hDlg, -1); } else if (LOWORD(wParam) == IDOK || (LOWORD(wParam) == IDC_IWADLIST && HIWORD(wParam) == LBN_DBLCLK)) { SetQueryIWad(hDlg); // [SP] Upstreamed from Zandronum vid_fullscreen = SendDlgItemMessage( hDlg, IDC_WELCOME_FULLSCREEN, BM_GETCHECK, 0, 0 ) == BST_CHECKED; #ifdef HAVE_GLES2 if (SendDlgItemMessage(hDlg, IDC_WELCOME_VULKAN4, BM_GETCHECK, 0, 0) == BST_CHECKED) vid_preferbackend = 2; else #endif if (SendDlgItemMessage(hDlg, IDC_WELCOME_VULKAN2, BM_GETCHECK, 0, 0) == BST_CHECKED) vid_preferbackend = 1; else if (SendDlgItemMessage(hDlg, IDC_WELCOME_VULKAN1, BM_GETCHECK, 0, 0) == BST_CHECKED) vid_preferbackend = 0; // [SP] This is our's. flags = 0; if (SendDlgItemMessage(hDlg, IDC_WELCOME_NOAUTOLOAD, BM_GETCHECK, 0, 0) == BST_CHECKED) flags |= 1; if (SendDlgItemMessage(hDlg, IDC_WELCOME_LIGHTS, BM_GETCHECK, 0, 0) == BST_CHECKED) flags |= 2; if (SendDlgItemMessage(hDlg, IDC_WELCOME_BRIGHTMAPS, BM_GETCHECK, 0, 0) == BST_CHECKED) flags |= 4; if (SendDlgItemMessage(hDlg, IDC_WELCOME_WIDESCREEN, BM_GETCHECK, 0, 0) == BST_CHECKED) flags |= 8; ctrl = GetDlgItem (hDlg, IDC_IWADLIST); EndDialog(hDlg, SendMessage (ctrl, LB_GETCURSEL, 0, 0)); } break; } return FALSE; } //========================================================================== // // I_PickIWad // // Open a dialog to pick the IWAD, if there is more than one found. // //========================================================================== int I_PickIWad(WadStuff *wads, int numwads, bool showwin, int defaultiwad, int& autoloadflags) { int vkey; pAutoloadflags = &autoloadflags; if (stricmp(queryiwad_key, "shift") == 0) { vkey = VK_SHIFT; } else if (stricmp(queryiwad_key, "control") == 0 || stricmp (queryiwad_key, "ctrl") == 0) { vkey = VK_CONTROL; } else { vkey = 0; } if (showwin || (vkey != 0 && GetAsyncKeyState(vkey))) { WadList = wads; NumWads = numwads; DefaultWad = defaultiwad; return (int)DialogBox(g_hInst, MAKEINTRESOURCE(IDD_IWADDIALOG), (HWND)mainwindow.GetHandle(), (DLGPROC)IWADBoxCallback); } return defaultiwad; } //========================================================================== // // I_SetCursor // // Returns true if the cursor was successfully changed. // //========================================================================== bool I_SetCursor(FGameTexture *cursorpic) { HCURSOR cursor; if (cursorpic != NULL && cursorpic->isValid()) { auto image = cursorpic->GetTexture()->GetBgraBitmap(nullptr); // Must be no larger than 32x32. (is this still necessary? if (image.GetWidth() > 32 || image.GetHeight() > 32) { return false; } // Fixme: This should get a raw image, not a texture. (Once raw images get implemented.) int lo = cursorpic->GetTexelLeftOffset(); int to = cursorpic->GetTexelTopOffset(); cursor = CreateAlphaCursor(image, lo, to); if (cursor == NULL) { cursor = CreateCompatibleCursor(image, lo, to); } if (cursor == NULL) { return false; } // Replace the existing cursor with the new one. DestroyCustomCursor(); CustomCursor = cursor; } else { DestroyCustomCursor(); cursor = LoadCursor(NULL, IDC_ARROW); } SetClassLongPtr(mainwindow.GetHandle(), GCLP_HCURSOR, (LONG_PTR)cursor); if (NativeMouse) { POINT pt; RECT client; // If the mouse pointer is within the window's client rect, set it now. if (GetCursorPos(&pt) && GetClientRect(mainwindow.GetHandle(), &client) && ClientToScreen(mainwindow.GetHandle(), (LPPOINT)&client.left) && ClientToScreen(mainwindow.GetHandle(), (LPPOINT)&client.right)) { if (pt.x >= client.left && pt.x < client.right && pt.y >= client.top && pt.y < client.bottom) { SetCursor(cursor); } } } return true; } //========================================================================== // // CreateCompatibleCursor // // Creates a cursor with a 1-bit alpha channel. // //========================================================================== static HCURSOR CreateCompatibleCursor(FBitmap &bmp, int leftofs, int topofs) { int picwidth = bmp.GetWidth(); int picheight = bmp.GetHeight(); // Create bitmap masks for the cursor from the texture. HDC dc = GetDC(NULL); if (dc == NULL) { return nullptr; } HDC and_mask_dc = CreateCompatibleDC(dc); HDC xor_mask_dc = CreateCompatibleDC(dc); HBITMAP and_mask = CreateCompatibleBitmap(dc, 32, 32); HBITMAP xor_mask = CreateCompatibleBitmap(dc, 32, 32); ReleaseDC(NULL, dc); SelectObject(and_mask_dc, and_mask); SelectObject(xor_mask_dc, xor_mask); // Initialize with an invisible cursor. SelectObject(and_mask_dc, GetStockObject(WHITE_PEN)); SelectObject(and_mask_dc, GetStockObject(WHITE_BRUSH)); Rectangle(and_mask_dc, 0, 0, 32, 32); SelectObject(xor_mask_dc, GetStockObject(BLACK_PEN)); SelectObject(xor_mask_dc, GetStockObject(BLACK_BRUSH)); Rectangle(xor_mask_dc, 0, 0, 32, 32); const uint8_t *pixels = bmp.GetPixels(); // Copy color data from the source texture to the cursor bitmaps. for (int y = 0; y < picheight; ++y) { for (int x = 0; x < picwidth; ++x) { const uint8_t *bgra = &pixels[x*4 + y*bmp.GetPitch()]; if (bgra[3] != 0) { SetPixelV(and_mask_dc, x, y, RGB(0,0,0)); SetPixelV(xor_mask_dc, x, y, RGB(bgra[2], bgra[1], bgra[0])); } } } DeleteDC(and_mask_dc); DeleteDC(xor_mask_dc); // Create the cursor from the bitmaps. return CreateBitmapCursor(leftofs, topofs, and_mask, xor_mask); } //========================================================================== // // CreateAlphaCursor // // Creates a cursor with a full alpha channel. // //========================================================================== static HCURSOR CreateAlphaCursor(FBitmap &source, int leftofs, int topofs) { HDC dc; BITMAPV5HEADER bi; HBITMAP color, mono; void *bits; // Find closest integer scale factor for the monitor DPI HDC screenDC = GetDC(0); int dpi = GetDeviceCaps(screenDC, LOGPIXELSX); int scale = max((dpi + 96 / 2 - 1) / 96, 1); ReleaseDC(0, screenDC); memset(&bi, 0, sizeof(bi)); bi.bV5Size = sizeof(bi); bi.bV5Width = 32 * scale; bi.bV5Height = 32 * scale; bi.bV5Planes = 1; bi.bV5BitCount = 32; bi.bV5Compression = BI_BITFIELDS; bi.bV5RedMask = 0x00FF0000; bi.bV5GreenMask = 0x0000FF00; bi.bV5BlueMask = 0x000000FF; bi.bV5AlphaMask = 0xFF000000; dc = GetDC(NULL); if (dc == NULL) { return NULL; } // Create the DIB section with an alpha channel. color = CreateDIBSection(dc, (BITMAPINFO *)&bi, DIB_RGB_COLORS, &bits, NULL, 0); ReleaseDC(NULL, dc); if (color == NULL) { return NULL; } // Create an empty mask bitmap, since CreateIconIndirect requires this. mono = CreateBitmap(32 * scale, 32 * scale, 1, 1, NULL); if (mono == NULL) { DeleteObject(color); return NULL; } // Copy cursor to the color bitmap. Note that GDI bitmaps are upside down compared // to normal conventions, so we create the FBitmap pointing at the last row and use // a negative pitch so that Blit will use GDI's orientation. if (scale == 1) { FBitmap bmp((uint8_t *)bits + 31 * 32 * 4, -32 * 4, 32, 32); bmp.Blit(0, 0, source); } else { TArray unscaled; unscaled.Resize(32 * 32); for (int i = 0; i < 32 * 32; i++) unscaled[i] = 0; FBitmap bmp((uint8_t *)&unscaled[0] + 31 * 32 * 4, -32 * 4, 32, 32); bmp.Blit(0, 0, source); uint32_t *scaled = (uint32_t*)bits; for (int y = 0; y < 32 * scale; y++) { for (int x = 0; x < 32 * scale; x++) { scaled[x + y * 32 * scale] = unscaled[x / scale + y / scale * 32]; } } } return CreateBitmapCursor(leftofs * scale, topofs * scale, mono, color); } //========================================================================== // // CreateBitmapCursor // // Create the cursor from the bitmaps. Deletes the bitmaps before returning. // //========================================================================== static HCURSOR CreateBitmapCursor(int xhot, int yhot, HBITMAP and_mask, HBITMAP color_mask) { ICONINFO iconinfo = { FALSE, // fIcon (DWORD)xhot, // xHotspot (DWORD)yhot, // yHotspot and_mask, // hbmMask color_mask // hbmColor }; HCURSOR cursor = CreateIconIndirect(&iconinfo); // Delete the bitmaps. DeleteObject(and_mask); DeleteObject(color_mask); return cursor; } //========================================================================== // // DestroyCustomCursor // //========================================================================== void DestroyCustomCursor() { if (CustomCursor != NULL) { DestroyCursor(CustomCursor); CustomCursor = NULL; } } //========================================================================== // // I_WriteIniFailed // // Display a message when the config failed to save. // //========================================================================== bool I_WriteIniFailed(const char* filename) { char *lpMsgBuf; FString errortext; FormatMessageA (FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, NULL, GetLastError(), MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language (LPSTR)&lpMsgBuf, 0, NULL ); errortext.Format ("The config file %s could not be written:\n%s", filename, lpMsgBuf); LocalFree (lpMsgBuf); return MessageBoxA(mainwindow.GetHandle(), errortext.GetChars(), GAMENAME " configuration not saved", MB_ICONEXCLAMATION | MB_RETRYCANCEL) == IDRETRY; } //========================================================================== // // I_MakeRNGSeed // // Returns a 32-bit random seed, preferably one with lots of entropy. // //========================================================================== unsigned int I_MakeRNGSeed() { unsigned int seed; // If RtlGenRandom is available, use that to avoid increasing the // working set by pulling in all of the crytographic API. HMODULE advapi = GetModuleHandleA("advapi32.dll"); if (advapi != NULL) { BOOLEAN (APIENTRY *RtlGenRandom)(void *, ULONG) = (BOOLEAN (APIENTRY *)(void *, ULONG))GetProcAddress(advapi, "SystemFunction036"); if (RtlGenRandom != NULL) { if (RtlGenRandom(&seed, sizeof(seed))) { return seed; } } } // Use the full crytographic API to produce a seed. If that fails, // time() is used as a fallback. HCRYPTPROV prov; if (!CryptAcquireContext(&prov, NULL, MS_DEF_PROV, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT)) { return (unsigned int)time(NULL); } if (!CryptGenRandom(prov, sizeof(seed), (uint8_t *)&seed)) { seed = (unsigned int)time(NULL); } CryptReleaseContext(prov, 0); return seed; } //========================================================================== // // I_GetLongPathName // // Returns the long version of the path, or the original if there isn't // anything worth changing. // //========================================================================== FString I_GetLongPathName(const FString &shortpath) { std::wstring wshortpath = shortpath.WideString(); DWORD buffsize = GetLongPathNameW(wshortpath.c_str(), nullptr, 0); if (buffsize == 0) { // nothing to change (it doesn't exist, maybe?) return shortpath; } TArray buff(buffsize, true); DWORD buffsize2 = GetLongPathNameW(wshortpath.c_str(), buff.Data(), buffsize); if (buffsize2 >= buffsize) { // Failure! Just return the short path return shortpath; } FString longpath(buff.Data()); return longpath; } #ifdef _USING_V110_SDK71_ //========================================================================== // // _stat64i32 // // Work around an issue where stat() function doesn't work // with Windows XP compatible toolset. // It uses GetFileInformationByHandleEx() which requires Windows Vista. // //========================================================================== int _wstat64i32(const wchar_t *path, struct _stat64i32 *buffer) { WIN32_FILE_ATTRIBUTE_DATA data; if(!GetFileAttributesExW(path, GetFileExInfoStandard, &data)) return -1; buffer->st_ino = 0; buffer->st_mode = ((data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ? S_IFDIR : S_IFREG)| ((data.dwFileAttributes & FILE_ATTRIBUTE_READONLY) ? S_IREAD : S_IREAD|S_IWRITE); buffer->st_dev = buffer->st_rdev = 0; buffer->st_nlink = 1; buffer->st_uid = 0; buffer->st_gid = 0; buffer->st_size = data.nFileSizeLow; buffer->st_atime = (*(uint64_t*)&data.ftLastAccessTime) / 10000000 - 11644473600LL; buffer->st_mtime = (*(uint64_t*)&data.ftLastWriteTime) / 10000000 - 11644473600LL; buffer->st_ctime = (*(uint64_t*)&data.ftCreationTime) / 10000000 - 11644473600LL; return 0; } #endif struct NumaNode { uint64_t affinityMask = 0; int threadCount = 0; }; static TArray numaNodes; static void SetupNumaNodes() { if (numaNodes.Size() == 0) { // Query processors in the system DWORD_PTR processMask = 0, systemMask = 0; BOOL result = GetProcessAffinityMask(GetCurrentProcess(), &processMask, &systemMask); if (result) { // Find the numa node each processor belongs to std::map nodes; for (int i = 0; i < sizeof(DWORD_PTR) * 8; i++) { DWORD_PTR processorMask = (((DWORD_PTR)1) << i); if (processMask & processorMask) { UCHAR nodeNumber = 0; result = GetNumaProcessorNode(i, &nodeNumber); if (nodeNumber != 0xff) { nodes[nodeNumber].affinityMask |= (uint64_t)processorMask; nodes[nodeNumber].threadCount++; } } } // Convert map to a list for (const auto &it : nodes) { numaNodes.Push(it.second); } } // Fall back to a single node if something went wrong if (numaNodes.Size() == 0) { NumaNode node; node.threadCount = std::thread::hardware_concurrency(); if (node.threadCount == 0) node.threadCount = 1; numaNodes.Push(node); } } } int I_GetNumaNodeCount() { SetupNumaNodes(); return numaNodes.Size(); } int I_GetNumaNodeThreadCount(int numaNode) { SetupNumaNodes(); return numaNodes[numaNode].threadCount; } void I_SetThreadNumaNode(std::thread &thread, int numaNode) { if (numaNodes.Size() > 1) { HANDLE handle = (HANDLE)thread.native_handle(); SetThreadAffinityMask(handle, (DWORD_PTR)numaNodes[numaNode].affinityMask); } } FString I_GetCWD() { auto len = GetCurrentDirectoryW(0, nullptr); TArray curdir(len + 1, true); if (!GetCurrentDirectoryW(len + 1, curdir.Data())) { return ""; } FString returnv(curdir.Data()); FixPathSeperator(returnv); return returnv; } bool I_ChDir(const char* path) { return SetCurrentDirectoryW(WideString(path).c_str()); } void I_OpenShellFolder(const char* infolder) { auto len = GetCurrentDirectoryW(0, nullptr); TArray curdir(len + 1, true); if (!GetCurrentDirectoryW(len + 1, curdir.Data())) { Printf("Unable to retrieve current directory\n"); } else if (SetCurrentDirectoryW(WideString(infolder).c_str())) { Printf("Opening folder: %s\n", infolder); ShellExecuteW(NULL, L"open", L"explorer.exe", L".", NULL, SW_SHOWNORMAL); SetCurrentDirectoryW(curdir.Data()); } else { Printf("Unable to open directory '%s\n", infolder); } }