using Luban.Common.Utils;
using Luban.Job.Cfg.Datas;
using Luban.Job.Cfg.Defs;
using Luban.Job.Cfg.Utils;
using Luban.Job.Common.Types;
using Luban.Job.Common.TypeVisitors;
using Neo.IronLua;
using System;
using System.Collections.Generic;
using System.Numerics;

namespace Luban.Job.Cfg.DataCreators
{
    class LuaDataCreator : ITypeFuncVisitor<object, DefAssembly, DType>
    {
        public static LuaDataCreator Ins { get; } = new LuaDataCreator();

        public DType Accept(TBool type, object x, DefAssembly ass)
        {
            return new DBool((bool)x);
        }

        public DType Accept(TByte type, object x, DefAssembly ass)
        {
            return new DByte((byte)(int)x);
        }

        public DType Accept(TShort type, object x, DefAssembly ass)
        {
            return new DShort((short)(int)x);
        }

        public DType Accept(TFshort type, object x, DefAssembly ass)
        {
            return new DFshort((short)(int)x);
        }

        public DType Accept(TInt type, object x, DefAssembly ass)
        {
            return new DInt((int)x);
        }

        public DType Accept(TFint type, object x, DefAssembly ass)
        {
            return new DFint((int)x);
        }

        private long ToLong(object x)
        {
            return x switch
            {
                int a => a,
                long b => b,
                double c => (long)c,
                float d => (long)d,
                _ => throw new Exception($"{x} 不是 long 类型数据"),
            };
        }

        private float ToFloat(object x)
        {
            return x switch
            {
                int a => a,
                long b => b,
                double c => (float)c,
                float d => d,
                _ => throw new Exception($"{x} 不是 float 类型数据"),
            };
        }

        private double ToDouble(object x)
        {
            return x switch
            {
                int a => a,
                long b => b,
                double c => c,
                float d => d,
                _ => throw new Exception($"{x} 不是 double 类型数据"),
            };
        }

        public DType Accept(TLong type, object x, DefAssembly ass)
        {
            return new DLong(ToLong(x));
        }

        public DType Accept(TFlong type, object x, DefAssembly ass)
        {
            return new DFlong(ToLong(x));
        }

        public DType Accept(TFloat type, object x, DefAssembly ass)
        {
            return new DFloat(ToFloat(x));
        }

        public DType Accept(TDouble type, object x, DefAssembly ass)
        {
            return new DDouble(ToDouble(x));
        }

        public DType Accept(TEnum type, object x, DefAssembly ass)
        {
            return new DEnum(type, x?.ToString());
        }

        public DType Accept(TString type, object x, DefAssembly ass)
        {
            if (x is string s)
            {
                return new DString(s);
            }
            else
            {
                throw new Exception($"{x} 不是 double 类型数据");
            }
        }

        public DType Accept(TBytes type, object x, DefAssembly ass)
        {
            throw new NotSupportedException();
        }

        public DType Accept(TText type, object x, DefAssembly ass)
        {
            var table = (LuaTable)x;
            if (table == null)
            {
                throw new Exception($"字段不是 text类型({{key=xx,text=yy}}}})");
            }
            string key = (string)table["key"];
            string text = (string)table["text"];
            if (key == null)
            {
                throw new Exception("text缺失key属性");
            }
            if (text == null)
            {
                throw new Exception("text缺失text属性");
            }
            DataUtil.ValidateText(key, text);
            return new DText(key, text);
        }

        public DType Accept(TBean type, object x, DefAssembly ass)
        {
            var table = (LuaTable)x;
            var bean = (DefBean)type.Bean;

            DefBean implBean;
            if (bean.IsAbstractType)
            {
                if (!table.ContainsKey(DefBean.TYPE_NAME_KEY))
                {
                    throw new Exception($"结构:{bean.FullName} 是多态类型，必须用 {DefBean.TYPE_NAME_KEY} 字段指定 子类名");
                }
                var subType = (string)table[DefBean.TYPE_NAME_KEY];

                string fullName = TypeUtil.MakeFullName(bean.Namespace, subType);
                var defType = (DefBean)bean.GetNotAbstractChildType(subType);
                //if (defType.IsAbstractType)
                //{
                //    throw new Exception($"type:{fullName} 是抽象类. 不能创建实例");
                //}
                implBean = defType ?? throw new Exception($"type:{fullName} 不是合法类型");
            }
            else
            {
                implBean = bean;
            }

            var fields = new List<DType>();
            foreach (var field in implBean.HierarchyFields)
            {
                var ele = table[field.Name];

                if (ele != null)
                {
                    try
                    {
                        // Console.WriteLine("field:{0} type:{1} value:{2}", field.Name, ele.GetType(), ele);
                        fields.Add(field.CType.Apply(this, ele, ass));
                    }
                    catch (Exception e)
                    {
                        throw new Exception($"结构:{implBean.FullName} 字段:{field.Name} 读取失败 => {e.Message}", e);
                    }
                }
                else
                {
                    throw new Exception($"结构:{implBean.FullName} 字段:{field.Name} 缺失");
                }
            }
            return new DBean(bean, implBean, fields);
        }

        private List<DType> ReadList(TType type, LuaTable e, DefAssembly ass)
        {
            var list = new List<DType>();
            foreach (var c in e.ArrayList)
            {
                list.Add(type.Apply(this, c, ass));
            }
            return list;
        }

        public DType Accept(TArray type, object x, DefAssembly ass)
        {
            return new DArray(type, ReadList(type.ElementType, (LuaTable)x, ass));
        }

        public DType Accept(TList type, object x, DefAssembly ass)
        {
            return new DList(type, ReadList(type.ElementType, (LuaTable)x, ass));
        }

        public DType Accept(TSet type, object x, DefAssembly ass)
        {
            return new DSet(type, ReadList(type.ElementType, (LuaTable)x, ass));
        }

        public DType Accept(TMap type, object x, DefAssembly ass)
        {
            var table = (LuaTable)x;
            var map = new Dictionary<DType, DType>();
            foreach (var e in table.Values)
            {
                DType key = type.KeyType.Apply(this, e.Key, ass);
                DType value = type.ValueType.Apply(this, e.Value, ass);
                if (!map.TryAdd(key, value))
                {
                    throw new Exception($"map 的 key:{key} 重复");
                }
            }
            return new DMap(type, map);
        }

        public DType Accept(TVector2 type, object x, DefAssembly ass)
        {
            var table = (LuaTable)x;
            return new DVector2(new Vector2(ToFloat(table["x"]), ToFloat(table["y"])));
        }

        public DType Accept(TVector3 type, object x, DefAssembly ass)
        {
            var table = (LuaTable)x;
            return new DVector3(new Vector3(ToFloat(table["x"]), ToFloat(table["y"]), ToFloat(table["z"])));
        }

        public DType Accept(TVector4 type, object x, DefAssembly ass)
        {
            var table = (LuaTable)x;
            return new DVector4(new Vector4(ToFloat(table["x"]), ToFloat(table["y"]), ToFloat(table["z"]), ToFloat(table["w"])));
        }

        public DType Accept(TDateTime type, object x, DefAssembly ass)
        {
            return DataUtil.CreateDateTime(x.ToString());
        }
    }
}