1 files changed, 139 insertions, 0 deletions
diff --git a/src/server/events/SetPortValue.cpp b/src/server/events/SetPortValue.cpp
new file mode 100644
index 00000000..62f2def6
--- /dev/null
+++ b/src/server/events/SetPortValue.cpp
@@ -0,0 +1,139 @@
+/*
+  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 "ingen/LV2Features.hpp"
+#include "ingen/Store.hpp"
+#include "ingen/URIs.hpp"
+#include "ingen/World.hpp"
+
+#include "BlockImpl.hpp"
+#include "Broadcaster.hpp"
+#include "Buffer.hpp"
+#include "ControlBindings.hpp"
+#include "Engine.hpp"
+#include "PortImpl.hpp"
+#include "RunContext.hpp"
+#include "SetPortValue.hpp"
+
+namespace Ingen {
+namespace Server {
+namespace Events {
+
+/** Internal */
+SetPortValue::SetPortValue(Engine&         engine,
+                           SPtr<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& ctx)
+{
+	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& context)
+{
+	assert(_time >= context.start() && _time <= context.end());
+	apply(context);
+	_engine.control_bindings()->port_value_changed(context, _port, _binding, _value);
+}
+
+void
+SetPortValue::apply(RunContext& context)
+{
+	if (_status != Status::SUCCESS) {
+		return;
+	}
+
+	Ingen::URIs&  uris = _engine.world()->uris();
+	Buffer*       buf  = _port->buffer(0).get();
+
+	if (_buffer) {
+		if (_port->user_buffer(context)) {
+			buf = _port->user_buffer(context).get();
+		} else {
+			_port->set_user_buffer(context, _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(context, _time, _value.get<float>());
+		} else {
+			_status = Status::TYPE_MISMATCH;
+		}
+	} else if (buf->type() == uris.atom_Sequence) {
+		if (!buf->append_event(_time - context.start(),
+		                       _value.size(),
+		                       _value.type(),
+		                       (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()
+{
+	Broadcaster::Transfer t(*_engine.broadcaster());
+	if (respond() == Status::SUCCESS && !_activity) {
+		_engine.broadcaster()->set_property(
+			_port->uri(),
+			_engine.world()->uris().ingen_value,
+			_value);
+	}
+}
+
+} // namespace Events
+} // namespace Server
+} // namespace Ingen