675 Mass Ave, Cambridge, MA 02139, USA.
*/
+#include <glibmm.h>
+
#include "timecode/bbt_time.h"
+#include "pbd/stateful_diff_command.h"
#include "evoral/Control.hpp"
#include "evoral/ControlList.hpp"
#include "evoral/Range.hpp"
+#include "ardour/amp.h"
#include "ardour/audioengine.h"
#include "ardour/audiosource.h"
#include "ardour/audio_backend.h"
#include "ardour/audio_buffer.h"
+#include "ardour/audio_port.h"
#include "ardour/audio_track.h"
#include "ardour/buffer_set.h"
#include "ardour/chan_mapping.h"
#include "ardour/interthread_info.h"
#include "ardour/lua_api.h"
#include "ardour/luabindings.h"
+#include "ardour/luaproc.h"
#include "ardour/meter.h"
#include "ardour/midi_track.h"
+#include "ardour/midi_port.h"
#include "ardour/playlist.h"
#include "ardour/plugin.h"
#include "ardour/plugin_insert.h"
#include "LuaBridge/LuaBridge.h"
+#ifdef PLATFORM_WINDOWS
+/* luabridge uses addresses of static functions/variables to identify classes.
+ *
+ * Static symbols on windows (even identical symbols) are not
+ * mapped to the same address when mixing .dll + .exe.
+ * So we need a single point to define those static functions.
+ * (normally they're header-only in libs/lua/LuaBridge/detail/ClassInfo.h)
+ *
+ * Really!! A static function with a static variable in a library header
+ * should never ever be replicated, even if it is a template.
+ * But then again this is windows... what else can go wrong.
+ */
+
+template <class T>
+void const*
+luabridge::ClassInfo<T>::getStaticKey ()
+{
+ static char value;
+ return &value;
+}
+
+template <class T>
+void const*
+luabridge::ClassInfo<T>::getClassKey ()
+{
+ static char value;
+ return &value;
+}
+
+template <class T>
+void const*
+luabridge::ClassInfo<T>::getConstKey ()
+{
+ static char value;
+ return &value;
+}
+
+void*
+luabridge::getIdentityKey ()
+{
+ static char value;
+ return &value;
+}
+
+/* ...and this is the ugly part of it.
+ *
+ * We need to foward declare classes from gtk2_ardour
+ * end explicily list classes which are used by gtk2_ardour's bindings.
+ *
+ * This is needed because some of the GUI classes use objects from libardour
+ * as function parameters and the .exe would re-create symbols for libardour
+ * objects.
+ *
+ * Classes which don't use libardour symbols could be moved to
+ * gtk2_ardour/luainstance.cc, but keeping this here reduces code
+ * duplication and does not give the compiler a chance to even think
+ * about replicating the symbols.
+ */
+
+#define CLASSKEYS(CLS) \
+ template void const* luabridge::ClassInfo< CLS >::getStaticKey(); \
+ template void const* luabridge::ClassInfo< CLS >::getClassKey(); \
+ template void const* luabridge::ClassInfo< CLS >::getConstKey();
+
+#define CLASSINFO(CLS) \
+ class CLS; \
+ template void const* luabridge::ClassInfo< CLS >::getStaticKey(); \
+ template void const* luabridge::ClassInfo< CLS >::getClassKey(); \
+ template void const* luabridge::ClassInfo< CLS >::getConstKey();
+
+CLASSINFO(MarkerSelection);
+CLASSINFO(TrackSelection);
+CLASSINFO(TrackViewList);
+CLASSINFO(TimeSelection);
+CLASSINFO(RegionSelection);
+CLASSINFO(PublicEditor);
+CLASSINFO(Selection);
+CLASSINFO(ArdourMarker);
+
+namespace Cairo {
+ class Context;
+}
+CLASSKEYS(Cairo::Context);
+CLASSKEYS(std::vector<double>);
+CLASSKEYS(std::list<ArdourMarker*>);
+CLASSKEYS(std::bitset<47ul>); // LuaSignal::LAST_SIGNAL
+CLASSKEYS(ArdourMarker*);
+CLASSKEYS(ARDOUR::RouteGroup);
+CLASSKEYS(ARDOUR::LuaProc);
+CLASSKEYS(ARDOUR::DataType);
+CLASSKEYS(ARDOUR::ChanCount);
+CLASSKEYS(boost::shared_ptr<ARDOUR::Processor>);
+CLASSKEYS(ARDOUR::ParameterDescriptor);
+CLASSKEYS(boost::shared_ptr<ARDOUR::AutomationList>);
+CLASSKEYS(boost::shared_ptr<Evoral::ControlList>);
+CLASSKEYS(ARDOUR::LuaOSC::Address);
+CLASSKEYS(ARDOUR::Session);
+CLASSKEYS(ARDOUR::BufferSet);
+CLASSKEYS(ARDOUR::ChanMapping);
+CLASSKEYS(ARDOUR::DSP::DspShm);
+CLASSKEYS(PBD::ID);
+CLASSKEYS(ARDOUR::Location);
+CLASSKEYS(ARDOUR::PluginInfo);
+CLASSKEYS(PBD::PropertyChange);
+CLASSKEYS(std::vector<std::string>);
+CLASSKEYS(std::list<boost::shared_ptr<ARDOUR::Route> >);
+CLASSKEYS(boost::shared_ptr<ARDOUR::PluginInfo>);
+CLASSKEYS(boost::shared_ptr<ARDOUR::Region>);
+CLASSKEYS(boost::weak_ptr<ARDOUR::Route>);
+CLASSKEYS(std::list<boost::shared_ptr<ARDOUR::Region> >);
+CLASSKEYS(std::list<ARDOUR::AudioRange>);
+CLASSKEYS(Evoral::Beats);
+CLASSKEYS(ARDOUR::AudioEngine);
+CLASSKEYS(void);
+CLASSKEYS(float);
+
+#endif // end windows special case
+
/* Some notes on Lua bindings for libardour and friends
*
* - Prefer factory methods over Contructors whenever possible.
.addFunction ("to_s", &PBD::ID::to_s) // TODO special case LUA __tostring ?
.endClass ()
- .beginClass <PBD::Stateful> ("Stateful")
- .addFunction ("properties", &PBD::Stateful::properties)
+ .beginClass <XMLNode> ("XMLNode")
+ .addFunction ("name", &XMLNode::name)
.endClass ()
- .deriveClass <PBD::StatefulDestructible, PBD::Stateful> ("StatefulDestructible")
+ .beginClass <PBD::Stateful> ("Stateful")
+ .addFunction ("properties", &PBD::Stateful::properties)
+ .addFunction ("clear_changes", &PBD::Stateful::clear_changes)
.endClass ()
.beginWSPtrClass <PBD::Stateful> ("StatefulPtr")
.addFunction ("properties", &PBD::Stateful::properties)
+ .addFunction ("clear_changes", &PBD::Stateful::clear_changes)
+ .endClass ()
+
+ .deriveClass <PBD::StatefulDestructible, PBD::Stateful> ("StatefulDestructible")
.endClass ()
.deriveWSPtrClass <PBD::StatefulDestructible, PBD::Stateful> ("StatefulDestructiblePtr")
.endClass ()
+ .deriveClass <Command, PBD::StatefulDestructible> ("Command")
+ .addFunction ("set_name", &Command::set_name)
+ .addFunction ("name", &Command::name)
+ .endClass ()
+
+ /* UndoTransaction::add_command() subscribes to DropReferences()
+ * and deletes the object.
+ *
+ * This object cannot be constructed by lua because lua would manage lifetime
+ * and delete the object leading to a double free.
+ *
+ * use Session::add_stateful_diff_command()
+ * and Session::abort_reversible_command()
+ */
+ .deriveClass <PBD::StatefulDiffCommand, Command> ("StatefulDiffCommand")
+ .addFunction ("undo", &PBD::StatefulDiffCommand::undo)
+ .addFunction ("empty", &PBD::StatefulDiffCommand::empty)
+ .endClass ()
+
.deriveWSPtrClass <PBD::Controllable, PBD::StatefulDestructible> ("Controllable")
+ .addFunction ("name", &PBD::Controllable::name)
.addFunction ("get_value", &PBD::Controllable::get_value)
.endClass ()
.beginWSPtrClass <Evoral::ControlList> ("ControlList")
.addFunction ("add", &Evoral::ControlList::add)
+ .addFunction ("thin", &Evoral::ControlList::thin)
+ .addFunction ("eval", &Evoral::ControlList::eval)
+ .addRefFunction ("rt_safe_eval", &Evoral::ControlList::rt_safe_eval)
+ .addFunction ("interpolation", &Evoral::ControlList::interpolation)
+ .addFunction ("set_interpolation", &Evoral::ControlList::set_interpolation)
+ .addFunction ("truncate_end", &Evoral::ControlList::truncate_end)
+ .addFunction ("truncate_start", &Evoral::ControlList::truncate_start)
+ .addFunction ("clear", (void (Evoral::ControlList::*)(double, double))&Evoral::ControlList::clear)
+ .addFunction ("in_write_pass", &Evoral::ControlList::in_write_pass)
.endClass ()
.beginWSPtrClass <Evoral::ControlSet> ("ControlSet")
.addData ("to", &Evoral::Range<framepos_t>::to)
.endClass ()
+ /* libevoral enums */
+ .beginNamespace ("InterpolationStyle")
+ .addConst ("Discrete", Evoral::ControlList::InterpolationStyle(Evoral::ControlList::Discrete))
+ .addConst ("Linear", Evoral::ControlList::InterpolationStyle(Evoral::ControlList::Linear))
+ .addConst ("Curved", Evoral::ControlList::InterpolationStyle(Evoral::ControlList::Curved))
+ .endNamespace ()
+
.endNamespace () // Evoral
.beginNamespace ("ARDOUR")
.deriveClass <PBD::OwnedPropertyList, PBD::PropertyList> ("OwnedPropertyList")
.endClass ()
+ .beginWSPtrClass <AutomationList> ("AutomationList")
+ .addCast<PBD::Stateful> ("to_stateful")
+ .addCast<PBD::StatefulDestructible> ("to_statefuldestructible")
+ .addCast<Evoral::ControlList> ("list")
+ .addFunction ("get_state", &AutomationList::get_state)
+ .addFunction ("memento_command", &AutomationList::memento_command)
+ .addFunction ("touching", &AutomationList::touching)
+ .addFunction ("writing", &AutomationList::writing)
+ .addFunction ("touch_enabled", &AutomationList::touch_enabled)
+ .endClass ()
+
.deriveClass <Location, PBD::StatefulDestructible> ("Location")
.addFunction ("locked", &Location::locked)
.addFunction ("lock", &Location::lock)
.addFunction ("move_to", &Location::move_to)
.endClass ()
- .deriveClass <Locations, PBD::StatefulDestructible> ("Location")
+ .deriveClass <Locations, PBD::StatefulDestructible> ("Locations")
.addFunction ("auto_loop_location", &Locations::auto_loop_location)
.addFunction ("auto_punch_location", &Locations::auto_punch_location)
.addFunction ("session_range_location", &Locations::session_range_location)
.addFunction ("first_mark_after", &Locations::first_mark_after)
.endClass ()
- .deriveWSPtrClass <SessionObject, PBD::StatefulDestructible> ("SessionObject")
+ .beginWSPtrClass <SessionObject> ("SessionObject")
+ /* SessionObject is-a PBD::StatefulDestructible,
+ * but multiple inheritance is not covered by luabridge,
+ * we need explicit casts */
+ .addCast<PBD::Stateful> ("to_stateful")
+ .addCast<PBD::StatefulDestructible> ("to_statefuldestructible")
.addFunction ("name", &SessionObject::name)
.endClass ()
+ .beginWSPtrClass <Port> ("Port")
+ .addFunction ("name", &Port::name)
+ .addFunction ("pretty_name", &Port::pretty_name)
+ .addFunction ("receives_input", &Port::receives_input)
+ .addFunction ("sends_output", &Port::sends_output)
+ .addFunction ("connected", &Port::connected)
+ .addFunction ("disconnect_all", &Port::disconnect_all)
+ .addFunction ("connected_to_name", (bool (Port::*)(std::string const &)const)&Port::connected_to)
+ .addFunction ("connect_by_name", (int (Port::*)(std::string const &))&Port::connect)
+ .addFunction ("disconnect_by_name", (int (Port::*)(std::string const &))&Port::disconnect)
+ .addFunction ("connected_to", (bool (Port::*)(Port*)const)&Port::connected_to)
+ .addFunction ("connect", (int (Port::*)(Port*))&Port::connect)
+ .addFunction ("disconnect", (int (Port::*)(Port*))&Port::disconnect)
+ .endClass ()
+
+ .deriveWSPtrClass <AudioPort, Port> ("AudioPort")
+ .endClass ()
+
+ .deriveWSPtrClass <MidiPort, Port> ("MidiPort")
+ .addFunction ("input_active", &MidiPort::input_active)
+ .addFunction ("set_input_active", &MidiPort::set_input_active)
+ .endClass ()
+
+ .beginWSPtrClass <PortSet> ("PortSet")
+ .addFunction ("num_ports", (size_t (PortSet::*)(DataType)const)&PortSet::num_ports)
+ .addFunction ("add", &PortSet::add)
+ .addFunction ("remove", &PortSet::remove)
+ .addFunction ("port", (boost::shared_ptr<Port> (PortSet::*)(DataType, size_t)const)&PortSet::port)
+ .addFunction ("contains", &PortSet::contains)
+ .addFunction ("clear", &PortSet::clear)
+ .addFunction ("empty", &PortSet::empty)
+ .endClass ()
+
.deriveWSPtrClass <IO, SessionObject> ("IO")
.addFunction ("active", &IO::active)
.addFunction ("add_port", &IO::add_port)
.addFunction ("connect", &IO::connect)
.addFunction ("disconnect", (int (IO::*)(boost::shared_ptr<Port>, std::string, void *))&IO::disconnect)
.addFunction ("physically_connected", &IO::physically_connected)
+ .addFunction ("has_port", &IO::has_port)
+ .addFunction ("nth", &IO::nth)
+ .addFunction ("audio", &IO::audio)
+ .addFunction ("midi", &IO::midi)
+ .addFunction ("port_by_name", &IO::nth)
+ .addFunction ("n_ports", &IO::n_ports)
.endClass ()
.deriveWSPtrClass <Route, SessionObject> ("Route")
.addFunction ("main_outs", &Route::main_outs)
.addFunction ("muted", &Route::muted)
.addFunction ("soloed", &Route::soloed)
+ .addFunction ("amp", &Route::amp)
+ .addFunction ("trim", &Route::trim)
.endClass ()
.deriveWSPtrClass <Playlist, SessionObject> ("Playlist")
.addFunction ("find_next_region", &Playlist::find_next_region)
.addFunction ("find_next_region_boundary", &Playlist::find_next_region_boundary)
.addFunction ("count_regions_at", &Playlist::count_regions_at)
+ .addFunction ("regions_touched", &Playlist::regions_touched)
.addFunction ("regions_with_start_within", &Playlist::regions_with_start_within)
.addFunction ("regions_with_end_within", &Playlist::regions_with_end_within)
.addFunction ("raise_region", &Playlist::raise_region)
.addFunction ("set_record_enabled", &Track::set_record_enabled)
.addFunction ("set_record_safe", &Track::set_record_safe)
.addFunction ("bounceable", &Track::bounceable)
- .addFunction ("bounce", &Track::bounce_range)
+ .addFunction ("bounce", &Track::bounce)
.addFunction ("bounce_range", &Track::bounce_range)
.addFunction ("playlist", &Track::playlist)
.endClass ()
.endClass ()
.deriveWSPtrClass <Processor, SessionObject> ("Processor")
- // TODO mult. inheritance
- .endClass ()
-
- .deriveWSPtrClass <Processor, Automatable> ("Processor")
+ .addCast<Automatable> ("to_automatable")
.addCast<PluginInsert> ("to_insert")
.addCast<SideChain> ("to_sidechain")
.addCast<IOProcessor> ("to_ioprocessor")
.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)
-
+ .addFunction ("sidechain_input", &PluginInsert::sidechain_input)
.endClass ()
- .deriveWSPtrClass <AutomationControl, Evoral::Control> ("AutomationControl")
+ .deriveWSPtrClass <AutomationControl, PBD::Controllable> ("AutomationControl")
+ .addCast<Evoral::Control> ("to_ctrl")
.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)
.addFunction ("get_value", &AutomationControl::get_value)
.addFunction ("set_value", &AutomationControl::set_value)
.addFunction ("writable", &AutomationControl::writable)
+ .addFunction ("alist", &AutomationControl::alist)
+ .endClass ()
+
+ .deriveWSPtrClass <GainControl, AutomationControl> ("GainControl")
+ .endClass ()
+
+ .deriveWSPtrClass <Amp, Processor> ("Amp")
+ .addFunction ("gain_control", (boost::shared_ptr<GainControl>(Amp::*)())&Amp::gain_control)
.endClass ()
.deriveWSPtrClass <PluginInsert::PluginControl, AutomationControl> ("PluginControl")
.endClass ()
#endif
- // typedef std::set<boost::weak_ptr<AudioPort> > PortSet
- .beginStdSet <boost::weak_ptr<AudioPort> > ("WeakPortSet")
- .endClass ()
-
// std::list<boost::weak_ptr<Source> >
.beginConstStdList <boost::weak_ptr<Source> > ("WeakSourceList")
.endClass ()
.addStaticCFunction ("null", &LuaAPI::datatype_ctor_null) // "nil" is a lua reseved word
.addStaticCFunction ("audio", &LuaAPI::datatype_ctor_audio)
.addStaticCFunction ("midi", &LuaAPI::datatype_ctor_midi)
- .addFunction ("to_string", &DataType::to_string)
+ .addFunction ("to_string", &DataType::to_string) // TODO Lua __tostring
// TODO add uint32_t cast, add operator== !=
.endClass()
.beginNamespace ("AutomationType")
.addConst ("PluginAutomation", ARDOUR::AutomationType(PluginAutomation))
+ .addConst ("PluginAutomation", ARDOUR::AutomationType(GainAutomation))
+ .addConst ("PluginAutomation", ARDOUR::AutomationType(TrimAutomation))
.endNamespace ()
.beginNamespace ("SrcQuality")
.addFunction ("snap_name", &Session::snap_name)
.addFunction ("tempo_map", (TempoMap& (Session::*)())&Session::tempo_map)
.addFunction ("locations", &Session::locations)
+ .addFunction ("begin_reversible_command", (void (Session::*)(const std::string&))&Session::begin_reversible_command)
+ .addFunction ("commit_reversible_command", &Session::commit_reversible_command)
+ .addFunction ("abort_reversible_command", &Session::abort_reversible_command)
+ .addFunction ("add_command", &Session::add_command)
+ .addFunction ("add_stateful_diff_command", &Session::add_stateful_diff_command)
.endClass ()
.beginClass <RegionFactory> ("RegionFactory")
.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)
+ .addCFunction ("plugin_automation", ARDOUR::LuaAPI::plugin_automation)
+ .addFunction ("usleep", Glib::usleep)
.endNamespace ()
.endNamespace ();// END ARDOUR
.beginNamespace ("ARDOUR")
.beginClass <AudioBuffer> ("AudioBuffer")
+ .addEqualCheck ()
.addFunction ("data", (Sample*(AudioBuffer::*)(framecnt_t))&AudioBuffer::data)
.addFunction ("silence", &AudioBuffer::silence)
.addFunction ("apply_gain", &AudioBuffer::apply_gain)
.endClass()
.beginClass <MidiBuffer> ("MidiBuffer")
+ .addEqualCheck ()
.addFunction ("silence", &MidiBuffer::silence)
.addFunction ("empty", &MidiBuffer::empty)
// TODO iterators..
.endClass()
.beginClass <BufferSet> ("BufferSet")
+ .addEqualCheck ()
.addFunction ("get_audio", static_cast<AudioBuffer&(BufferSet::*)(size_t)>(&BufferSet::get_audio))
.addFunction ("count", static_cast<const ChanCount&(BufferSet::*)()const>(&BufferSet::count))
.endClass()