/* This file is part of Ingen.
 * Copyright (C) 2009 Dave 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 "raul/log.hpp"
#include "raul/midi_events.h"
#include "events/SendPortValue.hpp"
#include "events/SendBinding.hpp"
#include "ControlBindings.hpp"
#include "EventBuffer.hpp"
#include "PortImpl.hpp"
#include "ProcessContext.hpp"
#include "ThreadManager.hpp"

#define LOG(s) s << "[ControlBindings] "

using namespace std;
using namespace Raul;

namespace Ingen {


void
ControlBindings::learn(PortImpl* port)
{
	ThreadManager::assert_thread(THREAD_PRE_PROCESS);
	_learn_port = port;
}


void
ControlBindings::set_port_value(ProcessContext& context, PortImpl* port, int8_t cc_value)
{
	// TODO: cache these to avoid the lookup
	float min = port->get_property("lv2:minimum").get_float();
	float max = port->get_property("lv2:maximum").get_float();

	Raul::Atom value(static_cast<float>(((float)cc_value / 127.0) * (max - min) + min));
	port->set_value(value);

	const Events::SendPortValue ev(context.engine(), context.start(), port, true, 0,
			value.get_float());
	context.event_sink().write(sizeof(ev), &ev);
}


void
ControlBindings::bind(ProcessContext& context, int8_t cc_num)
{
	_bindings.insert(make_pair(cc_num, _learn_port));

	const Events::SendBinding ev(context.engine(), context.start(), _learn_port,
			MessageType(MessageType::MIDI_CC, cc_num));
	context.event_sink().write(sizeof(ev), &ev);

	_learn_port = NULL;
}


void
ControlBindings::process(ProcessContext& context, EventBuffer* buffer)
{
	uint32_t frames    = 0;
	uint32_t subframes = 0;
	uint16_t type      = 0;
	uint16_t size      = 0;
	uint8_t* buf       = NULL;

	if (_learn_port) {
		buffer->rewind();
		while (buffer->get_event(&frames, &subframes, &type, &size, &buf)) {
			if (type == _map->midi_event && (buf[0] & 0xF0) == MIDI_CMD_CONTROL) {
				const int8_t controller = static_cast<const int8_t>(buf[1]);
				bind(context, controller);
				break;
			}
			buffer->increment();
		}
	}

	if (!_bindings.empty()) {
		buffer->rewind();
		while (buffer->get_event(&frames, &subframes, &type, &size, &buf)) {
			if (type == _map->midi_event && (buf[0] & 0xF0) == MIDI_CMD_CONTROL) {
				const int8_t controller = static_cast<const int8_t>(buf[1]);
				const int8_t value      = static_cast<const int8_t>(buf[2]);
				Bindings::const_iterator i = _bindings.find(controller);
				if (i != _bindings.end()) {
					set_port_value(context, i->second, value);
				}
			}
			buffer->increment();
		}
	}
}

}