fix invalid mapping detection
[ardour.git] / libs / ardour / luabindings.cc
index 69f2db47cd6cc5198db0580d553d5c066bf2b21b..8c5023cfd7a4676cbb68c946e269e849c7fec211 100644 (file)
@@ -72,38 +72,26 @@ LuaBindings::stddef (lua_State* L)
 {
        // std::list<std::string>
        luabridge::getGlobalNamespace (L)
-               .beginNamespace ("ARDOUR")
+               .beginNamespace ("C")
                .beginStdList <std::string> ("StringList")
                .endClass ()
-               .endNamespace ();
 
        // std::vector<std::string>
-       luabridge::getGlobalNamespace (L)
-               .beginNamespace ("ARDOUR")
                .beginStdVector <std::string> ("StringVector")
                .endClass ()
-               .endNamespace ();
 
        // register float array (float*)
-       luabridge::getGlobalNamespace (L)
-               .beginNamespace ("ARDOUR")
                .registerArray <float> ("FloatArray")
-               .endNamespace ();
 
        // register float array (int32_t*)
-       luabridge::getGlobalNamespace (L)
-               .beginNamespace ("ARDOUR")
                .registerArray <int32_t> ("IntArray")
-               .endNamespace ();
 
        // std::vector<std::string>
-       luabridge::getGlobalNamespace (L)
-               .beginNamespace ("ARDOUR")
                .beginStdVector <double> ("DoubleVector")
                .endClass ()
-               .endNamespace ();
 
        // TODO std::set
+               .endNamespace ();
 }
 
 void
@@ -116,11 +104,18 @@ LuaBindings::common (lua_State* L)
                .addFunction ("to_s", &PBD::ID::to_s) // TODO special case LUA __tostring ?
                .endClass ()
 
-               .beginWSPtrClass <PBD::Stateful> ("Stateful")
+               .beginClass <PBD::Stateful> ("Stateful")
                .addFunction ("properties", &PBD::Stateful::properties)
                .endClass ()
 
-               .deriveWSPtrClass <PBD::StatefulDestructible, PBD::Stateful> ("StatefulDestructible")
+               .deriveClass <PBD::StatefulDestructible, PBD::Stateful> ("StatefulDestructible")
+               .endClass ()
+
+               .beginWSPtrClass <PBD::Stateful> ("StatefulPtr")
+               .addFunction ("properties", &PBD::Stateful::properties)
+               .endClass ()
+
+               .deriveWSPtrClass <PBD::StatefulDestructible, PBD::Stateful> ("StatefulDestructiblePtr")
                .endClass ()
 
                .deriveWSPtrClass <PBD::Controllable, PBD::StatefulDestructible> ("Controllable")
@@ -133,16 +128,46 @@ LuaBindings::common (lua_State* L)
                .addConst ("UseGroup", PBD::Controllable::GroupControlDisposition(PBD::Controllable::UseGroup))
                .endNamespace ()
 
-               .endNamespace ();
+               .endNamespace (); // PBD
 
        luabridge::getGlobalNamespace (L)
-               .beginNamespace ("ARDOUR") // XXX really libtimecode
+               .beginNamespace ("Timecode")
                .beginClass <Timecode::BBT_Time> ("BBT_TIME")
                .addConstructor <void (*) (uint32_t, uint32_t, uint32_t)> ()
                .endClass ()
                .endNamespace ();
 
        luabridge::getGlobalNamespace (L)
