/*
 *  Copyright (C) 2009 Sony Computer Entertainment Inc.
 *  Copyright 2009 Sony Corp.
 *
 *  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; version 2 of the License.
 *
 *  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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#define _GNU_SOURCE

#include <assert.h>
#include <errno.h>
#include <stdlib.h>
#include <string.h>
#include <sys/ioctl.h>

#include "log/log.h"
#include "talloc/talloc.h"
#include "waiter/waiter.h"
#include "ui/common/discover-client.h"
#include "nc-cui.h"

static struct cui_opt_data *cod_from_item(struct pmenu_item *item)
{
	return item->data;
}

/**
 * cui_abort - Signal the main cui program loop to exit.
 *
 * Sets cui.abort, which causes the cui_run() routine to return.
 */

void cui_abort(struct cui *cui)
{
	pb_log("%s: exiting\n", __func__);
	cui->abort = 1;
}

/**
 * cui_resize - Signal the main cui program loop to resize
 *
 * Called at SIGWINCH.
 */

void cui_resize(struct cui *cui)
{
	pb_log("%s: resizing\n", __func__);
	cui->resize = 1;
}

/**
 * cui_make_item_name - Format the menu item name srting.
 *
 * Returns a talloc string.
 */

static char *cui_make_item_name(struct pmenu_item *i, struct cui_opt_data *cod)
{
	char *name;

	assert(cod->name);
	assert(cod->kd);

	name = talloc_asprintf(i, "%s:", cod->name);

	if (cod->kd->image)
		name = talloc_asprintf_append(name, " %s", cod->kd->image);

	if (cod->kd->initrd)
		name = talloc_asprintf_append(name, " initrd=%s",
			cod->kd->initrd);

	if (cod->kd->args)
		name = talloc_asprintf_append(name, " %s", cod->kd->args);

	DBGS("@%s@\n", name);
	return name;
}

/**
 * cui_on_exit - A generic main menu ESC callback.
 */

void cui_on_exit(struct pmenu *menu)
{
	cui_abort(cui_from_pmenu(menu));
}

/**
 * cui_run_cmd - A generic cb to run the supplied command.
 */

int cui_run_cmd(struct pmenu_item *item)
{
	int result;
	struct cui *cui = cui_from_item(item);
	const char *const *cmd_argv = item->data;

	nc_scr_status_printf(cui->current, "Running %s...", cmd_argv[0]);

	def_prog_mode();

	result = pb_run_cmd(cmd_argv, 1, 0);

	reset_prog_mode();
	redrawwin(cui->current->main_ncw);

	if (result) {
		pb_log("%s: failed: '%s'\n", __func__, cmd_argv[0]);
		nc_scr_status_printf(cui->current, "Failed: %s", cmd_argv[0]);
	}

	return result;
}

/**
 * cui_run_kexec - A generic cb to run kexec.
 */

static int cui_run_kexec(struct pmenu_item *item)
{
	int result;
	struct cui *cui = cui_from_item(item);
	struct cui_opt_data *cod = cod_from_item(item);

	assert(cui->current == &cui->main->scr);
	assert(cui->on_kexec);

	pb_log("%s: %s\n", __func__, cod->name);
	nc_scr_status_printf(cui->current, "Booting %s...", cod->name);

	def_prog_mode();

	result = cui->on_kexec(cui, cod);

	reset_prog_mode();
	redrawwin(cui->current->main_ncw);

	if (!result) {
		clear();
		mvaddstr(1, 0, "system is going down now...");
		refresh();
		sleep(cui->dry_run ? 1 : 60);
	}

	pb_log("%s: failed: %s\n", __func__, cod->kd->image);
	nc_scr_status_printf(cui->current, "Failed: kexec %s", cod->kd->image);

	return 0;
}

/**
 * cui_ked_on_exit - The ked on_exit callback.
 */

static void cui_ked_on_exit(struct ked *ked, enum ked_result ked_result,
	struct pb_kexec_data *kd)
{
	struct cui *cui = cui_from_arg(ked->scr.ui_ctx);

