from stdint import *
import t, c
import stdio
import string
import w32.win32console
import w32.win32memory
import testcheck

# ============================================================
# PointerTest - 测试指针操作、global声明、数组退化、指针算术
# ============================================================

# --- Test 1: global 声明对模块级变量的影响 ---
_g_val: t.CInt = 0
_g_ptr: t.CUInt32T | t.CPtr = None

def test_global_write():
    """测试：缺少 global 声明时，赋值是否修改模块级变量"""
    global _g_val
    _g_val = 42

def test_global_write_no_decl():
    """测试：没有 global 声明时，赋值是否创建局部变量"""
    # 注意：这里故意不声明 global，测试编译器行为
    # 如果 _g_val 在此函数之前被读取过，赋值会修改全局变量
    # 如果 _g_val 在此函数中首次被赋值，会创建局部变量
    _g_val = 99  # 这应该创建一个局部变量

def test_global_ptr():
    global _g_ptr
    buf: t.CUInt32T | t.CPtr = w32.win32memory.VirtualAlloc(None, 256, 0x3000, 0x04)
    if buf:
        string.memset(buf, 0, 256)
        _g_ptr = buf
        p: t.CUInt32T | t.CPtr = _g_ptr
        p[0] = 0xAABBCCDD
        p[1] = 0x11223344

def test_global_ptr_no_decl():
    """测试：没有 global 声明时，指针赋值是否创建局部变量"""
    # _g_ptr 在 test_global_ptr 中已被赋值（有 global）
    # 这里读取 _g_ptr 然后赋值 — 读取会将全局变量加入 Gen.variables
    # 所以后续赋值应该修改全局变量
    old: t.CUInt32T | t.CPtr = _g_ptr  # 读取 -> 加入 Gen.variables
    _g_ptr = None  # 因为之前读取过，这应该修改全局变量


# --- Test 2: 指针算术和数组索引 ---
def test_pointer_arithmetic():
    """测试指针算术：偏移计算是否正确"""
    buf: t.CUInt32T | t.CPtr = w32.win32memory.VirtualAlloc(None, 256, 0x3000, 0x04)
    if not buf:
        testcheck.fail("pointer arithmetic: VirtualAlloc returned NULL")
        return
    string.memset(buf, 0, 256)

    # 写入值
    for i in range(8):
        buf[i] = t.CUInt32T(i * 100)

    # 读取并验证
    ok: t.CInt = 1
    for i in range(8):
        v: t.CUInt32T = buf[i]
        expected: t.CUInt32T = t.CUInt32T(i * 100)
        if v != expected:
            stdio.printf("buf[%d] = 0x%x, expected 0x%x\n", i, v, expected)
            ok = 0
    testcheck.check(ok, "pointer arithmetic (buf[i] = i*100)", "pointer arithmetic mismatch")


# --- Test 3: 数组退化为指针 ---
def test_array_decay():
    """测试 list[t.CChar, N] 传递给 t.CConst | str 参数"""
    arr: t.CArray[t.CChar, 32]
    string.memset(c.Addr(arr), 0, 32)
    # 手动写入字符串
    src: str = "Hello"
    for i in range(5):
        arr[i] = t.CChar(ord(src[i]))
    arr[5] = 0

    # 传递给 print (接受 t.CConst | str)
    stdio.printf("array decay -> %s\n", c.Addr(arr))
    testcheck.ok("array decay (Hello)")


# --- Test 4: 指针类型转换 (CVoid/CPtr) ---
def test_pointer_cast():
    """测试指针与整数之间的类型转换"""
    buf: t.CUInt32T | t.CPtr = w32.win32memory.VirtualAlloc(None, 256, 0x3000, 0x04)
    if not buf:
        testcheck.fail("pointer cast: VirtualAlloc returned NULL")
        return
    string.memset(buf, 0, 256)

    # 通过 CVoid 指针写入
    raw: t.CVoid | t.CPtr = t.CVoid(t.CUInt64T(buf), t.CPtr)
    # 将 CVoid 指针转回 CUInt32T 指针
    p32: t.CUInt32T | t.CPtr = (t.CUInt32T | t.CPtr)(raw)
    p32[0] = 0xDEADBEEF

    # 通过原始指针读取
    if buf[0] == 0xDEADBEEF:
        testcheck.ok("pointer cast CVoid -> CUInt32T*")
    else:
        stdio.printf("got 0x%x\n", buf[0])
        testcheck.fail("pointer cast failed")


# --- Test 5: 指针偏移计算 (byte offset vs element offset) ---
def test_pointer_offset():
    """测试指针偏移：CUInt8T* + N 应该偏移 N 字节，CUInt32T* + N 应该偏移 N*4 字节"""
    buf: t.CUInt8T | t.CPtr = w32.win32memory.VirtualAlloc(None, 256, 0x3000, 0x04)
    if not buf:
        testcheck.fail("pointer offset: VirtualAlloc returned NULL")
        return
    string.memset(buf, 0, 256)

    # 写入 4 字节
    buf[0] = 0x41  # 'A'
    buf[1] = 0x42  # 'B'
    buf[2] = 0x43  # 'C'
    buf[3] = 0x44  # 'D'

    # 通过 CUInt32T* 读取（应该读到 0x44434241 on little-endian）
    p32: t.CUInt32T | t.CPtr = (t.CUInt32T | t.CPtr)(t.CVoid(t.CUInt64T(buf), t.CPtr))
    val: t.CUInt32T = p32[0]

    # little-endian: 0x44434241
    if val == 0x44434241:
        testcheck.ok("byte offset vs element offset (0x44434241)")
    else:
        stdio.printf("expected 0x44434241, got 0x%x\n", val)
        testcheck.fail("byte offset vs element offset")