+
+               .beginNamespace ("Evoral")
+               .beginClass <Evoral::Parameter> ("Parameter")
+               .addConstructor <void (*) (uint32_t, uint8_t, uint32_t)> ()
+               .addFunction ("type", &Evoral::Parameter::type)
+               .addFunction ("channel", &Evoral::Parameter::channel)
+               .addFunction ("id", &Evoral::Parameter::id)
+               .endClass ()
+
+               .beginWSPtrClass <Evoral::ControlList> ("ControlList")
+               .addFunction ("add", &Evoral::ControlList::add)
+               .endClass ()
+
+               .beginWSPtrClass <Evoral::ControlSet> ("ControlSet")
+               .endClass ()
+
+               .beginWSPtrClass <Evoral::Control> ("Control")
+               .addFunction ("list", (boost::shared_ptr<Evoral::ControlList>(Evoral::Control::*)())&Evoral::Control::list)
+               .endClass ()
+
+               .beginClass <Evoral::ParameterDescriptor> ("ParameterDescriptor")
+               .addVoidConstructor ()
+               .addData ("lower", &Evoral::ParameterDescriptor::lower)
+               .addData ("upper", &Evoral::ParameterDescriptor::upper)
+               .addData ("normal", &Evoral::ParameterDescriptor::normal)
+               .addData ("toggled", &Evoral::ParameterDescriptor::toggled)
+               .endClass ()
+
+               .endNamespace () // Evoral
+
                .beginNamespace ("ARDOUR")
                .beginWSPtrClass <PluginInfo> ("PluginInfo")
                .addVoidConstructor ()
@@ -154,6 +179,13 @@ LuaBindings::common (lua_State* L)
                .endClass ()
                .endNamespace ()
 
+               .beginClass <ChanMapping> ("ChanMapping")
+               .addVoidConstructor ()
+               .addFunction ("get", static_cast<uint32_t(ChanMapping::*)(DataType, uint32_t) const>(&ChanMapping::get))
+               .addFunction ("set", &ChanMapping::set)
+               .addConst ("Invalid", 4294967295) // UINT32_MAX
+               .endClass ()
+
                .beginNamespace ("Properties")
                // templated class definitions
                .beginClass <PBD::PropertyDescriptor<bool> > ("BoolProperty").endClass ()
@@ -183,6 +215,18 @@ LuaBindings::common (lua_State* L)
                .deriveClass <PBD::OwnedPropertyList, PBD::PropertyList> ("OwnedPropertyList")
                .endClass ()
 
+               .deriveClass <Location, PBD::StatefulDestructible> ("Location")
+               .addFunction ("locked", &Location::locked)
+               .addFunction ("lock", &Location::lock)
+               .addFunction ("start", &Location::start)
+               .addFunction ("end", &Location::end)
+               .addFunction ("length", &Location::length)
+               .addFunction ("set_start", &Location::set_start)
+               .addFunction ("set_end", &Location::set_end)
+               .addFunction ("set_length", &Location::set)
+               .addFunction ("move_to", &Location::move_to)
+               .endClass ()
+
                .deriveWSPtrClass <SessionObject, PBD::StatefulDestructible> ("SessionObject")
                .addFunction ("name", &SessionObject::name)
                .endClass ()
@@ -194,6 +238,15 @@ LuaBindings::common (lua_State* L)
                .addFunction ("set_active", &Route::set_active)
                .addFunction ("nth_plugin", &Route::nth_plugin)
                .addFunction ("add_processor_by_index", &Route::add_processor_by_index)
+               .addFunction ("remove_processor", &Route::remove_processor)
+               .addFunction ("replace_processor", &Route::replace_processor)
+               .addFunction ("n_inputs", &Route::n_inputs)
+               .addFunction ("n_outputs", &Route::n_outputs)
+               .addFunction ("set_comment", &Route::set_comment)
+               .addFunction ("strict_io", &Route::strict_io)
+               .addFunction ("set_strict_io", &Route::set_strict_io)
+               .addFunction ("reset_plugin_insert", &Route::reset_plugin_insert)
+               .addFunction ("customize_plugin_insert", &Route::customize_plugin_insert)
                .endClass ()
 
                .deriveWSPtrClass <Track, Route> ("Track")
@@ -220,7 +273,7 @@ LuaBindings::common (lua_State* L)
                .addFunction ("data_type", &Region::data_type)
                .addFunction ("stretch", &Region::stretch)
                .addFunction ("shift", &Region::shift)
-               .addFunction ("sync_offset", &Region::sync_offset)
+               .addRefFunction ("sync_offset", &Region::sync_offset)
                .addFunction ("sync_position", &Region::sync_position)
                .addFunction ("hidden", &Region::hidden)
                .addFunction ("muted", &Region::muted)
@@ -269,36 +322,17 @@ LuaBindings::common (lua_State* L)
                .beginWSPtrClass <Source> ("Source")
                .endClass ()
 