	if (ked_result == ked_update) {
		struct pmenu_item *i = pmenu_find_selected(cui->main);
		struct cui_opt_data *cod = cod_from_item(i);
		char *name;

		assert(kd);

		talloc_steal(i, kd);
		talloc_free(cod->kd);
		cod->kd = kd;

		name = cui_make_item_name(i, cod);
		pmenu_item_replace(i, name);

		/* FIXME: need to make item visible somehow */
		set_current_item(cui->main->ncm, i->nci);

		pb_log("%s: updating opt '%s'\n", __func__, cod->name);
		pb_log(" image  '%s'\n", cod->kd->image);
		pb_log(" initrd '%s'\n", cod->kd->initrd);
		pb_log(" args   '%s'\n", cod->kd->args);
	}

	cui_set_current(cui, &cui->main->scr);

	talloc_free(ked);
}

int cui_ked_run(struct pmenu_item *item)
{
	struct cui *cui = cui_from_item(item);
	struct cui_opt_data *cod = cod_from_item(item);
	struct ked *ked;

	ked = ked_init(cui, cod->kd, cui_ked_on_exit);
	cui_set_current(cui, &ked->scr);

	return 0;
}

/**
 * cui_set_current - Set the currently active screen and redraw it.
 */

struct nc_scr *cui_set_current(struct cui *cui, struct nc_scr *scr)
{
	struct nc_scr *old;

	DBGS("%p -> %p\n", cui->current, scr);

	assert(cui->current != scr);

	old = cui->current;
	old->unpost(old);

	cui->current = scr;
	cui->current->post(cui->current);

	return old;
}

/**
 * cui_process_key - Process input on stdin.
 */

static int cui_process_key(void *arg)
{
	struct cui *cui = cui_from_arg(arg);

	assert(cui->current);

	ui_timer_disable(&cui->timer);
	cui->current->process_key(cui->current);

	return 0;
}

/**
 * cui_process_js - Process joystick events.
 */

static int cui_process_js(void *arg)
{
	struct cui *cui = cui_from_arg(arg);
	int c;

	c = pjs_process_event(cui->pjs);

	if (c) {
		ungetch(c);
		cui_process_key(arg);
	}

	return 0;
}
/**
 * cui_client_process_socket - Process a socket event from the discover server.
 */

static int cui_client_process_socket(void *arg)
{
	struct discover_client *client = arg;

	discover_client_process(client);
	return 0;
}

/**
 * cui_handle_timeout - Handle the timeout.
 */

static void cui_handle_timeout(struct ui_timer *timer)
{
	struct cui *cui = cui_from_timer(timer);
	struct pmenu_item *i = pmenu_find_selected(cui->main);

#if defined(DEBUG)
	{
		struct cui_opt_data *cod = cod_from_item(i);
		assert(cod && (cod->opt_hash == cui->default_item));
	}
#endif
	i->on_execute(i);
}

/**
 * cui_handle_resize - Handle the term resize.
 */

static void cui_handle_resize(struct cui *cui)
{
	struct winsize ws;

	if (ioctl(1, TIOCGWINSZ, &ws) == -1) {
		pb_log("%s: ioctl failed: %s\n", __func__, strerror(errno));
		return;
	}

	pb_log("%s: {%u,%u}\n", __func__, ws.ws_row, ws.ws_col);

	wclear(cui->current->main_ncw);
	resize_term(ws.ws_row, ws.ws_col);
	cui->current->resize(cui->current);

	/* For some reason this makes ncurses redraw the screen */
	getch();
	redrawwin(cui->current->main_ncw);
	wrefresh(cui->current->main_ncw);
}

/**
 * cui_on_open - Open new item callback.
 */

void cui_on_open(struct pmenu *menu)
{
	unsigned int insert_pt;
	struct pmenu_item *i;
	struct cui_opt_data *cod;

	menu->scr.unpost(&menu->scr);

	/* This disconnects items array from menu. */

	set_menu_items(menu->ncm, NULL);

	/* Insert new items at insert_pt. */

	insert_pt = pmenu_grow(menu, 1);
	i = pmenu_item_alloc(menu);

	i->on_edit = cui_ked_run;
	i->on_execute = cui_run_kexec;
	i->data = cod = talloc_zero(i, struct cui_opt_data);

	cod->name = talloc_asprintf(i, "User item %u:", insert_pt);
	cod->kd = talloc_zero(i, struct pb_kexec_data);

	pmenu_item_setup(menu, i, insert_pt, talloc_strdup(i, cod->name));

	/* Re-attach the items array. */

	set_menu_items(menu->ncm, menu->items);

	menu->scr.post(&menu->scr);
	set_current_item(menu->ncm, i->nci);

	i->on_edit(i);
}

