protected static void AddMember(IntPtr ptr, string name, LuaCSFunction get, LuaCSFunction set, bool instance)
{
CheckMethodValid(get);
CheckMethodValid(set);
int t = instance ? -2 : -3;
LuaNativeMethods.lua_createtable(ptr, 2, 0);
if (get == null)
{
LuaNativeMethods.lua_pushnil(ptr);
}
else
{
PushValue(ptr, get);
}
LuaNativeMethods.lua_rawseti(ptr, -2, 1);
if (set == null)
{
LuaNativeMethods.lua_pushnil(ptr);
}
else
{
PushValue(ptr, set);
}
LuaNativeMethods.lua_rawseti(ptr, -2, 2);
LuaNativeMethods.lua_setfield(ptr, t, name);
}
public static int ToTable(IntPtr ptr, Array o)
{
if (o == null)
{
LuaNativeMethods.lua_pushnil(ptr);
return(1);
}
LuaNativeMethods.lua_createtable(ptr, o.Length, 0);
for (int n = 0; n < o.Length; n++)
{
LuaObject.PushVar(ptr, o.GetValue(n));
LuaNativeMethods.lua_rawseti(ptr, -2, n + 1);
}
return(1);
}
public void SetObject(int reference, int index, object o)
{
if (index >= 1)
{
LuaNativeMethods.lua_getref(statePointer, reference);
LuaObject.PushVar(statePointer, o);
LuaNativeMethods.lua_rawseti(statePointer, -2, index);
LuaNativeMethods.lua_pop(statePointer, 1);
}
else
{
LuaNativeMethods.lua_getref(statePointer, reference);
LuaNativeMethods.lua_pushinteger(statePointer, index);
LuaObject.PushVar(statePointer, o);
LuaNativeMethods.lua_settable(statePointer, -3);
LuaNativeMethods.lua_pop(statePointer, 1);
}
}
public static int Init(IntPtr ptr)
{
LuaNativeMethods.lua_pushlightuserdata(ptr, ptr);
LuaNativeMethods.lua_setglobal(ptr, "__main_state");
LuaNativeMethods.lua_pushcfunction(ptr, Print);
LuaNativeMethods.lua_setglobal(ptr, "print");
LuaNativeMethods.lua_pushcfunction(ptr, PrintError);
LuaNativeMethods.lua_setglobal(ptr, "printerror");
LuaNativeMethods.lua_pushcfunction(ptr, ProtectedCall);
LuaNativeMethods.lua_setglobal(ptr, "pcall");
PushCSFunction(ptr, Import);
LuaNativeMethods.lua_setglobal(ptr, "import");
string resumefunc = @"
local resume = coroutine.resume
local function check(co, ok, err, ...)
if not ok then UnityEngine.Debug.LogError(debug.traceback(co,err)) end
return ok, err, ...
end
coroutine.resume=function(co,...)
return check(co, resume(co,...))
end
";
// overload resume function for report error
LuaState.Get(ptr).DoString(resumefunc);
// https://github.com/pkulchenko/MobDebug/blob/master/src/mobdebug.lua#L290
// Dump only 3 stacks, or it will return null (I don't know why)
string dumpstackfunc = @"
local printerror=printerror
dumpstack=function()
function vars(f)
local dump = string.Emptystring.Empty
local func = debug.getinfo(f, string.Emptyfstring.Empty).func
local i = 1
local locals = {}
-- get locals
while true do
local name, value = debug.getlocal(f, i)
if not name then break end
if string.sub(name, 1, 1) ~= '(' then
dump = dump .. string.Empty string.Empty .. name .. string.Empty=string.Empty .. tostring(value) .. string.Empty\nstring.Empty
end
i = i + 1
end
-- get varargs (these use negative indices)
i = 1
while true do
local name, value = debug.getlocal(f, -i)
-- `not name` should be enough, but LuaJIT 2.0.0 incorrectly reports `(*temporary)` names here
if not name or name ~= string.Empty(*vararg)string.Empty then break end
dump = dump .. string.Empty string.Empty .. name .. string.Empty=string.Empty .. tostring(value) .. string.Empty\nstring.Empty
i = i + 1
end
-- get upvalues
i = 1
while func do -- check for func as it may be nil for tail calls
local name, value = debug.getupvalue(func, i)
if not name then break end
dump = dump .. string.Empty string.Empty .. name .. string.Empty=string.Empty .. tostring(value) .. string.Empty\nstring.Empty
i = i + 1
end
return dump
end
local dump = string.Emptystring.Empty
for i = 3, 100 do
local source = debug.getinfo(i, string.EmptySstring.Empty)
if not source then break end
dump = dump .. string.Empty- stackstring.Empty .. tostring(i-2) .. string.Empty\nstring.Empty
dump = dump .. vars(i+1)
if source.what == 'main' then break end
end
printerror(dump)
end
";
LuaState.Get(ptr).DoString(dumpstackfunc);
#if UNITY_ANDROID
// fix android performance drop with JIT on according to luajit mailist post
LuaState.get(ptr).doString("if jit then require('jit.opt').start('sizemcode=256','maxmcode=256') for i=1,1000 do end end");
#endif
PushCSFunction(ptr, DoFile);
LuaNativeMethods.lua_setglobal(ptr, "dofile");
PushCSFunction(ptr, LoadFile);
LuaNativeMethods.lua_setglobal(ptr, "loadfile");
PushCSFunction(ptr, Loader);
int loaderFunc = LuaNativeMethods.lua_gettop(ptr);
LuaNativeMethods.lua_getglobal(ptr, "package");
#if LUA_5_3
LuaNativeMethods.lua_getfield(ptr, -1, "searchers");
#else
LuaNativeMethods.lua_getfield(ptr, -1, "loaders");
#endif
int loaderTable = LuaNativeMethods.lua_gettop(ptr);
// Shift table elements right
for (int e = LuaNativeMethods.lua_rawlen(ptr, loaderTable) + 1; e > 2; e--)
{
LuaNativeMethods.lua_rawgeti(ptr, loaderTable, e - 1);
LuaNativeMethods.lua_rawseti(ptr, loaderTable, e);
}
LuaNativeMethods.lua_pushvalue(ptr, loaderFunc);
LuaNativeMethods.lua_rawseti(ptr, loaderTable, 2);
LuaNativeMethods.lua_settop(ptr, 0);
return(0);
}