/*!
    @file src/VM/VM.hpp
    @brief 虚拟机核心执行引擎实现
    @author PuqiAR (im@puqiar.top)
    @date 2026-02-19
*/

#include <VM/VM.hpp>

#define BINARY_ARITHMETIC_OP(opCode, op)                                                                               \
    case OpCode::opCode: {                                                                                             \
        std::uint8_t b   = decodeB(inst);                                                                              \
        std::uint8_t c   = decodeC(inst);                                                                              \
        Value        lhs = registers[b];                                                                               \
        Value        rhs = registers[c];                                                                               \
        if (lhs.IsInt() && rhs.IsInt()) [[likely]]                                                                     \
        {                                                                                                              \
            registers[a] = Value::FromInt(lhs.AsInt() op rhs.AsInt());                                                 \
        }                                                                                                              \
        else if (lhs.IsDouble() && rhs.IsDouble()) [[likely]]                                                          \
        {                                                                                                              \
            registers[a] = Value::FromDouble(lhs.AsDouble() op rhs.AsDouble());                                        \
        }                                                                                                              \
        /* 隐式类型提升：Int 与 Double 混合运算 */                                                                     \
        else if (lhs.IsInt() && rhs.IsDouble()) [[likely]]                                                             \
        {                                                                                                              \
            registers[a] = Value::FromDouble(lhs.AsInt() op rhs.AsDouble());                                           \
        }                                                                                                              \
        else if (lhs.IsDouble() && rhs.IsInt()) [[likely]]                                                             \
        {                                                                                                              \
            registers[a] = Value::FromDouble(lhs.AsDouble() op rhs.AsInt());                                           \
        }                                                                                                              \
        else                                                                                                           \
        {                                                                                                              \
            assert(false && "VM Runtime Error: Unsupported types for arithmetic operation");                           \
        }                                                                                                              \
        break;                                                                                                         \
    }

#define BINARY_COMPARE_OP(opCode, op)                                                                                  \
    case OpCode::opCode: {                                                                                             \
        std::uint8_t b   = decodeB(inst);                                                                              \
        std::uint8_t c   = decodeC(inst);                                                                              \
        Value        lhs = registers[b];                                                                               \
        Value        rhs = registers[c];                                                                               \
        if (lhs.IsInt() && rhs.IsInt()) [[likely]]                                                                     \
        {                                                                                                              \
            registers[a] = (lhs.AsInt() op rhs.AsInt()) ? Value::GetTrueInstance() : Value::GetFalseInstance();        \
        }                                                                                                              \
        else if (lhs.IsDouble() && rhs.IsDouble()) [[likely]]                                                          \
        {                                                                                                              \
            registers[a] = (lhs.AsDouble() op rhs.AsDouble()) ? Value::GetTrueInstance() : Value::GetFalseInstance();  \
        }                                                                                                              \
        else if (lhs.IsInt() && rhs.IsDouble()) [[likely]]                                                             \
        {                                                                                                              \
            registers[a] = (lhs.AsInt() op rhs.AsDouble()) ? Value::GetTrueInstance() : Value::GetFalseInstance();     \
        }                                                                                                              \
        else if (lhs.IsDouble() && rhs.IsInt()) [[likely]]                                                             \
        {                                                                                                              \
            registers[a] = (lhs.AsDouble() op rhs.AsInt()) ? Value::GetTrueInstance() : Value::GetFalseInstance();     \
        }                                                                                                              \
        else                                                                                                           \
        {                                                                                                              \
            /* TODO: 非数字比较 */                                                                                     \
            assert(false && "VM Runtime Error: Unsupported types for comparison");                                     \
        }                                                                                                              \
        break;                                                                                                         \
    }

namespace Fig
{
    Result<Value, Error> VM::Execute(Proto *proto)
    {
        // 指令指针 (Instruction Pointer / PC) 和 常量池指针
        const Instruction *ip = proto->code.data();
        const Value       *k  = proto->constants.data();

        // 核心解释器循环 (The Dispatch Loop)
        while (true)
        {
            // 取指并递增指针
            Instruction inst = *ip++;

            // 解码 OpCode 和 A 操作数
            OpCode       op = decodeOpCode(inst);
            std::uint8_t a  = decodeA(inst);
            switch (op)
            {
                case OpCode::Exit: {
                    return Value::GetNullInstance();
                }

                case OpCode::LoadK: {
                    std::uint16_t bx = decodeBx(inst);
                    registers[a]     = k[bx]; // constants
                    break;
                }

                case OpCode::Return: {
                    return registers[a];
                }

                case OpCode::Jmp: {
                    std::int16_t sbx = decodeSBx(inst);
                    ip += sbx;
                    break;
                }

                case OpCode::JmpIfFalse: {
                    Value &v = registers[a];
                    bool cond = v.AsBool(); // 条件类型 Compiler检查
                    if (!cond)
                    {
                        std::int16_t sbx = decodeSBx(inst);
                        ip += sbx;
                    }
                    break;
                }

                case OpCode::Mov: {
                    std::uint16_t bx = decodeBx(inst);
                    registers[a]     = registers[bx];
                    break;
                }

                BINARY_ARITHMETIC_OP(Add, +);
                BINARY_ARITHMETIC_OP(Sub, -);
                BINARY_ARITHMETIC_OP(Mul, *);
                BINARY_ARITHMETIC_OP(Div, /);
                
                BINARY_COMPARE_OP(Equal, ==);
                BINARY_COMPARE_OP(NotEqual, !=);
                BINARY_COMPARE_OP(Greater, >);
                BINARY_COMPARE_OP(Less, <);
                BINARY_COMPARE_OP(GreaterEqual, >=);
                BINARY_COMPARE_OP(LessEqual, <=);


                default: {
                    assert(false && "VM: Unknown OpCode encountered!");
                }
            }
        }
        return Value::GetNullInstance();
    }
}; // namespace Fig