/**
 * cui_device_add - Client device_add callback.
 *
 * Creates menu_items for all the device boot_options and inserts those
 * menu_items into the main menu.  Redraws the main menu if it is active.
 */

static int cui_device_add(struct device *dev, void *arg)
{
	struct cui *cui = cui_from_arg(arg);
	int result;
	struct boot_option *opt;
	unsigned int o_count; /* device opts */
	unsigned int insert_pt;
	ITEM *selected;

	pb_log("%s: %p %s\n", __func__, dev, dev->id);

	selected = current_item(cui->main->ncm);

	if (cui->current == &cui->main->scr)
		cui->current->unpost(cui->current);

	/* This disconnects items array from menu. */

	result = set_menu_items(cui->main->ncm, NULL);

	if (result)
		pb_log("%s: set_menu_items failed: %d\n", __func__, result);

	o_count = 0;
	list_for_each_entry(&dev->boot_options, opt, list)
		o_count++;

	/* Insert new items at insert_pt. */

	insert_pt = pmenu_grow(cui->main, o_count);

	list_for_each_entry(&dev->boot_options, opt, list) {
		struct pmenu_item *i;
		struct cui_opt_data *cod;
		char *name;

		/* Save the item in opt->ui_info for cui_device_remove() */

		opt->ui_info = i = pmenu_item_alloc(cui->main);

		i->on_edit = cui_ked_run;
		i->on_execute = cui_run_kexec;
		i->data = cod = talloc(i, struct cui_opt_data);

		cod->dev = dev;
		cod->opt = opt;
		cod->opt_hash = pb_opt_hash(dev, opt);
		cod->name = opt->name;
		cod->kd = talloc(i, struct pb_kexec_data);

		cod->kd->image = talloc_strdup(cod->kd, opt->boot_image_file);
		cod->kd->initrd = talloc_strdup(cod->kd, opt->initrd_file);
		cod->kd->args = talloc_strdup(cod->kd, opt->boot_args);

		name = cui_make_item_name(i, cod);
		pmenu_item_setup(cui->main, i, insert_pt, name);

		insert_pt++;

		pb_log("%s: adding opt '%s'\n", __func__, cod->name);
		pb_log("   image  '%s'\n", cod->kd->image);
		pb_log("   initrd '%s'\n", cod->kd->initrd);
		pb_log("   args   '%s'\n", cod->kd->args);

		/* If this is the default_item select it and start timer. */

		if (cod->opt_hash == cui->default_item) {
			selected = i->nci;
			ui_timer_kick(&cui->timer);
		}
	}

	/* Re-attach the items array. */

	result = set_menu_items(cui->main->ncm, cui->main->items);

	if (result)
		pb_log("%s: set_menu_items failed: %d\n", __func__, result);

	if (0) {
		pb_log("%s\n", __func__);
		pmenu_dump_items(cui->main->items,
			item_count(cui->main->ncm) + 1);
	}

	/* FIXME: need to make item visible somehow */
	menu_driver(cui->main->ncm, REQ_SCR_UPAGE);
	menu_driver(cui->main->ncm, REQ_SCR_DPAGE);
	set_current_item(cui->main->ncm, selected);

	if (cui->current == &cui->main->scr)
		cui->current->post(cui->current);

	return 0;
}

/**
 * cui_device_remove - Client device remove callback.
 *
 * Removes all the menu_items for the device from the main menu and redraws the
 * main menu if it is active.
 */

static void cui_device_remove(struct device *dev, void *arg)
{
	struct cui *cui = cui_from_arg(arg);
	int result;
	struct boot_option *opt;

	pb_log("%s: %p %s\n", __func__, dev, dev->id);

	if (cui->current == &cui->main->scr)
		cui->current->unpost(cui->current);

	/* This disconnects items array from menu. */

	result = set_menu_items(cui->main->ncm, NULL);

	if (result)
		pb_log("%s: set_menu_items failed: %d\n", __func__, result);

	list_for_each_entry(&dev->boot_options, opt, list) {
		struct pmenu_item *i = pmenu_item_from_arg(opt->ui_info);
		struct cui_opt_data *cod = cod_from_item(i);

		assert(pb_protocol_device_cmp(dev, cod->dev));
		pmenu_remove(cui->main, i);

		/* If this is the default_item disable timer. */

		if (cod->opt_hash == cui->default_item)
			ui_timer_disable(&cui->timer);
	}

	/* Re-attach the items array. */

	result = set_menu_items(cui->main->ncm, cui->main->items);

	if (result)
		pb_log("%s: set_menu_items failed: %d\n", __func__, result);

	if (0) {
		pb_log("%s\n", __func__);
		pmenu_dump_items(cui->main->items,
			item_count(cui->main->ncm) + 1);
	}

	if (cui->current == &cui->main->scr)
		cui->current->post(cui->current);
}

