mirror of
https://github.com/tym1116/BH3.git
synced 2025-12-18 01:14:59 +01:00
573 lines
15 KiB
C#
573 lines
15 KiB
C#
using System;
|
|
using System.Collections.Generic;
|
|
using System.Collections.Specialized;
|
|
using System.Reflection;
|
|
using System.Text;
|
|
using UnityEngine;
|
|
|
|
namespace LuaInterface
|
|
{
|
|
public class LuaState : IDisposable
|
|
{
|
|
public IntPtr L;
|
|
|
|
internal LuaCSFunction tracebackFunction;
|
|
|
|
internal LuaCSFunction panicCallback;
|
|
|
|
internal LuaCSFunction printFunction;
|
|
|
|
internal LuaCSFunction loadfileFunction;
|
|
|
|
internal LuaCSFunction loaderFunction;
|
|
|
|
internal LuaCSFunction dofileFunction;
|
|
|
|
private readonly List<string> globals = new List<string>();
|
|
|
|
private bool globalsSorted;
|
|
|
|
public ObjectTranslator translator { get; internal set; }
|
|
|
|
public object this[string fullPath]
|
|
{
|
|
get
|
|
{
|
|
object obj = null;
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
string[] array = fullPath.Split('.');
|
|
LuaDLL.lua_getglobal(L, array[0]);
|
|
obj = translator.getObject(L, -1);
|
|
if (array.Length > 1)
|
|
{
|
|
string[] array2 = new string[array.Length - 1];
|
|
Array.Copy(array, 1, array2, 0, array.Length - 1);
|
|
obj = getObject(array2);
|
|
}
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return obj;
|
|
}
|
|
set
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
string[] array = fullPath.Split('.');
|
|
if (array.Length == 1)
|
|
{
|
|
translator.push(L, value);
|
|
LuaDLL.lua_setglobal(L, fullPath);
|
|
}
|
|
else
|
|
{
|
|
LuaDLL.lua_getglobal(L, array[0]);
|
|
string[] array2 = new string[array.Length - 1];
|
|
Array.Copy(array, 1, array2, 0, array.Length - 1);
|
|
setObject(array2, value);
|
|
}
|
|
LuaDLL.lua_settop(L, newTop);
|
|
if (value == null)
|
|
{
|
|
globals.Remove(fullPath);
|
|
}
|
|
else if (!globals.Contains(fullPath))
|
|
{
|
|
registerGlobal(fullPath, value.GetType(), 0);
|
|
}
|
|
}
|
|
}
|
|
|
|
public IEnumerable<string> Globals
|
|
{
|
|
get
|
|
{
|
|
if (!globalsSorted)
|
|
{
|
|
globals.Sort();
|
|
globalsSorted = true;
|
|
}
|
|
return globals;
|
|
}
|
|
}
|
|
|
|
public LuaState()
|
|
{
|
|
L = LuaDLL.luaL_newstate();
|
|
LuaDLL.luaL_openlibs(L);
|
|
LuaDLL.lua_pushstring(L, "LUAINTERFACE LOADED");
|
|
LuaDLL.lua_pushboolean(L, true);
|
|
LuaDLL.lua_settable(L, LuaIndexes.LUA_REGISTRYINDEX);
|
|
LuaDLL.lua_newtable(L);
|
|
LuaDLL.lua_setglobal(L, "luanet");
|
|
LuaDLL.lua_pushvalue(L, LuaIndexes.LUA_GLOBALSINDEX);
|
|
LuaDLL.lua_getglobal(L, "luanet");
|
|
LuaDLL.lua_pushstring(L, "getmetatable");
|
|
LuaDLL.lua_getglobal(L, "getmetatable");
|
|
LuaDLL.lua_settable(L, -3);
|
|
LuaDLL.lua_replace(L, LuaIndexes.LUA_GLOBALSINDEX);
|
|
translator = new ObjectTranslator(this, L);
|
|
LuaDLL.lua_replace(L, LuaIndexes.LUA_GLOBALSINDEX);
|
|
translator.PushTranslator(L);
|
|
tracebackFunction = LuaStatic.traceback;
|
|
panicCallback = LuaStatic.panic;
|
|
LuaDLL.lua_atpanic(L, panicCallback);
|
|
printFunction = LuaStatic.print;
|
|
LuaDLL.lua_pushstdcallcfunction(L, printFunction);
|
|
LuaDLL.lua_setfield(L, LuaIndexes.LUA_GLOBALSINDEX, "print");
|
|
loadfileFunction = LuaStatic.loadfile;
|
|
LuaDLL.lua_pushstdcallcfunction(L, loadfileFunction);
|
|
LuaDLL.lua_setfield(L, LuaIndexes.LUA_GLOBALSINDEX, "loadfile");
|
|
dofileFunction = LuaStatic.dofile;
|
|
LuaDLL.lua_pushstdcallcfunction(L, dofileFunction);
|
|
LuaDLL.lua_setfield(L, LuaIndexes.LUA_GLOBALSINDEX, "dofile");
|
|
loaderFunction = LuaStatic.loader;
|
|
LuaDLL.lua_pushstdcallcfunction(L, loaderFunction);
|
|
int index = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_getfield(L, LuaIndexes.LUA_GLOBALSINDEX, "package");
|
|
LuaDLL.lua_getfield(L, -1, "loaders");
|
|
int num = LuaDLL.lua_gettop(L);
|
|
for (int num2 = LuaDLL.luaL_getn(L, num) + 1; num2 > 1; num2--)
|
|
{
|
|
LuaDLL.lua_rawgeti(L, num, num2 - 1);
|
|
LuaDLL.lua_rawseti(L, num, num2);
|
|
}
|
|
LuaDLL.lua_pushvalue(L, index);
|
|
LuaDLL.lua_rawseti(L, num, 1);
|
|
LuaDLL.lua_settop(L, 0);
|
|
DoString(LuaStatic.init_luanet);
|
|
}
|
|
|
|
public void Close()
|
|
{
|
|
if (L != IntPtr.Zero)
|
|
{
|
|
LuaDLL.lua_close(L);
|
|
}
|
|
}
|
|
|
|
internal void ThrowExceptionFromError(int oldTop)
|
|
{
|
|
object obj = translator.getObject(L, -1);
|
|
LuaDLL.lua_settop(L, oldTop);
|
|
LuaScriptException ex = obj as LuaScriptException;
|
|
if (ex != null)
|
|
{
|
|
throw ex;
|
|
}
|
|
if (obj == null)
|
|
{
|
|
obj = "Unknown Lua Error";
|
|
}
|
|
throw new LuaScriptException(obj.ToString(), string.Empty);
|
|
}
|
|
|
|
internal int SetPendingException(Exception e)
|
|
{
|
|
if (e != null)
|
|
{
|
|
translator.throwError(L, e);
|
|
LuaDLL.lua_pushnil(L);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
public LuaFunction LoadString(string chunk, string name, LuaTable env)
|
|
{
|
|
int oldTop = LuaDLL.lua_gettop(L);
|
|
if (LuaDLL.luaL_loadbuffer(L, chunk, Encoding.UTF8.GetByteCount(chunk), name) != 0)
|
|
{
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
if (env != null)
|
|
{
|
|
env.push(L);
|
|
LuaDLL.lua_setfenv(L, -2);
|
|
}
|
|
LuaFunction function = translator.getFunction(L, -1);
|
|
translator.popValues(L, oldTop);
|
|
return function;
|
|
}
|
|
|
|
public LuaFunction LoadString(string chunk, string name)
|
|
{
|
|
return LoadString(chunk, name, null);
|
|
}
|
|
|
|
public LuaFunction LoadFile(string fileName)
|
|
{
|
|
int oldTop = LuaDLL.lua_gettop(L);
|
|
TextAsset textAsset = (TextAsset)Resources.Load(fileName);
|
|
if (textAsset == null)
|
|
{
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
if (LuaDLL.luaL_loadbuffer(L, textAsset.text, Encoding.UTF8.GetByteCount(textAsset.text), fileName) != 0)
|
|
{
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
LuaFunction function = translator.getFunction(L, -1);
|
|
translator.popValues(L, oldTop);
|
|
return function;
|
|
}
|
|
|
|
public object[] DoString(string chunk)
|
|
{
|
|
return DoString(chunk, "chunk", null);
|
|
}
|
|
|
|
public object[] DoString(string chunk, string chunkName, LuaTable env)
|
|
{
|
|
int oldTop = LuaDLL.lua_gettop(L);
|
|
if (LuaDLL.luaL_loadbuffer(L, chunk, Encoding.UTF8.GetByteCount(chunk), chunkName) == 0)
|
|
{
|
|
if (env != null)
|
|
{
|
|
env.push(L);
|
|
LuaDLL.lua_setfenv(L, -2);
|
|
}
|
|
if (LuaDLL.lua_pcall(L, 0, -1, 0) == 0)
|
|
{
|
|
return translator.popValues(L, oldTop);
|
|
}
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
else
|
|
{
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
return null;
|
|
}
|
|
|
|
public object[] DoFile(string fileName)
|
|
{
|
|
return DoFile(fileName, null);
|
|
}
|
|
|
|
public object[] DoFile(string fileName, LuaTable env)
|
|
{
|
|
LuaDLL.lua_pushstdcallcfunction(L, tracebackFunction);
|
|
int oldTop = LuaDLL.lua_gettop(L);
|
|
TextAsset textAsset = (TextAsset)Resources.Load(fileName);
|
|
if (textAsset == null)
|
|
{
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
if (LuaDLL.luaL_loadbuffer(L, textAsset.text, Encoding.UTF8.GetByteCount(textAsset.text), fileName) == 0)
|
|
{
|
|
if (env != null)
|
|
{
|
|
env.push(L);
|
|
LuaDLL.lua_setfenv(L, -2);
|
|
}
|
|
if (LuaDLL.lua_pcall(L, 0, -1, -2) == 0)
|
|
{
|
|
object[] result = translator.popValues(L, oldTop);
|
|
LuaDLL.lua_pop(L, 1);
|
|
return result;
|
|
}
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
else
|
|
{
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
return null;
|
|
}
|
|
|
|
private void registerGlobal(string path, Type type, int recursionCounter)
|
|
{
|
|
if (type == typeof(LuaCSFunction))
|
|
{
|
|
globals.Add(path + "(");
|
|
}
|
|
else if ((type.IsClass || type.IsInterface) && type != typeof(string) && recursionCounter < 2)
|
|
{
|
|
MethodInfo[] methods = type.GetMethods(BindingFlags.Instance | BindingFlags.Public);
|
|
foreach (MethodInfo methodInfo in methods)
|
|
{
|
|
if (methodInfo.GetCustomAttributes(typeof(LuaHideAttribute), false).Length == 0 && methodInfo.GetCustomAttributes(typeof(LuaGlobalAttribute), false).Length == 0 && methodInfo.Name != "GetType" && methodInfo.Name != "GetHashCode" && methodInfo.Name != "Equals" && methodInfo.Name != "ToString" && methodInfo.Name != "Clone" && methodInfo.Name != "Dispose" && methodInfo.Name != "GetEnumerator" && methodInfo.Name != "CopyTo" && !methodInfo.Name.StartsWith("get_", StringComparison.Ordinal) && !methodInfo.Name.StartsWith("set_", StringComparison.Ordinal) && !methodInfo.Name.StartsWith("add_", StringComparison.Ordinal) && !methodInfo.Name.StartsWith("remove_", StringComparison.Ordinal))
|
|
{
|
|
string text = path + ":" + methodInfo.Name + "(";
|
|
if (methodInfo.GetParameters().Length == 0)
|
|
{
|
|
text += ")";
|
|
}
|
|
globals.Add(text);
|
|
}
|
|
}
|
|
FieldInfo[] fields = type.GetFields(BindingFlags.Instance | BindingFlags.Public);
|
|
foreach (FieldInfo fieldInfo in fields)
|
|
{
|
|
if (fieldInfo.GetCustomAttributes(typeof(LuaHideAttribute), false).Length == 0 && fieldInfo.GetCustomAttributes(typeof(LuaGlobalAttribute), false).Length == 0)
|
|
{
|
|
registerGlobal(path + "." + fieldInfo.Name, fieldInfo.FieldType, recursionCounter + 1);
|
|
}
|
|
}
|
|
PropertyInfo[] properties = type.GetProperties(BindingFlags.Instance | BindingFlags.Public);
|
|
foreach (PropertyInfo propertyInfo in properties)
|
|
{
|
|
if (propertyInfo.GetCustomAttributes(typeof(LuaHideAttribute), false).Length == 0 && propertyInfo.GetCustomAttributes(typeof(LuaGlobalAttribute), false).Length == 0 && propertyInfo.Name != "Item")
|
|
{
|
|
registerGlobal(path + "." + propertyInfo.Name, propertyInfo.PropertyType, recursionCounter + 1);
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
globals.Add(path);
|
|
}
|
|
globalsSorted = false;
|
|
}
|
|
|
|
internal object getObject(string[] remainingPath)
|
|
{
|
|
object obj = null;
|
|
for (int i = 0; i < remainingPath.Length; i++)
|
|
{
|
|
LuaDLL.lua_pushstring(L, remainingPath[i]);
|
|
LuaDLL.lua_gettable(L, -2);
|
|
obj = translator.getObject(L, -1);
|
|
if (obj == null)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
return obj;
|
|
}
|
|
|
|
public double GetNumber(string fullPath)
|
|
{
|
|
return (double)this[fullPath];
|
|
}
|
|
|
|
public string GetString(string fullPath)
|
|
{
|
|
return (string)this[fullPath];
|
|
}
|
|
|
|
public LuaTable GetTable(string fullPath)
|
|
{
|
|
return (LuaTable)this[fullPath];
|
|
}
|
|
|
|
public object GetTable(Type interfaceType, string fullPath)
|
|
{
|
|
translator.throwError(L, "Tables as interfaces not implemnented");
|
|
return CodeGeneration.Instance.GetClassInstance(interfaceType, GetTable(fullPath));
|
|
}
|
|
|
|
public LuaFunction GetFunction(string fullPath)
|
|
{
|
|
object obj = this[fullPath];
|
|
return (!(obj is LuaCSFunction)) ? ((LuaFunction)obj) : new LuaFunction((LuaCSFunction)obj, this);
|
|
}
|
|
|
|
public Delegate GetFunction(Type delegateType, string fullPath)
|
|
{
|
|
return CodeGeneration.Instance.GetDelegate(delegateType, GetFunction(fullPath));
|
|
}
|
|
|
|
internal object[] callFunction(object function, object[] args)
|
|
{
|
|
return callFunction(function, args, null);
|
|
}
|
|
|
|
internal object[] callFunction(object function, object[] args, Type[] returnTypes)
|
|
{
|
|
int nArgs = 0;
|
|
int oldTop = LuaDLL.lua_gettop(L);
|
|
if (!LuaDLL.lua_checkstack(L, args.Length + 6))
|
|
{
|
|
throw new LuaException("Lua stack overflow");
|
|
}
|
|
translator.push(L, function);
|
|
if (args != null)
|
|
{
|
|
nArgs = args.Length;
|
|
for (int i = 0; i < args.Length; i++)
|
|
{
|
|
translator.push(L, args[i]);
|
|
}
|
|
}
|
|
if (LuaDLL.lua_pcall(L, nArgs, -1, 0) != 0)
|
|
{
|
|
ThrowExceptionFromError(oldTop);
|
|
}
|
|
if (returnTypes != null)
|
|
{
|
|
return translator.popValues(L, oldTop, returnTypes);
|
|
}
|
|
return translator.popValues(L, oldTop);
|
|
}
|
|
|
|
internal void setObject(string[] remainingPath, object val)
|
|
{
|
|
for (int i = 0; i < remainingPath.Length - 1; i++)
|
|
{
|
|
LuaDLL.lua_pushstring(L, remainingPath[i]);
|
|
LuaDLL.lua_gettable(L, -2);
|
|
}
|
|
LuaDLL.lua_pushstring(L, remainingPath[remainingPath.Length - 1]);
|
|
translator.push(L, val);
|
|
LuaDLL.lua_settable(L, -3);
|
|
}
|
|
|
|
public void NewTable(string fullPath)
|
|
{
|
|
string[] array = fullPath.Split('.');
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
if (array.Length == 1)
|
|
{
|
|
LuaDLL.lua_newtable(L);
|
|
LuaDLL.lua_setglobal(L, fullPath);
|
|
}
|
|
else
|
|
{
|
|
LuaDLL.lua_getglobal(L, array[0]);
|
|
for (int i = 1; i < array.Length - 1; i++)
|
|
{
|
|
LuaDLL.lua_pushstring(L, array[i]);
|
|
LuaDLL.lua_gettable(L, -2);
|
|
}
|
|
LuaDLL.lua_pushstring(L, array[array.Length - 1]);
|
|
LuaDLL.lua_newtable(L);
|
|
LuaDLL.lua_settable(L, -3);
|
|
}
|
|
LuaDLL.lua_settop(L, newTop);
|
|
}
|
|
|
|
public LuaTable NewTable()
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_newtable(L);
|
|
LuaTable result = (LuaTable)translator.getObject(L, -1);
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return result;
|
|
}
|
|
|
|
public ListDictionary GetTableDict(LuaTable table)
|
|
{
|
|
ListDictionary listDictionary = new ListDictionary();
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
translator.push(L, table);
|
|
LuaDLL.lua_pushnil(L);
|
|
while (LuaDLL.lua_next(L, -2) != 0)
|
|
{
|
|
listDictionary[translator.getObject(L, -2)] = translator.getObject(L, -1);
|
|
LuaDLL.lua_settop(L, -2);
|
|
}
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return listDictionary;
|
|
}
|
|
|
|
internal void dispose(int reference)
|
|
{
|
|
if (L != IntPtr.Zero)
|
|
{
|
|
LuaDLL.lua_unref(L, reference);
|
|
}
|
|
}
|
|
|
|
internal object rawGetObject(int reference, string field)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_getref(L, reference);
|
|
LuaDLL.lua_pushstring(L, field);
|
|
LuaDLL.lua_rawget(L, -2);
|
|
object result = translator.getObject(L, -1);
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return result;
|
|
}
|
|
|
|
internal object getObject(int reference, string field)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_getref(L, reference);
|
|
object result = getObject(field.Split('.'));
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return result;
|
|
}
|
|
|
|
internal object getObject(int reference, object field)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_getref(L, reference);
|
|
translator.push(L, field);
|
|
LuaDLL.lua_gettable(L, -2);
|
|
object result = translator.getObject(L, -1);
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return result;
|
|
}
|
|
|
|
internal void setObject(int reference, string field, object val)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_getref(L, reference);
|
|
setObject(field.Split('.'), val);
|
|
LuaDLL.lua_settop(L, newTop);
|
|
}
|
|
|
|
internal void setObject(int reference, object field, object val)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_getref(L, reference);
|
|
translator.push(L, field);
|
|
translator.push(L, val);
|
|
LuaDLL.lua_settable(L, -3);
|
|
LuaDLL.lua_settop(L, newTop);
|
|
}
|
|
|
|
public LuaFunction RegisterFunction(string path, object target, MethodBase function)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaMethodWrapper luaMethodWrapper = new LuaMethodWrapper(translator, target, function.DeclaringType, function);
|
|
translator.push(L, new LuaCSFunction(luaMethodWrapper.call));
|
|
this[path] = translator.getObject(L, -1);
|
|
LuaFunction function2 = GetFunction(path);
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return function2;
|
|
}
|
|
|
|
public LuaFunction CreateFunction(object target, MethodBase function)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaMethodWrapper luaMethodWrapper = new LuaMethodWrapper(translator, target, function.DeclaringType, function);
|
|
translator.push(L, new LuaCSFunction(luaMethodWrapper.call));
|
|
object obj = translator.getObject(L, -1);
|
|
LuaFunction result = ((!(obj is LuaCSFunction)) ? ((LuaFunction)obj) : new LuaFunction((LuaCSFunction)obj, this));
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return result;
|
|
}
|
|
|
|
internal bool compareRef(int ref1, int ref2)
|
|
{
|
|
int newTop = LuaDLL.lua_gettop(L);
|
|
LuaDLL.lua_getref(L, ref1);
|
|
LuaDLL.lua_getref(L, ref2);
|
|
int num = LuaDLL.lua_equal(L, -1, -2);
|
|
LuaDLL.lua_settop(L, newTop);
|
|
return num != 0;
|
|
}
|
|
|
|
internal void pushCSFunction(LuaCSFunction function)
|
|
{
|
|
translator.pushFunction(L, function);
|
|
}
|
|
|
|
public void Dispose()
|
|
{
|
|
Dispose(true);
|
|
GC.Collect();
|
|
GC.WaitForPendingFinalizers();
|
|
}
|
|
|
|
public virtual void Dispose(bool dispose)
|
|
{
|
|
if (dispose && translator != null)
|
|
{
|
|
translator.pendingEvents.Dispose();
|
|
translator = null;
|
|
}
|
|
}
|
|
}
|
|
}
|