using Ryujinx.Common;
using Ryujinx.HLE.HOS;
using Ryujinx.HLE.HOS.Ipc;
using Ryujinx.HLE.HOS.Kernel.Ipc;
using Ryujinx.HLE.HOS.Services;
using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Linq;
using System.Reflection;
using System.Runtime.Serialization;
using System.Text;

namespace Ryujinx.HLE.Exceptions
{
    [Serializable]
    internal class ServiceNotImplementedException : Exception
    {
        public ServiceCtx Context { get; }
        public IpcMessage Request { get; }

        public ServiceNotImplementedException(ServiceCtx context)
            : this(context, "The service call is not implemented.")
        { }

        public ServiceNotImplementedException(ServiceCtx context, string message)
            : base(message)
        {
            Context = context;
            Request = context.Request;
        }

        public ServiceNotImplementedException(ServiceCtx context, string message, Exception inner)
            : base(message, inner)
        {
            Context = context;
            Request = context.Request;
        }

        protected ServiceNotImplementedException(SerializationInfo info, StreamingContext context) 
            : base(info, context)
        { }

        public override string Message
        {
            get
            {
                return base.Message +
                        Environment.NewLine +
                        Environment.NewLine +
                        BuildMessage();
            }
        }

        private string BuildMessage()
        {
            StringBuilder sb = new StringBuilder();

            // Print the IPC command details (service name, command ID, and handler)
            (Type callingType, MethodBase callingMethod) = WalkStackTrace(new StackTrace(this));

            if (callingType != null && callingMethod != null)
            {
                var ipcService  = Context.Session.Service;
                var ipcCommands = ipcService.Commands;

                // Find the handler for the method called
                var ipcHandler   = ipcCommands.FirstOrDefault(x => x.Value.Method == callingMethod);
                var ipcCommandId = ipcHandler.Key;
                var ipcMethod    = ipcHandler.Value;

                if (ipcMethod != null)
                {
                    sb.AppendLine($"Service Command: {ipcService.GetType().FullName}: {ipcCommandId} ({ipcMethod.Method.Name})");
                    sb.AppendLine();
                }
            }

            // Print buffer information
            sb.AppendLine("Buffer Information");

            if (Request.PtrBuff.Count > 0)
            {
                sb.AppendLine("\tPtrBuff:");

                foreach (var buff in Request.PtrBuff)
                {
                    sb.AppendLine($"\t[{buff.Index}] Position: 0x{buff.Position:x16} Size: 0x{buff.Size:x16}");
                }
            }

            if (Request.SendBuff.Count > 0)
            {
                sb.AppendLine("\tSendBuff:");

                foreach (var buff in Request.SendBuff)
                {
                    sb.AppendLine($"\tPosition: 0x{buff.Position:x16} Size: 0x{buff.Size:x16} Flags: {buff.Flags}");
                }
            }

            if (Request.ReceiveBuff.Count > 0)
            {
                sb.AppendLine("\tReceiveBuff:");

                foreach (var buff in Request.ReceiveBuff)
                {
                    sb.AppendLine($"\tPosition: 0x{buff.Position:x16} Size: 0x{buff.Size:x16} Flags: {buff.Flags}");
                }
            }

            if (Request.ExchangeBuff.Count > 0)
            {
                sb.AppendLine("\tExchangeBuff:");

                foreach (var buff in Request.ExchangeBuff)
                {
                    sb.AppendLine($"\tPosition: 0x{buff.Position:x16} Size: 0x{buff.Size:x16} Flags: {buff.Flags}");
                }
            }

            if (Request.RecvListBuff.Count > 0)
            {
                sb.AppendLine("\tRecvListBuff:");

                foreach (var buff in Request.RecvListBuff)
                {
                    sb.AppendLine($"\tPosition: 0x{buff.Position:x16} Size: 0x{buff.Size:x16}");
                }
            }

            sb.AppendLine();

            sb.AppendLine("Raw Request Data:");
            sb.Append(HexUtils.HexTable(Request.RawData));

            return sb.ToString();
        }

        private (Type, MethodBase) WalkStackTrace(StackTrace trace)
        {
            int i = 0;

            StackFrame frame;
            // Find the IIpcService method that threw this exception
            while ((frame = trace.GetFrame(i++)) != null)
            {
                var method   = frame.GetMethod();
                var declType = method.DeclaringType;

                if (typeof(IIpcService).IsAssignableFrom(declType))
                {
                    return (declType, method);
                }
            }

            return (null, null);
        }
    }
}