# --- Test 6: 结构体指针访问 ---
class TestStruct():
    a: t.CInt
    b: t.CInt
    c: t.CUInt64T

def test_struct_pointer():
    """测试结构体指针的成员访问"""
    s: TestStruct
    s.a = 10
    s.b = 20
    s.c = 0x123456789ABCDEF0

    p: TestStruct | t.CPtr = c.Addr(s)
    stdio.printf("struct pointer access (a=%d b=%d c=0x%llx)\n", p.a, p.b, p.c)
    testcheck.check(p.a == 10 and p.b == 20 and p.c == 0x123456789ABCDEF0, "struct pointer access", "struct pointer access mismatch")


# --- Test 7: memcpy/memset 通过指针 ---
def test_memcpy_pointers():
    """测试 memcpy 在指针之间的数据复制"""
    src_buf: t.CUInt32T | t.CPtr = w32.win32memory.VirtualAlloc(None, 64, 0x3000, 0x04)
    dst_buf: t.CUInt32T | t.CPtr = w32.win32memory.VirtualAlloc(None, 64, 0x3000, 0x04)
    if not src_buf or not dst_buf:
        testcheck.fail("memcpy: VirtualAlloc returned NULL")
        return

    # 初始化 src
    for i in range(8):
        src_buf[i] = t.CUInt32T(i + 1000)

    # 复制
    string.memcpy(t.CVoid(t.CUInt64T(dst_buf), t.CPtr), t.CVoid(t.CUInt64T(src_buf), t.CPtr), 32)

    # 验证
    ok: t.CInt = 1
    for i in range(8):
        if dst_buf[i] != t.CUInt32T(i + 1000):
            stdio.printf("dst[%d] = %u, expected %u\n", i, dst_buf[i], i + 1000)
            ok = 0
    testcheck.check(ok, "memcpy between pointers", "memcpy between pointers failed")


# --- Test 8: 指针作为函数参数 ---
def fill_array(arr: t.CUInt32T | t.CPtr, count: t.CInt, val: t.CUInt32T):
    for i in range(count):
        arr[i] = val

def test_pointer_param():
    """测试指针作为函数参数传递"""
    buf: t.CUInt32T | t.CPtr = w32.win32memory.VirtualAlloc(None, 64, 0x3000, 0x04)
    if not buf:
        testcheck.fail("pointer param: VirtualAlloc returned NULL")
        return

    fill_array(buf, 8, 0xCAFEBABE)

    ok: t.CInt = 1
    for i in range(8):
        if buf[i] != 0xCAFEBABE:
            ok = 0
    testcheck.check(ok, "pointer as function parameter", "pointer as function parameter failed")


def main() -> t.CInt | t.CExport:
    w32.win32console.SetConsoleCP(65001)
    w32.win32console.SetConsoleOutputCP(65001)

    print("你好")
    l: t.CArray[t.CChar, 2] = 0
    for i in "hello":
        l[0] = i
        print(l)
    
    u: t.CArray[t.CUInt64T | t.BigEndian, 2] = [0x4141414141414141, 0x0000000000000000]
    for i in c.Addr(u):
        # l[0] = i
        stdio.printf("0x%llx\n", i)

    k: t.CArray[t.CChar, 12] = ['1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C']
    for i in k:
        stdio.printf("%c\n", i)

    testcheck.begin("PointerTest: 指针操作基准测试")

    # Test 1: global 声明
    testcheck.section("Test 1: global declaration")
    _g_val = 0
    test_global_write()
    stdio.printf("After test_global_write(): _g_val = %d (expect 42)\n", _g_val)
    test_global_write_no_decl()
    stdio.printf("After test_global_write_no_decl(): _g_val = %d (expect 42, not 99)\n", _g_val)
    testcheck.check(_g_val == 42, "global declaration (_g_val = 42)", "global declaration failed")

    # Test 1b: global pointer
    testcheck.section("Test 1b: global pointer")
    test_global_ptr()
    if _g_ptr:
        p: t.CUInt32T | t.CPtr = _g_ptr
        stdio.printf("_g_ptr[0] = 0x%x (expect 0xAABBCCDD)\n", p[0])
        stdio.printf("_g_ptr[1] = 0x%x (expect 0x11223344)\n", p[1])
        testcheck.check(p[0] == 0xAABBCCDD and p[1] == 0x11223344, "global pointer values", "global pointer mismatch")
    test_global_ptr_no_decl()
    stdio.printf("After test_global_ptr_no_decl(): _g_ptr = %p (expect NULL/0)\n", t.CVoid(t.CUInt64T(_g_ptr), t.CPtr))
    testcheck.ok("global ptr no decl (set to NULL)")

    # Test 2: pointer arithmetic
    testcheck.section("Test 2: pointer arithmetic")
    test_pointer_arithmetic()

    # Test 3: array decay
    testcheck.section("Test 3: array decay")
    test_array_decay()

    # Test 4: pointer cast
    testcheck.section("Test 4: pointer cast")
    test_pointer_cast()

    # Test 5: pointer offset
    testcheck.section("Test 5: pointer offset (byte vs element)")
    test_pointer_offset()

    # Test 6: struct pointer
    testcheck.section("Test 6: struct pointer access")
    test_struct_pointer()

    # Test 7: memcpy pointers
    testcheck.section("Test 7: memcpy between pointers")
    test_memcpy_pointers()

    # Test 8: pointer as param
    testcheck.section("Test 8: pointer as function parameter")
    test_pointer_param()

    return testcheck.end()
