change several startup messages to be triggered only by -D (debug) options
[ardour.git] / libs / ardour / plugin_manager.cc
index ebf0ecab3cd83636259e406a10ef5865b6d62690..dc717e6b8c39ceeddeb351fb844e489ee537593f 100644 (file)
@@ -21,7 +21,6 @@
 #include "libardour-config.h"
 #endif
 
-#define __STDC_FORMAT_MACROS 1
 #include <stdint.h>
 
 #include <sys/types.h>
 #include <cstring>
 #endif // VST_SUPPORT
 
+#ifdef LXVST_SUPPORT
+#include <ardour/vstfx.h>
+#include <pbd/basename.h>
+#include <cstring>
+#endif //LXVST_SUPPORT
+
 #include <glibmm/miscutils.h>
 
 #include "pbd/pathscanner.h"
 #include "pbd/whitespace.h"
 
+#include "ardour/debug.h"
+#include "ardour/filesystem_paths.h"
 #include "ardour/ladspa.h"
-#include "ardour/session.h"
-#include "ardour/plugin_manager.h"
-#include "ardour/plugin.h"
 #include "ardour/ladspa_plugin.h"
-#include "ardour/filesystem_paths.h"
+#include "ardour/plugin.h"
+#include "ardour/plugin_manager.h"
+#include "ardour/session.h"
 
-#ifdef HAVE_SLV2
-#include <slv2/slv2.h>
+#ifdef LV2_SUPPORT
 #include "ardour/lv2_plugin.h"
 #endif
 
 #include "ardour/vst_plugin.h"
 #endif
 
-#ifdef HAVE_AUDIOUNITS
+#ifdef LXVST_SUPPORT
+#include "ardour/lxvst_plugin.h"
+#endif
+
+#ifdef AUDIOUNIT_SUPPORT
 #include "ardour/audio_unit.h"
 #include <Carbon/Carbon.h>
 #endif
@@ -76,6 +85,7 @@ PluginManager* PluginManager::_manager = 0;
 
 PluginManager::PluginManager ()
        : _vst_plugin_info(0)
+       , _lxvst_plugin_info(0)
        , _ladspa_plugin_info(0)
        , _lv2_plugin_info(0)
        , _au_plugin_info(0)
@@ -85,14 +95,6 @@ PluginManager::PluginManager ()
 
        load_statuses ();
 
-#ifdef HAVE_AUDIOUNITS
-       ProcessSerialNumber psn = { 0, kCurrentProcess };
-       OSStatus returnCode = TransformProcessType(& psn, kProcessTransformToForegroundApplication);
-       if( returnCode != 0) {
-               error << _("Cannot become GUI app") << endmsg;
-       }
-#endif
-
        if ((s = getenv ("LADSPA_RDF_PATH"))){
                lrdf_path = s;
        }
@@ -109,6 +111,12 @@ PluginManager::PluginManager ()
        }
 #endif /* VST_SUPPORT */
 
+#ifdef LXVST_SUPPORT
+       if (Config->get_use_lxvst()) {
+               add_lxvst_presets();
+       }
+#endif /* Native LinuxVST support*/
+
        if ((s = getenv ("LADSPA_PATH"))) {
                ladspa_path = s;
        }
@@ -119,6 +127,12 @@ PluginManager::PluginManager ()
                vst_path = s;
        }
 
+       if ((s = getenv ("LXVST_PATH"))) {
+               lxvst_path = s;
+       } else if ((s = getenv ("LXVST_PLUGINS"))) {
+               lxvst_path = s;
+       }
+
        if (_manager == 0) {
                _manager = this;
        }
@@ -135,27 +149,22 @@ PluginManager::PluginManager ()
                ladspa_plugin_whitelist.push_back (2150); // tap pitch shifter
        }
 
