/* RetroArch - A frontend for libretro. * Copyright (C) 2010-2014 - Hans-Kristian Arntzen * Copyright (C) 2011-2017 - Daniel De Matteis * * RetroArch is free software: you can redistribute it and/or modify it under the terms * of the GNU General Public License as published by the Free Software Found- * ation, either version 3 of the License, or (at your option) any later version. * * RetroArch is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; * without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR * PURPOSE. See the GNU General Public License for more details. * * You should have received a copy of the GNU General Public License along with RetroArch. * If not, see . */ #include /* Win32/WGL context. */ /* necessary for mingw32 multimon defines: */ #ifndef _WIN32_WINNT #define _WIN32_WINNT 0x0500 //_WIN32_WINNT_WIN2K #endif #include #include #include #include #include #include #include #include #ifdef HAVE_CONFIG_H #include "../../config.h" #endif #include "../../configuration.h" #include "../../dynamic.h" #include "../../retroarch.h" #include "../../verbosity.h" #include "../../frontend/frontend_driver.h" #include "../common/win32_common.h" #ifdef HAVE_EGL #include "../common/egl_common.h" #ifdef HAVE_ANGLE #include "../common/angle_common.h" #endif #endif #if defined(HAVE_OPENGL) || defined(HAVE_OPENGLES) #include "../common/gl_common.h" #elif defined(HAVE_OPENGL_CORE) #include "../common/gl_core_common.h" #elif defined(HAVE_OPENGL1) #include "../common/gl1_common.h" #endif #if defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE) #ifndef WGL_CONTEXT_MAJOR_VERSION_ARB #define WGL_CONTEXT_MAJOR_VERSION_ARB 0x2091 #endif #ifndef WGL_CONTEXT_MINOR_VERSION_ARB #define WGL_CONTEXT_MINOR_VERSION_ARB 0x2092 #endif #ifndef WGL_CONTEXT_PROFILE_MASK_ARB #define WGL_CONTEXT_PROFILE_MASK_ARB 0x9126 #endif #ifndef WGL_CONTEXT_CORE_PROFILE_BIT_ARB #define WGL_CONTEXT_CORE_PROFILE_BIT_ARB 0x0001 #endif #ifndef WGL_CONTEXT_FLAGS_ARB #define WGL_CONTEXT_FLAGS_ARB 0x2094 #endif #ifndef WGL_CONTEXT_DEBUG_BIT_ARB #define WGL_CONTEXT_DEBUG_BIT_ARB 0x0001 #endif #endif static BOOL (APIENTRY *p_swap_interval)(int); /* TODO/FIXME - static globals */ static HGLRC win32_hrc; static HGLRC win32_hw_hrc; static HDC win32_hdc; static bool win32_use_hw_ctx = false; static bool win32_core_hw_context_enable = false; static bool wgl_adaptive_vsync = false; #ifdef HAVE_EGL static egl_ctx_data_t win32_egl; #endif static void *dinput_wgl = NULL; static unsigned win32_major = 0; static unsigned win32_minor = 0; static int win32_interval = 0; static enum gfx_ctx_api win32_api = GFX_CTX_NONE; #ifdef HAVE_DYNAMIC static dylib_t dll_handle = NULL; /* Handle to OpenGL32.dll/libGLESv2.dll */ #endif typedef struct gfx_ctx_cgl_data { void *empty; } gfx_ctx_wgl_data_t; static gfx_ctx_proc_t gfx_ctx_wgl_get_proc_address(const char *symbol) { switch (win32_api) { case GFX_CTX_OPENGL_API: #if (defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE)) && !defined(HAVE_OPENGLES) { gfx_ctx_proc_t func = (gfx_ctx_proc_t)wglGetProcAddress(symbol); if (func) return func; } #endif break; default: break; } #ifdef HAVE_DYNAMIC return (gfx_ctx_proc_t)GetProcAddress((HINSTANCE)dll_handle, symbol); #else return NULL; #endif } #if (defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE)) && !defined(HAVE_OPENGLES) static bool wgl_has_extension(const char *extension, const char *extensions) { const char *start = NULL; const char *terminator = NULL; const char *where = strchr(extension, ' '); if (where || *extension == '\0') return false; if (!extensions) return false; start = extensions; for (;;) { where = strstr(start, extension); if (!where) break; terminator = where + strlen(extension); if (where == start || *(where - 1) == ' ') if (*terminator == ' ' || *terminator == '\0') return true; start = terminator; } return false; } static void create_gl_context(HWND hwnd, bool *quit) { struct retro_hw_render_callback *hwr = video_driver_get_hw_context(); bool core_context = (win32_major * 1000 + win32_minor) >= 3001; #ifdef GL_DEBUG bool debug = true; #else bool debug = hwr->debug_context; #endif win32_hdc = GetDC(hwnd); win32_setup_pixel_format(win32_hdc, true); if (win32_hrc) { RARCH_LOG("[WGL]: Using cached GL context.\n"); video_driver_set_video_cache_context_ack(); } else { win32_hrc = wglCreateContext(win32_hdc); /* We'll create shared context later if not. */ if (win32_hrc && !core_context && !debug) { win32_hw_hrc = wglCreateContext(win32_hdc); if (win32_hw_hrc) { if (!wglShareLists(win32_hrc, win32_hw_hrc)) { RARCH_LOG("[WGL]: Failed to share contexts.\n"); *quit = true; } } else *quit = true; } } if (win32_hrc) { if (wglMakeCurrent(win32_hdc, win32_hrc)) g_win32_inited = true; else *quit = true; } else { *quit = true; return; } if (core_context || debug) { unsigned i; int attribs[16]; int *aptr = attribs; typedef HGLRC (APIENTRY *wglCreateContextAttribsProc) (HDC, HGLRC, const int*); static wglCreateContextAttribsProc pcreate_context; for (i = 0; i < 16; i++) attribs[i] = 0; if (core_context) { *aptr++ = WGL_CONTEXT_MAJOR_VERSION_ARB; *aptr++ = win32_major; *aptr++ = WGL_CONTEXT_MINOR_VERSION_ARB; *aptr++ = win32_minor; /* Technically, we don't have core/compat until 3.2. * Version 3.1 is either compat or not depending * on GL_ARB_compatibility. */ if ((win32_major * 1000 + win32_minor) >= 3002) { *aptr++ = WGL_CONTEXT_PROFILE_MASK_ARB; *aptr++ = WGL_CONTEXT_CORE_PROFILE_BIT_ARB; } } if (debug) { *aptr++ = WGL_CONTEXT_FLAGS_ARB; *aptr++ = WGL_CONTEXT_DEBUG_BIT_ARB; } *aptr = 0; if (!pcreate_context) pcreate_context = (wglCreateContextAttribsProc) gfx_ctx_wgl_get_proc_address("wglCreateContextAttribsARB"); /* In order to support the core info "required_hw_api" * field correctly, we should try to init the highest available * version GL context possible. This means trying successively * lower versions until it works, because GL has * no facility for determining the highest possible * supported version. */ if (pcreate_context) { int i; int gl_versions[][2] = {{4, 6}, {4, 5}, {4, 4}, {4, 3}, {4, 2}, {4, 1}, {4, 0}, {3, 3}, {3, 2}, {3, 1}, {3, 0}}; int gl_version_rows = ARRAY_SIZE(gl_versions); HGLRC context = NULL; int version_rows = gl_version_rows; int (*versions)[2] = gl_versions; /* only try higher versions when core_context is true */ if (!core_context) version_rows = 1; /* try versions from highest down to requested version */ for (i = 0; i < version_rows; i++) { if (core_context) { attribs[1] = versions[i][0]; attribs[3] = versions[i][1]; } context = pcreate_context(win32_hdc, NULL, attribs); if (context) { wglMakeCurrent(NULL, NULL); wglDeleteContext(win32_hrc); win32_hrc = context; if (!wglMakeCurrent(win32_hdc, win32_hrc)) { *quit = true; break; } if (win32_use_hw_ctx) { win32_hw_hrc = pcreate_context(win32_hdc, context, attribs); if (!win32_hw_hrc) { RARCH_ERR("[WGL]: Failed to create shared context.\n"); *quit = true; break; } } /* found a suitable version that is high enough, we can stop now */ break; } else if ( versions[i][0] == win32_major && versions[i][1] == win32_minor) { /* The requested version was tried and * is not supported, go ahead and fail * since everything else will be lower than that. */ break; } } if (!context) { RARCH_ERR("[WGL]: Failed to create core context. Falling back to legacy context.\n"); *quit = true; } } else RARCH_ERR("[WGL]: wglCreateContextAttribsARB not supported.\n"); } { const char *(WINAPI * wglGetExtensionsStringARB) (HDC) = 0; const char *extensions = NULL; wglGetExtensionsStringARB = (const char *(WINAPI *) (HDC)) gfx_ctx_wgl_get_proc_address("wglGetExtensionsStringARB"); if (wglGetExtensionsStringARB) { extensions = wglGetExtensionsStringARB(win32_hdc); RARCH_LOG("[WGL] extensions: %s\n", extensions); if (wgl_has_extension("WGL_EXT_swap_control_tear", extensions)) { RARCH_LOG("[WGL]: Adaptive VSync supported.\n"); wgl_adaptive_vsync = true; } } } } #endif #if defined(HAVE_OPENGLES) && defined(HAVE_EGL) static void create_gles_context(HWND hwnd, bool *quit) { EGLint n, major, minor; EGLint format; EGLint attribs[] = { EGL_RENDERABLE_TYPE, EGL_OPENGL_ES2_BIT, EGL_SURFACE_TYPE, EGL_WINDOW_BIT, EGL_BLUE_SIZE, 8, EGL_GREEN_SIZE, 8, EGL_RED_SIZE, 8, EGL_ALPHA_SIZE, 8, EGL_DEPTH_SIZE, 16, EGL_NONE }; EGLint context_attributes[] = { EGL_CONTEXT_CLIENT_VERSION, 2, EGL_NONE }; #ifdef HAVE_ANGLE if (!angle_init_context(&win32_egl, EGL_DEFAULT_DISPLAY, &major, &minor, &n, attribs, NULL)) #else if (!egl_init_context(&win32_egl, EGL_NONE, EGL_DEFAULT_DISPLAY, &major, &minor, &n, attribs, NULL)) #endif { egl_report_error(); goto error; } if (!egl_get_native_visual_id(&win32_egl, &format)) goto error; if (!egl_create_context(&win32_egl, context_attributes)) { egl_report_error(); goto error; } if (!egl_create_surface(&win32_egl, hwnd)) goto error; g_win32_inited = true; return; error: *quit = true; return; } #endif void create_graphics_context(HWND hwnd, bool *quit) { switch (win32_api) { case GFX_CTX_OPENGL_API: #if (defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE)) && !defined(HAVE_OPENGLES) create_gl_context(hwnd, quit); #endif break; case GFX_CTX_OPENGL_ES_API: #if defined (HAVE_OPENGLES) create_gles_context(hwnd, quit); #endif break; case GFX_CTX_NONE: default: break; } } static void gfx_ctx_wgl_swap_interval(void *data, int interval) { (void)data; switch (win32_api) { case GFX_CTX_OPENGL_API: #if (defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE)) && !defined(HAVE_OPENGLES) win32_interval = interval; if (!win32_hrc || !p_swap_interval) return; RARCH_LOG("[WGL]: wglSwapInterval(%i)\n", win32_interval); if (!p_swap_interval(win32_interval)) RARCH_WARN("[WGL]: wglSwapInterval() failed.\n"); #endif break; case GFX_CTX_OPENGL_ES_API: #ifdef HAVE_EGL if (win32_interval != interval) { win32_interval = interval; egl_set_swap_interval(&win32_egl, win32_interval); } #endif break; case GFX_CTX_NONE: default: win32_interval = interval; break; } } static void gfx_ctx_wgl_swap_buffers(void *data) { (void)data; switch (win32_api) { case GFX_CTX_OPENGL_API: SwapBuffers(win32_hdc); break; case GFX_CTX_OPENGL_ES_API: #if defined(HAVE_EGL) egl_swap_buffers(&win32_egl); #endif break; case GFX_CTX_NONE: default: break; } } static bool gfx_ctx_wgl_set_resize(void *data, unsigned width, unsigned height) { return false; } static void gfx_ctx_wgl_update_title(void *data) { char title[128]; title[0] = '\0'; video_driver_get_window_title(title, sizeof(title)); if (title[0]) { const ui_window_t *window = ui_companion_driver_get_window_ptr(); if (window) window->set_title(&main_window, title); } } static void gfx_ctx_wgl_get_video_size(void *data, unsigned *width, unsigned *height) { HWND window = win32_get_window(); if (window) { *width = g_win32_resize_width; *height = g_win32_resize_height; } else { RECT mon_rect; MONITORINFOEX current_mon; unsigned mon_id = 0; HMONITOR hm_to_use = NULL; win32_monitor_info(¤t_mon, &hm_to_use, &mon_id); mon_rect = current_mon.rcMonitor; *width = mon_rect.right - mon_rect.left; *height = mon_rect.bottom - mon_rect.top; } } static void gfx_ctx_wgl_destroy(void *data) { HWND window = win32_get_window(); gfx_ctx_wgl_data_t *wgl = (gfx_ctx_wgl_data_t*)data; switch (win32_api) { case GFX_CTX_OPENGL_API: #if (defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE)) && !defined(HAVE_OPENGLES) if (win32_hrc) { glFinish(); wglMakeCurrent(NULL, NULL); if (!video_driver_is_video_cache_context()) { if (win32_hw_hrc) wglDeleteContext(win32_hw_hrc); wglDeleteContext(win32_hrc); win32_hrc = NULL; win32_hw_hrc = NULL; } } #endif break; case GFX_CTX_OPENGL_ES_API: #ifdef HAVE_EGL egl_destroy(&win32_egl); #endif break; case GFX_CTX_NONE: default: break; } if (window && win32_hdc) { ReleaseDC(window, win32_hdc); win32_hdc = NULL; } if (window) { win32_monitor_from_window(); win32_destroy_window(); } if (g_win32_restore_desktop) { win32_monitor_get_info(); g_win32_restore_desktop = false; } #ifdef HAVE_DYNAMIC dylib_close(dll_handle); #endif if (wgl) free(wgl); wgl_adaptive_vsync = false; win32_core_hw_context_enable = false; g_win32_inited = false; win32_major = 0; win32_minor = 0; p_swap_interval = NULL; } static void *gfx_ctx_wgl_init(void *video_driver) { WNDCLASSEX wndclass = {0}; gfx_ctx_wgl_data_t *wgl = (gfx_ctx_wgl_data_t*)calloc(1, sizeof(*wgl)); if (!wgl) return NULL; if (g_win32_inited) gfx_ctx_wgl_destroy(NULL); #ifdef HAVE_DYNAMIC #ifdef HAVE_OPENGL dll_handle = dylib_load("OpenGL32.dll"); #else dll_handle = dylib_load("libGLESv2.dll"); #endif #endif win32_window_reset(); win32_monitor_init(); wndclass.lpfnWndProc = WndProcWGL; if (!win32_window_init(&wndclass, true, NULL)) goto error; return wgl; error: if (wgl) free(wgl); return NULL; } static bool gfx_ctx_wgl_set_video_mode(void *data, unsigned width, unsigned height, bool fullscreen) { if (!win32_set_video_mode(NULL, width, height, fullscreen)) { RARCH_ERR("[WGL]: win32_set_video_mode failed.\n"); goto error; } switch (win32_api) { case GFX_CTX_OPENGL_API: p_swap_interval = (BOOL (APIENTRY *)(int))gfx_ctx_wgl_get_proc_address("wglSwapIntervalEXT"); break; case GFX_CTX_NONE: default: break; } gfx_ctx_wgl_swap_interval(data, win32_interval); return true; error: gfx_ctx_wgl_destroy(data); return false; } static void gfx_ctx_wgl_input_driver(void *data, const char *joypad_name, input_driver_t **input, void **input_data) { settings_t *settings = config_get_ptr(); #if _WIN32_WINNT >= 0x0501 #ifdef HAVE_WINRAWINPUT const char *input_driver = settings->arrays.input_driver; /* winraw only available since XP */ if (string_is_equal(input_driver, "raw")) { *input_data = input_winraw.init(joypad_name); if (*input_data) { *input = &input_winraw; dinput_wgl = NULL; return; } } #endif #endif #ifdef HAVE_DINPUT dinput_wgl = input_dinput.init(joypad_name); *input = dinput_wgl ? &input_dinput : NULL; *input_data = dinput_wgl; #endif } static enum gfx_ctx_api gfx_ctx_wgl_get_api(void *data) { return win32_api; } static bool gfx_ctx_wgl_bind_api(void *data, enum gfx_ctx_api api, unsigned major, unsigned minor) { (void)data; win32_major = major; win32_minor = minor; win32_api = api; #if defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE) if (api == GFX_CTX_OPENGL_API) return true; #endif #if defined(HAVE_OPENGLES) if (api == GFX_CTX_OPENGL_ES_API) return true; #endif return false; } static void gfx_ctx_wgl_bind_hw_render(void *data, bool enable) { switch (win32_api) { case GFX_CTX_OPENGL_API: #if (defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE)) && !defined(HAVE_OPENGLES) win32_use_hw_ctx = enable; if (win32_hdc) { if (enable) wglMakeCurrent(win32_hdc, win32_hw_hrc); else wglMakeCurrent(win32_hdc, win32_hrc); } #endif break; case GFX_CTX_OPENGL_ES_API: #ifdef HAVE_EGL egl_bind_hw_render(&win32_egl, enable); #endif break; case GFX_CTX_NONE: default: break; } } static uint32_t gfx_ctx_wgl_get_flags(void *data) { uint32_t flags = 0; switch (win32_api) { case GFX_CTX_OPENGL_API: if (wgl_adaptive_vsync) BIT32_SET(flags, GFX_CTX_FLAGS_ADAPTIVE_VSYNC); if (win32_core_hw_context_enable) BIT32_SET(flags, GFX_CTX_FLAGS_GL_CORE_CONTEXT); if (string_is_equal(video_driver_get_ident(), "gl1")) { } else if (string_is_equal(video_driver_get_ident(), "glcore")) { #if defined(HAVE_SLANG) && defined(HAVE_SPIRV_CROSS) BIT32_SET(flags, GFX_CTX_FLAGS_SHADERS_SLANG); #endif } else { #ifdef HAVE_CG if (!win32_core_hw_context_enable) BIT32_SET(flags, GFX_CTX_FLAGS_SHADERS_CG); #endif #ifdef HAVE_GLSL BIT32_SET(flags, GFX_CTX_FLAGS_SHADERS_GLSL); #endif } break; case GFX_CTX_OPENGL_ES_API: #if defined(HAVE_SLANG) && defined(HAVE_SPIRV_CROSS) BIT32_SET(flags, GFX_CTX_FLAGS_SHADERS_SLANG); #endif #ifdef HAVE_GLSL BIT32_SET(flags, GFX_CTX_FLAGS_SHADERS_GLSL); #endif break; case GFX_CTX_NONE: default: break; } return flags; } static void gfx_ctx_wgl_set_flags(void *data, uint32_t flags) { switch (win32_api) { case GFX_CTX_OPENGL_API: #if defined(HAVE_OPENGL) || defined(HAVE_OPENGL1) || defined(HAVE_OPENGL_CORE) if (BIT32_GET(flags, GFX_CTX_FLAGS_ADAPTIVE_VSYNC)) wgl_adaptive_vsync = true; if (BIT32_GET(flags, GFX_CTX_FLAGS_GL_CORE_CONTEXT)) win32_core_hw_context_enable = true; #endif break; case GFX_CTX_NONE: default: break; } } static void gfx_ctx_wgl_get_video_output_size(void *data, unsigned *width, unsigned *height) { win32_get_video_output_size(width, height); } static void gfx_ctx_wgl_get_video_output_prev(void *data) { } static void gfx_ctx_wgl_get_video_output_next(void *data) { } const gfx_ctx_driver_t gfx_ctx_wgl = { gfx_ctx_wgl_init, gfx_ctx_wgl_destroy, gfx_ctx_wgl_get_api, gfx_ctx_wgl_bind_api, gfx_ctx_wgl_swap_interval, gfx_ctx_wgl_set_video_mode, gfx_ctx_wgl_get_video_size, win32_get_refresh_rate, gfx_ctx_wgl_get_video_output_size, gfx_ctx_wgl_get_video_output_prev, gfx_ctx_wgl_get_video_output_next, win32_get_metrics, NULL, gfx_ctx_wgl_update_title, win32_check_window, gfx_ctx_wgl_set_resize, win32_has_focus, win32_suppress_screensaver, true, /* has_windowed */ gfx_ctx_wgl_swap_buffers, gfx_ctx_wgl_input_driver, gfx_ctx_wgl_get_proc_address, NULL, NULL, win32_show_cursor, "wgl", gfx_ctx_wgl_get_flags, gfx_ctx_wgl_set_flags, gfx_ctx_wgl_bind_hw_render, NULL, NULL };