X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=libs%2Fardour%2Fvst_plugin.cc;h=92aac83bebaaabd1cb856e604af19f237ee77c4c;hb=5f4bdb233a53932986e07fca1cd6c87d22c2886f;hp=1ce180469712dfa5c367ddf42b4513dd2eef5893;hpb=b5af3bb8e313e13166cc54c60a14e5492e674065;p=ardour.git diff --git a/libs/ardour/vst_plugin.cc b/libs/ardour/vst_plugin.cc index 1ce1804697..92aac83beb 100644 --- a/libs/ardour/vst_plugin.cc +++ b/libs/ardour/vst_plugin.cc @@ -1,5 +1,5 @@ /* - Copyright (C) 2004 Paul Davis + Copyright (C) 2004 Paul Davis This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -20,37 +20,42 @@ #include #include #include -#include +#include #include #include // so libraptor doesn't complain #include #include -#include // for memmove +#include // for memmove #include #include +#include + #include #include -#include -#include -#include -#include +#include "pbd/compose.h" +#include "pbd/error.h" +#include "pbd/pathscanner.h" +#include "pbd/xml++.h" -#include +#include -#include -#include -#include -#include -#include +#include "ardour/session.h" +#include "ardour/audioengine.h" +#include "ardour/filesystem_paths.h" +#include "ardour/vst_plugin.h" +#include "ardour/buffer_set.h" +#include "ardour/audio_buffer.h" +#include "ardour/midi_buffer.h" -#include +#include "pbd/stl_delete.h" #include "i18n.h" #include +using namespace std; using namespace ARDOUR; using namespace PBD; using std::min; @@ -70,16 +75,16 @@ VSTPlugin::VSTPlugin (AudioEngine& e, Session& session, FSTHandle* h) /* set rate and blocksize */ - _plugin->dispatcher (_plugin, effSetSampleRate, 0, 0, NULL, + _plugin->dispatcher (_plugin, effSetSampleRate, 0, 0, NULL, (float) session.frame_rate()); - _plugin->dispatcher (_plugin, effSetBlockSize, 0, + _plugin->dispatcher (_plugin, effSetBlockSize, 0, session.get_block_size(), NULL, 0.0f); - + /* set program to zero */ _plugin->dispatcher (_plugin, effSetProgram, 0, 0, NULL, 0.0f); - - Plugin::setup_controls (); + + // Plugin::setup_controls (); } VSTPlugin::VSTPlugin (const VSTPlugin &other) @@ -92,42 +97,50 @@ VSTPlugin::VSTPlugin (const VSTPlugin &other) } _plugin = _fst->plugin; - Plugin::setup_controls (); + // Plugin::setup_controls (); } VSTPlugin::~VSTPlugin () { deactivate (); - GoingAway (); /* EMIT SIGNAL */ fst_close (_fst); } -void -VSTPlugin::set_block_size (nframes_t nframes) +int +VSTPlugin::set_block_size (pframes_t nframes) { deactivate (); _plugin->dispatcher (_plugin, effSetBlockSize, 0, nframes, NULL, 0.0f); activate (); + return 0; } float VSTPlugin::default_value (uint32_t port) { return 0; -} +} void VSTPlugin::set_parameter (uint32_t which, float val) { _plugin->setParameter (_plugin, which, val); - ParameterChanged (which, val); /* EMIT SIGNAL */ + + if (_fst->want_program == -1 && _fst->want_chunk == 0) { + /* Heinous hack: Plugin::set_parameter below updates the `modified' status of the + current preset, but if _fst->want_program is not -1 then there is a preset + setup pending or in progress, which we don't want any `modified' updates + to happen for. So we only do this if _fst->want_program is -1. + */ + Plugin::set_parameter (which, val); + } } float VSTPlugin::get_parameter (uint32_t which) const { return _plugin->getParameter (_plugin, which); - + } uint32_t @@ -137,85 +150,82 @@ VSTPlugin::nth_parameter (uint32_t n, bool& ok) const return n; } -XMLNode& -VSTPlugin::get_state() +/** Get VST chunk as base64-encoded data. + * @param single true for single program, false for all programs. + * @return 0-terminated base64-encoded data; must be passed to g_free () by caller. + */ +gchar * +VSTPlugin::get_chunk (bool single) const { - XMLNode *root = new XMLNode (state_node_name()); - LocaleGuard lg (X_("POSIX")); - - if (_plugin->flags & effFlagsProgramChunks) { - - /* fetch the current chunk */ - - void* data; - long data_size; - - if ((data_size = _plugin->dispatcher (_plugin, effGetChunk, 0, 0, &data, false)) == 0) { - return *root; - } - - /* save it to a file */ - - string path; - struct stat sbuf; - - sys::path user_vst_directory(user_config_directory()); + guchar* data; + int32_t data_size = _plugin->dispatcher (_plugin, 23 /* effGetChunk */, single ? 1 : 0, 0, &data, 0); + if (data_size == 0) { + return 0; + } - user_vst_directory /= "vst"; + return g_base64_encode (data, data_size); +} - path = user_vst_directory.to_string(); +/** Set VST chunk from base64-encoded data. + * @param 0-terminated base64-encoded data. + * @param single true for single program, false for all programs. + * @return 0 on success, non-0 on failure + */ +int +VSTPlugin::set_chunk (gchar const * data, bool single) +{ + gsize size = 0; + guchar* raw_data = g_base64_decode (data, &size); + int const r = _plugin->dispatcher (_plugin, 24 /* effSetChunk */, single ? 1 : 0, size, raw_data, 0); + g_free (raw_data); + return r; +} - if (stat (path.c_str(), &sbuf)) { - if (errno == ENOENT) { - if (g_mkdir_with_parents (path.c_str(), 0600)) { - error << string_compose (_("cannot create VST chunk directory: %1"), - strerror (errno)) - << endmsg; - return *root; - } +void +VSTPlugin::add_state (XMLNode* root) const +{ + LocaleGuard lg (X_("POSIX")); - } else { + if (_fst->current_program != -1) { + char buf[32]; + snprintf (buf, sizeof (buf), "%d", _fst->current_program); + root->add_property ("current-program", buf); + } - warning << string_compose (_("cannot check VST chunk directory: %1"), strerror (errno)) - << endmsg; - return *root; - } + if (_plugin->flags & 32 /* effFlagsProgramsChunks */) { - } else if (!S_ISDIR (sbuf.st_mode)) { - error << string_compose (_("%1 exists but is not a directory"), path) - << endmsg; - return *root; + gchar* data = get_chunk (false); + if (data == 0) { + return; } - - path += "something"; - + /* store information */ XMLNode* chunk_node = new XMLNode (X_("chunk")); - chunk_node->add_property ("path", path); - + + chunk_node->add_content (data); + g_free (data); + root->add_child_nocopy (*chunk_node); - + } else { XMLNode* parameters = new XMLNode ("parameters"); - for (long n = 0; n < _plugin->numParams; ++n) { + for (int32_t n = 0; n < _plugin->numParams; ++n) { char index[64]; char val[32]; - snprintf (index, sizeof (index), "param_%ld", n); + snprintf (index, sizeof (index), "param_%d", n); snprintf (val, sizeof (val), "%.12g", _plugin->getParameter (_plugin, n)); parameters->add_property (index, val); } root->add_child_nocopy (*parameters); } - - return *root; } int -VSTPlugin::set_state(const XMLNode& node) +VSTPlugin::set_state (const XMLNode& node, int version) { LocaleGuard lg (X_("POSIX")); @@ -224,30 +234,54 @@ VSTPlugin::set_state(const XMLNode& node) return 0; } + const XMLProperty* prop; + + if ((prop = node.property ("current-program")) != 0) { + _fst->current_program = atoi (prop->value().c_str()); + } + XMLNode* child; + int ret = -1; - if ((child = find_named_node (node, X_("chunks"))) != 0) { + if ((child = find_named_node (node, X_("chunk"))) != 0) { - return 0; + XMLPropertyList::const_iterator i; + XMLNodeList::const_iterator n; + int ret = -1; + + for (n = child->children ().begin (); n != child->children ().end (); ++n) { + if ((*n)->is_content ()) { + /* XXX: this may be dubious for the same reasons that we delay + execution of load_preset. + */ + ret = set_chunk ((*n)->content().c_str(), false); + } + } } else if ((child = find_named_node (node, X_("parameters"))) != 0) { - + XMLPropertyList::const_iterator i; for (i = child->properties().begin(); i != child->properties().end(); ++i) { - long param; + int32_t param; float val; - sscanf ((*i)->name().c_str(), "param_%ld", ¶m); + sscanf ((*i)->name().c_str(), "param_%d", ¶m); sscanf ((*i)->value().c_str(), "%f", &val); _plugin->setParameter (_plugin, param, val); } - return 0; + /* program number is not knowable */ + + _fst->current_program = -1; + + ret = 0; + } - return -1; + Plugin::set_state (node, version); + return ret; } int @@ -257,9 +291,12 @@ VSTPlugin::get_parameter_descriptor (uint32_t which, ParameterDescriptor& desc) desc.min_unbound = false; desc.max_unbound = false; + prop.flags = 0; if (_plugin->dispatcher (_plugin, effGetParameterProperties, which, 0, &prop, 0)) { +#ifdef VESTIGE_COMPLETE + /* i have yet to find or hear of a VST plugin that uses this */ if (prop.flags & kVstParameterUsesIntegerMinMax) { @@ -269,32 +306,33 @@ VSTPlugin::get_parameter_descriptor (uint32_t which, ParameterDescriptor& desc) desc.lower = 0; desc.upper = 1.0; } - + if (prop.flags & kVstParameterUsesIntStep) { - + desc.step = prop.stepInteger; desc.smallstep = prop.stepInteger; desc.largestep = prop.stepInteger; - + } else if (prop.flags & kVstParameterUsesFloatStep) { - + desc.step = prop.stepFloat; desc.smallstep = prop.smallStepFloat; desc.largestep = prop.largeStepFloat; - + } else { - + float range = desc.upper - desc.lower; - + desc.step = range / 100.0f; desc.smallstep = desc.step / 2.0f; desc.largestep = desc.step * 10.0f; } - + desc.toggled = prop.flags & kVstParameterIsSwitch; desc.logarithmic = false; desc.sr_dependent = false; desc.label = prop.label; +#endif } else { @@ -321,88 +359,250 @@ VSTPlugin::get_parameter_descriptor (uint32_t which, ParameterDescriptor& desc) } bool -VSTPlugin::load_preset (string name) +VSTPlugin::load_preset (PresetRecord r) { - if (_plugin->flags & effFlagsProgramChunks) { - error << _("no support for presets using chunks at this time") - << endmsg; - return false; + bool s; + + if (r.user) { + s = load_user_preset (r); + } else { + s = load_plugin_preset (r); + } + + if (s) { + Plugin::load_preset (r); } - return Plugin::load_preset (name); + + return s; } bool -VSTPlugin::save_preset (string name) +VSTPlugin::load_plugin_preset (PresetRecord r) { - if (_plugin->flags & effFlagsProgramChunks) { - error << _("no support for presets using chunks at this time") - << endmsg; + /* This is a plugin-provided preset. + We can't dispatch directly here; too many plugins expects only one GUI thread. + */ + + /* Extract the index of this preset from the URI */ + int id; + int index; + int const p = sscanf (r.uri.c_str(), "VST:%d:%d", &id, &index); + assert (p == 2); + + _fst->want_program = index; + return true; +} + +bool +VSTPlugin::load_user_preset (PresetRecord r) +{ + /* This is a user preset; we load it, and this code also knows about the + non-direct-dispatch thing. + */ + + boost::shared_ptr t (presets_tree ()); + if (t == 0) { return false; } - return Plugin::save_preset (name, "vst"); + + XMLNode* root = t->root (); + + for (XMLNodeList::const_iterator i = root->children().begin(); i != root->children().end(); ++i) { + + XMLProperty* uri = (*i)->property (X_("uri")); + XMLProperty* label = (*i)->property (X_("label")); + + assert (uri); + assert (label); + + if (label->value() != r.label) { + continue; + } + + if (_plugin->flags & 32 /* effFlagsProgramsChunks */) { + + /* Load a user preset chunk from our XML file and send it via a circuitous route to the plugin */ + + if (_fst->wanted_chunk) { + g_free (_fst->wanted_chunk); + } + + for (XMLNodeList::const_iterator j = (*i)->children().begin(); j != (*i)->children().end(); ++j) { + if ((*j)->is_content ()) { + /* we can't dispatch directly here; too many plugins expect only one GUI thread */ + gsize size = 0; + guchar* raw_data = g_base64_decode ((*j)->content().c_str(), &size); + _fst->wanted_chunk = raw_data; + _fst->wanted_chunk_size = size; + _fst->want_chunk = 1; + return true; + } + } + + return false; + + } else { + + for (XMLNodeList::const_iterator j = (*i)->children().begin(); j != (*i)->children().end(); ++j) { + if ((*j)->name() == X_("Parameter")) { + + XMLProperty* index = (*j)->property (X_("index")); + XMLProperty* value = (*j)->property (X_("value")); + + assert (index); + assert (value); + + set_parameter (atoi (index->value().c_str()), atof (value->value().c_str ())); + } + } + + return true; + } + } + + return false; } string -VSTPlugin::describe_parameter (uint32_t param) +VSTPlugin::do_save_preset (string name) +{ + boost::shared_ptr t (presets_tree ()); + if (t == 0) { + return ""; + } + + XMLNode* p = 0; + /* XXX: use of _presets.size() + 1 for the unique ID here is dubious at best */ + string const uri = string_compose (X_("VST:%1:%2"), unique_id (), _presets.size() + 1); + + if (_plugin->flags & 32 /* effFlagsProgramsChunks */) { + + p = new XMLNode (X_("ChunkPreset")); + p->add_property (X_("uri"), uri); + p->add_property (X_("label"), name); + gchar* data = get_chunk (true); + p->add_content (string (data)); + g_free (data); + + } else { + + p = new XMLNode (X_("Preset")); + p->add_property (X_("uri"), uri); + p->add_property (X_("label"), name); + + for (uint32_t i = 0; i < parameter_count(); ++i) { + if (parameter_is_input (i)) { + XMLNode* c = new XMLNode (X_("Parameter")); + c->add_property (X_("index"), string_compose ("%1", i)); + c->add_property (X_("value"), string_compose ("%1", get_parameter (i))); + p->add_child_nocopy (*c); + } + } + + } + + t->root()->add_child_nocopy (*p); + + sys::path f = ARDOUR::user_config_directory (); + f /= "presets"; + f /= presets_file (); + + t->write (f.to_string ()); + return uri; +} + +void +VSTPlugin::do_remove_preset (string name) +{ + boost::shared_ptr t (presets_tree ()); + if (t == 0) { + return; + } + + t->root()->remove_nodes_and_delete (X_("label"), name); + + sys::path f = ARDOUR::user_config_directory (); + f /= "presets"; + f /= presets_file (); + + t->write (f.to_string ()); +} + +string +VSTPlugin::describe_parameter (Evoral::Parameter param) { char name[64]; - _plugin->dispatcher (_plugin, effGetParamName, param, 0, name, 0); + _plugin->dispatcher (_plugin, effGetParamName, param.id(), 0, name, 0); return name; } -nframes_t +framecnt_t VSTPlugin::signal_latency () const { if (_user_latency) { return _user_latency; } - return _plugin->initialDelay; +#ifdef VESTIGE_HEADER + return *((framecnt_t *) (((char *) &_plugin->flags) + 12)); /* initialDelay */ +#else + return _plugin->initial_delay; +#endif } -set +set VSTPlugin::automatable () const { - set ret; + set ret; for (uint32_t i = 0; i < parameter_count(); ++i){ - ret.insert (ret.end(), i); + ret.insert (ret.end(), Evoral::Parameter(PluginAutomation, 0, i)); } return ret; } int -VSTPlugin::connect_and_run (BufferSet& bufs, uint32_t& in_index, uint32_t& out_index, nframes_t nframes, nframes_t offset) +VSTPlugin::connect_and_run (BufferSet& bufs, + ChanMapping in_map, ChanMapping out_map, + pframes_t nframes, framecnt_t offset) { + Plugin::connect_and_run (bufs, in_map, out_map, nframes, offset); + float *ins[_plugin->numInputs]; float *outs[_plugin->numOutputs]; int32_t i; const uint32_t nbufs = bufs.count().n_audio(); + int in_index = 0; for (i = 0; i < (int32_t) _plugin->numInputs; ++i) { ins[i] = bufs.get_audio(min((uint32_t) in_index, nbufs - 1)).data() + offset; in_index++; } + int out_index = 0; for (i = 0; i < (int32_t) _plugin->numOutputs; ++i) { outs[i] = bufs.get_audio(min((uint32_t) out_index, nbufs - 1)).data() + offset; /* unbelievably, several VST plugins still rely on Cubase - behaviour and do not silence the buffer in processReplacing + behaviour and do not silence the buffer in processReplacing when they have no output. */ - + // memset (outs[i], 0, sizeof (Sample) * nframes); out_index++; } - /* we already know it can support processReplacing */ + if (bufs.count().n_midi() > 0) { + VstEvents* v = bufs.get_vst_midi (0); + _plugin->dispatcher (_plugin, effProcessEvents, 0, 0, v, 0); + } + /* we already know it can support processReplacing */ _plugin->processReplacing (_plugin, ins, outs, nframes); - + return 0; } @@ -418,10 +618,17 @@ VSTPlugin::activate () _plugin->dispatcher (_plugin, effMainsChanged, 0, 1, NULL, 0.0f); } -uint32_t +string VSTPlugin::unique_id() const { - return _plugin->uniqueID; + char buf[32]; + +#ifdef VESTIGE_HEADER + snprintf (buf, sizeof (buf), "%d", *((int32_t*) &_plugin->unused_id)); +#else + snprintf (buf, sizeof (buf), "%d", _plugin->uniqueID); +#endif + return string (buf); } @@ -434,7 +641,7 @@ VSTPlugin::name () const const char * VSTPlugin::maker () const { - return "imadeit"; + return _info->creator.c_str(); } const char * @@ -458,11 +665,9 @@ VSTPlugin::has_editor () const void VSTPlugin::print_parameter (uint32_t param, char *buf, uint32_t len) const { - char lab[9]; char *first_nonws; - _plugin->dispatcher (_plugin, effGetParamLabel, param, 0, lab, 0); - _plugin->dispatcher (_plugin, effGetParamDisplay, param, 0, buf, 0); + _plugin->dispatcher (_plugin, 7 /* effGetParamDisplay */, param, 0, buf, 0); if (buf[0] == '\0') { return; @@ -487,9 +692,9 @@ VSTPluginInfo::load (Session& session) if (Config->get_use_vst()) { FSTHandle* handle; - + handle = fst_load(path.c_str()); - + if ( (int)handle == -1) { error << string_compose(_("VST: cannot load module from \"%1\""), path) << endmsg; } else { @@ -502,7 +707,7 @@ VSTPluginInfo::load (Session& session) plugin->set_info(PluginInfoPtr(new VSTPluginInfo(*this))); return plugin; - } + } catch (failed_constructor &err) { return PluginPtr ((Plugin*) 0); @@ -510,13 +715,95 @@ VSTPluginInfo::load (Session& session) } void -VSTPlugin::store_state (ARDOUR::PluginState& s) +VSTPlugin::find_presets () { + /* Built-in presets */ + + int const vst_version = _plugin->dispatcher (_plugin, effGetVstVersion, 0, 0, NULL, 0); + for (int i = 0; i < _plugin->numPrograms; ++i) { + PresetRecord r (string_compose (X_("VST:%1:%2"), unique_id (), i), "", false); + + if (vst_version >= 2) { + char buf[256]; + if (_plugin->dispatcher (_plugin, 29, i, 0, buf, 0) == 1) { + r.label = buf; + } else { + r.label = string_compose (_("Preset %1"), i); + } + } else { + r.label = string_compose (_("Preset %1"), i); + } + + _presets.insert (make_pair (r.uri, r)); + } + + /* User presets from our XML file */ + + boost::shared_ptr t (presets_tree ()); + + if (t) { + XMLNode* root = t->root (); + for (XMLNodeList::const_iterator i = root->children().begin(); i != root->children().end(); ++i) { + + XMLProperty* uri = (*i)->property (X_("uri")); + XMLProperty* label = (*i)->property (X_("label")); + + assert (uri); + assert (label); + + PresetRecord r (uri->value(), label->value(), true); + _presets.insert (make_pair (r.uri, r)); + } + } } -void -VSTPlugin::restore_state (ARDOUR::PluginState& s) +/** @return XMLTree with our user presets; could be a new one if no existing + * one was found, or 0 if one was present but badly-formatted. + */ +XMLTree * +VSTPlugin::presets_tree () const { + XMLTree* t = new XMLTree; + + sys::path p = ARDOUR::user_config_directory (); + p /= "presets"; + + if (!is_directory (p)) { + create_directory (p); + } + + p /= presets_file (); + if (!exists (p)) { + t->set_root (new XMLNode (X_("VSTPresets"))); + return t; + } + + t->set_filename (p.to_string ()); + if (!t->read ()) { + delete t; + return 0; + } + + return t; } + +/** @return Index of the first user preset in our lists */ +int +VSTPlugin::first_user_preset_index () const +{ + return _plugin->numPrograms; +} + +string +VSTPlugin::presets_file () const +{ + return string_compose ("vst-%1", unique_id ()); +} + +VSTPluginInfo::VSTPluginInfo() +{ + type = ARDOUR::VST; +} +