/*
  This file is part of Ingen.
  Copyright 2007-2015 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 "SetPortValue.hpp"

#include "Broadcaster.hpp"
#include "Buffer.hpp"
#include "BufferFactory.hpp"
#include "ControlBindings.hpp"
#include "Engine.hpp"
#include "PortImpl.hpp"
#include "RunContext.hpp"

#include "ingen/Forge.hpp"
#include "ingen/Status.hpp"
#include "ingen/URIs.hpp"
#include "ingen/World.hpp"
#include "lv2/atom/atom.h"

#include <cassert>
#include <memory>

namespace ingen::server::events {

/** Internal */
SetPortValue::SetPortValue(Engine&                           engine,
                           const std::shared_ptr<Interface>& client,
                           int32_t                           id,
                           SampleCount                       timestamp,
                           PortImpl*                         port,
                           const Atom&                       value,
                           bool                              activity,
                           bool                              synthetic)
	: Event(engine, client, id, timestamp)
	, _port(port)
	, _value(value)
	, _activity(activity)
	, _synthetic(synthetic)
{}

bool
SetPortValue::pre_process(PreProcessContext&)
{
	const ingen::URIs& uris = _engine.world().uris();
	if (_port->is_output()) {
		return Event::pre_process_done(Status::DIRECTION_MISMATCH, _port->path());
	}

	if (!_activity) {
		// Set value metadata (does not affect buffers)
		_port->set_value(_value);
		_port->set_property(_engine.world().uris().ingen_value, _value);
	}

	_binding = _engine.control_bindings()->port_binding(_port);

	if (_port->buffer_type() == uris.atom_Sequence) {
		_buffer = _engine.buffer_factory()->get_buffer(
			_port->buffer_type(),
			_value.type() == uris.atom_Float ? _value.type() : 0,
			_engine.buffer_factory()->default_size(_port->buffer_type()));
	}

	return Event::pre_process_done(Status::SUCCESS);
}

void
SetPortValue::execute(RunContext& ctx)
{
	assert(_time >= ctx.start() && _time <= ctx.end());
	apply(ctx);
	_engine.control_bindings()->port_value_changed(ctx, _port, _binding, _value);
}

void
SetPortValue::apply(RunContext& ctx)
{
	if (_status != Status::SUCCESS) {
		return;
	}

	const ingen::URIs&  uris = _engine.world().uris();
	Buffer*             buf  = _port->buffer(0).get();

	if (_buffer) {
		if (_port->user_buffer(ctx)) {
			buf = _port->user_buffer(ctx).get();
		} else {
			_port->set_user_buffer(ctx, _buffer);
			buf = _buffer.get();
		}
	}

	if (buf->type() == uris.atom_Sound || buf->type() == uris.atom_Float) {
		if (_value.type() == uris.forge.Float) {
			_port->set_control_value(ctx, _time, _value.get<float>());
		} else {
			_status = Status::TYPE_MISMATCH;
		}
	} else if (buf->type() == uris.atom_Sequence) {
		if (!buf->append_event(_time - ctx.start(),
		                       _value.size(),
		                       _value.type(),
		                       reinterpret_cast<const uint8_t*>(_value.get_body()))) {
			_status = Status::NO_SPACE;
		}
	} else if (buf->type() == uris.atom_URID) {
		buf->get<LV2_Atom_URID>()->body = _value.get<int32_t>();
	} else {
		_status = Status::BAD_VALUE_TYPE;
	}
}

void
SetPortValue::post_process()
{
	const Broadcaster::Transfer t{*_engine.broadcaster()};
	if (respond() == Status::SUCCESS && !_activity) {
		_engine.broadcaster()->set_property(
			_port->uri(),
			_engine.world().uris().ingen_value,
			_value);
	}
}

} // namespace ingen::server::events