using System;
using System.Collections.Generic;
using System.Linq;
using Jint.Native.Function;
using Jint.Runtime;
using Jint.Runtime.Descriptors;
using Jint.Runtime.Interop;

namespace Jint.Native.Object
{
    public sealed class ObjectConstructor : FunctionInstance, IConstructor
    {
        private readonly Engine _engine;

        private ObjectConstructor(Engine engine) : base(engine, null, null, false)
        {
            _engine = engine;
        }

        public static ObjectConstructor CreateObjectConstructor(Engine engine)
        {
            var obj = new ObjectConstructor(engine);
            obj.PrototypeObject = ObjectPrototype.CreatePrototypeObject(engine, obj);

            obj.FastAddProperty("length", 1, false, false, false);
            obj.FastAddProperty("prototype", obj.PrototypeObject, false, false, false);

            return obj;
        }

        public void Configure()
        {
            Prototype = Engine.Function.PrototypeObject;

            FastAddProperty("getPrototypeOf", new ClrFunctionInstance<object, object>(Engine, GetPrototypeOf), false, false, false);
            FastAddProperty("getOwnPropertyDescriptor", new ClrFunctionInstance<object, object>(Engine, GetOwnPropertyDescriptor), false, false, false);
            FastAddProperty("getOwnPropertyNames", new ClrFunctionInstance<object, object>(Engine, GetOwnPropertyNames), false, false, false);
            FastAddProperty("create", new ClrFunctionInstance<object, object>(Engine, Create), false, false, false);
            FastAddProperty("defineProperty", new ClrFunctionInstance<object, object>(Engine, DefineProperty), false, false, false);
            FastAddProperty("defineProperties", new ClrFunctionInstance<object, object>(Engine, DefineProperties), false, false, false);
            FastAddProperty("seal", new ClrFunctionInstance<object, object>(Engine, Seal), false, false, false);
            FastAddProperty("freeze", new ClrFunctionInstance<object, object>(Engine, Freeze), false, false, false);
            FastAddProperty("preventExtensions", new ClrFunctionInstance<object, object>(Engine, PreventExtensions), false, false, false);
            FastAddProperty("isSealed", new ClrFunctionInstance<object, object>(Engine, IsSealed), false, false, false);
            FastAddProperty("isFrozen", new ClrFunctionInstance<object, object>(Engine, IsFrozen), false, false, false);
            FastAddProperty("isExtensible", new ClrFunctionInstance<object, object>(Engine, IsExtensible), false, false, false);
            FastAddProperty("keys", new ClrFunctionInstance<object, object>(Engine, Keys), false, false, false);
        }

        public ObjectPrototype PrototypeObject { get; private set; }

        /// <summary>
        /// http://www.ecma-international.org/ecma-262/5.1/#sec-15.2.1.1
        /// </summary>
        /// <param name="thisObject"></param>
        /// <param name="arguments"></param>
        /// <returns></returns>
        public override object Call(object thisObject, object[] arguments)
        {
            if (arguments.Length == 0)
            {
                return Construct(arguments);
            } 
            
            if(arguments[0] == Null.Instance || arguments[0] == Undefined.Instance)
            {
                return Construct(arguments);
            }

            return TypeConverter.ToObject(_engine, arguments[0]);
        }

        /// <summary>
        /// http://www.ecma-international.org/ecma-262/5.1/#sec-15.2.2.1
        /// </summary>
        /// <param name="arguments"></param>
        /// <returns></returns>
        public ObjectInstance Construct(object[] arguments)
        {
            if (arguments.Length > 0)
            {
                var value = arguments[0];
                var valueObj = value as ObjectInstance;
                if (valueObj != null)
                {
                    return valueObj;
                }
                var type = TypeConverter.GetType(value);
                if (type == TypeCode.String || type == TypeCode.Double || type == TypeCode.Boolean)
                {
                    return TypeConverter.ToObject(_engine, value);
                }
            }

            var obj = new ObjectInstance(_engine)
                {
                    Extensible = true,
                    Prototype = Engine.Object.PrototypeObject
                };

            return obj;
        }

        public object GetPrototypeOf(object thisObject, object[] arguments)
        {
            if (TypeConverter.GetType(thisObject) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = thisObject as ObjectInstance;

            return o.Prototype ?? Null.Instance;
        }

        public object GetOwnPropertyDescriptor(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            var p = arguments.Length > 1 ? arguments[1] : Undefined.Instance;
            var name = TypeConverter.ToString(p);

            var desc = o.GetOwnProperty(name);
            return PropertyDescriptor.FromPropertyDescriptor(Engine, desc);
        }

