/*
 * Nestopia UE
 *
 * Copyright (C) 2012-2021 R. Danbrook
 *
 * 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 2 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, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 * MA 02110-1301, USA.
 *
 */

#include <cstring>

#include <FL/Fl.H>
#include <FL/Fl_Double_Window.H>
#include <FL/Fl_Select_Browser.H>
#include <FL/Fl_Box.H>
#include <FL/Fl_Button.H>

#include <archive.h>
#include <archive_entry.h>

#include "nstcommon.h"
#include "config.h"

#include "fltkui_archive.h"

static Fl_Double_Window *window;
static Fl_Select_Browser *browser;
static char *romfile = NULL;

static void fltkui_archive_ok(Fl_Widget *w, long) {
	window->hide();
}

static void fltkui_archive_cancel(Fl_Widget *w, long) {
	snprintf(romfile, 256, "%s", "");
	window->hide();
}

static void fltkui_archive_setfile(Fl_Widget *w, long) {
	int r = ((Fl_Browser*)w)->value();
	if (r) {
		snprintf(romfile, 256, "%s", ((Fl_Browser*)w)->text(r));
		if (Fl::event_clicks()) { window->hide(); }
	}
	else {
		snprintf(romfile, 256, "%s", "");
	}
}

bool fltkui_archive_select(const char *filename, char *reqfile, size_t reqsize) {
	// Select a filename to pull out of the archive
	struct archive *a;
	struct archive_entry *entry;
	int r, numarchives = 0;

	a = archive_read_new();
	archive_read_support_filter_all(a);
	archive_read_support_format_all(a);
	r = archive_read_open_filename(a, filename, 10240);

	// Test if it's actually an archive
	if (r != ARCHIVE_OK) {
		r = archive_read_free(a);
		return false;
	}
	// If it is an archive, handle it
	else {
		if (window) { delete window; }

		window = new Fl_Double_Window(420, 260, "Load from Archive");
		browser = new Fl_Select_Browser(0, 0, window->w(), 200, 0);
		browser->type(FL_HOLD_BROWSER);
		browser->callback(fltkui_archive_setfile, 0);
		Fl_Button btncancel(260, 220, 80, 24, "&Cancel");
		btncancel.callback(fltkui_archive_cancel, 0);
		Fl_Button btnok(350, 220, 40, 24, "&OK");
		btnok.callback(fltkui_archive_ok, 0);

		romfile = reqfile;

		// Fill the treestore with the filenames
		while (archive_read_next_header(a, &entry) == ARCHIVE_OK) {
			const char *currentfile = archive_entry_pathname(entry);
			if (nst_archive_checkext(currentfile)) {
				browser->add(currentfile);
				numarchives++;
				snprintf(reqfile, reqsize, "%s", currentfile);
			}
			archive_read_data_skip(a);
		}

		// Free the archive
		r = archive_read_free(a);

		// If there are no valid files in the archive, return
		if (numarchives == 0) {	return false; }
		// If there's only one file, don't bring up the selector
		else if (numarchives == 1) { return true; }

		browser->select(1);
		snprintf(romfile, 256, "%s", browser->text(1));

		window->resizable(browser);
		window->show();
		window->set_modal();
		window->show();
		while (window->shown()) { Fl::wait(); }

		if (strlen(romfile)) { return true; }
	}
	return false;
}
