Remove wrong asserts
[ardour.git] / libs / ardour / luaproc.cc
index 03deea7114980c9fa1ef178a129e2c44138f24c1..6be2edafa562b32ef2fc1f3e9e275056c136ba07 100644 (file)
@@ -22,7 +22,7 @@
 #include <glibmm/fileutils.h>
 
 #include "pbd/gstdio_compat.h"
-
+#include "pbd/locale_guard.h"
 #include "pbd/pthread_utils.h"
 
 #include "ardour/audio_buffer.h"
@@ -37,7 +37,7 @@
 
 #include "LuaBridge/LuaBridge.h"
 
-#include "i18n.h"
+#include "pbd/i18n.h"
 
 using namespace ARDOUR;
 using namespace PBD;
@@ -46,12 +46,19 @@ LuaProc::LuaProc (AudioEngine& engine,
                   Session& session,
                   const std::string &script)
        : Plugin (engine, session)
-       , _mempool ("LuaProc", 1048576) // 1 MB is plenty. (64K would be enough)
+       , _mempool ("LuaProc", 2097152)
+#ifdef USE_TLSF
+       , lua (lua_newstate (&PBD::TLSF::lalloc, &_mempool))
+#elif defined USE_MALLOC
+       , lua ()
+#else
        , lua (lua_newstate (&PBD::ReallocPool::lalloc, &_mempool))
+#endif
        , _lua_dsp (0)
        , _script (script)
        , _lua_does_channelmapping (false)
        , _lua_has_inline_display (false)
+       , _designated_bypass_port (UINT32_MAX)
        , _control_data (0)
        , _shadow_data (0)
        , _has_midi_input (false)