-               .beginClass <Evoral::Parameter> ("EvoralParameter")
-               .addConstructor <void (*) (uint32_t, uint8_t, uint32_t)> ()
-               .addFunction ("type", &Evoral::Parameter::type)
-               .addFunction ("channel", &Evoral::Parameter::channel)
-               .addFunction ("id", &Evoral::Parameter::id)
-               .endClass ()
-
-               .beginWSPtrClass <Evoral::ControlList> ("EvoralControlList")
-               .addFunction ("add", &Evoral::ControlList::add)
-               .endClass ()
-
-               .beginWSPtrClass <Evoral::ControlSet> ("EvoralControlSet")
+               .beginClass <Plugin::PresetRecord> ("PresetRecord")
+               .addData ("uri", &Plugin::PresetRecord::uri, false)
+               .addData ("label", &Plugin::PresetRecord::label, false)
+               .addData ("user", &Plugin::PresetRecord::user, false)
+               .addData ("valid", &Plugin::PresetRecord::valid, false)
                .endClass ()
 
                .deriveWSPtrClass <Automatable, Evoral::ControlSet> ("Automatable")
                .addFunction ("automation_control", (boost::shared_ptr<AutomationControl>(Automatable::*)(const Evoral::Parameter&, bool))&Automatable::automation_control)
                .endClass ()
 
-               .beginWSPtrClass <Evoral::Control> ("EvoralControl")
-               .addFunction ("list", (boost::shared_ptr<Evoral::ControlList>(Evoral::Control::*)())&Evoral::Control::list)
-               .endClass ()
-
-               .beginClass <Evoral::ParameterDescriptor> ("EvoralParameterDescriptor")
-               .addVoidConstructor ()
-               .addData ("lower", &Evoral::ParameterDescriptor::lower)
-               .addData ("upper", &Evoral::ParameterDescriptor::upper)
-               .addData ("normal", &Evoral::ParameterDescriptor::normal)
-               .addData ("toggled", &Evoral::ParameterDescriptor::toggled)
-               .endClass ()
-
                .deriveClass <ParameterDescriptor, Evoral::ParameterDescriptor> ("ParameterDescriptor")
                .addVoidConstructor ()
                .addData ("label", &ParameterDescriptor::label)
@@ -319,12 +353,15 @@ LuaBindings::common (lua_State* L)
                .addFunction ("automation_control", (boost::shared_ptr<AutomationControl>(Automatable::*)(const Evoral::Parameter&, bool))&Automatable::automation_control)
                .endClass ()
 
-               .deriveWSPtrClass <Plugin, PBD::StatefulDestructible> ("PluginInsert")
+               .deriveWSPtrClass <Plugin, PBD::StatefulDestructible> ("Plugin")
                .addFunction ("label", &Plugin::label)
                .addFunction ("name", &Plugin::name)
                .addFunction ("maker", &Plugin::maker)
                .addFunction ("parameter_count", &Plugin::parameter_count)
-               .addFunction ("nth_parameter", &Plugin::nth_parameter)
+               .addRefFunction ("nth_parameter", &Plugin::nth_parameter)
+               .addFunction ("preset_by_label", &Plugin::preset_by_label)
+               .addFunction ("preset_by_uri", &Plugin::preset_by_uri)
+               .addFunction ("load_preset", &Plugin::load_preset)
                .addFunction ("parameter_is_input", &Plugin::parameter_is_input)
                .addFunction ("get_docs", &Plugin::get_docs)
                .addFunction ("get_parameter_docs", &Plugin::get_parameter_docs)
@@ -335,12 +372,16 @@ LuaBindings::common (lua_State* L)
                .addFunction ("plugin", &PluginInsert::plugin)
                .addFunction ("activate", &PluginInsert::activate)
                .addFunction ("deactivate", &PluginInsert::deactivate)
