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); }