static struct discover_client_ops cui_client_ops = {
	.device_add = cui_device_add,
	.device_remove = cui_device_remove,
};

/**
 * cui_init - Setup the cui instance.
 * @platform_info: A value for the struct cui platform_info member.
 *
 * Returns a pointer to a struct cui on success, or NULL on error.
 *
 * Allocates the cui instance, sets up the client and stdin waiters, and
 * sets up the ncurses menu screen.
 */

struct cui *cui_init(void* platform_info,
	int (*on_kexec)(struct cui *, struct cui_opt_data *),
	int (*js_map)(const struct js_event *e), int start_deamon, int dry_run)
{
	struct cui *cui;
	struct discover_client *client;
	unsigned int i;

	cui = talloc_zero(NULL, struct cui);

	if (!cui) {
		pb_log("%s: alloc cui failed.\n", __func__);
		fprintf(stderr, "%s: alloc cui failed.\n", __func__);
		goto fail_alloc;
	}

	cui->c_sig = pb_cui_sig;
	cui->platform_info = platform_info;
	cui->on_kexec = on_kexec;
	cui->timer.handle_timeout = cui_handle_timeout;
	cui->dry_run = dry_run;
	cui->waitset = waitset_create(cui);

	/* Loop here for scripts that just started the server. */

retry_start:
	for (i = start_deamon ? 2 : 10; i; i--) {
		client = discover_client_init(&cui_client_ops, cui);
		if (client || !i)
			break;
		pb_log("%s: waiting for server %d\n", __func__, i);
		sleep(1);
	}

	if (!client && start_deamon) {
		int result;

		start_deamon = 0;

		result = pb_start_daemon();

		if (!result)
			goto retry_start;

		pb_log("%s: discover_client_init failed.\n", __func__);
		fprintf(stderr, "%s: error: discover_client_init failed.\n",
			__func__);
		fprintf(stderr, "could not start pb-discover, the petitboot "
			"daemon.\n");
		goto fail_client_init;
	}

	if (!client) {
		pb_log("%s: discover_client_init failed.\n", __func__);
		fprintf(stderr, "%s: error: discover_client_init failed.\n",
			__func__);
		fprintf(stderr, "check that pb-discover, "
			"the petitboot daemon is running.\n");
		goto fail_client_init;
	}

	atexit(nc_atexit);
	nc_start();

	waiter_register(cui->waitset, discover_client_get_fd(client), WAIT_IN,
			cui_client_process_socket, client);

	waiter_register(cui->waitset, STDIN_FILENO, WAIT_IN,
			cui_process_key, cui);

	if (js_map) {

		cui->pjs = pjs_init(cui, js_map);

		if (cui->pjs)
			waiter_register(cui->waitset, pjs_get_fd(cui->pjs),
					WAIT_IN, cui_process_js, cui);
	}

	return cui;

fail_client_init:
	talloc_free(cui);
fail_alloc:
	return NULL;
}

/**
 * cui_run - The main cui program loop.
 * @cui: The cui instance.
 * @main: The menu to use as the main menu.
 *
 * Runs the cui engine.  Does not return until indicated to do so by some
 * user action, or an error occurs.  Frees the cui object on return.
 * Returns 0 on success (return to shell), -1 on error (should restart).
 */

int cui_run(struct cui *cui, struct pmenu *main, unsigned int default_item)
{
	assert(main);

	cui->main = main;
	cui->current = &cui->main->scr;
	cui->default_item = default_item;

	cui->current->post(cui->current);

	while (1) {
		int result = waiter_poll(cui->waitset);

		if (result < 0 && errno != EINTR) {
			pb_log("%s: poll: %s\n", __func__, strerror(errno));
			break;
		}

		if (cui->abort)
			break;

		ui_timer_process_sig(&cui->timer);

		while (cui->resize) {
			cui->resize = 0;
			cui_handle_resize(cui);
		}
	}

	nc_atexit();

	return cui->abort ? 0 : -1;
}