+               .addFunction ("strict_io_configured", &PluginInsert::strict_io_configured)
+               .addFunction ("input_map", (ARDOUR::ChanMapping (PluginInsert::*)(uint32_t) const)&PluginInsert::input_map)
+               .addFunction ("output_map", (ARDOUR::ChanMapping (PluginInsert::*)(uint32_t) const)&PluginInsert::output_map)
+               .addFunction ("set_input_map", &PluginInsert::set_input_map)
+               .addFunction ("set_output_map", &PluginInsert::set_output_map)
+
                .endClass ()
 
                .deriveWSPtrClass <AutomationControl, Evoral::Control> ("AutomationControl")
                .addFunction ("automation_state", &AutomationControl::automation_state)
-               .addFunction ("automation_style", &AutomationControl::automation_style)
-               .addFunction ("set_automation_state", &AutomationControl::set_automation_state)
                .addFunction ("set_automation_style", &AutomationControl::set_automation_style)
                .addFunction ("start_touch", &AutomationControl::start_touch)
                .addFunction ("stop_touch", &AutomationControl::stop_touch)
@@ -365,7 +406,11 @@ LuaBindings::common (lua_State* L)
                .beginStdList <boost::shared_ptr<MidiTrack> > ("MidiTrackList")
                .endClass ()
 
-       // RouteList ==  boost::shared_ptr<std::list<boost::shared_ptr<Route> > >
+       // RouteList == std::list<boost::shared_ptr<Route> >
+               .beginConstStdList <boost::shared_ptr<Route> > ("RouteList")
+               .endClass ()
+
+       // boost::shared_ptr<RouteList>
                .beginPtrStdList <boost::shared_ptr<Route> > ("RouteListPtr")
                .endClass ()
 
@@ -413,7 +458,13 @@ LuaBindings::common (lua_State* L)
                .endClass ()
 
                .beginClass <ChanCount> ("ChanCount")
+               .addConstructor <void (*) (DataType, uint32_t)> ()
+               .addFunction ("get", &ChanCount::get)
+               .addFunction ("set", &ChanCount::set)
                .addFunction ("n_audio", &ChanCount::n_audio)
+               .addFunction ("n_midi", &ChanCount::n_midi)
+               .addFunction ("n_total", &ChanCount::n_total)
+               .addFunction ("reset", &ChanCount::reset)
                .endClass()
 
                .beginClass <DataType> ("DataType")
@@ -421,9 +472,18 @@ LuaBindings::common (lua_State* L)
                .endClass()
 
                /* libardour enums */
-               .beginNamespace ("Autostyle")
-               .addConst ("Absolute", ARDOUR::AutoState(Absolute))
-               .addConst ("Trim", ARDOUR::AutoState(Trim))
+               .beginNamespace ("PluginType")
+               .addConst ("AudioUnit", ARDOUR::PluginType(AudioUnit))
+               .addConst ("LADSPA", ARDOUR::PluginType(LADSPA))
+               .addConst ("LV2", ARDOUR::PluginType(LV2))
+               .addConst ("Windows_VST", ARDOUR::PluginType(Windows_VST))
+               .addConst ("LXVST", ARDOUR::PluginType(LXVST))
+               .addConst ("Lua", ARDOUR::PluginType(Lua))
+               .endNamespace ()
+
+               .beginNamespace ("AutoStyle")
+               .addConst ("Absolute", ARDOUR::AutoStyle(Absolute))
+               .addConst ("Trim", ARDOUR::AutoStyle(Trim))
                .endNamespace ()
 
                .beginNamespace ("AutoState")
@@ -454,13 +514,11 @@ LuaBindings::common (lua_State* L)
                .endClass()
                .beginStdVector <const AudioBackendInfo*> ("BackendVector").endClass ()
 
-               .beginNamespace ("ARDOUR")
                .beginClass <AudioBackend::DeviceStatus> ("DeviceStatus")
                .addData ("name", &AudioBackend::DeviceStatus::name)
                .addData ("available", &AudioBackend::DeviceStatus::available)
                .endClass()
                .beginStdVector <AudioBackend::DeviceStatus> ("DeviceStatusVector").endClass ()
-               .endNamespace ()
 
                .beginWSPtrClass <AudioBackend> ("AudioBackend")
                .addFunction ("info", &AudioBackend::info)
