namespace X86Disassembler.X86.Handlers.FloatingPoint;

/// <summary>
/// Handler for floating-point load, store, and control operations (D9 opcode)
/// </summary>
public class LoadStoreControlHandler : InstructionHandler
{
    // D9 opcode - load, store, and control operations
    private static readonly string[] Mnemonics =
    [
        "fld",
        "??",
        "fst",
        "fstp",
        "fldenv",
        "fldcw",
        "fnstenv",
        "fnstcw"
    ];
    
    /// <summary>
    /// Initializes a new instance of the LoadStoreControlHandler class
    /// </summary>
    /// <param name="codeBuffer">The buffer containing the code to decode</param>
    /// <param name="decoder">The instruction decoder that owns this handler</param>
    /// <param name="length">The length of the buffer</param>
    public LoadStoreControlHandler(byte[] codeBuffer, InstructionDecoder decoder, int length) 
        : base(codeBuffer, decoder, length)
    {
    }
    
    /// <summary>
    /// Checks if this handler can decode the given opcode
    /// </summary>
    /// <param name="opcode">The opcode to check</param>
    /// <returns>True if this handler can decode the opcode</returns>
    public override bool CanHandle(byte opcode)
    {
        return opcode == 0xD9;
    }
    
    /// <summary>
    /// Decodes a floating-point instruction for load, store, and control operations
    /// </summary>
    /// <param name="opcode">The opcode of the instruction</param>
    /// <param name="instruction">The instruction object to populate</param>
    /// <returns>True if the instruction was successfully decoded</returns>
    public override bool Decode(byte opcode, Instruction instruction)
    {
        int position = Decoder.GetPosition();
        
        if (position >= Length)
        {
            return false;
        }
        
        // Read the ModR/M byte
        var (mod, reg, rm, destOperand) = ModRMDecoder.ReadModRM();
        
        // Set the mnemonic based on the opcode and reg field
        instruction.Mnemonic = Mnemonics[(int)reg];
        
        // For memory operands, set the operand
        if (mod != 3) // Memory operand
        {
            // Different operand types based on the instruction
            if (reg == RegisterIndex.A || reg == RegisterIndex.C || reg == RegisterIndex.D) // fld, fst, fstp
            {
                // Keep the dword ptr prefix from ModRMDecoder
                instruction.Operands = destOperand;
            }
            else // fldenv, fldcw, fnstenv, fnstcw
            {
                if (reg == RegisterIndex.Di) // fldcw - should use word ptr
                {
                    instruction.Operands = destOperand.Replace("dword ptr", "word ptr");
                }
                else // fldenv, fnstenv, fnstcw
                {
                    // Remove the dword ptr prefix for other control operations
                    instruction.Operands = destOperand.Replace("dword ptr ", "");
                }
            }
        }
        else // Register operand (ST(i))
        {
            // Special handling for D9C0-D9FF (register-register operations)
            if (reg == RegisterIndex.A) // FLD ST(i)
            {
                instruction.Operands = $"st({(int)rm})";
            }
            else if (reg == RegisterIndex.B) // FXCH ST(i)
            {
                instruction.Mnemonic = "fxch";
                instruction.Operands = $"st({(int)rm})";
            }
            else if (reg == RegisterIndex.Si)
            {
                // D9E0-D9EF special instructions
                switch (rm)
                {
                    case RegisterIndex.A:
                        instruction.Mnemonic = "fchs";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.B:
                        instruction.Mnemonic = "fabs";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Si:
                        instruction.Mnemonic = "ftst";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Di:
                        instruction.Mnemonic = "fxam";
                        instruction.Operands = "";
                        break;
                    default:
                        instruction.Mnemonic = "??";
                        instruction.Operands = "";
                        break;
                }
            }
            else if (reg == RegisterIndex.Di)
            {
                // D9F0-D9FF special instructions
                switch (rm)
                {
                    case RegisterIndex.A:
                        instruction.Mnemonic = "f2xm1";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.B:
                        instruction.Mnemonic = "fyl2x";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.C:
                        instruction.Mnemonic = "fptan";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.D:
                        instruction.Mnemonic = "fpatan";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Si:
                        instruction.Mnemonic = "fxtract";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Di:
                        instruction.Mnemonic = "fprem1";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Sp:
                        instruction.Mnemonic = "fdecstp";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Bp:
                        instruction.Mnemonic = "fincstp";
                        instruction.Operands = "";
                        break;
                    default:
                        instruction.Mnemonic = "??";
                        instruction.Operands = "";
                        break;
                }
            }
            else if (reg == RegisterIndex.Sp)
            {
                // D9F0-D9FF more special instructions
                switch (rm)
                {
                    case RegisterIndex.A:
                        instruction.Mnemonic = "fprem";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.B:
                        instruction.Mnemonic = "fyl2xp1";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.C:
                        instruction.Mnemonic = "fsqrt";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.D:
                        instruction.Mnemonic = "fsincos";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Si:
                        instruction.Mnemonic = "frndint";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Di:
                        instruction.Mnemonic = "fscale";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Sp:
                        instruction.Mnemonic = "fsin";
                        instruction.Operands = "";
                        break;
                    case RegisterIndex.Bp:
                        instruction.Mnemonic = "fcos";
                        instruction.Operands = "";
                        break;
                    default:
                        instruction.Mnemonic = "??";
                        instruction.Operands = "";
                        break;
                }
            }
        }
        
        return true;
    }
}