-#ifdef HAVE_SLV2
-       _lv2_world = new LV2World();
-#endif
-
        BootMessage (_("Discovering Plugins"));
 }
 
 
 PluginManager::~PluginManager()
 {
-#ifdef HAVE_SLV2
-       delete _lv2_world;
-#endif
 }
 
 
 void
 PluginManager::refresh ()
 {
+       DEBUG_TRACE (DEBUG::PluginManager, "PluginManager::refresh\n");
+
        ladspa_refresh ();
-#ifdef HAVE_SLV2
+#ifdef LV2_SUPPORT
        lv2_refresh ();
 #endif
 #ifdef VST_SUPPORT
@@ -163,7 +172,14 @@ PluginManager::refresh ()
                vst_refresh ();
        }
 #endif // VST_SUPPORT
-#ifdef HAVE_AUDIOUNITS
+
+#ifdef LXVST_SUPPORT
+       if(Config->get_use_lxvst()) {
+               lxvst_refresh();
+       }
+#endif //Native linuxVST SUPPORT
+
+#ifdef AUDIOUNIT_SUPPORT
        au_refresh ();
 #endif
 
@@ -190,7 +206,7 @@ PluginManager::ladspa_refresh ()
        /* allow LADSPA_PATH to augment, not override standard locations */
 
        /* Only add standard locations to ladspa_path if it doesn't
-        * already contain them. Check for trailing '/'s too.
+        * already contain them. Check for trailing G_DIR_SEPARATOR too.
         */
 
        int i;
@@ -201,7 +217,7 @@ PluginManager::ladspa_refresh ()
                                case ':' :
                                case '\0':
                                        continue;
-                               case '/' :
+                               case G_DIR_SEPARATOR :
                                        if (ladspa_path[found + strlen(standard_paths[i]) + 1] == ':' ||
                                            ladspa_path[found + strlen(standard_paths[i]) + 1] == '\0') {
                                                continue;
@@ -215,6 +231,8 @@ PluginManager::ladspa_refresh ()
 
        }
 
+       DEBUG_TRACE (DEBUG::PluginManager, string_compose ("LADSPA: search along: [%1]\n", ladspa_path));
+
        ladspa_discover_from_path (ladspa_path);
 }
 
@@ -277,6 +295,13 @@ PluginManager::add_vst_presets()
 {
        add_presets ("vst");
 }
+
+void
+PluginManager::add_lxvst_presets()
+{
+       add_presets ("lxvst");
+}
+
 void
 PluginManager::add_presets(string domain)
 {
@@ -443,22 +468,49 @@ PluginManager::get_ladspa_category (uint32_t plugin_id)
        string label = matches2->object;
        lrdf_free_statements(matches2);
 
-       return label;
+       /* Kludge LADSPA class names to be singular and match LV2 class names.
+          This avoids duplicate plugin menus for every class, which is necessary
+          to make the plugin category menu at all usable, but is obviously a
+          filthy kludge.
+
+          In the short term, lrdf could be updated so the labels match and a new
+          release made. To support both specs, we should probably be mapping the
+          URIs to the same category in code and perhaps tweaking that hierarchy
+          dynamically to suit the user. Personally, I (drobilla) think that time
+          is better spent replacing the little-used LRDF.
+
+          In the longer term, we will abandon LRDF entirely in favour of LV2 and
+          use that class hierarchy. Aside from fixing this problem properly, that
+          will also allow for translated labels. SWH plugins have been LV2 for
+          ages; TAP needs porting. I don't know of anything else with LRDF data.
+       */
+       if (label == "Utilities") {
+               return "Utility";
+       } else if (label == "Pitch shifters") {
+               return "Pitch Shifter";
+       } else if (label != "Dynamics" && label != "Chorus"
+                  &&label[label.length() - 1] == 's'
+                  && label[label.length() - 2] != 's') {
+               return label.substr(0, label.length() - 1);
+       } else {
+               return label;
+       }
 }
 
-#ifdef HAVE_SLV2
+#ifdef LV2_SUPPORT
 void
 PluginManager::lv2_refresh ()
 {
        delete _lv2_plugin_info;
-       _lv2_plugin_info = LV2PluginInfo::discover(_lv2_world);
+       _lv2_plugin_info = LV2PluginInfo::discover();
 }
 #endif
 
