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

using KeraLua;

using NLua.Method;
using NLua.Extensions;

#if __IOS__ || __TVOS__ || __WATCHOS__
    using ObjCRuntime;
#endif

using LuaState = KeraLua.Lua;
using LuaNativeFunction = KeraLua.LuaFunction;

namespace NLua
{
    public class MetaFunctions
    {
        public LuaNativeFunction GcFunction { get; }
        public LuaNativeFunction IndexFunction { get;  }
        public LuaNativeFunction NewIndexFunction { get; }
        public LuaNativeFunction BaseIndexFunction { get; }
        public LuaNativeFunction ClassIndexFunction { get; }
        public LuaNativeFunction ClassNewIndexFunction { get; }
        public LuaNativeFunction ExecuteDelegateFunction { get;  }
        public LuaNativeFunction CallConstructorFunction { get; }
        public LuaNativeFunction ToStringFunction { get; }
        public LuaNativeFunction CallDelegateFunction { get; }

        public LuaNativeFunction AddFunction { get; }
        public LuaNativeFunction SubtractFunction { get; }
        public LuaNativeFunction MultiplyFunction { get; }
        public LuaNativeFunction DivisionFunction { get; }
        public LuaNativeFunction ModulosFunction { get; }
        public LuaNativeFunction UnaryNegationFunction { get; }
        public LuaNativeFunction EqualFunction { get; }
        public LuaNativeFunction LessThanFunction { get; }
        public LuaNativeFunction LessThanOrEqualFunction { get; }

        Dictionary<object, object> memberCache = new Dictionary<object, object>();
        ObjectTranslator translator;

        /*
         * __index metafunction for CLR objects. Implemented in Lua.
         */
        static string luaIndexFunction =
            @"local function index(obj,name)
                local meta = getmetatable(obj)
                local cached = meta.cache[name]
                if cached ~= nil then
                   return cached
                else
                   local value,isFunc = get_object_member(obj,name)
                   
                   if isFunc then
                    meta.cache[name]=value
                   end
                   return value
                 end
            end
            return index";

        public static string LuaIndexFunction => luaIndexFunction;
        public MetaFunctions(ObjectTranslator translator)
        {
            this.translator = translator;
            GcFunction = CollectObject;
            ToStringFunction = ToStringLua;
            IndexFunction = GetMethod;
            NewIndexFunction = SetFieldOrProperty;
            BaseIndexFunction = GetBaseMethod;
            CallConstructorFunction =CallConstructor;
            ClassIndexFunction = GetClassMethod;
            ClassNewIndexFunction = SetClassFieldOrProperty;
            ExecuteDelegateFunction = RunFunctionDelegate;
            CallDelegateFunction = CallDelegate;
            AddFunction = AddLua;
            SubtractFunction = SubtractLua;
            MultiplyFunction = MultiplyLua;
            DivisionFunction = DivideLua;
            ModulosFunction = ModLua;
            UnaryNegationFunction = UnaryNegationLua;
            EqualFunction = EqualLua;
            LessThanFunction = LessThanLua;
            LessThanOrEqualFunction = LessThanOrEqualLua;
        }

        /*
         * __call metafunction of CLR delegates, retrieves and calls the delegate.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int RunFunctionDelegate(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            var func = (LuaNativeFunction)translator.GetRawNetObject(state, 1);
            state.Remove(1);
            return func(luaState);
        }

        /*
         * __gc metafunction of CLR objects.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int CollectObject(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            return CollectObject(luaState, translator);
        }

        private static int CollectObject(LuaState luaState, ObjectTranslator translator)
        {
            int udata = luaState.RawNetObj(1);

            if (udata != -1)
                translator.CollectObject(udata);

            return 0;
        }

        /*
         * __tostring metafunction of CLR objects.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int ToStringLua(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            return ToStringLua(luaState, translator);
        }

        private static int ToStringLua(LuaState luaState, ObjectTranslator translator)
        {
            object obj = translator.GetRawNetObject(luaState, 1);

            if (obj != null)
                translator.Push(luaState, obj + ": " + obj.GetHashCode());
            else
                luaState.PushNil();

            return 1;
        }


        /*
         * __add metafunction of CLR objects.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int AddLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_Addition", translator);
        }

        /*
        * __sub metafunction of CLR objects.
        */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int SubtractLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_Subtraction", translator);
        }

