using System;
using System.Collections;
using System.Collections.Generic;
using System.Reflection;
using System.Runtime.InteropServices;

namespace LuaInterface
{
	public class MetaFunctions
	{
		internal static string luaIndexFunction = "\n        local function index(obj,name)\n        local meta=getmetatable(obj)\n        local cached=meta.cache[name]\n        if cached then\n           return cached\n        else\n           local value,isFunc = get_object_member(obj,name)\n           if value==nil and type(isFunc)=='string' then error(isFunc,2) end\n           if isFunc then\n            meta.cache[name]=value\n           end\n           return value\n         end\n    end\n    return index";

		private ObjectTranslator translator;

		private Hashtable memberCache = new Hashtable();

		internal LuaCSFunction gcFunction;

		internal LuaCSFunction indexFunction;

		internal LuaCSFunction newindexFunction;

		internal LuaCSFunction baseIndexFunction;

		internal LuaCSFunction classIndexFunction;

		internal LuaCSFunction classNewindexFunction;

		internal LuaCSFunction execDelegateFunction;

		internal LuaCSFunction callConstructorFunction;

		internal LuaCSFunction toStringFunction;

		public MetaFunctions(ObjectTranslator translator)
		{
			this.translator = translator;
			gcFunction = collectObject;
			toStringFunction = toString;
			indexFunction = getMethod;
			newindexFunction = setFieldOrProperty;
			baseIndexFunction = getBaseMethod;
			callConstructorFunction = callConstructor;
			classIndexFunction = getClassMethod;
			classNewindexFunction = setClassFieldOrProperty;
			execDelegateFunction = runFunctionDelegate;
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int runFunctionDelegate(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			LuaCSFunction luaCSFunction = (LuaCSFunction)objectTranslator.getRawNetObject(luaState, 1);
			LuaDLL.lua_remove(luaState, 1);
			return luaCSFunction(luaState);
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int collectObject(IntPtr luaState)
		{
			int num = LuaDLL.luanet_rawnetobj(luaState, 1);
			if (num != -1)
			{
				ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
				objectTranslator.collectObject(num);
			}
			return 0;
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int toString(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			object rawNetObject = objectTranslator.getRawNetObject(luaState, 1);
			if (rawNetObject != null)
			{
				objectTranslator.push(luaState, rawNetObject.ToString() + ": " + rawNetObject.GetHashCode());
			}
			else
			{
				LuaDLL.lua_pushnil(luaState);
			}
			return 1;
		}

		public static void dumpStack(ObjectTranslator translator, IntPtr luaState)
		{
			int num = LuaDLL.lua_gettop(luaState);
			for (int i = 1; i <= num; i++)
			{
				LuaTypes luaTypes = LuaDLL.lua_type(luaState, i);
				string text = ((luaTypes != LuaTypes.LUA_TTABLE) ? LuaDLL.lua_typename(luaState, luaTypes) : "table");
				string text2 = LuaDLL.lua_tostring(luaState, i);
				if (luaTypes == LuaTypes.LUA_TUSERDATA)
				{
					object rawNetObject = translator.getRawNetObject(luaState, i);
					text2 = rawNetObject.ToString();
				}
			}
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int getMethod(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			object rawNetObject = objectTranslator.getRawNetObject(luaState, 1);
			if (rawNetObject == null)
			{
				objectTranslator.throwError(luaState, "trying to index an invalid object reference");
				LuaDLL.lua_pushnil(luaState);
				return 1;
			}
			object obj = objectTranslator.getObject(luaState, 2);
			string text = obj as string;
			Type type = rawNetObject.GetType();
			try
			{
				if (text != null && objectTranslator.metaFunctions.isMemberPresent(type, text))
				{
					return objectTranslator.metaFunctions.getMember(luaState, type, rawNetObject, text, BindingFlags.IgnoreCase | BindingFlags.Instance);
				}
			}
			catch
			{
			}
			bool flag = true;
			if (type.IsArray && obj is double)
			{
				int num = (int)(double)obj;
				Array array = rawNetObject as Array;
				if (num >= array.Length)
				{
					return objectTranslator.pushError(luaState, "array index out of bounds: " + num + " " + array.Length);
				}
				object value = array.GetValue(num);
				objectTranslator.push(luaState, value);
				flag = false;
			}
			else
			{
				MethodInfo[] methods = type.GetMethods();
				MethodInfo[] array2 = methods;
				foreach (MethodInfo methodInfo in array2)
				{
					if (!(methodInfo.Name == "get_Item") || methodInfo.GetParameters().Length != 1)
					{
						continue;
					}
					MethodInfo methodInfo2 = methodInfo;
					ParameterInfo[] array3 = ((methodInfo2 == null) ? null : methodInfo2.GetParameters());
					if (array3 == null || array3.Length != 1)
					{
						return objectTranslator.pushError(luaState, "method not found (or no indexer): " + obj);
					}
					obj = objectTranslator.getAsType(luaState, 2, array3[0].ParameterType);
					try
					{
						object o = methodInfo2.Invoke(rawNetObject, new object[1] { obj });
						objectTranslator.push(luaState, o);
						flag = false;
					}
					catch (TargetInvocationException ex)
					{
						if (ex.InnerException is KeyNotFoundException)
						{
							return objectTranslator.pushError(luaState, string.Concat("key '", obj, "' not found "));
						}
						return objectTranslator.pushError(luaState, string.Concat("exception indexing '", obj, "' ", ex.Message));
					}
				}
			}
			if (flag)
			{
				return objectTranslator.pushError(luaState, "cannot find " + obj);
			}
			LuaDLL.lua_pushboolean(luaState, false);
			return 2;
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int getBaseMethod(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			object rawNetObject = objectTranslator.getRawNetObject(luaState, 1);
			if (rawNetObject == null)
			{
				objectTranslator.throwError(luaState, "trying to index an invalid object reference");
				LuaDLL.lua_pushnil(luaState);
				LuaDLL.lua_pushboolean(luaState, false);
				return 2;
			}
			string text = LuaDLL.lua_tostring(luaState, 2);
			if (text == null)
			{
				LuaDLL.lua_pushnil(luaState);
				LuaDLL.lua_pushboolean(luaState, false);
				return 2;
			}
			objectTranslator.metaFunctions.getMember(luaState, rawNetObject.GetType(), rawNetObject, "__luaInterface_base_" + text, BindingFlags.IgnoreCase | BindingFlags.Instance);
			LuaDLL.lua_settop(luaState, -2);
			if (LuaDLL.lua_type(luaState, -1) == LuaTypes.LUA_TNIL)
			{
				LuaDLL.lua_settop(luaState, -2);
				return objectTranslator.metaFunctions.getMember(luaState, rawNetObject.GetType(), rawNetObject, text, BindingFlags.IgnoreCase | BindingFlags.Instance);
			}
			LuaDLL.lua_pushboolean(luaState, false);
			return 2;
		}

		private bool isMemberPresent(IReflect objType, string methodName)
		{
			object obj = checkMemberCache(memberCache, objType, methodName);
			if (obj != null)
			{
				return true;
			}
			MemberInfo[] member = objType.GetMember(methodName, BindingFlags.IgnoreCase | BindingFlags.Instance | BindingFlags.Static | BindingFlags.Public);
			return member.Length > 0;
		}

		private int getMember(IntPtr luaState, IReflect objType, object obj, string methodName, BindingFlags bindingType)
		{
			bool flag = false;
			MemberInfo memberInfo = null;
			object obj2 = checkMemberCache(memberCache, objType, methodName);
			if (obj2 is LuaCSFunction)
			{
				translator.pushFunction(luaState, (LuaCSFunction)obj2);
				translator.push(luaState, true);
				return 2;
			}
			if (obj2 != null)
			{
				memberInfo = (MemberInfo)obj2;
			}
			else
			{
				MemberInfo[] member = objType.GetMember(methodName, bindingType | BindingFlags.Public | BindingFlags.IgnoreCase);
				if (member.Length > 0)
				{
					memberInfo = member[0];
				}
				else
				{
					member = objType.GetMember(methodName, bindingType | BindingFlags.Static | BindingFlags.Public | BindingFlags.IgnoreCase);
					if (member.Length > 0)
					{
						memberInfo = member[0];
						flag = true;
					}
				}
			}
			if (memberInfo != null)
			{
				if (memberInfo.MemberType == MemberTypes.Field)
				{
					FieldInfo fieldInfo = (FieldInfo)memberInfo;
					if (obj2 == null)
					{
						setMemberCache(memberCache, objType, methodName, memberInfo);
					}
					try
					{
						translator.push(luaState, fieldInfo.GetValue(obj));
					}
					catch
					{
						LuaDLL.lua_pushnil(luaState);
					}
				}
				else if (memberInfo.MemberType == MemberTypes.Property)
				{
					PropertyInfo propertyInfo = (PropertyInfo)memberInfo;
					if (obj2 == null)
					{
						setMemberCache(memberCache, objType, methodName, memberInfo);
					}
					try
					{
						object value = propertyInfo.GetValue(obj, null);
						translator.push(luaState, value);
					}
					catch (ArgumentException)
					{
						if (objType is Type && (Type)objType != typeof(object))
						{
							return getMember(luaState, ((Type)objType).BaseType, obj, methodName, bindingType);
						}
						LuaDLL.lua_pushnil(luaState);
					}
					catch (TargetInvocationException e)
					{
						ThrowError(luaState, e);
						LuaDLL.lua_pushnil(luaState);
					}
				}
				else if (memberInfo.MemberType == MemberTypes.Event)
				{
					EventInfo eventInfo = (EventInfo)memberInfo;
					if (obj2 == null)
					{
						setMemberCache(memberCache, objType, methodName, memberInfo);
					}
					translator.push(luaState, new RegisterEventHandler(translator.pendingEvents, obj, eventInfo));
				}
				else if (!flag)
				{
					if (memberInfo.MemberType != MemberTypes.NestedType)
					{
						LuaCSFunction luaCSFunction = new LuaMethodWrapper(translator, objType, methodName, bindingType).call;
						if (obj2 == null)
						{
							setMemberCache(memberCache, objType, methodName, luaCSFunction);
						}
						translator.pushFunction(luaState, luaCSFunction);
						translator.push(luaState, true);
						return 2;
					}
					if (obj2 == null)
					{
						setMemberCache(memberCache, objType, methodName, memberInfo);
					}
					string name = memberInfo.Name;
					Type declaringType = memberInfo.DeclaringType;
					string className = declaringType.FullName + "+" + name;
					Type t = translator.FindType(className);
					translator.pushType(luaState, t);
				}
				else
				{
					translator.throwError(luaState, "can't pass instance to static method " + methodName);
					LuaDLL.lua_pushnil(luaState);
				}
			}
			else
			{
				translator.throwError(luaState, "unknown member name " + methodName);
				LuaDLL.lua_pushnil(luaState);
			}
			translator.push(luaState, false);
			return 2;
		}

		private object checkMemberCache(Hashtable memberCache, IReflect objType, string memberName)
		{
			Hashtable hashtable = (Hashtable)memberCache[objType];
			if (hashtable != null)
			{
				return hashtable[memberName];
			}
			return null;
		}

		private void setMemberCache(Hashtable memberCache, IReflect objType, string memberName, object member)
		{
			Hashtable hashtable = (Hashtable)memberCache[objType];
			if (hashtable == null)
			{
				hashtable = (Hashtable)(memberCache[objType] = new Hashtable());
			}
			hashtable[memberName] = member;
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int setFieldOrProperty(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			object rawNetObject = objectTranslator.getRawNetObject(luaState, 1);
			if (rawNetObject == null)
			{
				objectTranslator.throwError(luaState, "trying to index and invalid object reference");
				return 0;
			}
			Type type = rawNetObject.GetType();
			string detailMessage;
			if (objectTranslator.metaFunctions.trySetMember(luaState, type, rawNetObject, BindingFlags.IgnoreCase | BindingFlags.Instance, out detailMessage))
			{
				return 0;
			}
			try
			{
				if (type.IsArray && LuaDLL.lua_isnumber(luaState, 2))
				{
					int index = (int)LuaDLL.lua_tonumber(luaState, 2);
					Array array = (Array)rawNetObject;
					object asType = objectTranslator.getAsType(luaState, 3, array.GetType().GetElementType());
					array.SetValue(asType, index);
				}
				else
				{
					MethodInfo method = type.GetMethod("set_Item");
					if (method != null)
					{
						ParameterInfo[] parameters = method.GetParameters();
						Type parameterType = parameters[1].ParameterType;
						object asType2 = objectTranslator.getAsType(luaState, 3, parameterType);
						Type parameterType2 = parameters[0].ParameterType;
						object asType3 = objectTranslator.getAsType(luaState, 2, parameterType2);
						method.Invoke(rawNetObject, new object[2] { asType3, asType2 });
					}
					else
					{
						objectTranslator.throwError(luaState, detailMessage);
					}
				}
			}
			catch (SEHException)
			{
				throw;
			}
			catch (Exception e)
			{
				objectTranslator.metaFunctions.ThrowError(luaState, e);
			}
			return 0;
		}

		private bool trySetMember(IntPtr luaState, IReflect targetType, object target, BindingFlags bindingType, out string detailMessage)
		{
			detailMessage = null;
			if (LuaDLL.lua_type(luaState, 2) != LuaTypes.LUA_TSTRING)
			{
				detailMessage = "property names must be strings";
				return false;
			}
			string text = LuaDLL.lua_tostring(luaState, 2);
			if (text == null || text.Length < 1 || (!char.IsLetter(text[0]) && text[0] != '_'))
			{
				detailMessage = "invalid property name";
				return false;
			}
			MemberInfo memberInfo = (MemberInfo)checkMemberCache(memberCache, targetType, text);
			if (memberInfo == null)
			{
				MemberInfo[] member = targetType.GetMember(text, bindingType | BindingFlags.Public | BindingFlags.IgnoreCase);
				if (member.Length <= 0)
				{
					detailMessage = "field or property '" + text + "' does not exist";
					return false;
				}
				memberInfo = member[0];
				setMemberCache(memberCache, targetType, text, memberInfo);
			}
			if (memberInfo.MemberType == MemberTypes.Field)
			{
				FieldInfo fieldInfo = (FieldInfo)memberInfo;
				object asType = translator.getAsType(luaState, 3, fieldInfo.FieldType);
				try
				{
					fieldInfo.SetValue(target, asType);
				}
				catch (Exception e)
				{
					ThrowError(luaState, e);
				}
				return true;
			}
			if (memberInfo.MemberType == MemberTypes.Property)
			{
				PropertyInfo propertyInfo = (PropertyInfo)memberInfo;
				object asType2 = translator.getAsType(luaState, 3, propertyInfo.PropertyType);
				try
				{
					propertyInfo.SetValue(target, asType2, null);
				}
				catch (Exception e2)
				{
					ThrowError(luaState, e2);
				}
				return true;
			}
			detailMessage = "'" + text + "' is not a .net field or property";
			return false;
		}

		private int setMember(IntPtr luaState, IReflect targetType, object target, BindingFlags bindingType)
		{
			string detailMessage;
			if (!trySetMember(luaState, targetType, target, bindingType, out detailMessage))
			{
				translator.throwError(luaState, detailMessage);
			}
			return 0;
		}

		private void ThrowError(IntPtr luaState, Exception e)
		{
			TargetInvocationException ex = e as TargetInvocationException;
			if (ex != null)
			{
				e = ex.InnerException;
			}
			translator.throwError(luaState, e);
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int getClassMethod(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			object rawNetObject = objectTranslator.getRawNetObject(luaState, 1);
			if (rawNetObject == null || !(rawNetObject is IReflect))
			{
				objectTranslator.throwError(luaState, "trying to index an invalid type reference");
				LuaDLL.lua_pushnil(luaState);
				return 1;
			}
			IReflect reflect = (IReflect)rawNetObject;
			if (LuaDLL.lua_isnumber(luaState, 2))
			{
				int length = (int)LuaDLL.lua_tonumber(luaState, 2);
				objectTranslator.push(luaState, Array.CreateInstance(reflect.UnderlyingSystemType, length));
				return 1;
			}
			string text = LuaDLL.lua_tostring(luaState, 2);
			if (text == null)
			{
				LuaDLL.lua_pushnil(luaState);
				return 1;
			}
			return objectTranslator.metaFunctions.getMember(luaState, reflect, null, text, BindingFlags.IgnoreCase | BindingFlags.Static | BindingFlags.FlattenHierarchy);
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int setClassFieldOrProperty(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			object rawNetObject = objectTranslator.getRawNetObject(luaState, 1);
			if (rawNetObject == null || !(rawNetObject is IReflect))
			{
				objectTranslator.throwError(luaState, "trying to index an invalid type reference");
				return 0;
			}
			IReflect targetType = (IReflect)rawNetObject;
			return objectTranslator.metaFunctions.setMember(luaState, targetType, null, BindingFlags.IgnoreCase | BindingFlags.Static | BindingFlags.FlattenHierarchy);
		}

		[MonoPInvokeCallback(typeof(LuaCSFunction))]
		public static int callConstructor(IntPtr luaState)
		{
			ObjectTranslator objectTranslator = ObjectTranslator.FromState(luaState);
			MethodCache methodCache = default(MethodCache);
			object rawNetObject = objectTranslator.getRawNetObject(luaState, 1);
			if (rawNetObject == null || !(rawNetObject is IReflect))
			{
				objectTranslator.throwError(luaState, "trying to call constructor on an invalid type reference");
				LuaDLL.lua_pushnil(luaState);
				return 1;
			}
			IReflect reflect = (IReflect)rawNetObject;
			LuaDLL.lua_remove(luaState, 1);
			ConstructorInfo[] constructors = reflect.UnderlyingSystemType.GetConstructors();
			ConstructorInfo[] array = constructors;
			foreach (ConstructorInfo constructorInfo in array)
			{
				if (objectTranslator.metaFunctions.matchParameters(luaState, constructorInfo, ref methodCache))
				{
					try
					{
						objectTranslator.push(luaState, constructorInfo.Invoke(methodCache.args));
					}
					catch (TargetInvocationException e)
					{
						objectTranslator.metaFunctions.ThrowError(luaState, e);
						LuaDLL.lua_pushnil(luaState);
					}
					catch
					{
						LuaDLL.lua_pushnil(luaState);
					}
					return 1;
				}
			}
			string arg = ((constructors.Length != 0) ? constructors[0].Name : "unknown");
			objectTranslator.throwError(luaState, string.Format("{0} does not contain constructor({1}) argument match", reflect.UnderlyingSystemType, arg));
			LuaDLL.lua_pushnil(luaState);
			return 1;
		}

		private static bool IsInteger(double x)
		{
			return Math.Ceiling(x) == x;
		}

		internal Array TableToArray(object luaParamValue, Type paramArrayType)
		{
			Array array;
			if (luaParamValue is LuaTable)
			{
				LuaTable luaTable = (LuaTable)luaParamValue;
				IDictionaryEnumerator enumerator = luaTable.GetEnumerator();
				enumerator.Reset();
				array = Array.CreateInstance(paramArrayType, luaTable.Values.Count);
				int num = 0;
				while (enumerator.MoveNext())
				{
					object obj = enumerator.Value;
					if (paramArrayType == typeof(object) && obj != null && obj.GetType() == typeof(double) && IsInteger((double)obj))
					{
						obj = Convert.ToInt32((double)obj);
					}
					array.SetValue(Convert.ChangeType(obj, paramArrayType), num);
					num++;
				}
			}
			else
			{
				array = Array.CreateInstance(paramArrayType, 1);
				array.SetValue(luaParamValue, 0);
			}
			return array;
		}

		internal bool matchParameters(IntPtr luaState, MethodBase method, ref MethodCache methodCache)
		{
			bool flag = true;
			ParameterInfo[] parameters = method.GetParameters();
			int num = 1;
			int num2 = LuaDLL.lua_gettop(luaState);
			ArrayList arrayList = new ArrayList();
			List<int> list = new List<int>();
			List<MethodArgs> list2 = new List<MethodArgs>();
			ParameterInfo[] array = parameters;
			foreach (ParameterInfo parameterInfo in array)
			{
				ExtractValue extractValue;
				if (!parameterInfo.IsIn && parameterInfo.IsOut)
				{
					list.Add(arrayList.Add(null));
				}
				else if (num > num2)
				{
					if (!parameterInfo.IsOptional)
					{
						flag = false;
						break;
					}
					arrayList.Add(parameterInfo.DefaultValue);
				}
				else if (_IsTypeCorrect(luaState, num, parameterInfo, out extractValue))
				{
					int num3 = arrayList.Add(extractValue(luaState, num));
					list2.Add(new MethodArgs
					{
						index = num3,
						extractValue = extractValue
					});
					if (parameterInfo.ParameterType.IsByRef)
					{
						list.Add(num3);
					}
					num++;
				}
				else if (_IsParamsArray(luaState, num, parameterInfo, out extractValue))
				{
					object luaParamValue = extractValue(luaState, num);
					Type elementType = parameterInfo.ParameterType.GetElementType();
					Array value = TableToArray(luaParamValue, elementType);
					int index = arrayList.Add(value);
					list2.Add(new MethodArgs
					{
						index = index,
						extractValue = extractValue,
						isParamsArray = true,
						paramsArrayType = elementType
					});
					num++;
				}
				else
				{
					if (!parameterInfo.IsOptional)
					{
						flag = false;
						break;
					}
					arrayList.Add(parameterInfo.DefaultValue);
				}
			}
			if (num != num2 + 1)
			{
				flag = false;
			}
			if (flag)
			{
				methodCache.args = arrayList.ToArray();
				methodCache.cachedMethod = method;
				methodCache.outList = list.ToArray();
				methodCache.argTypes = list2.ToArray();
			}
			return flag;
		}

		private bool _IsTypeCorrect(IntPtr luaState, int currentLuaParam, ParameterInfo currentNetParam, out ExtractValue extractValue)
		{
			try
			{
				return (extractValue = translator.typeChecker.checkType(luaState, currentLuaParam, currentNetParam.ParameterType)) != null;
			}
			catch
			{
				extractValue = null;
				return false;
			}
		}

		private bool _IsParamsArray(IntPtr luaState, int currentLuaParam, ParameterInfo currentNetParam, out ExtractValue extractValue)
		{
			extractValue = null;
			if (currentNetParam.GetCustomAttributes(typeof(ParamArrayAttribute), false).Length > 0)
			{
				LuaTypes luaTypes;
				try
				{
					luaTypes = LuaDLL.lua_type(luaState, currentLuaParam);
				}
				catch (Exception)
				{
					extractValue = null;
					return false;
				}
				if (luaTypes == LuaTypes.LUA_TTABLE)
				{
					try
					{
						extractValue = translator.typeChecker.getExtractor(typeof(LuaTable));
					}
					catch (Exception)
					{
					}
					if (extractValue != null)
					{
						return true;
					}
				}
				else
				{
					Type elementType = currentNetParam.ParameterType.GetElementType();
					try
					{
						extractValue = translator.typeChecker.checkType(luaState, currentLuaParam, elementType);
					}
					catch (Exception)
					{
					}
					if (extractValue != null)
					{
						return true;
					}
				}
			}
			return false;
		}
	}
}