do not change Session::_transport_frame is a locate is pending

[ardour.git] / gtk2_ardour / luainstance.cc

diff --git a/gtk2_ardour/luainstance.cc b/gtk2_ardour/luainstance.cc
index 9db09e38dcc00d655124743745087b146032b674..ff2c8d3164754d3139aca22a783abb9ebfd897ab 100644 (file)
--- a/gtk2_ardour/luainstance.cc
+++ b/gtk2_ardour/luainstance.cc
@@ -23,7 +23,8 @@
 #include "gtkmm2ext/gui_thread.h"
 
 #include "ardour/audioengine.h"
-#include "ardour/diskstream.h"
+#include "ardour/disk_reader.h"
+#include "ardour/disk_writer.h"
 #include "ardour/plugin_manager.h"
 #include "ardour/route.h"
 #include "ardour/session.h"
@@ -371,6 +372,69 @@ namespace LuaMixer {
 
 ////////////////////////////////////////////////////////////////////////////////
 
+static PBD::ScopedConnectionList _luaexecs;
+
+static void reaper (ARDOUR::SystemExec* x)
+{
+       delete x;
+}
+
+static int
+lua_forkexec (lua_State *L)
+{
+       int argc = lua_gettop (L);
+       if (argc == 0) {
+               return luaL_argerror (L, 1, "invalid number of arguments, forkexec (command, ...)");
+       }
+       // args are free()ed in ~SystemExec
+       char** args = (char**) malloc ((argc + 1) * sizeof(char*));
+       for (int i = 0; i < argc; ++i) {
+               args[i] = strdup (luaL_checkstring (L, i + 1));
+       }
+       args[argc] = 0;
+
+       ARDOUR::SystemExec* x = new ARDOUR::SystemExec (args[0], args);
+       x->Terminated.connect (_luaexecs, MISSING_INVALIDATOR, boost::bind (&reaper, x), gui_context());
+
+       if (x->start()) {
+               reaper (x);
+               luabridge::Stack<bool>::push (L, false);
+               return -1;
+       } else {
+               luabridge::Stack<bool>::push (L, false);
+       }
+       return 1;
+}
+
+#ifndef PLATFORM_WINDOWS
+static int
+lua_exec (std::string cmd)
+{
+       // args are free()ed in ~SystemExec
+       char** args = (char**) malloc (4 * sizeof(char*));
+       args[0] = strdup ("/bin/sh");
+       args[1] = strdup ("-c");
+       args[2] = strdup (cmd.c_str());
+       args[3] = 0;
+       ARDOUR::SystemExec x ("/bin/sh", args);
+       if (x.start()) {
+               return -1;
+       }
+       x.wait ();
+       return 0;
+}
+#endif
+////////////////////////////////////////////////////////////////////////////////
+
+// ARDOUR_UI and instance() are not exposed.
+ARDOUR::PresentationInfo::order_t
+lua_translate_order (RouteDialogs::InsertAt place)
+{
+       return ARDOUR_UI::instance()->translate_order (place);
+}
+
+////////////////////////////////////////////////////////////////////////////////
+
 #define xstr(s) stringify(s)
 #define stringify(s) #s
 
@@ -854,7 +918,16 @@ LuaInstance::register_classes (lua_State* L)
                .addFunction ("set_toggleaction", &PublicEditor::set_toggleaction)
                .endClass ()
 
+               .addFunction ("translate_order", &lua_translate_order)
+
                /* ArdourUI enums */
+               .beginNamespace ("InsertAt")
+               .addConst ("BeforeSelection", RouteDialogs::InsertAt(RouteDialogs::BeforeSelection))
+               .addConst ("AfterSelection", RouteDialogs::InsertAt(RouteDialogs::AfterSelection))
+               .addConst ("First", RouteDialogs::InsertAt(RouteDialogs::First))
+               .addConst ("Last", RouteDialogs::InsertAt(RouteDialogs::Last))
+               .endNamespace ()
+
                .beginNamespace ("MarkerType")
                .addConst ("Mark", ArdourMarker::Type(ArdourMarker::Mark))
                .addConst ("Tempo", ArdourMarker::Type(ArdourMarker::Tempo))
@@ -878,12 +951,12 @@ LuaInstance::register_classes (lua_State* L)
 
                .endNamespace () // end ArdourUI
 
-               .beginNamespace ("ARDOUR")
-               .beginClass <ARDOUR::SystemExec> ("SystemExec")
-               .addConstructor <void (*) (std::string, std::string)> ()
-               .addFunction ("start", &ARDOUR::SystemExec::start)
-               .endClass ()
-               .endNamespace (); // end ARDOUR
+               .beginNamespace ("os")
+#ifndef PLATFORM_WINDOWS
+               .addFunction ("execute", &lua_exec)
+#endif
+               .addCFunction ("forkexec", &lua_forkexec)
+               .endNamespace ();
 
        // Editing Symbols
 
@@ -920,9 +993,7 @@ using namespace ARDOUR_UI_UTILS;
 using namespace PBD;
 using namespace std;
 
-void
-LuaInstance::_lua_print (std::string s)
-{
+static void _lua_print (std::string s) {
 #ifndef NDEBUG
        std::cout << "LuaInstance: " << s << "\n";
 #endif
@@ -991,7 +1062,7 @@ LuaInstance::init ()
                        "   assert(type(f) == 'function', 'Factory is a not a function')"
                        "   assert(type(a) == 'table' or type(a) == 'nil', 'Given argument is invalid')"
                        "   self.scripts[i] = { ['n'] = n, ['s'] = s, ['f'] = f, ['a'] = a, ['c'] = c }"
-                       "   local env = _ENV; env.f = nil env.io = nil"
+                       "   local env = _ENV; env.f = nil"
                        "   self.instances[i] = load (string.dump(f, true), nil, nil, env)(a)"
                        "   if type(c) == 'function' then"
                        "     self.icons[i] = load (string.dump(c, true), nil, nil, env)(a)"
@@ -1109,6 +1180,11 @@ LuaInstance::init ()
                _lua_clear = new luabridge::LuaRef(lua_mgr["clear"]);
 
        } catch (luabridge::LuaException const& e) {
+               fatal << string_compose (_("programming error: %1"),
+                               std::string ("Failed to setup Lua action interpreter") + e.what ())
+                       << endmsg;
+               abort(); /*NOTREACHED*/
+       } catch (...) {
                fatal << string_compose (_("programming error: %1"),
                                X_("Failed to setup Lua action interpreter"))
                        << endmsg;
@@ -1177,7 +1253,7 @@ LuaInstance::set_state (const XMLNode& node)
                                (*_lua_load)(std::string ((const char*)buf, size));
                        } catch (luabridge::LuaException const& e) {
                                cerr << "LuaException:" << e.what () << endl;
-                       }
+                       } catch (...) { }
                        for (int i = 0; i < 9; ++i) {
                                std::string name;
                                if (lua_action_name (i, name)) {
@@ -1197,7 +1273,7 @@ LuaInstance::set_state (const XMLNode& node)
                                SlotChanged (p->id(), p->name(), p->signals()); /* EMIT SIGNAL */
                        } catch (luabridge::LuaException const& e) {
                                cerr << "LuaException:" << e.what () << endl;
-                       }
+                       } catch (...) { }
                }
        }
 
