/*
 * Copyright © 2014 Emil Velikov
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice (including the next
 * paragraph) shall be included in all copies or substantial portions of the
 * Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
 * IN THE SOFTWARE.
 */

#include <assert.h>
#include <stdlib.h>
#include <windows.h>

#include "piglit-util-gl.h"
#include "piglit_wl_framework.h"

static void
process_next_event(struct piglit_winsys_framework *winsys_fw)
{
	const struct piglit_gl_test_config *test_config = winsys_fw->wfl_fw.gl_fw.test_config;

	BOOL bRet;
	MSG msg;

	bRet = GetMessage(&msg, NULL, 0, 0);
	/* bRet will be negative on error, zero on WM_QUIT, positive for other messages */
	if (bRet < 0) {
		exit(EXIT_FAILURE);
	}

	if (0) {
		fprintf(stderr, "message = 0x%04x, wParam = 0x%04x\n", msg.message, msg.wParam);
	}

	switch (msg.message) {
	case WM_PAINT:
		winsys_fw->need_redisplay = true;
		break;
	case WM_SIZE:
		if (winsys_fw->user_reshape_func) {
			RECT rect;
			if (GetClientRect(msg.hwnd, &rect)) {
				int width  = rect.right  - rect.left;
				int height = rect.bottom - rect.top;
				winsys_fw->user_reshape_func(width, height);
			}
		}
		winsys_fw->need_redisplay = true;
		break;
	case WM_CHAR:
		if (winsys_fw->user_keyboard_func) {
			winsys_fw->user_keyboard_func(msg.wParam, 0, 0);
		}
		winsys_fw->need_redisplay = true;
		break;
	case WM_SYSCOMMAND:
		if (msg.wParam == SC_CLOSE) {
			PostQuitMessage(EXIT_SUCCESS);
		}
		break;
	case WM_CLOSE:
		/* XXX: we never see this message here in practice, only WM_SYSCOMMAND::SC_CLOSE above */
		PostQuitMessage(EXIT_SUCCESS);
		break;
	case WM_QUIT:
		/* TODO: cleanup/teardown things */
		exit(msg.wParam);
	default:
		break;
	}

	TranslateMessage(&msg);
	DispatchMessage(&msg);

	if (winsys_fw->need_redisplay) {
		enum piglit_result result = PIGLIT_PASS;
		if (test_config->display)
			result = test_config->display();
		if (piglit_automatic)
			piglit_report_result(result);
		winsys_fw->need_redisplay = false;
	}
}

static void
enter_event_loop(struct piglit_winsys_framework *winsys_fw)
{
	while (true)
		process_next_event(winsys_fw);
}

static void
show_window(struct piglit_winsys_framework *winsys_fw)
{
	waffle_window_show(winsys_fw->wfl_fw.window);
}

static void
destroy(struct piglit_gl_framework *gl_fw)
{
	struct piglit_winsys_framework *winsys_fw= piglit_winsys_framework(gl_fw);

	if (winsys_fw == NULL)
		return;

	piglit_winsys_framework_teardown(winsys_fw);
	free(winsys_fw);
}

struct piglit_gl_framework*
piglit_wgl_framework_create(const struct piglit_gl_test_config *test_config)
{
	struct piglit_winsys_framework *winsys_fw = NULL;
	struct piglit_gl_framework *gl_fw = NULL;
	bool ok = true;

	winsys_fw = calloc(1, sizeof(*winsys_fw));
	gl_fw = &winsys_fw->wfl_fw.gl_fw;

	ok = piglit_winsys_framework_init(winsys_fw, test_config,
	                           WAFFLE_PLATFORM_WGL);
	if (!ok)
		goto fail;

	winsys_fw->show_window = show_window;
	winsys_fw->enter_event_loop = enter_event_loop;
	gl_fw->destroy = destroy;

	return gl_fw;

fail:
	destroy(gl_fw);
	return NULL;
}