ardour/livetrax
13
0
Fork 0
Code

Fix hiding Lua __metatable -- prevent setmetatable() override

Browse Source
This commit is contained in:
Robin Gareus 2017-03-30 05:06:34 +02:00
parent 33b859a807
commit ea8c6e9fc8
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libs/ardour/globals.cc
View File

@ -84,6 +84,8 @@
#include "midi++/port.h"
#include "midi++/mmc.h"
#include "LuaBridge/LuaBridge.h"
#include "ardour/analyser.h"
#include "ardour/audio_library.h"
#include "ardour/audio_backend.h"
@ -423,6 +425,12 @@ ARDOUR::init (bool use_windows_vst, bool try_optimization, const char* localedir
return true;
}
#ifndef NDEBUG
if (getenv("LUA_METATABLES")) {
luabridge::Security::setHideMetatables (false);
}
#endif
if (!PBD::init()) return false;
#ifdef ENABLE_NLS

18
libs/lua/LuaBridge/detail/Namespace.h
View File

@ -363,7 +363,7 @@ private:
if (Security::hideMetatables ())
{
lua_pushnil (L);
lua_pushboolean (L, false);
rawsetfield (L, -2, "__metatable");
}
}
@ -400,7 +400,7 @@ private:
if (Security::hideMetatables ())
{
lua_pushnil (L);
lua_pushboolean (L, false);
rawsetfield (L, -2, "__metatable");
}
}
@ -442,7 +442,7 @@ private:
if (Security::hideMetatables ())
{
lua_pushnil (L);
lua_pushboolean (L, false);
rawsetfield (L, -2, "__metatable");
}
}
@ -1161,8 +1161,14 @@ private:
lua_setfield(L, -2, "__index");
lua_pushcclosure (L, CFunc::array_newindex<T>, 0);
lua_setfield(L, -2, "__newindex");
if (Security::hideMetatables ())
{
lua_pushboolean (L, false);
rawsetfield (L, -2, "__metatable");
}
lua_pop (L, 1);
createConstTable (name);
lua_pushcfunction (L, &CFunc::gcMetaMethod <T>);
rawsetfield (L, -2, "__gc");
@ -1532,6 +1538,12 @@ private:
lua_pushcfunction (L, &tostringMetaMethod);
rawsetfield (L, -2, "__tostring");
#endif
if (Security::hideMetatables ())
{
lua_pushboolean (L, false);
rawsetfield (L, -2, "__metatable");
}
}
}