-#ifdef HAVE_AUDIOUNITS
+#ifdef AUDIOUNIT_SUPPORT
 void
 PluginManager::au_refresh ()
 {
+       DEBUG_TRACE (DEBUG::PluginManager, "AU: refresh\n");
        delete _au_plugin_info;
        _au_plugin_info = AUPluginInfo::discover();
 }
@@ -508,7 +560,7 @@ PluginManager::vst_discover_from_path (string path)
        vector<string *>::iterator x;
        int ret = 0;
 
-       info << "detecting VST plugins along " << path << endmsg;
+       DEBUG_TRACE (DEBUG::PluginManager, string_compose ("detecting VST plugins along %1\n", path));
 
        plugin_objects = scanner (vst_path, vst_filter, 0, true, true);
 
@@ -558,6 +610,7 @@ PluginManager::vst_discover (string path)
        info->index = 0;
        info->n_inputs.set_audio (finfo->numInputs);
        info->n_outputs.set_audio (finfo->numOutputs);
+       info->n_inputs.set_midi (finfo->wantMidi ? 1 : 0);
        info->type = ARDOUR::VST;
 
        _vst_plugin_info->push_back (info);
@@ -568,6 +621,126 @@ PluginManager::vst_discover (string path)
 
 #endif // VST_SUPPORT
 
+#ifdef LXVST_SUPPORT
+
+void
+PluginManager::lxvst_refresh ()
+{
+       if (_lxvst_plugin_info) {
+               _lxvst_plugin_info->clear ();
+       } else {
+               _lxvst_plugin_info = new ARDOUR::PluginInfoList();
+       }
+
+       if (lxvst_path.length() == 0) {
+               lxvst_path = "/usr/local/lib64/lxvst:/usr/local/lib/lxvst:/usr/lib64/lxvst:/usr/lib/lxvst";
+       }
+
+       lxvst_discover_from_path (lxvst_path);
+}
+
+int
+PluginManager::add_lxvst_directory (string path)
+{
+       if (lxvst_discover_from_path (path) == 0) {
+               lxvst_path += ':';
+               lxvst_path += path;
+               return 0;
+       }
+       return -1;
+}
+
+static bool lxvst_filter (const string& str, void *)
+{
+       /* Not a dotfile, has a prefix before a period, suffix is "so" */
+
+       return str[0] != '.' && (str.length() > 3 && str.find (".so") == (str.length() - 3));
+}
+
+int
+PluginManager::lxvst_discover_from_path (string path)
+{
+       PathScanner scanner;
+       vector<string *> *plugin_objects;
+       vector<string *>::iterator x;
+       int ret = 0;
+
+       DEBUG_TRACE (DEBUG::PluginManager, string_compose ("Discovering linuxVST plugins along %1\n", path));
+
+       plugin_objects = scanner (lxvst_path, lxvst_filter, 0, true, true);
+
+       if (plugin_objects) {
+               for (x = plugin_objects->begin(); x != plugin_objects->end (); ++x) {
+                       lxvst_discover (**x);
+               }
+       }
+
+       vector_delete (plugin_objects);
+       return ret;
+}
+
+int
+PluginManager::lxvst_discover (string path)
+{
+       VSTFXInfo* finfo;
+       char buf[32];
+
+       if ((finfo = vstfx_get_info (const_cast<char *> (path.c_str()))) == 0) {
+               warning << "Cannot get linuxVST information from " << path << endmsg;
+               return -1;
+       }
+
+       if (!finfo->canProcessReplacing) {
+               warning << string_compose (_("linuxVST plugin %1 does not support processReplacing, and so cannot be used in ardour at this time"),
+                                   finfo->name)
+                       << endl;
+       }
+
+       PluginInfoPtr info(new LXVSTPluginInfo);
+
+       if (!strcasecmp ("The Unnamed plugin", finfo->name)) {
+               info->name = PBD::basename_nosuffix (path);
+       } else {
+               info->name = finfo->name;
+       }
+
+       
+       snprintf (buf, sizeof (buf), "%d", finfo->UniqueID);
+       info->unique_id = buf;
+       info->category = "linuxVSTs";
+       info->path = path;
+       info->creator = finfo->creator;
+       info->index = 0;
+       info->n_inputs.set_audio (finfo->numInputs);
+       info->n_outputs.set_audio (finfo->numOutputs);
+       info->n_inputs.set_midi (finfo->wantMidi ? 1 : 0);
+       info->type = ARDOUR::LXVST;
+
+        /* Make sure we don't find the same plugin in more than one place along
+          the LXVST_PATH We can't use a simple 'find' because the path is included
+          in the PluginInfo, and that is the one thing we can be sure MUST be
+          different if a duplicate instance is found.  So we just compare the type
+          and unique ID (which for some VSTs isn't actually unique...)
+       */
+       
+       if (!_lxvst_plugin_info->empty()) {
+               for (PluginInfoList::iterator i =_lxvst_plugin_info->begin(); i != _lxvst_plugin_info->end(); ++i) {
+                       if ((info->type == (*i)->type)&&(info->unique_id == (*i)->unique_id)) {
+                               vstfx_free_info(finfo);
+                               return 0;
+                       }
+               }
+       }
+       
+       _lxvst_plugin_info->push_back (info);
+       vstfx_free_info (finfo);
+
+       return 0;
+}
+
+#endif // LXVST_SUPPORT
+
+
 PluginManager::PluginStatusType
 PluginManager::get_status (const PluginInfoPtr& pi)
 {
@@ -607,6 +780,9 @@ PluginManager::save_statuses ()
                case VST:
                        ofs << "VST";
                        break;
+               case LXVST:
+                       ofs << "LXVST";
+                       break;
                }
 
                ofs << ' ';