        public object GetOwnPropertyNames(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            var array = Engine.Array.Construct(Arguments.Empty);
            var n = 0;
            foreach (var p in o.Properties)
            {
                array.DefineOwnProperty(n.ToString(), new DataDescriptor(p.Key) { Writable = true, Enumerable = true, Configurable = true }, false);
                n++;
            }

            return array;
        }

        public object Create(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var obj = Engine.Object.Construct(Arguments.Empty);
            obj.Prototype = thisObject as ObjectInstance;

            var properties = arguments.Length > 1 ? arguments[1] : Undefined.Instance;
            if (properties != Undefined.Instance)
            {
                DefineProperties(thisObject, new [] {obj, properties});
            }

            return obj;
        }

        public object DefineProperty(object thisObject, object[] arguments)
        {
            var o = arguments[0] as ObjectInstance;
            var p = arguments[1];
            var attributes = arguments[2] as ObjectInstance;
            
            if (o == null)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            if (attributes == null)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var name = TypeConverter.ToString(p);
            var desc = PropertyDescriptor.ToPropertyDescriptor(Engine, attributes);
            o.DefineOwnProperty(name, desc, true);
            return o;
        }

        public object DefineProperties(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            var properties = arguments.Length > 1 ? arguments[1] : Undefined.Instance;
            var props = TypeConverter.ToObject(Engine, properties);
            var names = props.Properties.Keys;
            var descriptors = new List<KeyValuePair<string, PropertyDescriptor>>();
            foreach (var p in names)
            {
                var descObj = props.Get(p);
                var desc = PropertyDescriptor.ToPropertyDescriptor(Engine, descObj);
                descriptors.Add(new KeyValuePair<string, PropertyDescriptor>(p, desc));
            }
            foreach (var pair in descriptors)
            {
                o.DefineOwnProperty(pair.Key, pair.Value, true);
            }

            return o;
        }

        public object Seal(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            foreach (var prop in o.Properties)
            {
                if (prop.Value.ConfigurableIsSet)
                {
                    prop.Value.Configurable = false;
                }

                o.DefineOwnProperty(prop.Key, prop.Value, true);
            }

            o.Extensible = false;

            return o;
        }

        public object Freeze(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            foreach (var prop in o.Properties)
            {
                if (prop.Value.IsDataDescriptor())
                {
                    var datadesc = prop.Value.As<DataDescriptor>();
                    if (datadesc.WritableIsSet)
                    {
                        datadesc.Writable = false;
                    }
                }
                if (prop.Value.ConfigurableIsSet)
                {
                    prop.Value.Configurable = false;
                }
                o.DefineOwnProperty(prop.Key, prop.Value, true);
            }
            
            o.Extensible = false;
         
            return o;
        }

        public object PreventExtensions(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            o.Extensible = false;

            return o;
        }

        public object IsSealed(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            foreach (var prop in o.Properties)
            {
                if (prop.Value.ConfigurableIsSet)
                {
                    return false;
                }
            }

            if (o.Extensible)
            {
                return true;
            }

            return false;
        }

        public object IsFrozen(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            foreach (var prop in o.Properties)
            {
                if (prop.Value.IsDataDescriptor())
                {
                    if (prop.Value.As<DataDescriptor>().WritableIsSet)
                    {
                        return false;
                    }
                }
                if (prop.Value.ConfigurableIsSet)
                {
                    return false;
                }
            }

            if (o.Extensible)
            {
                return true;
            }

            return false;
        }

        public object IsExtensible(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            return o.Extensible;
        }

        public object Keys(object thisObject, object[] arguments)
        {
            var oArg = arguments.Length > 0 ? arguments[0] : Undefined.Instance;
            if (TypeConverter.GetType(oArg) != TypeCode.Object)
            {
                throw new JavaScriptException(Engine.TypeError);
            }

            var o = oArg as ObjectInstance;

            var n = o.Properties.Values.Count(x => x.EnumerableIsSet);
            var array = Engine.Array.Construct(new object[] {n});
            var index = 0;
            foreach (var prop in o.Properties.Where(x => x.Value.EnumerableIsSet))
            {
                array.DefineOwnProperty(index.ToString(), new DataDescriptor(prop.Key) { Writable = true, Enumerable = true, Configurable = true }, false);
                index++;
            }
            return array;
        }
    }
}