@@ -563,6 +621,10 @@ LuaBindings::common (lua_State* L)
 
                .beginNamespace ("LuaAPI")
                .addFunction ("new_luaproc", ARDOUR::LuaAPI::new_luaproc)
+               .addFunction ("new_plugin_info", ARDOUR::LuaAPI::new_plugin_info)
+               .addFunction ("new_plugin", ARDOUR::LuaAPI::new_plugin)
+               .addFunction ("set_processor_param", ARDOUR::LuaAPI::set_processor_param)
+               .addFunction ("set_plugin_insert_param", ARDOUR::LuaAPI::set_plugin_insert_param)
                .endNamespace ()
 
                .endNamespace ();// END ARDOUR
@@ -590,12 +652,6 @@ LuaBindings::dsp (lua_State* L)
                .addFunction ("get_audio", static_cast<AudioBuffer&(BufferSet::*)(size_t)>(&BufferSet::get_audio))
                .addFunction ("count", static_cast<const ChanCount&(BufferSet::*)()const>(&BufferSet::count))
                .endClass()
-
-               .beginClass <ChanMapping> ("ChanMapping")
-               .addFunction ("get", static_cast<uint32_t(ChanMapping::*)(DataType, uint32_t)>(&ChanMapping::get))
-               .addFunction ("set", &ChanMapping::set)
-               .addConst ("Invalid", 4294967295) // UINT32_MAX
-               .endClass ()
                .endNamespace ();
 
        luabridge::getGlobalNamespace (L)
@@ -607,6 +663,10 @@ LuaBindings::dsp (lua_State* L)
                .addFunction ("buffer", (uint8_t*(Evoral::Event<framepos_t>::*)())&Evoral::Event<framepos_t>::buffer)
                .endClass ()
 
+               .beginClass <Evoral::Beats> ("Beats")
+               .addFunction ("to_double", &Evoral::Beats::to_double)
+               .endClass ()
+
                .deriveClass <Evoral::MIDIEvent<framepos_t>, Evoral::Event<framepos_t> > ("MidiEvent")
                // add Ctor?
                .addFunction ("type", &Evoral::MIDIEvent<framepos_t>::type)
@@ -657,6 +717,19 @@ LuaBindings::dsp (lua_State* L)
                .addFunction ("reset", &DSP::BiQuad::reset)
                .endClass ()
 
+               /* DSP enums */
+               .beginNamespace ("BiQuadType")
+               .addConst ("LowPass", ARDOUR::DSP::BiQuad::LowPass)
+               .addConst ("HighPass", ARDOUR::DSP::BiQuad::HighPass)
+               .addConst ("BandPassSkirt", ARDOUR::DSP::BiQuad::BandPassSkirt)
+               .addConst ("BandPass0dB", ARDOUR::DSP::BiQuad::BandPass0dB)
+               .addConst ("Notch", ARDOUR::DSP::BiQuad::Notch)
+               .addConst ("AllPass", ARDOUR::DSP::BiQuad::AllPass)
+               .addConst ("Peaking", ARDOUR::DSP::BiQuad::Peaking)
+               .addConst ("LowShelf", ARDOUR::DSP::BiQuad::LowShelf)
+               .addConst ("HighShelf", ARDOUR::DSP::BiQuad::HighShelf)
+               .endNamespace ()
+
                .beginClass <DSP::DspShm> ("DspShm")
                .addFunction ("allocate", &DSP::DspShm::allocate)
                .addFunction ("clear", &DSP::DspShm::clear)
@@ -693,11 +766,13 @@ void
 LuaBindings::osc (lua_State* L)
 {
        luabridge::getGlobalNamespace (L)
-               .beginNamespace ("OSC")
-               .beginClass<LuaAPI::LuaOSCAddress> ("Address")
+               .beginNamespace ("ARDOUR")
+               .beginNamespace ("LuaOSC")
+               .beginClass<LuaOSC::Address> ("Address")
                .addConstructor<void (*) (std::string)> ()
-               .addCFunction ("send", &LuaAPI::LuaOSCAddress::send)
+               .addCFunction ("send", &LuaOSC::Address::send)
                .endClass ()
+               .endNamespace ()
                .endNamespace ();
 }