@@ -69,12 +76,19 @@ LuaProc::LuaProc (AudioEngine& engine,
 
 LuaProc::LuaProc (const LuaProc &other)
        : Plugin (other)
-       , _mempool ("LuaProc", 1048576) // 1 MB is plenty. (64K would be enough)
+       , _mempool ("LuaProc", 2097152)
+#ifdef USE_TLSF
+       , lua (lua_newstate (&PBD::TLSF::lalloc, &_mempool))
+#elif defined USE_MALLOC
+       , lua ()
+#else
        , lua (lua_newstate (&PBD::ReallocPool::lalloc, &_mempool))
+#endif
        , _lua_dsp (0)
        , _script (other.script ())
        , _lua_does_channelmapping (false)
        , _lua_has_inline_display (false)
+       , _designated_bypass_port (UINT32_MAX)
        , _control_data (0)
        , _shadow_data (0)
        , _has_midi_input (false)
@@ -118,6 +132,7 @@ LuaProc::init ()
        _stats_avg[0] = _stats_avg[1] = _stats_max[0] = _stats_max[1] = _stats_cnt = 0;
 #endif
 
+       lua.tweak_rt_gc ();
        lua.Print.connect (sigc::mem_fun (*this, &LuaProc::lua_print));
        // register session object
        lua_State* L = lua.getState ();
@@ -130,6 +145,7 @@ LuaProc::init ()
                .beginClass <LuaProc> ("LuaProc")
                .addFunction ("queue_draw", &LuaProc::queue_draw)
                .addFunction ("shmem", &LuaProc::instance_shm)
+               .addFunction ("table", &LuaProc::instance_ref)
                .endClass ()
                .endNamespace ();
 
@@ -284,6 +300,10 @@ LuaProc::load_script ()
                                _param_desc[pn].sr_dependent = lr["ratemult"].isBoolean () && (lr["ratemult"]).cast<bool> ();
                                _param_desc[pn].enumeration  = lr["enum"].isBoolean () && (lr["enum"]).cast<bool> ();
 
+                               if (lr["bypass"].isBoolean () && (lr["bypass"]).cast<bool> ()) {
+                                       _designated_bypass_port = pn - 1; // lua table starts at 1.
+                               }
+
                                if (lr["unit"].isString ()) {
                                        std::string unit = lr["unit"].cast<std::string> ();
                                        if (unit == "dB")             { _param_desc[pn].unit = ParameterDescriptor::DB; }
@@ -360,19 +380,20 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan
 
        bool found = false;
        bool exact_match = false;
-       const int32_t audio_in = in.n_audio ();
-       int32_t midi_out = _has_midi_output ? 1 : 0;
+       const int audio_in = in.n_audio ();
+       int midi_out = _has_midi_output ? 1 : 0;
 
        // preferred setting (provided by plugin_insert)
-       assert (out.n_audio () > 0 || midi_out > 0);
        const int preferred_out = out.n_audio ();
 
        for (luabridge::Iterator i (iotable); !i.isNil (); ++i) {
-               assert (i.value ().type () == LUA_TTABLE);
                luabridge::LuaRef io (i.value ());
+               if (!io.isTable()) {
+                       continue;
+               }
 
-               int possible_in = io["audio_in"];
-               int possible_out = io["audio_out"];
+               int possible_in = io["audio_in"].isNumber() ? io["audio_in"] : -1;
+               int possible_out = io["audio_out"].isNumber() ? io["audio_out"] : -1;
 
                // exact match
                if ((possible_in == audio_in) && (possible_out == preferred_out)) {
@@ -384,7 +405,7 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan
        }
 
        /* now allow potentially "imprecise" matches */
-       int32_t audio_out = -1;
+       int audio_out = -1;
        float penalty = 9999;
 
 #define FOUNDCFG(nch) {                            \
@@ -408,11 +429,13 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan
 }
 
        for (luabridge::Iterator i (iotable); !i.isNil (); ++i) {
-               assert (i.value ().type () == LUA_TTABLE);
                luabridge::LuaRef io (i.value ());
+               if (!io.isTable()) {
+                       continue;
+               }
 
-               int possible_in = io["audio_in"];
-               int possible_out = io["audio_out"];
+               int possible_in = io["audio_in"].isNumber() ? io["audio_in"] : -1;
+               int possible_out = io["audio_out"].isNumber() ? io["audio_out"] : -1;
 
                if (possible_out == 0) {
                        if (possible_in == 0) {
@@ -536,14 +559,20 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan
                }
        }
 
+       if (found && imprecise) {
+               *imprecise = in;
+       }
+
        if (!found && imprecise) {
                /* try harder */
                for (luabridge::Iterator i (iotable); !i.isNil (); ++i) {
-                       assert (i.value ().type () == LUA_TTABLE);
                        luabridge::LuaRef io (i.value ());
+                       if (!io.isTable()) {
+                               continue;
+                       }
 
-                       int possible_in = io["audio_in"];
-                       int possible_out = io["audio_out"];
+                       int possible_in = io["audio_in"].isNumber() ? io["audio_in"] : -1;
+                       int possible_out = io["audio_out"].isNumber() ? io["audio_out"] : -1;
 
                        if (possible_out == 0 && possible_in == 0 && _has_midi_output) {
                                assert (audio_in > 0); // no input is handled above
@@ -555,7 +584,6 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan
                        }
 
                        assert (possible_in > 0); // all other cases will have been matched above
-                       assert (possible_out !=0 || possible_in !=0); // already handled above
 
                        imprecise->set (DataType::AUDIO, possible_in);
                        if (possible_out == -1 || possible_out == -2) {
@@ -576,6 +604,13 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan
                return false;
        }
 
+       if (imprecise) {
+               imprecise->set (DataType::MIDI, _has_midi_input ? 1 : 0);
+               _selected_in = *imprecise;
+       } else {
+               _selected_in = in;
+       }
+
        if (exact_match) {
                out.set (DataType::MIDI, midi_out);
                out.set (DataType::AUDIO, preferred_out);
@@ -583,6 +618,8 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan
                out.set (DataType::MIDI, midi_out);
                out.set (DataType::AUDIO, audio_out);
        }
+       _selected_out = out;
+
        return true;
 }
 
@@ -592,13 +629,47 @@ LuaProc::configure_io (ChanCount in, ChanCount out)
        in.set (DataType::MIDI, _has_midi_input ? 1 : 0);
        out.set (DataType::MIDI, _has_midi_output ? 1 : 0);
 
+       _info->n_inputs = _selected_in;
+       _info->n_outputs = _selected_out;
+
        // configure the DSP if needed
        if (in != _configured_in || out != _configured_out) {
                lua_State* L = lua.getState ();
                luabridge::LuaRef lua_dsp_configure = luabridge::getGlobal (L, "dsp_configure");
                if (lua_dsp_configure.type () == LUA_TFUNCTION) {
                        try {
-                               lua_dsp_configure (&in, &out);
+                               luabridge::LuaRef io = lua_dsp_configure (&in, &out);
+                               if (io.isTable ()) {
+                                       ChanCount lin (_selected_in);
+                                       ChanCount lout (_selected_out);
+
+                                       if (io["audio_in"].type() == LUA_TNUMBER) {
+                                               const int c = io["audio_in"].cast<int> ();
+                                               if (c >= 0) {
+                                                       lin.set (DataType::AUDIO, c);
+                                               }
+                                       }
+                                       if (io["audio_out"].type() == LUA_TNUMBER) {
+                                               const int c = io["audio_out"].cast<int> ();
+                                               if (c >= 0) {
+                                                       lout.set (DataType::AUDIO, c);
+                                               }
+                                       }
+                                       if (io["midi_in"].type() == LUA_TNUMBER) {
+                                               const int c = io["midi_in"].cast<int> ();
+                                               if (c >= 0) {
+                                                       lin.set (DataType::MIDI, c);
+                                               }
+                                       }
+                                       if (io["midi_out"].type() == LUA_TNUMBER) {
+                                               const int c = io["midi_out"].cast<int> ();
+                                               if (c >= 0) {
+                                                       lout.set (DataType::MIDI, c);
+                                               }
+                                       }
+                                       _info->n_inputs = lin;
+                                       _info->n_outputs = lout;
+                               }
                        } catch (luabridge::LuaException const& e) {
                                PBD::error << "LuaException: " << e.what () << "\n";
 #ifndef NDEBUG
@@ -612,8 +683,6 @@ LuaProc::configure_io (ChanCount in, ChanCount out)
        _configured_in = in;
        _configured_out = out;
 
-       _info->n_inputs = _configured_in;
-       _info->n_outputs = _configured_out;
        return true;
 }
 
@@ -759,7 +828,8 @@ LuaProc::connect_and_run (BufferSet& bufs,
 #ifdef WITH_LUAPROC_STATS
        int64_t t1 = g_get_monotonic_time ();
 #endif
-       lua.collect_garbage (); // rt-safe, slight *regular* performance overhead
+
+       lua.collect_garbage_step ();
 #ifdef WITH_LUAPROC_STATS
        ++_stats_cnt;
        int64_t t2 = g_get_monotonic_time ();
@@ -1063,6 +1133,7 @@ LuaProc::setup_lua_inline_gui (LuaState *lua_gui)
                .beginNamespace ("Ardour")
                .beginClass <LuaProc> ("LuaProc")
                .addFunction ("shmem", &LuaProc::instance_shm)
+               .addFunction ("table", &LuaProc::instance_ref)
                .endClass ()
                .endNamespace ();
 
@@ -1145,10 +1216,11 @@ LuaProc::load_preset (PresetRecord r)
                                XMLProperty const * value = (*j)->property (X_("value"));
                                assert (index);
                                assert (value);
+                               LocaleGuard lg;
                                set_parameter (atoi (index->value().c_str()), atof (value->value().c_str ()));
                        }
                }
-               return true;
+               return Plugin::load_preset(r);
        }
        return false;
 }