@@ -1288,6 +1364,10 @@ LuaInstance::interactive_add (LuaScriptInfo::ScriptType type, int id)
                                string msg = string_compose (_("Loading Session script '%1' failed: %2"), spd.name(), e.what ());
                                Gtk::MessageDialog am (msg);
                                am.run ();
+                       } catch (...) {
+                               string msg = string_compose (_("Loading Session script '%1' failed: %2"), spd.name(), "Unknown Exception");
+                               Gtk::MessageDialog am (msg);
+                               am.run ();
                        }
                default:
                        break;
@@ -1334,7 +1414,7 @@ LuaInstance::call_action (const int id)
                lua.collect_garbage_step ();
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
-       }
+       } catch (...) { }
 }
 
 void
@@ -1351,7 +1431,7 @@ LuaInstance::render_icon (int i, cairo_t* cr, int w, int h, uint32_t clr)
                 (*_lua_render_icon)(i + 1, (Cairo::Context *)&ctx, w, h, clr);
         } catch (luabridge::LuaException const& e) {
                 cerr << "LuaException:" << e.what () << endl;
-        }
+        } catch (...) { }
 }
 
 bool
@@ -1377,6 +1457,8 @@ LuaInstance::set_lua_action (
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
                return false;
+       } catch (...) {
+               return false;
        }
        _session->set_dirty ();
        return true;
