Function LuaThreadedCall

src/auto4_lua.cpp:621–659

	}

	void LuaThreadedCall(lua_State *L, int nargs, int nresults, std::string const& title, wxWindow *parent, bool can_open_config)
	{
		bool failed = false;
		BackgroundScriptRunner bsr(parent, title);
		try {
			bsr.Run([&](ProgressSink *ps) {
				LuaProgressSink lps(L, ps, can_open_config);

				// Insert our error handler under the function to call
				lua_pushcclosure(L, add_stack_trace, 0);
				lua_insert(L, -nargs - 2);

				if (lua_pcall(L, nargs, nresults, -nargs - 2)) {
					if (!lua_isnil(L, -1)) {
						// if the call failed, log the error here
						ps->Log("\n\nLua reported a runtime error:\n");
						ps->Log(get_string_or_default(L, -1));
					}
					lua_pop(L, 2);
					failed = true;
				}
				else
					lua_remove(L, -nresults - 1);

				lua_gc(L, LUA_GCCOLLECT, 0);
			});
		} catch (agi::UserCancelException const&) {
			// A UserCancelException can be thrown by the background runner after
			// the above closure ran through.
			// Below, we want to throw our own UserCancelException when the script throws an error,
			// in which case we leave the stack empty. Hence, if the script did not throw an error,
			// we need to pop the return values here to also leave the stack empty.
			if (!failed)
				lua_pop(L, nresults);
			throw;
		}
		if (failed)
			throw agi::UserCancelException("Script threw an error");
	}

	// LuaFeature
	void LuaFeature::RegisterFeature()