internal int DoTraceback(LuaState state)
{
// if err is not a string, just pass it on (the stack is local to the function)
// I spent a solid hour of debugging non stop only to fix the issue with this one line
// (the issue was that nlua would throw exception objects and this thing would inappropriately
// stringify them btw, if you're interested)
if (!LuaLib.LuaIsString(state, -1))
{
return(LuaLib.LuaGetTop(state));
}
var error = LuaLib.LuaToString(state, -1);
LuaLib.LuaPop(state, 1);
LuaLib.LuaNewTable(state); // t
LuaLib.LuaPushString(state, "__etgmod_error");
LuaLib.LuaPushBoolean(state, true);
LuaLib.LuaSetTable(state, -3);
LuaLib.LuaPushString(state, "msg"); // k
LuaLib.LuaPushString(state, error); // v
LuaLib.LuaSetTable(state, -3); // t[k] = v
LuaLib.LuaPushString(state, "traceback"); // k
LuaLib.LuaLTraceback(state, state, null, 0); // v
LuaLib.LuaSetTable(state, -3); // t[k] = v
return(1); // t is left
}
/*
* Creates a new table as a global variable or as a field
* inside an existing table
*/
public void NewTable(string fullPath)
{
string [] path = FullPathToArray(fullPath);
int oldTop = LuaLib.LuaGetTop(luaState);
if (path.Length == 1)
{
LuaLib.LuaNewTable(luaState);
LuaLib.LuaSetGlobal(luaState, fullPath);
}
else
{
LuaLib.LuaGetGlobal(luaState, path [0]);
for (int i = 1; i < path.Length - 1; i++)
{
LuaLib.LuaPushString(luaState, path [i]);
LuaLib.LuaGetTable(luaState, -2);
}
LuaLib.LuaPushString(luaState, path [path.Length - 1]);
LuaLib.LuaNewTable(luaState);
LuaLib.LuaSetTable(luaState, -3);
}
LuaLib.LuaSetTop(luaState, oldTop);
}
public void PushDictionaryAsTable <A, B>(LuaState luaState, Dictionary <A, B> dict)
{
LuaLib.LuaNewTable(luaState); //-0 +1
foreach (var kv in dict)
{
Push(luaState, kv.Key); //-0 +1
Push(luaState, kv.Value); //-0 +1
LuaLib.LuaSetTable(luaState, -3); //-0 +1
}
}
/*
* Creates a new table
*/
public LuaTable NewTable()
{
int oldTop = LuaLib.LuaGetTop(luaState);
LuaLib.LuaNewTable(luaState);
var table = (LuaTable)Pop();
LuaLib.LuaSetTop(luaState, oldTop);
return(table);
}
/*
* Sets up the list of objects in the Lua side
*/
private void CreateLuaObjectList(LuaState luaState)
{
LuaLib.LuaPushString(luaState, "luaNet_objects");
LuaLib.LuaNewTable(luaState);
LuaLib.LuaNewTable(luaState);
LuaLib.LuaPushString(luaState, "__mode");
LuaLib.LuaPushString(luaState, "v");
LuaLib.LuaSetTable(luaState, -3);
LuaLib.LuaSetMetatable(luaState, -2);
LuaLib.LuaSetTable(luaState, (int)LuaIndexes.Registry);
}
public static LuaTable NewTable(this Lua lua)
{
var L = lua.LuaState;
int oldTop = LuaLib.LuaGetTop(L);
LuaLib.LuaNewTable(L);
LuaTable returnVal = (LuaTable)lua.Translator.GetObject(L, -1);
LuaLib.LuaSetTop(L,oldTop);
return returnVal;
}
/*
* Pushes a new object into the Lua stack with the provided
* metatable
*/
private void PushNewObject(LuaState luaState, object o, int index, string metatable)
{
if (metatable == "luaNet_metatable")
{
string assemblyQualifiedName = CacheReflection.GetAssemblyQualifiedName(o.GetType());
// Gets or creates the metatable for the object's type
LuaLib.LuaLGetMetatable(luaState, assemblyQualifiedName);
if (LuaLib.LuaIsNil(luaState, -1))
{
LuaLib.LuaSetTop(luaState, -2);
LuaLib.LuaLNewMetatable(luaState, assemblyQualifiedName);
LuaLib.LuaPushString(luaState, "cache");
LuaLib.LuaNewTable(luaState);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushLightUserData(luaState, LuaLib.LuaNetGetTag());
LuaLib.LuaPushNumber(luaState, 1);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__index");
LuaLib.LuaPushString(luaState, "luaNet_indexfunction");
LuaLib.LuaRawGet(luaState, (int)LuaIndexes.Registry);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__gc");
LuaLib.LuaPushStdCallCFunction(luaState, metaFunctions.GcFunction);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__tostring");
LuaLib.LuaPushStdCallCFunction(luaState, metaFunctions.ToStringFunction);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__newindex");
LuaLib.LuaPushStdCallCFunction(luaState, metaFunctions.NewIndexFunction);
LuaLib.LuaRawSet(luaState, -3);
// Bind C# operator with Lua metamethods (__add, __sub, __mul)
RegisterOperatorsFunctions(luaState, o.GetType());
RegisterCallMethodForDelegate(luaState, o);
}
}
else
{
LuaLib.LuaLGetMetatable(luaState, metatable);
}
// Stores the object index in the Lua list and pushes the
// index into the Lua stack
LuaLib.LuaLGetMetatable(luaState, "luaNet_objects");
LuaLib.LuaNetNewUData(luaState, index);
LuaLib.LuaPushValue(luaState, -3);
LuaLib.LuaRemove(luaState, -4);
LuaLib.LuaSetMetatable(luaState, -2);
LuaLib.LuaPushValue(luaState, -1);
LuaLib.LuaRawSetI(luaState, -3, index);
LuaLib.LuaRemove(luaState, -2);
}
private int RegisterTableInternal(LuaState luaState)
{
if (LuaLib.LuaType(luaState, 1) == LuaTypes.Table)
{
var luaTable = GetTable(luaState, 1);
string superclassName = LuaLib.LuaToString(luaState, 2).ToString();
if (superclassName != null)
{
var klass = FindType(superclassName);
if (klass != null)
{
// Creates and pushes the object in the stack, setting
// it as the metatable of the first argument
object obj = CodeGeneration.Instance.GetClassInstance(klass, luaTable);
PushObject(luaState, obj, "luaNet_metatable");
LuaLib.LuaNewTable(luaState);
LuaLib.LuaPushString(luaState, "__index");
LuaLib.LuaPushValue(luaState, -3);
LuaLib.LuaSetTable(luaState, -3);
LuaLib.LuaPushString(luaState, "__newindex");
LuaLib.LuaPushValue(luaState, -3);
LuaLib.LuaSetTable(luaState, -3);
LuaLib.LuaSetMetatable(luaState, 1);
// Pushes the object again, this time as the base field
// of the table and with the luaNet_searchbase metatable
LuaLib.LuaPushString(luaState, "base");
int index = AddObject(obj);
PushNewObject(luaState, obj, index, "luaNet_searchbase");
LuaLib.LuaRawSet(luaState, 1);
}
else
{
ThrowError(luaState, "register_table: can not find superclass '" + superclassName + "'");
}
}
else
{
ThrowError(luaState, "register_table: superclass name can not be null");
}
}
else
{
ThrowError(luaState, "register_table: first arg is not a table");
}
return(0);
}
/*
* Pushes a new object into the Lua stack with the provided
* metatable
*/
private void PushNewObject(LuaState luaState, object o, int index, string metatable)
{
if (metatable == "luaNet_metatable")
{
// Gets or creates the metatable for the object's type
LuaLib.LuaLGetMetatable(luaState, o.GetType().AssemblyQualifiedName);
if (LuaLib.LuaIsNil(luaState, -1))
{
LuaLib.LuaSetTop(luaState, -2);
LuaLib.LuaLNewMetatable(luaState, o.GetType().AssemblyQualifiedName);
LuaLib.LuaPushString(luaState, "cache");
LuaLib.LuaNewTable(luaState);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushLightUserData(luaState, LuaLib.LuaNetGetTag());
LuaLib.LuaPushNumber(luaState, 1);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__index");
LuaLib.LuaPushString(luaState, "luaNet_indexfunction");
LuaLib.LuaRawGet(luaState, (int)LuaIndexes.Registry);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__gc");
LuaLib.LuaPushStdCallCFunction(luaState, metaFunctions.gcFunction);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__tostring");
LuaLib.LuaPushStdCallCFunction(luaState, metaFunctions.toStringFunction);
LuaLib.LuaRawSet(luaState, -3);
LuaLib.LuaPushString(luaState, "__newindex");
LuaLib.LuaPushStdCallCFunction(luaState, metaFunctions.newindexFunction);
LuaLib.LuaRawSet(luaState, -3);
}
}
else
{
LuaLib.LuaLGetMetatable(luaState, metatable);
}
// Stores the object index in the Lua list and pushes the
// index into the Lua stack
LuaLib.LuaLGetMetatable(luaState, "luaNet_objects");
LuaLib.LuaNetNewUData(luaState, index);
LuaLib.LuaPushValue(luaState, -3);
LuaLib.LuaRemove(luaState, -4);
LuaLib.LuaSetMetatable(luaState, -2);
LuaLib.LuaPushValue(luaState, -1);
LuaLib.LuaRawSetI(luaState, -3, index);
LuaLib.LuaRemove(luaState, -2);
}
void Init()
{
LuaLib.LuaPushString(luaState, "LUAINTERFACE LOADED");
LuaLib.LuaPushBoolean(luaState, true);
LuaLib.LuaSetTable(luaState, (int)LuaIndexes.Registry);
if (_StatePassed == false)
{
LuaLib.LuaNewTable(luaState);
LuaLib.LuaSetGlobal(luaState, "luanet");
}
LuaLib.LuaNetPushGlobalTable(luaState);
LuaLib.LuaGetGlobal(luaState, "luanet");
LuaLib.LuaPushString(luaState, "getmetatable");
LuaLib.LuaGetGlobal(luaState, "getmetatable");
LuaLib.LuaSetTable(luaState, -3);
LuaLib.LuaNetPopGlobalTable(luaState);
translator = new ObjectTranslator(this, luaState);
ObjectTranslatorPool.Instance.Add(luaState, translator);
LuaLib.LuaNetPopGlobalTable(luaState);
}
