Fix VST build.
[ardour.git] / libs / ardour / plugin.cc
index 2d1f8ffcbd06c888626865b65728b8eddf99482b..4fe51141f6b2238f25d1acec2fde742345e9e4a7 100644 (file)
@@ -1,5 +1,5 @@
 /*
-    Copyright (C) 2000-2002 Paul Davis 
+    Copyright (C) 2000-2002 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
     along with this program; if not, write to the Free Software
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-    $Id$
 */
 
+#ifdef WAF_BUILD
+#include "libardour-config.h"
+#endif
+
 #include <vector>
 #include <string>
 
 #include <dirent.h>
 #include <sys/stat.h>
 #include <cerrno>
+#include <utility>
 
 #include <lrdf.h>
 
-#include <pbd/compose.h>
-#include <pbd/error.h>
-#include <pbd/pathscanner.h>
-#include <pbd/xml++.h>
+#include "pbd/compose.h"
+#include "pbd/error.h"
+#include "pbd/xml++.h"
+
+#include "ardour/ardour.h"
+#include "ardour/session.h"
+#include "ardour/audioengine.h"
+#include "ardour/plugin.h"
+#include "ardour/ladspa_plugin.h"
+#include "ardour/plugin_manager.h"
 
-#include <midi++/manager.h>
+#ifdef HAVE_AUDIOUNITS
+#include "ardour/audio_unit.h"
+#endif
 
-#include <ardour/ardour.h>
-#include <ardour/session.h>
-#include <ardour/audioengine.h>
-#include <ardour/plugin.h>
+#ifdef HAVE_SLV2
+#include "ardour/lv2_plugin.h"
+#endif
 
-#include <pbd/stl_delete.h>
+#include "pbd/stl_delete.h"
 
 #include "i18n.h"
 #include <locale.h>
 
+using namespace std;
 using namespace ARDOUR;
 using namespace PBD;
 
+PBD::Signal0<bool> Plugin::PresetFileExists;
+
 Plugin::Plugin (AudioEngine& e, Session& s)
-       : _engine (e), _session (s)
+       : _engine (e)
+       , _session (s)
+       , _cycles (0)
 {
 }
 
 Plugin::Plugin (const Plugin& other)
-       : _engine (other._engine), _session (other._session), _info (other._info)
+       : StatefulDestructible()
+       , Latent()
+       , _engine (other._engine)
+       , _session (other._session)
+       , _info (other._info)
+       , _cycles (0)
+       , presets (other.presets)
 {
 }
 
-void
-Plugin::setup_midi_controls ()
+Plugin::~Plugin ()
 {
-       uint32_t port_cnt;
-
-       port_cnt = parameter_count();
-
-       /* set up a vector of null pointers for the MIDI controls.
-          we'll fill this in on an as-needed basis.
-       */
-
-       for (uint32_t i = 0; i < port_cnt; ++i) {
-               midi_controls.push_back (0);
-       }
 }
 
