/* This file is part of Ingen. * Copyright (C) 2007 Dave Robillard * * 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 "OSCClientSender.hpp" #include #include #include #include #include "ObjectStore.hpp" #include "NodeFactory.hpp" #include "util.hpp" #include "PatchImpl.hpp" #include "NodeImpl.hpp" #include "PluginImpl.hpp" #include "PortImpl.hpp" #include "ConnectionImpl.hpp" #include "AudioDriver.hpp" #include "interface/ClientInterface.hpp" using namespace std; namespace Ingen { void OSCClientSender::bundle_begin() { assert(!_transfer); _transfer = lo_bundle_new(LO_TT_IMMEDIATE); _send_state = SendingBundle; } void OSCClientSender::bundle_end() { transfer_end(); } void OSCClientSender::transfer_begin() { //cerr << "TRANSFER {" << endl; assert(!_transfer); _transfer = lo_bundle_new(LO_TT_IMMEDIATE); _send_state = SendingTransfer; } void OSCClientSender::transfer_end() { //cerr << "} TRANSFER" << endl; assert(_transfer); lo_send_bundle(_address, _transfer); lo_bundle_free(_transfer); _transfer = NULL; _send_state = Immediate; } int OSCClientSender::send(const char *path, const char *types, ...) { if (!_enabled) return 0; va_list args; va_start(args, types); lo_message msg = lo_message_new(); int ret = lo_message_add_varargs(msg, types, args); if (!ret) send_message(path, msg); va_end(args); return ret; } void OSCClientSender::send_message(const char* path, lo_message msg) { // FIXME: size? liblo doesn't export this. // Don't want to exceed max UDP packet size (1500 bytes?) static const size_t MAX_BUNDLE_SIZE = 1500 - 32*5; if (!_enabled) return; if (_transfer) { if (lo_bundle_length(_transfer) + lo_message_length(msg, path) > MAX_BUNDLE_SIZE) { if (_send_state == SendingBundle) cerr << "WARNING: Maximum bundle size reached, bundle split" << endl; lo_send_bundle(_address, _transfer); _transfer = lo_bundle_new(LO_TT_IMMEDIATE); } lo_bundle_add_message(_transfer, path, msg); } else { lo_send_message(_address, path, msg); } } /*! \page client_osc_namespace Client OSC Namespace Documentation * *

NOTE: this comment doesn't really apply any longer.. sort of. * but maybe it still should.. maybe. so it remains...

* *

These are all the messages sent from the engine to the client. * Communication takes place over two distinct bands: control band and * notification band.

*

The control band is where clients send commands, and receive a simple * response, either OK or an error.

*

All notifications of engine state (ie new nodes) are sent over the * notification band which is seperate from the control band. The * reasoning behind this is that many clients may be connected at the same * time - a client may receive notifications that are not a direct consequence * of some message it sent.

*

The notification band can be thought of as a stream of events representing * the changing engine state. For example, It is possible for a client to send * commands and receive aknowledgements, and not listen to the notification band * at all; or (in the near future anyway) for a client to use UDP for the control * band (for speed), and TCP for the notification band (for reliability and * order guarantees).

* \n\n */ /** \page client_osc_namespace * \n *

Control Band

*/ /** \page client_osc_namespace *

\b /ingen/ok - Respond to a successful user command * \arg \b response-id (int) - Request ID this is a response to *

\n \n */ void OSCClientSender::response_ok(int32_t id) { if (!_enabled) return; if (lo_send(_address, "/ingen/ok", "i", id) < 0) { cerr << "Unable to send ok " << id << "! (" << lo_address_errstr(_address) << ")" << endl; } } /** \page client_osc_namespace *

\b /ingen/response - Respond to a user command * \arg \b response-id (int) - Request ID this is a response to * \arg \b message (string) - Error message (natural language text) *

\n \n */ void OSCClientSender::response_error(int32_t id, const std::string& msg) { if (!_enabled) return; if (lo_send(_address, "/ingen/error", "is", id, msg.c_str()) < 0) { cerr << "Unable to send error " << id << "! (" << lo_address_errstr(_address) << ")" << endl; } } /** \page client_osc_namespace * \n *

Notification Band

*/ /** \page client_osc_namespace *

\b /ingen/error - Notification that an error has occurred * \arg \b message (string) - Error message (natural language text) \n\n * \li This is for notification of errors that aren't a direct response to a * user command, ie "unexpected" errors.

\n \n */ void OSCClientSender::error(const std::string& msg) { send("/ingen/error", "s", msg.c_str(), LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/num_plugins * \arg \b num (int) - Number of plugins engine has loaded\n\n * \li This is sent before sending the list of plugins, so the client is aware * of how many plugins (/ingen/plugin messages) to expect.

\n \n */ /** \page client_osc_namespace *

\b /ingen/num_plugins * \arg \b num (int) - Number of plugins engine has loaded\n\n * \li This is sent before sending the list of plugins, so the client is aware * of how many plugins (/ingen/plugin messages) to expect.

\n \n */ void OSCClientSender::num_plugins(uint32_t num) { send("/ingen/num_plugins", "i", num, LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/plugin - Notification of the existance of a plugin * \arg \b type (string) - Type if plugin ("LADSPA", "LV2", or "Internal") * \arg \b uri (string) - URI of the plugin (see engine namespace documentation) \n * \arg \b lib-name (string) - Name of shared library plugin resides in (ie "cmt.so") * \arg \b plug-label (string) - Label of the plugin (ie "dahdsr_iaoa") * \arg \b name (string) - Descriptive human-readable name of plugin (ie "ADSR Envelope") *

\n \n */ /* void OSCClientSender::plugins() { Engine::instance().node_factory()->lock_plugin_list(); const list& plugs = Engine::instance().node_factory()->plugins(); const Plugin* plugin; lo_timetag tt; lo_timetag_now(&tt); lo_bundle b = lo_bundle_new(tt); lo_message m = lo_message_new(); list msgs; lo_message_add_int32(m, plugs.size()); lo_bundle_add_message(b, "/ingen/num_plugins", m); msgs.push_back(m); for (list::const_iterator j = plugs.begin(); j != plugs.end(); ++j) { plugin = (*j); m = lo_message_new(); lo_message_add_string(m, plugin->type_const std::string&()); lo_message_add_string(m, plugin->uri().c_str()); lo_message_add_string(m, plugin->plug_label().c_str()); lo_message_add_string(m, plugin->name().c_str()); lo_bundle_add_message(b, "/ingen/plugin", m); msgs.push_back(m); if (lo_bundle_length(b) > 1024) { lo_send_bundle(_address, b); lo_bundle_free(b); b = lo_bundle_new(tt); } } if (lo_bundle_length(b) > 0) { lo_send_bundle(_address, b); lo_bundle_free(b); } else { lo_bundle_free(b); } for (list::const_iterator i = msgs.begin(); i != msgs.end(); ++i) lo_message_free(*i); Engine::instance().node_factory()->unlock_plugin_list(); } */ /** \page client_osc_namespace *

\b /ingen/new_node - Notification of a new node's creation. * \arg \b plug-uri (string) - URI of the plugin new node is an instance of * \arg \b path (string) - Path of the new node * \arg \b polyphonic (boolean) - Node is polyphonic * \arg \b num-ports (integer) - Number of ports (number of new_port messages to expect)\n\n * \li New nodes are sent as a bundle. The first message in the bundle will be * this one (/ingen/new_node), followed by a series of /ingen/new_port commands, * followed by /ingen/new_node_end.

\n \n */ void OSCClientSender::new_node(const std::string& plugin_uri, const std::string& node_path, bool is_polyphonic, uint32_t num_ports) { if (is_polyphonic) send("/ingen/new_node", "ssTi", plugin_uri.c_str(), node_path.c_str(), num_ports, LO_ARGS_END); else send("/ingen/new_node", "ssFi", plugin_uri.c_str(), node_path.c_str(), num_ports, LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/new_port - Notification of a new port's creation. * \arg \b path (string) - Path of new port * \arg \b index (integer) - Index (or sort key) of port on parent * \arg \b data-type (string) - Type of port (ingen:AudioPort, ingen:ControlPort, ingen:MIDIPort, or ingen:OSCPort) * \arg \b direction ("is-output") (integer) - Direction of data flow (Input = 0, Output = 1) * * \li Note that in the event of loading a patch, this message could be * followed immediately by a control change, meaning the default-value is * not actually the current value of the port. * \li The minimum and maximum values are suggestions only, they are not * enforced in any way, and going outside them is perfectly fine. Also note * that the port ranges in om_gtk are not these ones! Those ranges are set * as variable.

\n \n */ void OSCClientSender::new_port(const std::string& path, uint32_t index, const std::string& data_type, bool is_output) { send("/ingen/new_port", "sisi", path.c_str(), index, data_type.c_str(), is_output, LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/polyphonic - Notification an object's polyphonic property has changed. * \arg \b path (string) - Path of object * \arg \b polyphonic (bool) - Whether or not object is polyphonic (from it's parent's perspective). * * \li This is a notification that the object is externally polyphonic, * i.e. its parent sees several independent buffers for a single port, one for each voice. * An object can be internally polyphonic but externally not if the voices are mixed down; * this is true of some instruments and subpatches with mismatched polyphony.

\n \n */ void OSCClientSender::polyphonic(const std::string& path, bool polyphonic) { if (!_enabled) return; if (polyphonic) lo_send(_address, "/ingen/polyphonic", "sT", path.c_str()); else lo_send(_address, "/ingen/polyphonic", "sF", path.c_str()); } /** \page client_osc_namespace *

\b /ingen/destroyed - Notification an object has been destroyed * \arg \b path (string) - Path of object (which no longer exists)

\n \n */ void OSCClientSender::object_destroyed(const std::string& path) { assert(path != "/"); send("/ingen/destroyed", "s", path.c_str(), LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/patch_cleared - Notification a patch has been cleared (all children destroyed) * \arg \b path (string) - Path of patch (which is now empty)

\n \n */ void OSCClientSender::patch_cleared(const std::string& patch_path) { send("/ingen/patch_cleared", "s", patch_path.c_str(), LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/patch_enabled - Notification a patch's DSP processing has been enabled. * \arg \b path (string) - Path of enabled patch

\n \n */ void OSCClientSender::patch_enabled(const std::string& patch_path) { send("/ingen/patch_enabled", "s", patch_path.c_str(), LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/patch_disabled - Notification a patch's DSP processing has been disabled. * \arg \b path (string) - Path of disabled patch

\n \n */ void OSCClientSender::patch_disabled(const std::string& patch_path) { send("/ingen/patch_disabled", "s", patch_path.c_str(), LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/patch_polyphony - Notification a patch's DSP processing has been polyphony. * \arg \b path (string) - Path of polyphony patch

\n \n */ void OSCClientSender::patch_polyphony(const std::string& patch_path, uint32_t poly) { if (!_enabled) return; lo_send(_address, "/ingen/patch_polyphony", "si", patch_path.c_str(), poly); } /** \page client_osc_namespace *

\b /ingen/new_connection - Notification a new connection has been made. * \arg \b src-path (string) - Path of the source port * \arg \b dst-path (string) - Path of the destination port

\n \n */ void OSCClientSender::connection(const std::string& src_port_path, const std::string& dst_port_path) { send("/ingen/new_connection", "ss", src_port_path.c_str(), dst_port_path.c_str(), LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/disconnection - Notification a connection has been unmade. * \arg \b src-path (string) - Path of the source port * \arg \b dst-path (string) - Path of the destination port

\n \n */ void OSCClientSender::disconnection(const std::string& src_port_path, const std::string& dst_port_path) { send("/ingen/disconnection", "ss", src_port_path.c_str(), dst_port_path.c_str(), LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/variable_change - Notification of a piece of variable. * \arg \b path (string) - Path of the object associated with variable (can be a node, patch, or port) * \arg \b key (string) * \arg \b value (string)

\n \n */ void OSCClientSender::variable_change(const std::string& path, const std::string& key, const Atom& value) { lo_message m = lo_message_new(); lo_message_add_string(m, path.c_str()); lo_message_add_string(m, key.c_str()); Raul::AtomLiblo::lo_message_add_atom(m, value); send_message("/ingen/variable_change", m); } /** \page client_osc_namespace *

\b /ingen/control_change - Notification the value of a port has changed * \arg \b path (string) - Path of port * \arg \b value (float) - New value of port

\n \n */ void OSCClientSender::control_change(const std::string& port_path, float value) { send("/ingen/control_change", "sf", port_path.c_str(), value, LO_ARGS_END); } /** \page client_osc_namespace *

\b /ingen/port_activity - Notification of activity for a port (e.g. MIDI messages) * \arg \b path (string) - Path of port

\n \n */ void OSCClientSender::port_activity(const std::string& port_path) { if (!_enabled) return; lo_send(_address, "/ingen/port_activity", "s", port_path.c_str()); } /** \page client_osc_namespace *

\b /ingen/plugin - Notification of the existance of a plugin * \arg \b uri (string) - URI of plugin (e.g. http://example.org/filtermatic) * \arg \b type (string) - Type of plugin (e.g. "ingen:LV2Plugin") * \arg \b symbol (string) - Valid symbol for plugin (default symbol for nodes) (e.g. "adsr") * \arg \b name (string) - Descriptive human-readable name of plugin (e.g. "ADSR Envelope") */ void OSCClientSender::new_plugin(const std::string& uri, const std::string& type_uri, const std::string& symbol, const std::string& name) { // FIXME: size? liblo doesn't export this. // Don't want to exceed max UDP packet size (1500 bytes) static const size_t MAX_BUNDLE_SIZE = 1500 - 32*5; lo_message m = lo_message_new(); lo_message_add_string(m, uri.c_str()); lo_message_add_string(m, type_uri.c_str()); lo_message_add_string(m, symbol.c_str()); lo_message_add_string(m, name.c_str()); if (_transfer) { if (lo_bundle_length(_transfer) + lo_message_length(m, "/ingen/plugin") > MAX_BUNDLE_SIZE) { lo_send_bundle(_address, _transfer); _transfer = lo_bundle_new(LO_TT_IMMEDIATE); } lo_bundle_add_message(_transfer, "/ingen/plugin", m); } else { lo_send_message(_address, "/ingen/plugin", m); } } /** \page client_osc_namespace *

\b /ingen/new_patch - Notification of a new patch * \arg \b path (string) - Path of new patch * \arg \b poly (int) - Polyphony of new patch (\em not a boolean like new_node)

\n \n */ void OSCClientSender::new_patch(const std::string& path, uint32_t poly) { send("/ingen/new_patch", "si", path.c_str(), poly, LO_ARGS_END); /* if (p->process()) patch_enabled(p->path()); // Send variables const map& data = p->variable(); for (map::const_iterator i = data.begin(); i != data.end(); ++i) { variable_change(p->path(), (*i).first, (*i).second); } */ } /** \page client_osc_namespace *

\b /ingen/object_renamed - Notification of an object's renaming * \arg \b old-path (string) - Old path of object * \arg \b new-path (string) - New path of object

\n \n */ void OSCClientSender::object_renamed(const std::string& old_path, const std::string& new_path) { send("/ingen/object_renamed", "ss", old_path.c_str(), new_path.c_str(), LO_ARGS_END); } /** Sends information about a program associated with a node. */ void OSCClientSender::program_add(const std::string& node_path, uint32_t bank, uint32_t program, const std::string& name) { send("/ingen/program_add", "siis", node_path.c_str(), bank, program, name.c_str()); } void OSCClientSender::program_remove(const std::string& node_path, uint32_t bank, uint32_t program) { send("/ingen/program_remove", "sii", node_path.c_str(), bank, program); } } // namespace Ingen