change ControlProtocolManager protocol mutex into a RW lock.
[ardour.git] / libs / ardour / lua_api.cc
index 6a2dbbe9f6d8e8fa6748c7ed5999af16cbc86000..0e82276b1e6e7582de244c4de4467c25e078b5b6 100644 (file)
@@ -122,6 +122,7 @@ ARDOUR::LuaAPI::new_plugin_info (const string& name, ARDOUR::PluginType type)
 #ifdef LV2_SUPPORT
        all_plugs.insert (all_plugs.end (), manager.lv2_plugin_info ().begin (), manager.lv2_plugin_info ().end ());
 #endif
+       all_plugs.insert (all_plugs.end (), manager.lua_plugin_info ().begin (), manager.lua_plugin_info ().end ());
 
        for (PluginInfoList::const_iterator i = all_plugs.begin (); i != all_plugs.end (); ++i) {
                if (((*i)->name == name || (*i)->unique_id == name) && (*i)->type == type) {
@@ -207,6 +208,17 @@ ARDOUR::LuaAPI::get_processor_param (boost::shared_ptr<Processor> proc, uint32_t
        return get_plugin_insert_param (pi, which, ok);
 }
 
+bool
+ARDOUR::LuaAPI::reset_processor_to_default ( boost::shared_ptr<Processor> proc )
+{
+       boost::shared_ptr<PluginInsert> pi = boost::dynamic_pointer_cast<PluginInsert> (proc);
+       if (pi) {
+               pi->reset_parameters_to_default();
+               return true;
+       }
+       return false;
+}
+
 int
 ARDOUR::LuaAPI::plugin_automation (lua_State *L)
 {
@@ -252,6 +264,128 @@ ARDOUR::LuaAPI::plugin_automation (lua_State *L)
        return 3;
 }
 
+int
+ARDOUR::LuaAPI::sample_to_timecode (lua_State *L)
+{
+       int top = lua_gettop (L);
+       if (top < 3) {
+               return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (TimecodeFormat, sample_rate, sample)");
+       }
+       typedef Timecode::TimecodeFormat T;
+       T tf = luabridge::Stack<T>::get (L, 1);
+       double sample_rate = luabridge::Stack<double>::get (L, 2);
+       int64_t sample = luabridge::Stack<int64_t>::get (L, 3);
+
+       Timecode::Time timecode;
+
+       Timecode::sample_to_timecode (
+                       sample, timecode, false, false,
+                       Timecode::timecode_to_frames_per_second (tf),
+                       Timecode::timecode_has_drop_frames (tf),
+                       sample_rate,
+                       0, false, 0);
+
+       luabridge::Stack<uint32_t>::push (L, timecode.hours);
+       luabridge::Stack<uint32_t>::push (L, timecode.minutes);
+       luabridge::Stack<uint32_t>::push (L, timecode.seconds);
+       luabridge::Stack<uint32_t>::push (L, timecode.frames);
+       return 4;
+}
+
+int
+ARDOUR::LuaAPI::timecode_to_sample (lua_State *L)
+{
+       int top = lua_gettop (L);
+       if (top < 6) {
+               return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (TimecodeFormat, sample_rate, hh, mm, ss, ff)");
+       }
+       typedef Timecode::TimecodeFormat T;
+       T tf = luabridge::Stack<T>::get (L, 1);
+       double sample_rate = luabridge::Stack<double>::get (L, 2);
+       int hh = luabridge::Stack<int>::get (L, 3);
+       int mm = luabridge::Stack<int>::get (L, 4);
+       int ss = luabridge::Stack<int>::get (L, 5);
+       int ff = luabridge::Stack<int>::get (L, 6);
+
+       Timecode::Time timecode;
+       timecode.negative = false;
+       timecode.hours = hh;
+       timecode.minutes = mm;
+       timecode.seconds = ss;
+       timecode.frames = ff;
+       timecode.subframes = 0;
+       timecode.rate = Timecode::timecode_to_frames_per_second (tf);
+       timecode.drop = Timecode::timecode_has_drop_frames (tf);
+
+       int64_t sample;
+
+       Timecode::timecode_to_sample (
+                       timecode, sample, false, false,
+                       sample_rate, 0, false, 0);
+
+       luabridge::Stack<int64_t>::push (L, sample);
+       return 1;
+}
+
+int
+ARDOUR::LuaAPI::sample_to_timecode_lua (lua_State *L)
+{
+       int top = lua_gettop (L);
+       if (top < 2) {
+               return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (sample)");
+       }
+       Session const* const s = luabridge::Userdata::get <Session> (L, 1, true);
+       int64_t sample = luabridge::Stack<int64_t>::get (L, 2);
+
+       Timecode::Time timecode;
+
+       Timecode::sample_to_timecode (
+                       sample, timecode, false, false,
+                       s->timecode_frames_per_second (),
+                       s->timecode_drop_frames (),
+                       s->frame_rate (),
+                       0, false, 0);
+
+       luabridge::Stack<uint32_t>::push (L, timecode.hours);
+       luabridge::Stack<uint32_t>::push (L, timecode.minutes);
+       luabridge::Stack<uint32_t>::push (L, timecode.seconds);
+       luabridge::Stack<uint32_t>::push (L, timecode.frames);
+       return 4;
+}
+int
+ARDOUR::LuaAPI::timecode_to_sample_lua (lua_State *L)
+{
+       int top = lua_gettop (L);
+       if (top < 5) {
+               return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (hh, mm, ss, ff)");
+       }
+       Session const* const s = luabridge::Userdata::get <Session> (L, 1, true);
+       int hh = luabridge::Stack<int>::get (L, 2);
+       int mm = luabridge::Stack<int>::get (L, 3);
+       int ss = luabridge::Stack<int>::get (L, 4);
+       int ff = luabridge::Stack<int>::get (L, 5);
+
+       Timecode::Time timecode;
+       timecode.negative = false;
+       timecode.hours = hh;
+       timecode.minutes = mm;
+       timecode.seconds = ss;
+       timecode.frames = ff;
+       timecode.subframes = 0;
+       timecode.rate = s->timecode_frames_per_second ();
+       timecode.drop = s->timecode_drop_frames ();
+
+       int64_t sample;
+
+       Timecode::timecode_to_sample (
+                       timecode, sample, false, false,
+                       s->frame_rate (),
+                       0, false, 0);
+
+       luabridge::Stack<int64_t>::push (L, sample);
+       return 1;
+}
+
 int
 ARDOUR::LuaOSC::Address::send (lua_State *L)
 {
@@ -369,6 +503,32 @@ ARDOUR::LuaAPI::hsla_to_rgba (lua_State *L)
        return 4;
 }
 
+int
+ARDOUR::LuaAPI::color_to_rgba (lua_State *L)
+{
+       int top = lua_gettop (L);
+       if (top < 1) {
+               return luaL_argerror (L, 1, "invalid number of arguments, color_to_rgba (uint32_t)");
+       }
+       uint32_t color = luabridge::Stack<uint32_t>::get (L, 1);
+       double r, g, b, a;
+
+       /* libardour is no user of libcanvas, otherwise
+        * we could just call
+        * ArdourCanvas::color_to_rgba (color, r, g, b, a);
+        */
+       r = ((color >> 24) & 0xff) / 255.0;
+       g = ((color >> 16) & 0xff) / 255.0;
+       b = ((color >>  8) & 0xff) / 255.0;
+       a = ((color >>  0) & 0xff) / 255.0;
+
+       luabridge::Stack <double>::push (L, r);
+       luabridge::Stack <double>::push (L, g);
+       luabridge::Stack <double>::push (L, b);
+       luabridge::Stack <double>::push (L, a);
+       return 4;
+}
+
 int
 ARDOUR::LuaAPI::build_filename (lua_State *L)
 {
@@ -660,3 +820,17 @@ LuaAPI::new_noteptr (uint8_t chan, Evoral::Beats beat_time, Evoral::Beats length
 {
        return boost::shared_ptr<Evoral::Note<Evoral::Beats> > (new Evoral::Note<Evoral::Beats>(chan, beat_time, length, note, velocity));
 }
+
+std::list<boost::shared_ptr<Evoral::Note<Evoral::Beats> > >
+LuaAPI::note_list (boost::shared_ptr<MidiModel> mm)
+{
+       typedef boost::shared_ptr<Evoral::Note<Evoral::Beats> > NotePtr;
+
+       std::list<NotePtr> note_ptr_list;
+
+       const MidiModel::Notes& notes = mm->notes();
+       for (MidiModel::Notes::const_iterator i = notes.begin(); i != notes.end(); ++i) {
+               note_ptr_list.push_back (*i);
+       }
+       return note_ptr_list;
+}