-Plugin::~Plugin ()
+const Plugin::PresetRecord*
+Plugin::preset_by_label(const string& label)
 {
-       for (vector<MIDIPortControl*>::iterator i = midi_controls.begin(); i != midi_controls.end(); ++i) {
-               if (*i) {
-                       delete *i;
+       // FIXME: O(n)
+       for (map<string,PresetRecord>::const_iterator i = presets.begin(); i != presets.end(); ++i) {
+               if (i->second.label == label) {
+                       return &i->second;
                }
        }
+       return NULL;
 }
 
-MIDI::Controllable *
-Plugin::get_nth_midi_control (uint32_t n)
+const Plugin::PresetRecord*
+Plugin::preset_by_uri(const string& uri)
 {
-       if (n >= parameter_count()) {
-               return 0;
+       map<string,PresetRecord>::const_iterator pr = presets.find(uri);
+       if (pr != presets.end()) {
+               return &pr->second;
+       } else {
+               return NULL;
        }
-
-       if (midi_controls[n] == 0) {
-
-               Plugin::ParameterDescriptor desc;
-
-               get_parameter_descriptor (n, desc);
-
-               midi_controls[n] = new MIDIPortControl (*this, n, _session.midi_port(), desc.lower, desc.upper, desc.toggled, desc.logarithmic);
-       } 
-
-       return midi_controls[n];
 }
 
-Plugin::MIDIPortControl::MIDIPortControl (Plugin& p, uint32_t port_id, MIDI::Port *port,
-                                         float low, float up, bool t, bool loga)
-       : MIDI::Controllable (port, 0), plugin (p), absolute_port (port_id)
+vector<Plugin::PresetRecord>
+Plugin::get_presets()
 {
-       toggled = t;
-       logarithmic = loga;
-       lower = low;
-       upper = up;
-       range = upper - lower;
-       last_written = 0; /* XXX need a good out-of-bound-value */
-       setting = false;
-}
+       vector<PresetRecord> result;
+       uint32_t id;
+       std::string unique (unique_id());
 
-void
-Plugin::MIDIPortControl::set_value (float value)
-{
-       if (toggled) {
-               if (value > 0.5) {
-                       value = 1.0;
-               } else {
-                       value = 0.0;
-               }
-       } else {
-               value = lower + (range * value);
-               
-               if (logarithmic) {
-                       value = exp(value);
-               }
+       /* XXX problem: AU plugins don't have numeric ID's.
+          Solution: they have a different method of providing presets.
+          XXX sub-problem: implement it.
+       */
+
+       if (!isdigit (unique[0])) {
+               return result;
        }
 
-       setting = true;
-       plugin.set_parameter (absolute_port, value);
-       setting = false;
-}
+       id = atol (unique.c_str());
 
-void
-Plugin::MIDIPortControl::send_feedback (float value)
-{
+       lrdf_uris* set_uris = lrdf_get_setting_uris(id);
 
-       if (!setting && get_midi_feedback()) {
-               MIDI::byte val;
-               MIDI::channel_t ch = 0;
-               MIDI::eventType ev = MIDI::none;
-               MIDI::byte additional = 0;
-               MIDI::EventTwoBytes data;
-
-               if (toggled) {
-                       val = (MIDI::byte) (value * 127.0f);
-               } else {
-                       if (logarithmic) {
-                               value = log(value);
+       if (set_uris) {
+               for (uint32_t i = 0; i < (uint32_t) set_uris->count; ++i) {
+                       if (char* label = lrdf_get_label(set_uris->items[i])) {
+                               PresetRecord rec(set_uris->items[i], label);
+                               result.push_back(rec);
+                               presets.insert(std::make_pair(set_uris->items[i], rec));
                        }
-
-                       val = (MIDI::byte) (((value - lower) / range) * 127.0f);
-               }
-               
-               if (get_control_info (ch, ev, additional)) {
-                       data.controller_number = additional;
-                       data.value = val;
-                       last_written = val;
-                       
-                       plugin.session().send_midi_message (get_port(), ev, ch, data);
                }
+               lrdf_free_uris(set_uris);
        }
-       
+
+       return result;
 }
 
-MIDI::byte*
-Plugin::MIDIPortControl::write_feedback (MIDI::byte* buf, int32_t& bufsize, float value, bool force)
+bool
+Plugin::load_preset(const string& preset_uri)
 {
-       if (get_midi_feedback() && bufsize > 2) {
-               MIDI::channel_t ch = 0;
-               MIDI::eventType ev = MIDI::none;
-               MIDI::byte additional = 0;
-
-               if (get_control_info (ch, ev, additional)) {
-
-                       MIDI::byte val;
-
-                       if (toggled) {
-
-                               val = (MIDI::byte) (value * 127.0f);
-
-                       } else {
-
-                               if (logarithmic) {
-                                       value = log(value);
-                               }
-                               
-                               val = (MIDI::byte) (((value - lower) / range) * 127.0f);
-                       }
+       lrdf_defaults* defs = lrdf_get_setting_values(preset_uri.c_str());
 
-                       if (val != last_written || force)  {
-                               *buf++ = MIDI::controller & ch;
-                               *buf++ = additional; /* controller number */
-                               *buf++ = val;
-                               last_written = val;
-                               bufsize -= 3;
+       if (defs) {
+               for (uint32_t i = 0; i < (uint32_t) defs->count; ++i) {
+                       // The defs->items[i].pid < defs->count check is to work around
+                       // a bug in liblrdf that saves invalid values into the presets file.
+                       if (((uint32_t) defs->items[i].pid < (uint32_t) defs->count) && parameter_is_input (defs->items[i].pid)) {
+                               set_parameter(defs->items[i].pid, defs->items[i].value);
                        }
                }
+               lrdf_free_setting_values(defs);
        }
 
-       return buf;
+       return true;
 }
 
-
-void
-Plugin::reset_midi_control (MIDI::Port* port, bool on)
+/* XXX: should be in liblrdf */
+static void
+lrdf_remove_preset (const char *source, const char *setting_uri)
 {
-       MIDI::channel_t chn;
-       MIDI::eventType ev;
-       MIDI::byte extra;
+       lrdf_statement p;
+       lrdf_statement *q;
+       lrdf_statement *i;
+       char setting_uri_copy[64];
+       char buf[64];
        
-       for (vector<MIDIPortControl*>::iterator i = midi_controls.begin(); i != midi_controls.end(); ++i) {
-               if (*i == 0)
-                       continue;
-               (*i)->get_control_info (chn, ev, extra);
-               if (!on) {
-                       chn = -1;
-               }
-               (*i)->midi_rebind (port, chn);
+       strncpy(setting_uri_copy, setting_uri, sizeof(setting_uri_copy));
+
+       p.subject = setting_uri_copy;
+       strncpy(buf, LADSPA_BASE "hasPortValue", sizeof(buf));
+       p.predicate = buf;
+       p.object = NULL;
+       q = lrdf_matches(&p);
+
+       p.predicate = NULL;
+       p.object = NULL;
+       for (i = q; i; i = i->next) {
+               p.subject = i->object;
+               lrdf_remove_matches(&p);
        }
-}
 
-void
-Plugin::send_all_midi_feedback ()
-{
-       if (_session.get_midi_feedback()) {
-               float val = 0.0;
-               uint32_t n = 0;
-               
-               for (vector<MIDIPortControl*>::iterator i = midi_controls.begin(); i != midi_controls.end(); ++i, ++n) {
-                       if (*i == 0) {
-                               continue;
-                       }
+       lrdf_free_statements(q);
 
-                       val = (*i)->plugin.get_parameter (n);
-                       (*i)->send_feedback (val);
-               }
-               
-       }
+       p.subject = NULL;
+       strncpy(buf, LADSPA_BASE "hasSetting", sizeof(buf));
+       p.predicate = buf;
+       p.object = setting_uri_copy;
+       lrdf_remove_matches(&p);
+
+       p.subject = setting_uri_copy;
+       p.predicate = NULL;
+       p.object = NULL;
+       lrdf_remove_matches (&p);
 }
 
-MIDI::byte*
-Plugin::write_midi_feedback (MIDI::byte* buf, int32_t& bufsize)
+void
+Plugin::remove_preset (string name, string domain)
 {
-       if (_session.get_midi_feedback()) {
-               float val = 0.0;
-               uint32_t n = 0;
-               
-               for (vector<MIDIPortControl*>::iterator i = midi_controls.begin(); i != midi_controls.end(); ++i, ++n) {
-                       if (*i == 0) {
-                               continue;
-                       }
+       string const envvar = preset_envvar ();
+       if (envvar.empty()) {
+               warning << _("Could not locate HOME.  Preset not removed.") << endmsg;
+               return;
+       }
 
-                       val = (*i)->plugin.get_parameter (n);
-                       buf = (*i)->write_feedback (buf, bufsize, val);
-               }
+       Plugin::PresetRecord const * p = preset_by_label (name);
+       if (!p) {
+               return;
        }
+       
+       string const source = preset_source (envvar, domain);
+       lrdf_remove_preset (source.c_str(), p->uri.c_str ());
+
+       presets.erase (p->uri);
 
-       return buf;
+       write_preset_file (envvar, domain);
 }
 
-vector<string>
-Plugin::get_presets()
+string
+Plugin::preset_envvar () const
 {
-       vector<string> labels;
-       lrdf_uris* set_uris = lrdf_get_setting_uris(unique_id());
-
-       if (set_uris) {
-               for (uint32_t i = 0; i < (uint32_t) set_uris->count; ++i) {
-                       if (char* label = lrdf_get_label(set_uris->items[i])) {
-                               labels.push_back(label);
-                               presets[label] = set_uris->items[i];
-                       }
-               }
-               lrdf_free_uris(set_uris);
+       char* envvar;
+       if ((envvar = getenv ("HOME")) == 0) {
+               return "";
        }
+       
+       return envvar;
+}
 
-       // GTK2FIX find an equivalent way to do this with a vector (needed by GUI apis)
-       // labels.unique();
-
-       return labels;
+string
+Plugin::preset_source (string envvar, string domain) const
+{
+       return string_compose ("file:%1/.%2/rdf/ardour-presets.n3", envvar, domain);
 }
 
 bool
-Plugin::load_preset(const string preset_label)
+Plugin::write_preset_file (string envvar, string domain)
 {
-       lrdf_defaults* defs = lrdf_get_setting_values(presets[preset_label].c_str());
+       string path = string_compose("%1/.%2", envvar, domain);
+       if (g_mkdir_with_parents (path.c_str(), 0775)) {
+               warning << string_compose(_("Could not create %1.  Preset not saved. (%2)"), path, strerror(errno)) << endmsg;
+               return false;
+       }
 
-       if (defs) {
-               for (uint32_t i = 0; i < (uint32_t) defs->count; ++i) {
-                       // The defs->items[i].pid < defs->count check is to work around 
-                       // a bug in liblrdf that saves invalid values into the presets file.
-                       if (((uint32_t) defs->items[i].pid < (uint32_t) defs->count) && parameter_is_input (defs->items[i].pid)) {
-                               set_parameter(defs->items[i].pid, defs->items[i].value);
-                       }
-               }
-               lrdf_free_setting_values(defs);
+       path += "/rdf";
+       if (g_mkdir_with_parents (path.c_str(), 0775)) {
+               warning << string_compose(_("Could not create %1.  Preset not saved. (%2)"), path, strerror(errno)) << endmsg;
+               return false;
+       }
+
+       string const source = preset_source (envvar, domain);
+
+       if (lrdf_export_by_source (source.c_str(), source.substr(5).c_str())) {
+               warning << string_compose(_("Error saving presets file %1."), source) << endmsg;
+               return false;
        }
 
        return true;
@@ -313,6 +270,20 @@ Plugin::save_preset (string name, string domain)
 {
        lrdf_portvalue portvalues[parameter_count()];
        lrdf_defaults defaults;
+       uint32_t id;
+       std::string unique (unique_id());
+
+       /* XXX problem: AU plugins don't have numeric ID's.
+          Solution: they have a different method of providing/saving presets.
+          XXX sub-problem: implement it.
+       */
+
+       if (!isdigit (unique[0])) {
+               return false;
+       }
+
+       id = atol (unique.c_str());
+
        defaults.count = parameter_count();
        defaults.items = portvalues;
 
@@ -323,32 +294,97 @@ Plugin::save_preset (string name, string domain)
                }
        }
 
-       char* envvar;
-       if ((envvar = getenv ("HOME")) == 0) {
+       string const envvar = preset_envvar ();
+       if (envvar.empty()) {
                warning << _("Could not locate HOME.  Preset not saved.") << endmsg;
                return false;
        }
+
+       string const source = preset_source (envvar, domain);
+
+       char* uri = lrdf_add_preset (source.c_str(), name.c_str(), id, &defaults);
        
-       string source(string_compose("file:%1/.%2/rdf/ardour-presets.n3", envvar, domain));
+       /* XXX: why is the uri apparently kept as the key in the `presets' map and also in the PresetRecord? */
 
-       free(lrdf_add_preset(source.c_str(), name.c_str(), unique_id(), &defaults));
+       presets.insert (make_pair (uri, PresetRecord (uri, name)));
+       free (uri);
 
-       string path = string_compose("%1/.%2", envvar, domain);
-       if (mkdir(path.c_str(), 0775) && errno != EEXIST) {
-               warning << string_compose(_("Could not create %1.  Preset not saved. (%2)"), path, strerror(errno)) << endmsg;
-               return false;
+       return write_preset_file (envvar, domain);
+}
+
+PluginPtr
+ARDOUR::find_plugin(Session& session, string identifier, PluginType type)
+{
+       PluginManager *mgr = PluginManager::the_manager();
+       PluginInfoList plugs;
+
+       switch (type) {
+       case ARDOUR::LADSPA:
+               plugs = mgr->ladspa_plugin_info();
+               break;
+
+#ifdef HAVE_SLV2
+       case ARDOUR::LV2:
+               plugs = mgr->lv2_plugin_info();
+               break;
+#endif
+
+#ifdef VST_SUPPORT
+       case ARDOUR::VST:
+               plugs = mgr->vst_plugin_info();
+               break;
+#endif
+
+#ifdef HAVE_AUDIOUNITS
+       case ARDOUR::AudioUnit:
+               plugs = mgr->au_plugin_info();
+               break;
+#endif
+
+       default:
+               return PluginPtr ((Plugin *) 0);
        }
-       
-       path += "/rdf";
-       if (mkdir(path.c_str(), 0775) && errno != EEXIST) {
-               warning << string_compose(_("Could not create %1.  Preset not saved. (%2)"), path, strerror(errno)) << endmsg;
-               return false;
+
+       PluginInfoList::iterator i;
+
+       for (i = plugs.begin(); i != plugs.end(); ++i) {
+               if (identifier == (*i)->unique_id){
+                       return (*i)->load (session);
+               }
        }
-       
-       if (lrdf_export_by_source(source.c_str(), source.substr(5).c_str())) {
-               warning << string_compose(_("Error saving presets file %1."), source) << endmsg;
-               return false;
+
+#ifdef VST_SUPPORT
+       /* hmm, we didn't find it. could be because in older versions of Ardour.
+          we used to store the name of a VST plugin, not its unique ID. so try
+          again.
+       */
+
+       for (i = plugs.begin(); i != plugs.end(); ++i) {
+               if (identifier == (*i)->name){
+                       return (*i)->load (session);
+               }
        }
+#endif
 
-       return true;
+       return PluginPtr ((Plugin*) 0);
+}
+
+ChanCount
+Plugin::output_streams () const
+{
+       /* LADSPA & VST should not get here because they do not
+          return "infinite" i/o counts.
+       */
+       return ChanCount::ZERO;
 }
+
+ChanCount
+Plugin::input_streams () const
+{
+       /* LADSPA & VST should not get here because they do not
+          return "infinite" i/o counts.
+       */
+       return ChanCount::ZERO;
+}
+
+