/* This file is part of Patchage.
 * Copyright 2010-2020 David Robillard <d@drobilla.net>
 *
 * Patchage 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.
 *
 * Patchage 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 Patchage.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "CanvasModule.hpp"

#include "Canvas.hpp"
#include "CanvasPort.hpp"
#include "Configuration.hpp"
#include "Patchage.hpp"
#include "PortID.hpp"
#include "SignalDirection.hpp"
#include "warnings.hpp"

PATCHAGE_DISABLE_GANV_WARNINGS
#include "ganv/Port.hpp"
PATCHAGE_RESTORE_WARNINGS

#include <glibmm/helperlist.h>
#include <gtkmm/menu.h>
#include <gtkmm/menu_elems.h>
#include <gtkmm/menuitem.h>
#include <gtkmm/menushell.h>
#include <sigc++/functors/mem_fun.h>
#include <sigc++/signal.h>

#include <cassert>
#include <cstdlib>
#include <memory>
#include <utility>

namespace patchage {

CanvasModule::CanvasModule(Patchage*          app,
                           const std::string& name,
                           SignalDirection    type,
                           ClientID           id,
                           double             x,
                           double             y)
    : Module(*app->canvas(), name, x, y)
    , _app(app)
    , _menu(nullptr)
    , _name(name)
    , _type(type)
    , _id(std::move(id))
{
	signal_event().connect(sigc::mem_fun(this, &CanvasModule::on_event));

	signal_moved().connect(sigc::mem_fun(this, &CanvasModule::store_location));

	// Set as source by default, turned off if input ports added
	set_is_source(true);
}

CanvasModule::~CanvasModule()
{
	_app->canvas()->remove_module(this);
	delete _menu;
	_menu = nullptr;
}

void
CanvasModule::update_menu()
{
	if (!_menu) {
		return;
	}

	if (_type == SignalDirection::duplex) {
		bool has_in  = false;
		bool has_out = false;
		for (const auto* p : *this) {
			if (p->is_input()) {
				has_in = true;
			} else {
				has_out = true;
			}

			if (has_in && has_out) {
				_menu->items()[0].show(); // Show "Split" menu item
				return;
			}
		}
		_menu->items()[0].hide(); // Hide "Split" menu item
	}
}

bool
CanvasModule::show_menu(GdkEventButton* ev)
{
	_menu                      = new Gtk::Menu();
	Gtk::Menu::MenuList& items = _menu->items();

	if (_type == SignalDirection::duplex) {
		items.push_back(Gtk::Menu_Helpers::MenuElem(
		    "_Split", sigc::mem_fun(this, &CanvasModule::split)));
		update_menu();
	} else {
		items.push_back(Gtk::Menu_Helpers::MenuElem(
		    "_Join", sigc::mem_fun(this, &CanvasModule::join)));
	}

	items.push_back(Gtk::Menu_Helpers::MenuElem(
	    "_Disconnect All", sigc::mem_fun(this, &CanvasModule::disconnect_all)));

	_menu->popup(ev->button, ev->time);
	return true;
}

bool
CanvasModule::on_event(GdkEvent* ev)
{
	if (ev->type == GDK_BUTTON_PRESS && ev->button.button == 3) {
		return show_menu(&ev->button);
	}
	return false;
}

void
CanvasModule::load_location()
{
	Coord loc;

	if (_app->conf().get_module_location(_name, _type, loc)) {
		move_to(loc.x, loc.y);
	} else {
		const double x = 20 + rand() % 640;
		const double y = 20 + rand() % 480;

		// Move, then store generated location so it is stable
		move_to(x, y);
		store_location(x, y);
	}
}

void
CanvasModule::store_location(double x, double y)
{
	_app->conf().set_module_location(_name, _type, {x, y});
}

void
CanvasModule::split()
{
	assert(_type == SignalDirection::duplex);
	_app->conf().set_module_split(_name, true);
	_app->refresh();
}

void
CanvasModule::join()
{
	assert(_type != SignalDirection::duplex);
	_app->conf().set_module_split(_name, false);
	_app->refresh();
}

void
CanvasModule::disconnect_all()
{
	for (Ganv::Port* p : *this) {
		p->disconnect();
	}
}

CanvasPort*
CanvasModule::get_port(const PortID& id)
{
	for (Ganv::Port* p : *this) {
		auto* pport = dynamic_cast<CanvasPort*>(p);
		if (pport && pport->id() == id) {
			return pport;
		}
	}

	return nullptr;
}

} // namespace patchage