        /*
        * __mul metafunction of CLR objects.
        */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int MultiplyLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_Multiply", translator);
        }

        /*
        * __div metafunction of CLR objects.
        */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int DivideLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_Division", translator);
        }

        /*
        * __mod metafunction of CLR objects.
        */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int ModLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_Modulus", translator);
        }

        /*
        * __unm metafunction of CLR objects.
        */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int UnaryNegationLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return UnaryNegationLua(state, translator);
        }

        static int UnaryNegationLua(LuaState luaState, ObjectTranslator translator)
        {
            object obj1 = translator.GetRawNetObject(luaState, 1);

            if (obj1 == null)
            {
                translator.ThrowError(luaState, "Cannot negate a nil object");
                luaState.PushNil();
                return 1;
            }

            Type type = obj1.GetType();
            MethodInfo opUnaryNegation = type.GetMethod("op_UnaryNegation");

            if (opUnaryNegation == null)
            {
                translator.ThrowError(luaState, "Cannot negate object (" + type.Name + " does not overload the operator -)");
                luaState.PushNil();
                return 1;
            }
            obj1 = opUnaryNegation.Invoke(obj1, new [] { obj1 });
            translator.Push(luaState, obj1);
            return 1;
        }


        /*
        * __eq metafunction of CLR objects.
        */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int EqualLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_Equality", translator);
        }

        /*
        * __lt metafunction of CLR objects.
        */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int LessThanLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_LessThan", translator);
        }

        /*
         * __le metafunction of CLR objects.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int LessThanOrEqualLua(IntPtr luaState)
        {
            var state = LuaState.FromIntPtr(luaState);
            var translator = ObjectTranslatorPool.Instance.Find(state);
            return MatchOperator(state, "op_LessThanOrEqual", translator);
        }

        /// <summary>
        /// Debug tool to dump the lua stack
        /// </summary>
        /// FIXME, move somewhere else
        public static void DumpStack(ObjectTranslator translator, LuaState luaState)
        {
            int depth = luaState.GetTop();

            Debug.WriteLine("lua stack depth: {0}", depth);

            for (int i = 1; i <= depth; i++)
            {
                var type = luaState.Type(i);
                // we dump stacks when deep in calls, calling typename while the stack is in flux can fail sometimes, so manually check for key types
                string typestr = (type == LuaType.Table) ? "table" : luaState.TypeName(type);
                string strrep = luaState.ToString(i);

                if (type == LuaType.UserData)
                {
                    object obj = translator.GetRawNetObject(luaState, i);
                    strrep = obj.ToString();
                }

                Debug.WriteLine("{0}: ({1}) {2}", i, typestr, strrep);
            }
        }

        /*
         * Called by the __index metafunction of CLR objects in case the
         * method is not cached or it is a field/property/event.
         * Receives the object and the member name as arguments and returns
         * either the value of the member or a delegate to call it.
         * If the member does not exist returns nil.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int GetMethod(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            var instance = translator.MetaFunctionsInstance;
            return instance.GetMethodInternal(luaState);
        }

        private int GetMethodInternal(LuaState luaState)
        {
            object obj = translator.GetRawNetObject(luaState, 1);

            if (obj == null)
            {
                translator.ThrowError(luaState, "Trying to index an invalid object reference");
                luaState.PushNil();
                return 1;
            }

            object index = translator.GetObject(luaState, 2);
            string methodName = index as string;        // will be null if not a string arg
            var objType = obj.GetType();
            var proxyType = new ProxyType(objType);

            // Handle the most common case, looking up the method by name. 
            // CP: This will fail when using indexers and attempting to get a value with the same name as a property of the object, 
            // ie: xmlelement['item'] <- item is a property of xmlelement
            try
            {
                if (!string.IsNullOrEmpty(methodName) && IsMemberPresent(proxyType, methodName))
                    return GetMember(luaState, proxyType, obj, methodName, BindingFlags.Instance);
            }
            catch
            {
                Debug.WriteLine("[Exception] Fail to fetch Member: {0}", methodName);
            }

            // Try to access by array if the type is right and index is an int (lua numbers always come across as double)
            if (objType.IsArray && index is double)
            {
                int intIndex = (int)((double)index);

                Type type = objType.UnderlyingSystemType;

                if (type == typeof(float[]))
                {
                    float[] arr = (float[])obj;
                    translator.Push(luaState, arr[intIndex]);
                }
                else if (type == typeof(double[]))
                {
                    double[] arr = (double[])obj;
                    translator.Push(luaState, arr[intIndex]);
                }
                else if (type == typeof(int[]))
                {
                    int[] arr = (int[])obj;
                    translator.Push(luaState, arr[intIndex]);
                }
                else
                {
                    object[] arr = (object[])obj;
                    translator.Push(luaState, arr[intIndex]);
                }
            }
            else
            {
                if (!string.IsNullOrEmpty(methodName) && IsExtensionMethodPresent(objType, methodName))
                {
                    return GetExtensionMethod(luaState, objType, obj, methodName);
                }
                // Try to use get_Item to index into this .net object
                var methods = objType.GetMethods();

                foreach (var methodInfo in methods)
                {
                    if (methodInfo.Name == "get_Item")
                    {
                        // Check if the signature matches the input
                        if (methodInfo.GetParameters().Length == 1)
                        {
                            var actualParams = methodInfo.GetParameters();

                            if (actualParams.Length != 1)
                            {
                                translator.ThrowError(luaState, "method not found (or no indexer): " + index);
                                luaState.PushNil();
                            }
                            else
                            {
                                // Get the index in a form acceptable to the getter
                                index = translator.GetAsType(luaState, 2, actualParams[0].ParameterType);
                                object[] args = new object[1];

                                // Just call the indexer - if out of bounds an exception will happen
                                args[0] = index;

                                try
                                {
                                    object result = methodInfo.Invoke(obj, args);
                                    translator.Push(luaState, result);
                                }
                                catch (TargetInvocationException e)
                                {
                                    // Provide a more readable description for the common case of key not found
                                    if (e.InnerException is KeyNotFoundException)
                                        translator.ThrowError(luaState, "key '" + index + "' not found ");
                                    else
                                        translator.ThrowError(luaState, "exception indexing '" + index + "' " + e.Message);

                                    luaState.PushNil();
                                }
                            }
                        }
                    }
                }
            }
            luaState.PushBoolean(false);
            return 2;
        }

        /*
         * __index metafunction of base classes (the base field of Lua tables).
         * Adds a prefix to the method name to call the base version of the method.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int GetBaseMethod(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            var instance = translator.MetaFunctionsInstance;
            return instance.GetBaseMethodInternal(luaState);
        }

        private int GetBaseMethodInternal(LuaState luaState)
        {
            object obj = translator.GetRawNetObject(luaState, 1);

            if (obj == null)
            {
                translator.ThrowError(luaState, "Trying to index an invalid object reference");
                luaState.PushNil();
                luaState.PushBoolean(false);
                return 2;
            }

            string methodName = luaState.ToString(2);

            if (string.IsNullOrEmpty(methodName))
            {
                luaState.PushNil();
                luaState.PushBoolean(false);
                return 2;
            }

            GetMember(luaState, new ProxyType(obj.GetType()), obj, "__luaInterface_base_" + methodName, BindingFlags.Instance);
            luaState.SetTop(-2);

            if (luaState.Type(-1) == LuaType.Nil)
            {
                luaState.SetTop(-2);
                return GetMember(luaState, new ProxyType(obj.GetType()), obj, methodName, BindingFlags.Instance);
            }

            luaState.PushBoolean(false);
            return 2;
        }

        /// <summary>
        /// Does this method exist as either an instance or static?
        /// </summary>
        /// <param name="objType"></param>
        /// <param name="methodName"></param>
        /// <returns></returns>
        bool IsMemberPresent(ProxyType objType, string methodName)
        {
            object cachedMember = CheckMemberCache(objType, methodName);

            if (cachedMember != null)
                return true;

            var members = objType.GetMember(methodName, BindingFlags.Static | BindingFlags.Instance | BindingFlags.Public);
            return members.Length > 0;
        }

        bool IsExtensionMethodPresent(Type type, string name)
        {
            object cachedMember = CheckMemberCache(type, name);

            if (cachedMember != null)
                return true;

            return translator.IsExtensionMethodPresent(type, name);
        }

        int GetExtensionMethod(LuaState luaState, Type type, object obj, string name)
        {
            var cachedMember = CheckMemberCache(type, name) as LuaNativeFunction;

            if (cachedMember != null)
            {
                translator.PushFunction(luaState, cachedMember);
                translator.Push(luaState, true);
                return 2;
            }

            MethodInfo methodInfo = translator.GetExtensionMethod(type, name);
            var methodWrapper = new LuaMethodWrapper(translator, obj, new ProxyType(type), methodInfo);
            var invokeDelegate = new LuaNativeFunction(methodWrapper.invokeFunction);

            SetMemberCache(type, name, invokeDelegate);

            translator.PushFunction(luaState, invokeDelegate);
            translator.Push(luaState, true);
            return 2;
        }

        /*
         * Pushes the value of a member or a delegate to call it, depending on the type of
         * the member. Works with static or instance members.
         * Uses reflection to find members, and stores the reflected MemberInfo object in
         * a cache (indexed by the type of the object and the name of the member).
         */
        int GetMember(LuaState luaState, ProxyType objType, object obj, string methodName, BindingFlags bindingType)
        {
            bool implicitStatic = false;
            MemberInfo member = null;
            object cachedMember = CheckMemberCache(objType, methodName);

            if (cachedMember is LuaNativeFunction)
            {
                translator.PushFunction(luaState, (LuaNativeFunction)cachedMember);
                translator.Push(luaState, true);
                return 2;
            }
            if (cachedMember != null)
                member = (MemberInfo)cachedMember;
            else
            {
                var members = objType.GetMember(methodName, bindingType | BindingFlags.Public);

                if (members.Length > 0)
                    member = members[0];
                else
                {
                    // If we can't find any suitable instance members, try to find them as statics - but we only want to allow implicit static
                    members = objType.GetMember(methodName, bindingType | BindingFlags.Static | BindingFlags.Public);

                    if (members.Length > 0)
                    {
                        member = members[0];
                        implicitStatic = true;
                    }
                }
            }

            if (member != null)
            {
                if (member.MemberType == MemberTypes.Field)
                {
                    var field = (FieldInfo)member;

                    if (cachedMember == null)
                        SetMemberCache(objType, methodName, member);

                    try
                    {
                        var value = field.GetValue(obj);
                        translator.Push(luaState, value);
                    }
                    catch
                    {
                        Debug.WriteLine("[Exception] Fail to get field value");
                        luaState.PushNil();
                    }
                }
                else if (member.MemberType == MemberTypes.Property)
                {
                    var property = (PropertyInfo)member;
                    if (cachedMember == null)
                        SetMemberCache(objType, methodName, member);

                    try
                    {
                        object value = property.GetValue(obj, null);
                        translator.Push(luaState, value);
                    }
                    catch (ArgumentException)
                    {
                        // If we can't find the getter in our class, recurse up to the base class and see
                        // if they can help.
                        if (objType.UnderlyingSystemType != typeof(object))
                            return GetMember(luaState, new ProxyType(objType.UnderlyingSystemType.BaseType), obj, methodName, bindingType);
                        luaState.PushNil();
                    }
                    catch (TargetInvocationException e)
                    {  // Convert this exception into a Lua error
                        ThrowError(luaState, e);
                        luaState.PushNil();
                    }
                }
                else if (member.MemberType == MemberTypes.Event)
                {
                    var eventInfo = (EventInfo)member;
                    if (cachedMember == null)
                        SetMemberCache(objType, methodName, member);

                    translator.Push(luaState, new RegisterEventHandler(translator.pendingEvents, obj, eventInfo));
                }
                else if (!implicitStatic)
                {
                    if (member.MemberType == MemberTypes.NestedType)
                    {
                        if (cachedMember == null)
                            SetMemberCache(objType, methodName, member);

                        // Find the name of our class
                        string name = member.Name;
                        var dectype = member.DeclaringType;

                        // Build a new long name and try to find the type by name
                        string longname = dectype.FullName + "+" + name;
                        var nestedType = translator.FindType(longname);
                        translator.PushType(luaState, nestedType);
                    }
                    else
                    {
                        // Member type must be 'method'
                        var methodWrapper = new LuaMethodWrapper(translator, objType, methodName, bindingType);
                        var wrapper = methodWrapper.invokeFunction;

                        if (cachedMember == null)
                            SetMemberCache(objType, methodName, wrapper);

                        translator.PushFunction(luaState, wrapper);
                        translator.Push(luaState, true);
                        return 2;
                    }
                }
                else
                {
                    // If we reach this point we found a static method, but can't use it in this context because the user passed in an instance
                    translator.ThrowError(luaState, "Can't pass instance to static method " + methodName);
                    luaState.PushNil();
                }
            }
            else
            {
                if (objType.UnderlyingSystemType != typeof(object))
                    return GetMember(luaState, new ProxyType(objType.UnderlyingSystemType.BaseType), obj, methodName, bindingType);

                // We want to throw an exception because merely returning 'nil' in this case
                // is not sufficient.  valid data members may return nil and therefore there must be some
                // way to know the member just doesn't exist.
                translator.ThrowError(luaState, "Unknown member name " + methodName);
                luaState.PushNil();
            }

            // Push false because we are NOT returning a function (see luaIndexFunction)
            translator.Push(luaState, false);
            return 2;
        }

        /*
         * Checks if a MemberInfo object is cached, returning it or null.
         */
        object CheckMemberCache(Type objType, string memberName)
        {
            return CheckMemberCache(new ProxyType(objType), memberName);
        }

        object CheckMemberCache(ProxyType objType, string memberName)
        {
            object members = null;

            if (memberCache.TryGetValue(objType, out members))
            {
                var membersDict = members as Dictionary<object, object>;

                object memberValue = null;

                if (members != null && membersDict.TryGetValue(memberName, out memberValue))
                {
                    return memberValue;
                }
            }

            return null;
        }

        /*
         * Stores a MemberInfo object in the member cache.
         */
        void SetMemberCache(Type objType, string memberName, object member)
        {
            SetMemberCache(new ProxyType(objType), memberName, member);
        }

        void SetMemberCache(ProxyType objType, string memberName, object member)
        {
            Dictionary<object, object> members = null;
            object memberCacheValue = null;

            if (memberCache.TryGetValue(objType, out memberCacheValue))
            {
                members = (Dictionary<object, object>)memberCacheValue;
            }
            else
            {
                members = new Dictionary<object, object>();
                memberCache[objType] = members;
            }

            members[memberName] = member;
        }

        /*
         * __newindex metafunction of CLR objects. Receives the object,
         * the member name and the value to be stored as arguments. Throws
         * and error if the assignment is invalid.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int SetFieldOrProperty(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            var instance = translator.MetaFunctionsInstance;
            return instance.SetFieldOrPropertyInternal(luaState);
        }

        private int SetFieldOrPropertyInternal(LuaState luaState)
        {
            object target = translator.GetRawNetObject(luaState, 1);

            if (target == null)
            {
                translator.ThrowError(luaState, "trying to index and invalid object reference");
                return 0;
            }

            var type = target.GetType();

            // First try to look up the parameter as a property name
            string detailMessage;
            bool didMember = TrySetMember(luaState, new ProxyType(type), target, BindingFlags.Instance, out detailMessage);

            if (didMember)
                return 0;      // Must have found the property name

            // We didn't find a property name, now see if we can use a [] style this accessor to set array contents
            try
            {
                if (type.IsArray && luaState.IsNumber(2))
                {
                    int index = (int)luaState.ToNumber(2);
                    var arr = (Array)target;
                    object val = translator.GetAsType(luaState, 3, arr.GetType().GetElementType());
                    arr.SetValue(val, index);
                }
                else
                {
                    // Try to see if we have a this[] accessor
                    var setter = type.GetMethod("set_Item");
                    if (setter != null)
                    {
                        var args = setter.GetParameters();
                        var valueType = args[1].ParameterType;

                        // The new val ue the user specified 
                        object val = translator.GetAsType(luaState, 3, valueType);
                        var indexType = args[0].ParameterType;
                        object index = translator.GetAsType(luaState, 2, indexType);

                        object[] methodArgs = new object[2];

                        // Just call the indexer - if out of bounds an exception will happen
                        methodArgs[0] = index;
                        methodArgs[1] = val;
                        setter.Invoke(target, methodArgs);
                    }
                    else
                        translator.ThrowError(luaState, detailMessage); // Pass the original message from trySetMember because it is probably best
                }
#if !SILVERLIGHT
            }
            catch (SEHException)
            {
                // If we are seeing a C++ exception - this must actually be for Lua's private use.  Let it handle it
                throw;
#endif
            }
            catch (Exception e)
            {
                ThrowError(luaState, e);
            }

            return 0;
        }

        /// <summary>
        /// Tries to set a named property or field
        /// </summary>
        /// <param name="luaState"></param>
        /// <param name="targetType"></param>
        /// <param name="target"></param>
        /// <param name="bindingType"></param>
        /// <returns>false if unable to find the named member, true for success</returns>
        bool TrySetMember(LuaState luaState, ProxyType targetType, object target, BindingFlags bindingType, out string detailMessage)
        {
            detailMessage = null;   // No error yet

            // If not already a string just return - we don't want to call tostring - which has the side effect of 
            // changing the lua typecode to string
            // Note: We don't use isstring because the standard lua C isstring considers either strings or numbers to
            // be true for isstring.
            if (luaState.Type(2) != LuaType.String)
            {
                detailMessage = "property names must be strings";
                return false;
            }

            // We only look up property names by string
            string fieldName = luaState.ToString(2);
            if (string.IsNullOrEmpty(fieldName) || !(char.IsLetter(fieldName[0]) || fieldName[0] == '_'))
            {
                detailMessage = "Invalid property name";
                return false;
            }

            // Find our member via reflection or the cache
            var member = (MemberInfo)CheckMemberCache(targetType, fieldName);
            if (member == null)
            {
                var members = targetType.GetMember(fieldName, bindingType | BindingFlags.Public);

                if (members.Length > 0)
                {
                    member = members[0];
                    SetMemberCache(targetType, fieldName, member);
                }
                else
                {
                    detailMessage = "field or property '" + fieldName + "' does not exist";
                    return false;
                }
            }

            if (member.MemberType == MemberTypes.Field)
            {
                var field = (FieldInfo)member;
                object val = translator.GetAsType(luaState, 3, field.FieldType);

                try
                {
                    field.SetValue(target, val);
                }
                catch (Exception e)
                {
                    ThrowError(luaState, e);
                }

                return true;
            }
            if (member.MemberType == MemberTypes.Property)
            {
                var property = (PropertyInfo)member;
                object val = translator.GetAsType(luaState, 3, property.PropertyType);

                try
                {
                    property.SetValue(target, val, null);
                }
                catch (Exception e)
                {
                    ThrowError(luaState, e);
                }

                return true;
            }

            detailMessage = "'" + fieldName + "' is not a .net field or property";
            return false;
        }

        /*
         * Writes to fields or properties, either static or instance. Throws an error
         * if the operation is invalid.
         */
        private int SetMember(LuaState luaState, ProxyType targetType, object target, BindingFlags bindingType)
        {
            string detail;
            bool success = TrySetMember(luaState, targetType, target, bindingType, out detail);

            if (!success)
                translator.ThrowError(luaState, detail);

            return 0;
        }

        /// <summary>
        /// Convert a C# exception into a Lua error
        /// </summary>
        /// <param name="e"></param>
        /// We try to look into the exception to give the most meaningful description
        void ThrowError(LuaState luaState, Exception e)
        {
            // If we got inside a reflection show what really happened
            var te = e as TargetInvocationException;

            if (te != null)
                e = te.InnerException;

            translator.ThrowError(luaState, e);
        }

        /*
         * __index metafunction of type references, works on static members.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int GetClassMethod(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            var instance = translator.MetaFunctionsInstance;
            return instance.GetClassMethodInternal(luaState);
        }

        private int GetClassMethodInternal(LuaState luaState)
        {
            ProxyType klass;
            object obj = translator.GetRawNetObject(luaState, 1);

            if (obj == null || !(obj is ProxyType))
            {
                translator.ThrowError(luaState, "Trying to index an invalid type reference");
                luaState.PushNil();
                return 1;
            }
            
            klass = (ProxyType)obj;

            if (luaState.IsNumber(2))
            {
                int size = (int)luaState.ToNumber(2);
                translator.Push(luaState, Array.CreateInstance(klass.UnderlyingSystemType, size));
                return 1;
            }
            string methodName = luaState.ToString(2);

            if (string.IsNullOrEmpty(methodName))
            {
                luaState.PushNil();
                return 1;
            }
            return GetMember(luaState, klass, null, methodName, BindingFlags.Static);
        }

        /*
         * __newindex function of type references, works on static members.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int SetClassFieldOrProperty(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            var instance = translator.MetaFunctionsInstance;
            return instance.SetClassFieldOrPropertyInternal(luaState);
        }

        private int SetClassFieldOrPropertyInternal(LuaState luaState)
        {
            ProxyType target;
            object obj = translator.GetRawNetObject(luaState, 1);

            if (obj == null || !(obj is ProxyType))
            {
                translator.ThrowError(luaState, "trying to index an invalid type reference");
                return 0;
            }

            target = (ProxyType)obj;

            return SetMember(luaState, target, null, BindingFlags.Static);
        }

        /*
         * __call metafunction of Delegates. 
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        static int CallDelegate(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            var instance = translator.MetaFunctionsInstance;
            return instance.CallDelegateInternal(luaState);
        }

        int CallDelegateInternal(LuaState luaState)
        {
            object objDelegate = translator.GetRawNetObject(luaState, 1);

            if (objDelegate == null || !(objDelegate is Delegate))
            {
                translator.ThrowError(luaState, "Trying to invoke a not delegate or callable value");
                luaState.PushNil();
                return 1;
            }

            luaState.Remove(1);

            var validDelegate = new MethodCache();
            var del = (Delegate)objDelegate;
            MethodBase methodDelegate = del.Method;
            bool isOk = MatchParameters(luaState, methodDelegate, ref validDelegate);

            if (isOk)
            {
                object result;

                if (methodDelegate.IsStatic)
                    result = methodDelegate.Invoke(null, validDelegate.args);
                else
                    result = methodDelegate.Invoke(del.Target, validDelegate.args);

                translator.Push(luaState, result);
                return 1;
            }

            translator.ThrowError(luaState, "Cannot invoke delegate (invalid arguments for  " + methodDelegate.Name + ")");
            luaState.PushNil();
            return 1;
        }

        /*
         * __call metafunction of type references. Searches for and calls
         * a constructor for the type. Returns nil if the constructor is not
         * found or if the arguments are invalid. Throws an error if the constructor
         * generates an exception.
         */
