using System;
using System.Collections;
using System.Collections.Generic;
using System.Reflection;
using System.Text;

namespace DCFApixels.DragonECS.Core.Internal
{
    internal static class JsonDebugger
    {
        private readonly static List<string> _indentsChache = new List<string>();
        internal static string ToJsonLog(object obj)
        {
            if (obj == null) { return "null"; }
            var sb = new StringBuilder();
            int linesCounter = 0;
            var visited = new Dictionary<object, int>();
            ToJsonLog(ref linesCounter, obj, sb, visited, 0, 2);
            string json = sb.ToString();
            return json;
        }
        private static string GetIndentString(int count)
        {
            int newSize = count + 1;
            while (newSize > _indentsChache.Count)
            {
                _indentsChache.Add(new string(' ', _indentsChache.Count));
            }
            return _indentsChache[count];
        }
        private static void NewLine(
            ref int linesCounter,
            StringBuilder sb,
            int indent,
            int indentStep)
        {
            sb.AppendLine();
            sb.Append(GetIndentString(indent * indentStep));
            linesCounter++;
        }
        private static void ToJsonLog(
            ref int linesCounter,
            object value,
            StringBuilder sb,
            Dictionary<object, int> visited,
            int indent,
            int indentStep)
        {
            if (value == null)
            {
                sb.Append("null");
                return;
            }

            Type type = value.GetType();

            if (value is IEnumerable<char> rawString)
            {
                sb.Append('"');
                string str = value as string;
                if (str == null)
                {
                    str = rawString.ToString();
                }
                EscapeString(str, sb);
                sb.Append('"');
                return;
            }

            if (type == typeof(float))
            {
                sb.Append(((float)value).ToString(System.Globalization.CultureInfo.InvariantCulture));
                return;
            }
            if(type == typeof(double))
            {
                sb.Append(((double)value).ToString(System.Globalization.CultureInfo.InvariantCulture));
                return;
            }
            if (type == typeof(decimal))
            {
                sb.Append(((decimal)value).ToString(System.Globalization.CultureInfo.InvariantCulture));
                return;
            }
            if (type == typeof(bool))
            {
                sb.Append((bool)value ? "true" : "false");
                return;
            }
            if (type.IsEnum)
            {
                if(type.TryGetAttribute(out FlagsAttribute _))
                {
                    sb.Append(type.FullName);
                    sb.Append('.');
                    sb.Append(value.ToString());
                }
                else
                {
                    sb.Append(value.ToString());
                }

                return;
            }
            if (type == typeof(DateTime))
            {
                sb.Append('"');
                sb.Append(((DateTime)value).ToString("yyyy-MM-ddTHH:mm:ss.fffZ", System.Globalization.CultureInfo.InvariantCulture));
                sb.Append('"');
                return;
            }
            if (type == typeof(Guid))
            {
                sb.Append('"');
                sb.Append(value.ToString());
                sb.Append('"');
                return;
            }
            if (type.IsPrimitive)
            {
                sb.Append(value);
                return;
            }
            if (value is Exception e)
            {
                sb.Append('"');
                sb.Append(type.Name);
                sb.Append(':').Append(' ');
                sb.Append(e.Message);
                sb.Append('"');
                return;
            }
            if (value is Type t)
            {
                sb.Append('"');
                sb.Append(t.GetMeta().TypeName);
                sb.Append('"');
                return;
            }
            if (type.Namespace == typeof(FieldInfo).Namespace || type.IsPointer)
            {
                sb.Append('"');
                sb.Append(value.ToString());
                sb.Append('"');
                return;
            }

            if (value is Delegate del)
            {
                var list = del.GetInvocationList();
                if (list.Length == 0)
                {
                    sb.Append("null");
                    return;
                }
                if (list.Length == 1)
                {
                    sb.Append('"');
                    sb.Append(del.Target.GetType().FullName);
                    sb.Append('.');
                    sb.Append(del.Method.Name);
                    sb.Append('"');
                    return;
                }
                ToJsonLog(ref linesCounter, list, sb, visited, indent, indentStep);
                return;
            }

            if (type.IsValueType == false)
            {
                if (visited.TryGetValue(value, out var line))
                {
                    sb.Append('#');
                    sb.Append(type.Name);
                    sb.Append('#');
                    sb.Append(line);
                    sb.Append('#');
                    return;
                }
                visited.Add(value, linesCounter);
            }

            // Collections
            IEnumerable enumerable = value as IEnumerable;
            if(enumerable != null)
            {
                try
                {
                    enumerable.GetEnumerator();
                }
                catch (Exception)
                {
                    enumerable = null;
                }
            }
            if (enumerable != null)
            {
                sb.Append('[');
                bool first = true;

                foreach (object item in enumerable)
                {
                    if (!first) { sb.Append(','); } else { first = false; }
                    NewLine(ref linesCounter, sb, indent + 1, indentStep);
                    ToJsonLog(ref linesCounter, item, sb, visited, indent + 1, indentStep);
                }

                // перенос строки если были элементы
                if (!first)
                {
                    NewLine(ref linesCounter, sb, indent, indentStep);
                }
                sb.Append(']');
            }
            else // Object
            {
                sb.Append('{');
                {
                    NewLine(ref linesCounter, sb, indent + 1, indentStep);
                    sb.Append("\"Type\": ");

                    ToJsonLog(ref linesCounter, type, sb, visited, indent + 1, indentStep);
                }

                // Fields
                var fields = type.GetFields(BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
                foreach (var field in fields)
                {
                    if (field.IsStatic) { continue; }

                    NewLine(ref linesCounter, sb, indent + 1, indentStep);
                    sb.Append('"');
                    sb.Append(field.Name);
                    sb.Append('"');
                    sb.Append(':').Append(' ');

                    object fieldValue = field.GetValue(value);
                    ToJsonLog(ref linesCounter, fieldValue, sb, visited, indent + 1, 2);
                }

                // Properties
                var properties = type.GetProperties(BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
                foreach (var prop in properties)
                {
                    if (prop.GetIndexParameters().Length > 0 ||
                        prop.GetMethod == null ||
                        prop.GetMethod.IsStatic)
                    {
                        continue;
                    }

                    NewLine(ref linesCounter, sb, indent + 1, indentStep);
                    sb.Append('"');
                    sb.Append(prop.Name);
                    sb.Append('"');
                    sb.Append(':').Append(' ');

                    object propValue;
                    try
                    {
                        propValue = prop.GetValue(value);
                    }
                    catch (Exception cathcedE)
                    {
                        propValue = cathcedE;
                    }
                    ToJsonLog(ref linesCounter, propValue, sb, visited, indent + 1, indentStep);
                }

                NewLine(ref linesCounter, sb, indent, indentStep);
                sb.Append('}');
            }

            //visited.Remove(value);
        }

        private static void EscapeString(string s, StringBuilder sb)
        {
            foreach (char c in s)
            {
                switch (c)
                {
                    case '"': sb.Append("\\\""); break;
                    case '\\': sb.Append("\\\\"); break;
                    case '\b': sb.Append("\\b"); break;
                    case '\f': sb.Append("\\f"); break;
                    case '\n': sb.Append("\\n"); break;
                    case '\r': sb.Append("\\r"); break;
                    case '\t': sb.Append("\\t"); break;
                    default:
                        if (char.IsControl(c))
                        {
                            sb.AppendFormat("\\u{0:x4}", (int)c);
                        }
                        else
                        {
                            sb.Append(c);
                        }
                        break;
                }
            }
        }
    }
}