X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=libs%2Fardour%2Fluaproc.cc;h=27746d29cbce14194f8c2bb065daf3d80dd230fd;hb=961b9c8be89e430ea916a53bc16ed1de57befa39;hp=fc899ba4add1cb5e2720cc575a1a0b4ffa1b92c6;hpb=39e818a03afdf76a123bb802f020008276646708;p=ardour.git diff --git a/libs/ardour/luaproc.cc b/libs/ardour/luaproc.cc index fc899ba4ad..27746d29cb 100644 --- a/libs/ardour/luaproc.cc +++ b/libs/ardour/luaproc.cc @@ -22,7 +22,7 @@ #include #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") .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 (); _param_desc[pn].enumeration = lr["enum"].isBoolean () && (lr["enum"]).cast (); + if (lr["bypass"].isBoolean () && (lr["bypass"]).cast ()) { + _designated_bypass_port = pn - 1; // lua table starts at 1. + } + if (lr["unit"].isString ()) { std::string unit = lr["unit"].cast (); if (unit == "dB") { _param_desc[pn].unit = ParameterDescriptor::DB; } @@ -326,10 +346,6 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan // caller must hold process lock (no concurrent calls to interpreter _output_configs.clear (); - if (in.n_midi() > 0 && !_has_midi_input && !imprecise) { - return false; - } - lua_State* L = lua.getState (); luabridge::LuaRef ioconfig = luabridge::getGlobal (L, "dsp_ioconfig"); if (!ioconfig.isFunction ()) { @@ -358,34 +374,16 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan return false; } - 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 (); + const int midi_in = in.n_midi (); // 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 ()); - - int possible_in = io["audio_in"]; - int possible_out = io["audio_out"]; - - // exact match - if ((possible_in == audio_in) && (possible_out == preferred_out)) { - _output_configs.insert (preferred_out); - exact_match = true; - found = true; - break; - } - } - - /* now allow potentially "imprecise" matches */ - int32_t audio_out = -1; + int midi_out = _has_midi_output ? 1 : 0; + int audio_out = -1; float penalty = 9999; + bool found = false; #define FOUNDCFG(nch) { \ float p = fabsf ((float)(nch) - preferred_out); \ @@ -393,6 +391,11 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan if ((nch) > preferred_out) { p *= 1.1; } \ if (p < penalty) { \ audio_out = (nch); \ + if (imprecise) { \ + *imprecise = in; \ + imprecise->set (DataType::MIDI, \ + possible_midiin); \ + } \ penalty = p; \ found = true; \ } \ @@ -408,12 +411,30 @@ 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; + int possible_midiin = _has_midi_input ? 1 : 0; + if (midi_in > 0 && possible_midiin == 0 && !imprecise) { + continue; + } + + // exact match + if ((possible_in == audio_in) && (possible_out == preferred_out)) { + _output_configs.insert (preferred_out); + audio_out = preferred_out; + /* Set penalty so low that this output configuration + * will trump any other one */ + penalty = -1; + found = true; + } + + // "imprecise" matches if (possible_out == 0) { if (possible_in == 0) { if (_has_midi_output && audio_in == 0) { @@ -428,12 +449,9 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan if (possible_in == 0) { /* no inputs, generators & instruments */ - if (possible_out == -1) { - /* any configuration possible, stereo output */ - FOUNDCFG (preferred_out); - ANYTHINGGOES; - } else if (possible_out == -2) { - /* invalid, should be (0, -1) */ + if (possible_out == -1 || possible_out == -2) { + /* any output configuration possible + * out == -2 is invalid, interpreted as out == -1 */ FOUNDCFG (preferred_out); ANYTHINGGOES; } else if (possible_out < -2) { @@ -446,19 +464,20 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan } } - if (possible_in == -1) { + if (possible_in == -1 || possible_in == -2) { /* wildcard for input */ - if (possible_out == -1) { - /* out must match in */ + if (possible_out == possible_in) { + /* either both -1 or both -2 (invalid and + * interpreted as both -1): out must match in */ FOUNDCFG (audio_in); - } else if (possible_out == -2) { - /* any configuration possible, pick matching */ + } else if (possible_out == -3 - possible_in) { + /* one is -1, the other is -2: any output configuration + * possible, pick what the insert prefers */ FOUNDCFG (preferred_out); ANYTHINGGOES; } else if (possible_out < -2) { - /* explicitly variable number of outputs, pick maximum */ - FOUNDCFG (max (-possible_out, preferred_out)); - /* and try min, too, in case the penalty is lower */ + /* variable number of outputs up to -N, + * invalid if in == -2 but we accept it anyway */ FOUNDCFG (min (-possible_out, preferred_out)); UPTO (-possible_out) } else { @@ -467,45 +486,20 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan } } - if (possible_in == -2) { - if (possible_out == -1) { - /* any configuration possible, pick matching */ - FOUNDCFG (preferred_out); - ANYTHINGGOES; - } else if (possible_out == -2) { - /* invalid. interpret as (-1, -1) */ - FOUNDCFG (preferred_out); - ANYTHINGGOES; - } else if (possible_out < -2) { - /* invalid, interpret as (<-2, <-2) - * variable number of outputs up to -N, */ - FOUNDCFG (min (-possible_out, preferred_out)); - UPTO (-possible_out) - } else { - /* exact number of outputs */ - FOUNDCFG (possible_out); - } - } - - if (possible_in < -2) { - /* explicit variable number of inputs */ - if (audio_in > -possible_in && imprecise != NULL) { - // hide inputs ports - imprecise->set (DataType::AUDIO, -possible_in); - } - - if (audio_in > -possible_in && imprecise == NULL) { + if (possible_in < -2 || possible_in > 0) { + /* specified number, exact or up to */ + if (possible_in < -2 && audio_in > -possible_in && !imprecise) { /* request is too large */ - } else if (possible_out == -1) { - /* any output configuration possible */ - FOUNDCFG (preferred_out); - ANYTHINGGOES; - } else if (possible_out == -2) { - /* invalid. interpret as (<-2, -1) */ + } else if (possible_in > 0 && audio_in != possible_in) { + /* this configuration needed exacty possible_in inputs */ + } else if (possible_out == -1 || possible_out == -2) { + /* any output configuration possible + * out == -2 is invalid, interpreted as out == -1 */ FOUNDCFG (preferred_out); ANYTHINGGOES; } else if (possible_out < -2) { - /* variable number of outputs up to -N, */ + /* variable number of outputs up to -N + * not specified if in > 0, but we accept it anyway */ FOUNDCFG (min (-possible_out, preferred_out)); UPTO (-possible_out) } else { @@ -514,36 +508,19 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan } } - if (possible_in && (possible_in == audio_in)) { - /* exact number of inputs ... must match obviously */ - if (possible_out == -1) { - /* any output configuration possible */ - FOUNDCFG (preferred_out); - ANYTHINGGOES; - } else if (possible_out == -2) { - /* invalid. interpret as (>0, -1) */ - FOUNDCFG (preferred_out); - ANYTHINGGOES; - } else if (possible_out < -2) { - /* > 0, < -2 is not specified - * interpret as up to -N */ - FOUNDCFG (min (-possible_out, preferred_out)); - UPTO (-possible_out) - } else { - /* exact number of outputs */ - FOUNDCFG (possible_out); - } - } } 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; + int possible_midiin = _has_midi_input ? 1 : 0; if (possible_out == 0 && possible_in == 0 && _has_midi_output) { assert (audio_in > 0); // no input is handled above @@ -555,9 +532,7 @@ 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) { FOUNDCFG (2); } else if (possible_out < -2) { @@ -567,6 +542,7 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan /* exact number of outputs */ FOUNDCFG (possible_out); } + imprecise->set (DataType::AUDIO, possible_in); // ideally we'll also find the closest, best matching // input configuration with minimal output penalty... } @@ -576,43 +552,85 @@ LuaProc::can_support_io_configuration (const ChanCount& in, ChanCount& out, Chan return false; } - if (exact_match) { - out.set (DataType::MIDI, midi_out); - out.set (DataType::AUDIO, preferred_out); + if (imprecise) { + _selected_in = *imprecise; } else { - out.set (DataType::MIDI, midi_out); - out.set (DataType::AUDIO, audio_out); + _selected_in = in; } + + out.set (DataType::MIDI, midi_out); + out.set (DataType::AUDIO, audio_out); + _selected_out = out; + return true; } bool LuaProc::configure_io (ChanCount in, ChanCount out) { - _configured_in = in; - _configured_out = out; + in.set (DataType::MIDI, _has_midi_input ? 1 : 0); + out.set (DataType::MIDI, _has_midi_output ? 1 : 0); - _configured_in.set (DataType::MIDI, _has_midi_input ? 1 : 0); - _configured_out.set (DataType::MIDI, _has_midi_output ? 1 : 0); + _info->n_inputs = _selected_in; + _info->n_outputs = _selected_out; // configure the DSP if needed - 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); - } catch (luabridge::LuaException const& e) { - return false; + 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 { + 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 (); + if (c >= 0) { + lin.set (DataType::AUDIO, c); + } + } + if (io["audio_out"].type() == LUA_TNUMBER) { + const int c = io["audio_out"].cast (); + if (c >= 0) { + lout.set (DataType::AUDIO, c); + } + } + if (io["midi_in"].type() == LUA_TNUMBER) { + const int c = io["midi_in"].cast (); + if (c >= 0) { + lin.set (DataType::MIDI, c); + } + } + if (io["midi_out"].type() == LUA_TNUMBER) { + const int c = io["midi_out"].cast (); + 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 + std::cerr << "LuaException: " << e.what () << "\n"; +#endif + return false; + } } } - _info->n_inputs = _configured_in; - _info->n_outputs = _configured_out; + _configured_in = in; + _configured_out = out; + return true; } int LuaProc::connect_and_run (BufferSet& bufs, + framepos_t start, framepos_t end, double speed, ChanMapping in, ChanMapping out, pframes_t nframes, framecnt_t offset) { @@ -620,7 +638,7 @@ LuaProc::connect_and_run (BufferSet& bufs, return 0; } - Plugin::connect_and_run (bufs, in, out, nframes, offset); + Plugin::connect_and_run (bufs, start, end, speed, in, out, nframes, offset); // This is needed for ARDOUR::Session requests :( if (! SessionEvent::has_per_thread_pool ()) { @@ -752,7 +770,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 (); @@ -1056,6 +1075,7 @@ LuaProc::setup_lua_inline_gui (LuaState *lua_gui) .beginNamespace ("Ardour") .beginClass ("LuaProc") .addFunction ("shmem", &LuaProc::instance_shm) + .addFunction ("table", &LuaProc::instance_ref) .endClass () .endNamespace (); @@ -1138,10 +1158,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; }