/*
  This file is part of Ingen.
  Copyright 2007-2012 David Robillard <http://drobilla.net/>

  Ingen is free software: you can redistribute it and/or modify it under the
  terms of the GNU Affero General Public License as published by the Free
  Software Foundation, either version 3 of the License, or 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 Affero General Public License for details.

  You should have received a copy of the GNU Affero General Public License
  along with Ingen.  If not, see <http://www.gnu.org/licenses/>.
*/

#include <utility>

#include "ingen/shared/URIMap.hpp"
#include "ingen/shared/URIs.hpp"
#include "raul/Array.hpp"
#include "raul/Atom.hpp"
#include "raul/Path.hpp"

#include "Broadcaster.hpp"
#include "CreatePort.hpp"
#include "Driver.hpp"
#include "DuplexPort.hpp"
#include "Engine.hpp"
#include "EngineStore.hpp"
#include "PatchImpl.hpp"
#include "PortImpl.hpp"

namespace Ingen {
namespace Server {
namespace Events {

CreatePort::CreatePort(Engine&                     engine,
                       SharedPtr<Interface>        client,
                       int32_t                     id,
                       SampleCount                 timestamp,
                       const Raul::Path&           path,
                       bool                        is_output,
                       const Resource::Properties& properties)
	: Event(engine, client, id, timestamp)
	, _path(path)
	, _port_type(PortType::UNKNOWN)
	, _buf_type(0)
	, _patch(NULL)
	, _patch_port(NULL)
	, _ports_array(NULL)
	, _old_ports_array(NULL)
	, _engine_port(NULL)
	, _properties(properties)
	, _is_output(is_output)
{
	const Ingen::Shared::URIs& uris = _engine.world()->uris();

	typedef Resource::Properties::const_iterator Iterator;
	typedef std::pair<Iterator, Iterator>        Range;

	const Range types = properties.equal_range(uris.rdf_type);
	for (Iterator i = types.first; i != types.second; ++i) {
		const Raul::Atom& type = i->second;
		if (type == uris.lv2_AudioPort) {
			_port_type = PortType::AUDIO;
		} else if (type == uris.lv2_ControlPort) {
			_port_type = PortType::CONTROL;
		} else if (type == uris.lv2_CVPort) {
			_port_type = PortType::CV;
		} else if (type == uris.atom_AtomPort) {
			_port_type = PortType::ATOM;
		}
	}

	const Range buffer_types = properties.equal_range(uris.atom_bufferType);
	for (Iterator i = buffer_types.first; i != buffer_types.second; ++i) {
		if (i->second.type() == _engine.world()->forge().URI) {
			_buf_type = _engine.world()->uri_map().map_uri(i->second.get_uri());
		}
	}
}

bool
CreatePort::pre_process()
{
	if (_port_type == PortType::UNKNOWN) {
		return Event::pre_process_done(UNKNOWN_TYPE);
	}

	if (_engine.engine_store()->find_object(_path)) {
		return Event::pre_process_done(_status);
	}

	if (!(_patch = _engine.engine_store()->find_patch(_path.parent()))) {
		return Event::pre_process_done(PARENT_NOT_FOUND);
	}

	const Shared::URIs&  uris           = _engine.world()->uris();
	const BufferFactory& buffer_factory = *_engine.buffer_factory();

	const uint32_t buf_size    = buffer_factory.default_size(_buf_type);
	const int32_t  old_n_ports = _patch->num_ports_non_rt();

	typedef Resource::Properties::const_iterator PropIter;

	PropIter index_i = _properties.find(uris.lv2_index);
	if (index_i == _properties.end()) {
		// No index given, append
		index_i = _properties.insert(
			std::make_pair(uris.lv2_index,
			               _engine.world()->forge().make(old_n_ports)));
	} else if (index_i->second.type() != uris.forge.Int ||
	           index_i->second.get_int32() != old_n_ports) {
		return Event::pre_process_done(BAD_INDEX);
	}

	const PropIter poly_i = _properties.find(uris.ingen_polyphonic);
	const bool polyphonic = (poly_i != _properties.end() &&
	                         poly_i->second.type() == uris.forge.Bool &&
	                         poly_i->second.get_bool());

	if (!(_patch_port = _patch->create_port(
		      *_engine.buffer_factory(), _path.symbol(),
		      _port_type, _buf_type, buf_size, _is_output, polyphonic))) {
		return Event::pre_process_done(CREATION_FAILED);
	}

	_patch_port->properties().insert(_properties.begin(), _properties.end());

	_engine.engine_store()->add(_patch_port);
	if (_is_output) {
		_patch->add_output(new Raul::List<PortImpl*>::Node(_patch_port));
	} else {
		_patch->add_input(new Raul::List<PortImpl*>::Node(_patch_port));
	}

	if (!_patch->parent()) {
		_engine_port = _engine.driver()->create_port(
			dynamic_cast<DuplexPort*>(_patch_port));
	}

	_ports_array = new Raul::Array<PortImpl*>(old_n_ports + 1, NULL);
	_update      = _patch_port->properties();

	assert(_patch_port->index() == (uint32_t)index_i->second.get_int32());
	assert(_patch->num_ports_non_rt() == (uint32_t)old_n_ports + 1);
	assert(_patch_port->index() == (uint32_t)old_n_ports);
	assert(_ports_array->size() == _patch->num_ports_non_rt());
	assert(_patch_port->index() < _ports_array->size());
	return Event::pre_process_done(SUCCESS);
}

void
CreatePort::execute(ProcessContext& context)
{
	if (!_status) {
		_old_ports_array = _patch->external_ports();
		if (_old_ports_array) {
			for (uint32_t i = 0; i < _old_ports_array->size(); ++i) {
				(*_ports_array)[i] = (*_old_ports_array)[i];
			}
		}
		assert(!(*_ports_array)[_patch_port->index()]);
		(*_ports_array)[_patch_port->index()] = _patch_port;
		_patch->external_ports(_ports_array);

		if (_engine_port) {
			_engine.driver()->add_port(context, _engine_port);
		}
	}
}

void
CreatePort::post_process()
{
	respond(_status);
	if (!_status) {
		_engine.broadcaster()->put(_path, _update);
	}

	delete _old_ports_array;
}

} // namespace Events
} // namespace Server
} // namespace Ingen