/*
 * X11 GUI for slide puzzle game
 * Copyright © 2022 Nick Bowler
 *
 * This program 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 Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program 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 this program.  If not, see <https://www.gnu.org/licenses/>.
 */

#include <config.h>
#include <stdio.h>
#include <stdlib.h>
#include <getopt.h>

#include <Xm/XmAll.h>

#include "help.h"
#include "motif.h"
#include "motifopt.h"
#include "game.h"

#define PROGNAME "rrace"
static const char *progname = PROGNAME;
static const struct option lopts[] = { LOPTS_INITIALIZER, {0} };

static char * const default_resources[] = {
	"*game.height: 371", // 365 + 2*shadowThickness
	"*game.width: 498",

	"*game.XmFrame.shadowThickness: 3",
	"*game.XmFrame.shadowType: shadow_in",
	"*goalArea.leftOffset: 1",
	"*gameCanvas.background: #202020",

	"*gameNew.accelerator: Ctrl<Key>N",
	"*gameNew.acceleratorText: Ctrl+N",
	"*gameExit.accelerator: Ctrl<Key>Q",
	"*gameExit.acceleratorText: Ctrl+Q",

	NULL
};

static void print_version(void)
{
	printf("%s %s\n", PROGNAME, PACKAGE_VERSION);
	printf("Copyright (C) 2022 Nick Bowler\n");
	puts("License GPLv3+: GNU GPL version 3 or any later version");
	puts("This is free software: you are free to change and redistribute it.");
	puts("There is NO WARRANTY, to the extent permitted by law.");
}

static void print_usage(FILE *f)
{
	fprintf(f, "Usage: %s [options]\n", progname);
	if (f != stdout)
		fprintf(f, "Try %s --help for more information.\n", progname);
}

static void print_help(void)
{
	const struct option *opt;

	print_usage(stdout);

	putchar('\n');
	puts("Options:");
	for (opt = lopts; opt->name; opt++) {
		struct lopt_help help;

		if (!lopt_get_help(opt, &help))
			continue;
		help_print_option(opt, help.arg, help.desc, 20);
	}
	putchar('\n');

	printf("Report bugs to <%s>.\n", PACKAGE_BUGREPORT);
}

static Widget early_setup(XtAppContext *app, int argc, char **argv)
{
	Widget shell;
	int opt;

	/* Check for --help/--version early (before X connection) */
	opterr = 0;
	while ((opt = getopt_long_only(argc, argv, "", lopts, NULL)) != -1) {
		switch (opt) {
		case LOPT_VERSION:
			print_version();
			exit(EXIT_SUCCESS);
		case LOPT_HELP:
			print_help();
			exit(EXIT_SUCCESS);
		}
	}

	shell = XtOpenApplication(app, PROGNAME, NULL, 0,
	                          &argc, argv, (String *)default_resources,
				  sessionShellWidgetClass, NULL, 0);

	opterr = optind = 1;
	while ((opt = getopt_long_only(argc, argv, "", lopts, NULL)) != -1) {
		switch (opt) {
		default:
			print_usage(stderr);
			exit(EXIT_FAILURE);
		}
	}

	if (argv[optind]) {
		fprintf(stderr, "%s: excess command-line arguments.\n",
		                progname);
		print_usage(stderr);
		exit(EXIT_FAILURE);
	}

	return shell;
}

static struct app_state state;

static void proc_exit(Widget w, XEvent *e, String *argv, Cardinal *argc)
{
	XtAppSetExitFlag(XtWidgetToApplicationContext(w));
}

static void proc_new_game(Widget w, XEvent *e, String *argv, Cardinal *argc)
{
	game_reset(&state.board);
	x11_redraw_goal(&state);
	x11_redraw_game(&state);
}

static const XtActionsRec menu_actions[] = {
	{ "gameNew", proc_new_game },
	{ "gameExit", proc_exit }
};

static XtAppContext app_initialize(int argc, char **argv)
{
	XtAppContext app;
	Widget shell;

	if (argc > 0)
		progname = argv[0];

	shell = early_setup(&app, argc, argv);
	XtAppAddActions(app, (void *)menu_actions, XtNumber(menu_actions));
	ui_initialize(&state, shell);
	x11_initialize(&state, XtScreen(shell));
	game_reset(&state.board);
	XtRealizeWidget(shell);

	return app;
}

int main(int argc, char **argv)
{
	XtAppMainLoop(app_initialize(argc, argv));
	return 0;
}