#if __IOS__ || __TVOS__ || __WATCHOS__
        [MonoPInvokeCallback(typeof(LuaNativeFunction))]
#endif
        private static int CallConstructor(IntPtr state)
        {
            var luaState = LuaState.FromIntPtr(state);
            var translator = ObjectTranslatorPool.Instance.Find(luaState);
            var instance = translator.MetaFunctionsInstance;
            return instance.CallConstructorInternal(luaState);
        }

        private int CallConstructorInternal(LuaState luaState)
        {
            var validConstructor = new MethodCache();
            ProxyType klass;
            object obj = translator.GetRawNetObject(luaState, 1);

            if (obj == null || !(obj is ProxyType))
            {
                translator.ThrowError(luaState, "Trying to call constructor on an invalid type reference");
                luaState.PushNil();
                return 1;
            }

            klass = (ProxyType)obj;

            luaState.Remove(1);
            ConstructorInfo[] constructors = klass.UnderlyingSystemType.GetConstructors();

            foreach (var constructor in constructors)
            {
                bool isConstructor = MatchParameters(luaState, constructor, ref validConstructor);

                if (isConstructor)
                {
                    try
                    {
                        translator.Push(luaState, constructor.Invoke(validConstructor.args));
                    }
                    catch (TargetInvocationException e)
                    {
                        ThrowError(luaState, e);
                        luaState.PushNil();
                    }
                    catch
                    {
                        luaState.PushNil();
                    }
                    return 1;
                }
            }

            if (klass.UnderlyingSystemType.IsValueType)
            {
                int numLuaParams = luaState.GetTop();
                if (numLuaParams == 0)
                {
                    translator.Push(luaState, Activator.CreateInstance(klass.UnderlyingSystemType));
                    return 1;
                }
            }

            string constructorName = constructors.Length == 0 ? "unknown" : constructors[0].Name;
            translator.ThrowError(luaState, string.Format("{0} does not contain constructor({1}) argument match",
                klass.UnderlyingSystemType, constructorName));
            luaState.PushNil();
            return 1;
        }

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

        static object GetTargetObject(LuaState luaState, string operation, ObjectTranslator translator)
        {
            Type t;
            object target = translator.GetRawNetObject(luaState, 1);
            if (target != null)
            {
                t = target.GetType();
                if (t.HasMethod(operation))
                    return target;
            }
            target = translator.GetRawNetObject(luaState, 2);
            if (target != null)
            {
                t = target.GetType();
                if (t.HasMethod(operation))
                    return target;
            }
            return null;
        }

        static int MatchOperator(LuaState luaState, string operation, ObjectTranslator translator)
        {
            var validOperator = new MethodCache();

            object target = GetTargetObject(luaState, operation, translator);

            if (target == null)
            {
                translator.ThrowError(luaState, "Cannot call " + operation + " on a nil object");
                luaState.PushNil();
                return 1;
            }

            Type type = target.GetType();
            var operators = type.GetMethods(operation, BindingFlags.Public | BindingFlags.Instance | BindingFlags.Static);

            foreach (var op in operators)
            {
                bool isOk = translator.MatchParameters(luaState, op, ref validOperator);

                if (!isOk)
                    continue;

                object result;
                if (op.IsStatic)
                    result = op.Invoke(null, validOperator.args);
                else
                    result = op.Invoke(target, validOperator.args);
                translator.Push(luaState, result);
                return 1;
            }

            translator.ThrowError(luaState, "Cannot call (" + operation + ") on object type " + type.Name);
            luaState.PushNil();
            return 1;
        }

        internal Array TableToArray(Func<int, object> luaParamValueExtractor, Type paramArrayType, int startIndex, int count)
        {
            Array paramArray;

            if (count == 0)
                return Array.CreateInstance(paramArrayType, 0);

            var luaParamValue = luaParamValueExtractor(startIndex);

            if (luaParamValue is LuaTable)
            {
                LuaTable table = (LuaTable)luaParamValue;
                IDictionaryEnumerator tableEnumerator = table.GetEnumerator();
                tableEnumerator.Reset();
                paramArray = Array.CreateInstance(paramArrayType, table.Values.Count);

                int paramArrayIndex = 0;

                while (tableEnumerator.MoveNext())
                {
                    object value = tableEnumerator.Value;

                    if (paramArrayType == typeof(object))
                    {
                        if (value != null && value.GetType() == typeof(double) && IsInteger((double)value))
                            value = Convert.ToInt32((double)value);
                    }
#if SILVERLIGHT
                    paramArray.SetValue (Convert.ChangeType (value, paramArrayType, System.Globalization.CultureInfo.InvariantCulture), paramArrayIndex);
#else
                    paramArray.SetValue(Convert.ChangeType(value, paramArrayType), paramArrayIndex);
#endif
                    paramArrayIndex++;
                }
            }
            else
            {

                paramArray = Array.CreateInstance(paramArrayType, count);

                paramArray.SetValue(luaParamValue, 0);

                for (int i = 1; i < count; i++)
                {
                    startIndex++;
                    var value = luaParamValueExtractor(startIndex);
                    paramArray.SetValue(value, i);
                }
            }

            return paramArray;

        }

        /*
         * Matches a method against its arguments in the Lua stack. Returns
         * if the match was successful. It it was also returns the information
         * necessary to invoke the method.
         */
        internal bool MatchParameters(LuaState luaState, MethodBase method, ref MethodCache methodCache)
        {
            ExtractValue extractValue;
            bool isMethod = true;
            var paramInfo = method.GetParameters();
            int currentLuaParam = 1;
            int nLuaParams = luaState.GetTop();
            var paramList = new List<object>();
            var outList = new List<int>();
            var argTypes = new List<MethodArgs>();

            foreach (var currentNetParam in paramInfo)
            {
                if (!currentNetParam.IsIn && currentNetParam.IsOut)  // Skips out params 
                {
                    paramList.Add(null);
                    outList.Add(paramList.LastIndexOf(null));

                }  // Type does not match, ignore if the parameter is optional
                else if (IsParamsArray(luaState, nLuaParams, currentLuaParam, currentNetParam, out extractValue))
                {
                    int count = (nLuaParams - currentLuaParam) + 1;
                    Type paramArrayType = currentNetParam.ParameterType.GetElementType();

                    Func<int, object> extractDelegate = (currentParam) => {
                        currentLuaParam++;
                        return extractValue(luaState, currentParam);
                    };

                    Array paramArray = TableToArray(extractDelegate, paramArrayType, currentLuaParam, count);
                    paramList.Add(paramArray);
                    int index = paramList.LastIndexOf(paramArray);
                    var methodArg = new MethodArgs();
                    methodArg.index = index;
                    methodArg.extractValue = extractValue;
                    methodArg.isParamsArray = true;
                    methodArg.paramsArrayType = paramArrayType;
                    argTypes.Add(methodArg);

                }
                else if (IsTypeCorrect(luaState, currentLuaParam, currentNetParam, out extractValue))
                {  // Type checking
                    var value = extractValue(luaState, currentLuaParam);
                    paramList.Add(value);
                    int index = paramList.LastIndexOf(value);
                    var methodArg = new MethodArgs();
                    methodArg.index = index;
                    methodArg.extractValue = extractValue;
                    argTypes.Add(methodArg);

                    if (currentNetParam.ParameterType.IsByRef)
                        outList.Add(index);

                    currentLuaParam++;
                }
                else if (currentLuaParam > nLuaParams)
                {   // Adds optional parameters
                    if (currentNetParam.IsOptional)
                        paramList.Add(currentNetParam.DefaultValue);
                    else
                    {
                        isMethod = false;
                        break;
                    }
                }
                else if (currentNetParam.IsOptional)
                    paramList.Add(currentNetParam.DefaultValue);
                else
                {  // No match
                    isMethod = false;
                    break;
                }
            }

            if (currentLuaParam != nLuaParams + 1) // Number of parameters does not match
                isMethod = false;

            if (isMethod)
            {
                methodCache.args = paramList.ToArray();
                methodCache.cachedMethod = method;
                methodCache.outList = outList.ToArray();
                methodCache.argTypes = argTypes.ToArray();
            }
            return isMethod;
        }

        /// <summary>
        /// Returns true if the type is set and assigns the extract value
        /// </summary>
        /// <param name="luaState"></param>
        /// <param name="currentLuaParam"></param>
        /// <param name="currentNetParam"></param>
        /// <param name="extractValue"></param>
        /// <returns></returns>
        private bool IsTypeCorrect(LuaState luaState, int currentLuaParam, ParameterInfo currentNetParam, out ExtractValue extractValue)
        {
            try
            {
                return (extractValue = translator.typeChecker.CheckLuaType(luaState, currentLuaParam, currentNetParam.ParameterType)) != null;
            }
            catch
            {
                extractValue = null;
                Debug.WriteLine("Type wasn't correct");
                return false;
            }
        }

        private bool IsParamsArray(LuaState luaState, int nLuaParams, int currentLuaParam, ParameterInfo currentNetParam, out ExtractValue extractValue)
        {
            extractValue = null;
            bool isParamArray = false;

            if (currentNetParam.GetCustomAttributes(typeof(ParamArrayAttribute), false).Any())
            {
                isParamArray = nLuaParams < currentLuaParam;
                LuaType luaType;

                try
                {
                    luaType = luaState.Type(currentLuaParam);
                }
                catch (Exception ex)
                {
                    Debug.WriteLine("Could not retrieve lua type while attempting to determine params Array Status.");
                    Debug.WriteLine(ex.Message);
                    extractValue = null;
                    return false;
                }

                if (luaType == LuaType.Table)
                {
                    try
                    {
                        extractValue = translator.typeChecker.GetExtractor(typeof(LuaTable));
                    }
                    catch (Exception)
                    {
                        Debug.WriteLine("An error occurred during an attempt to retrieve a LuaTable extractor while checking for params array status.");
                    }

                    if (extractValue != null)
                    {
                        return true;
                    }
                }
                else
                {
                    var paramElementType = currentNetParam.ParameterType.GetElementType();

                    try
                    {
                        extractValue = translator.typeChecker.CheckLuaType(luaState, currentLuaParam, paramElementType);
                    }
                    catch (Exception/* ex*/)
                    {
                        Debug.WriteLine(string.Format("An error occurred during an attempt to retrieve an extractor ({0}) while checking for params array status.", paramElementType.FullName));
                    }

                    if (extractValue != null)
                    {
                        return true;
                    }
                }
            }
            return isParamArray;
        }
    }
}