@@ -622,7 +798,7 @@ PluginManager::save_statuses ()
                        ofs << "Hidden";
                        break;
                }
-       
+
                ofs << ' ';
                ofs << (*i).unique_id;;
                ofs << endl;
@@ -641,7 +817,7 @@ PluginManager::load_statuses ()
        if (!ifs) {
                return;
        }
-       
+
        std::string stype;
        std::string sstatus;
        std::string id;
@@ -691,17 +867,19 @@ PluginManager::load_statuses ()
                        type = LV2;
                } else if (stype == "VST") {
                        type = VST;
+               } else if (stype == "LXVST") {
+                       type = LXVST;
                } else {
                        error << string_compose (_("unknown plugin type \"%1\" - ignored"), stype)
                              << endmsg;
                        continue;
                }
-               
+
                id = buf;
                strip_whitespace_edges (id);
                set_status (type, id, status);
        }
-       
+
        ifs.close ();
 }
 
@@ -715,8 +893,7 @@ PluginManager::set_status (PluginType t, string id, PluginStatusType status)
                return;
        }
 
-       pair<PluginStatusList::iterator, bool> res = statuses.insert (ps);
-       //cerr << "Added " << t << " " << id << " " << status << " success ? " << res.second << endl;
+       statuses.insert (ps);
 }
 
 ARDOUR::PluginInfoList&
@@ -731,6 +908,18 @@ PluginManager::vst_plugin_info ()
 #endif
 }
 
+ARDOUR::PluginInfoList&
+PluginManager::lxvst_plugin_info ()
+{
+#ifdef LXVST_SUPPORT
+       if (!_lxvst_plugin_info)
+               lxvst_refresh();
+       return *_lxvst_plugin_info;
+#else
+       return _empty_plugin_info;
+#endif
+}
+
 ARDOUR::PluginInfoList&
 PluginManager::ladspa_plugin_info ()
 {
@@ -742,7 +931,7 @@ PluginManager::ladspa_plugin_info ()
 ARDOUR::PluginInfoList&
 PluginManager::lv2_plugin_info ()
 {
-#ifdef HAVE_SLV2
+#ifdef LV2_SUPPORT
        if (!_lv2_plugin_info)
                lv2_refresh();
        return *_lv2_plugin_info;
@@ -754,7 +943,7 @@ PluginManager::lv2_plugin_info ()
 ARDOUR::PluginInfoList&
 PluginManager::au_plugin_info ()
 {
-#ifdef HAVE_AUDIOUNITS
+#ifdef AUDIOUNIT_SUPPORT
        if (!_au_plugin_info)
                au_refresh();
        return *_au_plugin_info;