/* This file is part of Ingen.
 * Copyright 2007-2011 David Robillard <http://drobilla.net>
 *
 * Ingen 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.
 *
 * Ingen 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 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 St, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include <cmath>
#include <algorithm>
#include "raul/log.hpp"
#include "ingen/ServerInterface.hpp"
#include "shared/LV2URIMap.hpp"
#include "client/PluginModel.hpp"
#include "client/NodeModel.hpp"
#include "client/PortModel.hpp"
#include "App.hpp"
#include "ControlPanel.hpp"
#include "Controls.hpp"
#include "GladeFactory.hpp"
#include "PortPropertiesWindow.hpp"

using namespace std;
using namespace Raul;

namespace Ingen {
using namespace Client;
namespace GUI {

// ////////////////////// Control ///////////////////////////////// //

Control::Control(BaseObjectType* cobject, const Glib::RefPtr<Gnome::Glade::Xml>& glade_xml)
	: Gtk::VBox(cobject)
	, _control_panel(NULL)
	, _enable_signal(false)
	, _name_label(NULL)
{
	Glib::RefPtr<Gnome::Glade::Xml> menu_xml = GladeFactory::new_glade_reference("port_control_menu");
	menu_xml->get_widget("port_control_menu", _menu);
	menu_xml->get_widget("port_control_menu_properties", _menu_properties);

	_menu_properties->signal_activate().connect(
			sigc::mem_fun(this, &Control::menu_properties));
}

Control::~Control()
{
	_enable_signal = false;
	_control_connection.disconnect();
	_port_model.reset();
}

void
Control::init(ControlPanel* panel, SharedPtr<PortModel> pm)
{
	_control_panel = panel;
	_port_model = pm,

	assert(_port_model);
	assert(panel);

	_control_connection.disconnect();
	_control_connection = pm->signal_value_changed.connect(sigc::mem_fun(this, &Control::set_value));

	boost::shared_ptr<NodeModel> parent = PtrCast<NodeModel>(_port_model->parent());
	if (parent)
		set_label(parent->port_label(pm));
	else
		set_label(pm->symbol().c_str());
}

void
Control::enable()
{
	for (Gtk::Box_Helpers::BoxList::const_iterator i = children().begin();
			i != children().end(); ++i)
		i->get_widget()->set_sensitive(true);
}

void
Control::disable()
{
	for (Gtk::Box_Helpers::BoxList::const_iterator i = children().begin();
			i != children().end(); ++i)
		i->get_widget()->set_sensitive(false);
}

void
Control::set_label(const string& name)
{
	const string name_markup = string("<span weight=\"bold\">") + name + "</span>";
	_name_label->set_markup(name_markup);
}

void
Control::menu_properties()
{
	Glib::RefPtr<Gnome::Glade::Xml> xml = GladeFactory::new_glade_reference();

	PortPropertiesWindow* window;
	xml->get_widget_derived("port_properties_win", window);
	window->present(_port_model);
}

// ////////////////// SliderControl ////////////////////// //

SliderControl::SliderControl(BaseObjectType* cobject, const Glib::RefPtr<Gnome::Glade::Xml>& xml)
	: Control(cobject, xml)
	, _enabled(true)
{
	xml->get_widget("control_strip_name_label", _name_label);
	xml->get_widget("control_strip_slider", _slider);
	xml->get_widget("control_strip_spinner", _value_spinner);
}

void
SliderControl::init(ControlPanel* panel, SharedPtr<PortModel> pm)
{
	_enable_signal = false;
	_enabled = true;

	Control::init(panel, pm);

	assert(_name_label);
	assert(_slider);

	_slider->set_draw_value(false);

	signal_button_press_event().connect(sigc::mem_fun(*this, &SliderControl::clicked));
	_slider->signal_button_press_event().connect(sigc::mem_fun(*this, &SliderControl::clicked));

	_slider->signal_event().connect(
			sigc::mem_fun(*this, &SliderControl::slider_pressed));

	_slider->signal_value_changed().connect(
			sigc::mem_fun(*this, &SliderControl::update_value_from_slider));

	_value_spinner->signal_value_changed().connect(
			sigc::mem_fun(*this, &SliderControl::update_value_from_spinner));

	float min = 0.0f, max = 1.0f;

	boost::shared_ptr<NodeModel> parent = PtrCast<NodeModel>(_port_model->parent());
	if (parent)
		parent->port_value_range(_port_model, min, max);

	if (pm->is_integer() || pm->is_toggle()) {
		_slider->set_increments(1, 10);
		_value_spinner->set_digits(0);
	} else {
		_slider->set_increments(0, 0);
	}

	pm->signal_property.connect(sigc::mem_fun(this, &SliderControl::port_property_changed));

	_slider->set_range(std::min(min, pm->value().get_float()), std::max(max, pm->value().get_float()));

	set_value(pm->value());

	_enable_signal = true;

	show_all();
}

bool
SliderControl::clicked(GdkEventButton* ev)
{
	if (ev->button == 3) {
		_menu->popup(ev->button, ev->time);
		return true;
	} else {
		return false;
	}
}

void
SliderControl::set_value(const Atom& atom)
{
	if (_enabled) {
		_enable_signal = false;
		float val = atom.get_float();

		if (_port_model->is_integer())
			val = lrintf(val);

		if (_slider->get_value() != val) {
			const Gtk::Adjustment* range = _slider->get_adjustment();
			const float lower = range->get_lower();
			const float upper = range->get_upper();
			if (val < lower || val > upper)
				set_range(min(lower, val), max(lower, val));
			_slider->set_value(val);
		}

		if (_value_spinner->get_value() != val)
			_value_spinner->set_value(val);

		_enable_signal = true;
	}
}

void
SliderControl::port_property_changed(const URI& key, const Atom& value)
{
	_enable_signal = false;

	const Shared::LV2URIMap& uris = App::instance().uris();
	if (key == uris.lv2_minimum && value.type() == Atom::FLOAT)
		set_range(value.get_float(), _slider->get_adjustment()->get_upper());
	else if (key == uris.lv2_maximum && value.type() == Atom::FLOAT)
		set_range(_slider->get_adjustment()->get_lower(), value.get_float());

	_enable_signal = true;
}

void
SliderControl::set_range(float min, float max)
{
	if (max <= min)
		max = min + 1.0;

	_slider->set_range(min, max);
}

void
SliderControl::update_value_from_slider()
{
	if (_enable_signal) {
		float value = _slider->get_value();
		bool change = true;

		_enable_signal = false;

		if (_port_model->is_integer()) {
			value = lrintf(value);
			if (value == lrintf(_port_model->value().get_float()))
				change = false;
		}

		if (change) {
			_value_spinner->set_value(value);
			_control_panel->value_changed(_port_model, value);
		}

		_enable_signal = true;
	}
}

void
SliderControl::update_value_from_spinner()
{
	if (_enable_signal) {
		_enable_signal = false;
		const float value = _value_spinner->get_value();

		set_value(value);

		_control_panel->value_changed(_port_model, value);

		_enable_signal = true;
	}
}

/** Callback for when slider is grabbed so we can ignore set_control
 * events for this port (and avoid nasty feedback issues).
 */