@@ -1390,6 +1472,8 @@ LuaInstance::remove_lua_action (const int id)
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
                return false;
+       } catch (...) {
+               return false;
        }
        ActionChanged (id, ""); /* EMIT SIGNAL */
        _session->set_dirty ();
@@ -1411,8 +1495,7 @@ LuaInstance::lua_action_name (const int id, std::string& rv)
                return true;
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
-               return false;
-       }
+       } catch (...) { }
        return false;
 }
 
@@ -1442,7 +1525,7 @@ LuaInstance::lua_action_has_icon (const int id)
                }
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
-       }
+       } catch (...) { }
        return false;
 }
 
@@ -1477,8 +1560,7 @@ LuaInstance::lua_action (const int id, std::string& name, std::string& script, L
                return true;
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
-               return false;
-       }
+       } catch (...) { }
        return false;
 }
 
@@ -1501,7 +1583,7 @@ LuaInstance::register_lua_slot (const std::string& name, const std::string& scri
                }
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
-       }
+       } catch (...) { }
 
        if (ah.none ()) {
                cerr << "Script registered no hooks." << endl;
@@ -1518,7 +1600,7 @@ LuaInstance::register_lua_slot (const std::string& name, const std::string& scri
                return true;
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
-       }
+       } catch (...) { }
        _session->set_dirty ();
        return false;
 }
@@ -1604,11 +1686,13 @@ LuaCallback::LuaCallback (Session *s,
        }
 
        try {
-       const std::string& bytecode = LuaScripting::get_factory_bytecode (script);
-       (*_lua_add)(name, script, bytecode, tbl_arg);
+               const std::string& bytecode = LuaScripting::get_factory_bytecode (script);
+               (*_lua_add)(name, script, bytecode, tbl_arg);
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
                throw failed_constructor ();
+       } catch (...) {
+               throw failed_constructor ();
        }
 
        _id.reset ();
@@ -1647,7 +1731,7 @@ LuaCallback::LuaCallback (Session *s, XMLNode & node)
                (*_lua_load)(std::string ((const char*)buf, size));
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
-       }
+       } catch (...) { }
        g_free (buf);
 
        set_session (s);
@@ -1696,7 +1780,7 @@ LuaCallback::get_state (void)
 void
 LuaCallback::init (void)
 {
-       lua.Print.connect (&LuaInstance::_lua_print);
+       lua.Print.connect (&_lua_print);
        lua.sandbox (false);
 
        lua.do_command (
@@ -1709,7 +1793,7 @@ LuaCallback::init (void)
                        "   assert(type(f) == 'function', 'Factory is a not a function')"
                        "   assert(type(a) == 'table' or type(a) == 'nil', 'Given argument is invalid')"
                        "   self.script = { ['n'] = n, ['s'] = s, ['f'] = f, ['a'] = a }"
-                       "   local env = _ENV; env.f = nil env.io = nil"
+                       "   local env = _ENV; env.f = nil"
                        "   self.instance = load (string.dump(f, true), nil, nil, env)(a)"
                        "  end"
                        ""
@@ -1807,6 +1891,11 @@ LuaCallback::init (void)
                _lua_load = new luabridge::LuaRef(lua_mgr["restore"]);
 
        } catch (luabridge::LuaException const& e) {
+               fatal << string_compose (_("programming error: %1"),
+                               std::string ("Failed to setup Lua callback interpreter: ") + e.what ())
+                       << endmsg;
+               abort(); /*NOTREACHED*/
+       } catch (...) {
                fatal << string_compose (_("programming error: %1"),
                                X_("Failed to setup Lua callback interpreter"))
                        << endmsg;
@@ -1855,7 +1944,7 @@ LuaCallback::lua_slot (std::string& name, std::string& script, ActionHook& ah, A
        } catch (luabridge::LuaException const& e) {
                cerr << "LuaException:" << e.what () << endl;
                return false;
-       }
+       } catch (...) { }
        return false;
 }