bool
SliderControl::slider_pressed(GdkEvent* ev)
{
	if (ev->type == GDK_BUTTON_PRESS) {
		_enabled = false;
	} else if (ev->type == GDK_BUTTON_RELEASE) {
		_enabled = true;
	}

	return false;
}

// ///////////// ToggleControl ////////////// //

ToggleControl::ToggleControl(BaseObjectType* cobject, const Glib::RefPtr<Gnome::Glade::Xml>& xml)
	: Control(cobject, xml)
{
	xml->get_widget("toggle_control_name_label", _name_label);
	xml->get_widget("toggle_control_check", _checkbutton);
}

void
ToggleControl::init(ControlPanel* panel, SharedPtr<PortModel> pm)
{
	_enable_signal = false;

	Control::init(panel, pm);

	assert(_name_label);
	assert(_checkbutton);

	_checkbutton->signal_toggled().connect(sigc::mem_fun(*this, &ToggleControl::toggled));
	set_value(pm->value());

	_enable_signal = true;
	show_all();
}

void
ToggleControl::set_value(const Atom& val)
{
	bool enable = false;
	switch (val.type()) {
	case Atom::FLOAT:
		enable = (val.get_float() != 0.0f);
		break;
	case Atom::INT:
		enable = (val.get_int32() != 0);
		break;
	case Atom::BOOL:
		enable = (val.get_bool());
		break;
	default:
		error << "Unsupported value type for toggle control" << endl;
	}

	_enable_signal = false;
	_checkbutton->set_active(enable);
	_enable_signal = true;
}

void
ToggleControl::toggled()
{
	if (_enable_signal) {
		float value = _checkbutton->get_active() ? 1.0f : 0.0f;
		_control_panel->value_changed(_port_model, value);
	}
}

// ///////////// StringControl ////////////// //

StringControl::StringControl(BaseObjectType* cobject, const Glib::RefPtr<Gnome::Glade::Xml>& xml)
	: Control(cobject, xml)
{
	xml->get_widget("string_control_name_label", _name_label);
	xml->get_widget("string_control_entry",      _entry);
}

void
StringControl::init(ControlPanel* panel, SharedPtr<PortModel> pm)
{
	_enable_signal = false;

	Control::init(panel, pm);

	assert(_name_label);
	assert(_entry);

	_entry->signal_activate().connect(sigc::mem_fun(*this, &StringControl::activated));
	set_value(pm->value());

	_enable_signal = true;
	show_all();
}

void
StringControl::set_value(const Atom& val)
{
	_enable_signal = false;
	if (val.type() == Atom::STRING)
		_entry->set_text(val.get_string());
	else
		error << "Non-string value for string port " << _port_model->path() << endl;
	_enable_signal = true;
}

void
StringControl::activated()
{
	if (_enable_signal)
		_control_panel->value_changed_atom(_port_model,
				Raul::Atom(_entry->get_text().c_str()));
}

} // namespace GUI
} // namespace Ingen