// Expect retcode = 0

// 开放寻址 + tombstone 哈希表。键和值都按字节复制到表自己的存储。
// 键类型由 hash_fn / eq_fn 解释：回调收到指向键字节的指针（如 *usize / *ByteView）。
// 普通赋值只复制句柄（与 Vec 一样），所有权转移必须使用 take。

type .{ .Error, .Status, .make } = @import("error.spl");
type .{ .Vec } = @import("vec.spl");
type .{ .ByteView } = @import("byte_view.spl");

#extern(vm) fn vm_map_valid(m: *any): i32;
#extern(vm) fn vm_map_reserve(m: *any, need: usize): i32;
#extern(vm) fn vm_map_put(m: *any, key: *any, val: *any): i32;
#extern(vm) fn vm_map_get(m: *any, key: *any, out: *any): i32;
#extern(vm) fn vm_map_del(m: *any, key: *any): i32;
#extern(vm) fn vm_map_clear(m: *any): void;
#extern(vm) fn vm_map_drop(m: *any): void;

// 槽位状态：Empty/Occupied/Deleted（墓碑，仅在扩容重哈希时清除）。
// 负载因子 70/128。

type SlotState = enum {
    Empty,
    Occupied,
    Deleted,
}

// 查找/删除结果：显式区分命中与缺失，替代 bool 哨兵。
type LookupResult = enum {
    Found,
    NotFound,
}

type Map = @self;

keys: Vec,
vals: Vec,
states: Vec,
size: usize,
key_size: usize,
val_size: usize,
hash_kind: usize,

// 键解释：0 = usize；1 = ByteView（按内容哈希/比较）。
fn hash_kind_usize(): usize { ret 0; }
fn hash_kind_view(): usize { ret 1; }
fn hash_kind_constant(): usize { ret 2; }

fn blank(key_size: usize, key_align: usize, val_size: usize, val_align: usize,
         hash_kind: usize): Map {
    ret Map {
        .keys = Vec.blank(key_size, key_align),
        .vals = Vec.blank(val_size, val_align),
        .states = Vec.blank(1, 1),
        .size = 0,
        .key_size = key_size,
        .val_size = val_size,
        .hash_kind = hash_kind,
    };
}

fn new(key_size: usize, key_align: usize, val_size: usize, val_align: usize,
       hash_kind: usize): Map {
    ret blank(key_size, key_align, val_size, val_align, hash_kind);
}

fn status_from_code(code: i32): Status {
    if code == 0 { ret .Ok; }
    if code == 2 { ret .Err(make(.OutOfRange)); }
    if code == 3 { ret .Err(make(.Overflow)); }
    if code == 4 { ret .Err(make(.InvalidAlignment)); }
    ret .Err(make(.InvalidArgument));
}

fn lookup_from_code(code: i32): LookupResult {
    if code == 0 { ret .Found; }
    ret .NotFound;
}

fn valid(self: *Map): bool {
    ret vm_map_valid(self as *any) != 0;
}

fn size(self: Map): usize {
    ret self.size;
}

fn capacity(self: Map): usize {
    ret self.states.cap;
}

// 迭代支持：遍历 [0, slot_count)，slot_state 为 1 时 key_at/val_at 有效。
fn slot_count(self: Map): usize {
    ret self.states.len;
}

fn slot_state(self: Map, index: usize): SlotState {
    var code = self.states.data[index];
    if code == 1 { ret .Occupied; }
    if code == 2 { ret .Deleted; }
    ret .Empty;
}

fn slot_occupied(state: SlotState): bool {
    match state {
        .Occupied => { ret true; },
        .Empty => { ret false; },
        .Deleted => { ret false; },
    }
    ret false;
}

fn key_at(self: *Map, index: usize): *u8 {
    ret self.keys.data + index * self.key_size;
}

fn val_at(self: *Map, index: usize): *u8 {
    ret self.vals.data + index * self.val_size;
}

// 保证至少 need 个槽位。所有检查在旧表改动前完成，失败保持原表不变。
fn reserve(self: *Map, need: usize): Status {
    ret status_from_code(vm_map_reserve(self as *any, need));
}

// 覆盖已存在的键；否则插入并可能扩容。
fn put(self: *Map, key: *u8, val: *u8): Status {
    ret status_from_code(vm_map_put(self as *any, key as *any, val as *any));
}

// 找到键则把值复制到 out 并返回 Found；否则 out 不变并返回 NotFound。
fn get(self: *Map, key: *u8, out: *u8): LookupResult {
    ret lookup_from_code(vm_map_get(self as *any, key as *any, out as *any));
}

fn del(self: *Map, key: *u8): LookupResult {
    ret lookup_from_code(vm_map_del(self as *any, key as *any));
}

// 清空内容但保留容量。墓碑与负载计数一并复位。
fn clear(self: *Map) {
    vm_map_clear(self as *any);
}

fn drop(self: *Map) {
    vm_map_drop(self as *any);
}

fn take(source: *Map): Map {
    var result = source.*;
    source.keys = Vec.blank(source.key_size, source.keys.elem_align);
    source.vals = Vec.blank(source.val_size, source.vals.elem_align);
    source.states = Vec.blank(1, 1);
    source.size = 0;
    ret result;
}

// ---- 测试辅助 ----

fn expect_ok(result: Status) {
    match result {
        .Ok => {},
        .Err(error) => { @assert(false, "unexpected Map error"); },
    }
}

fn expect_invalid(result: Status) {
    match result {
        .Ok => { @assert(false, "expected Map error"); },
        .Err(error) => {
            match error.kind {
                .InvalidArgument => {},
                _ => { @assert(false, "unexpected Map error kind"); },
            }
        },
    }
}

fn count_occupied(m: *Map): usize {
    var n: usize = 0;
    var i: usize = 0;
    while i < slot_count(m.*) {
        if slot_occupied(slot_state(m.*, i)) { n = n + 1; }
        i = i + 1;
    }
    ret n;
}

fn found(m: *Map, key: *u8, out: *u8): bool {
    match get(m, key, out) {
        .Found => { ret true; },
        .NotFound => { ret false; },
    }
    ret false;
}

fn deleted(m: *Map, key: *u8): bool {
    match del(m, key) {
        .Found => { ret true; },
        .NotFound => { ret false; },
    }
    ret false;
}

fn make_int_map(): Map {
    ret new(@sizeof(usize), @alignof(usize), @sizeof(i32), @alignof(i32), hash_kind_usize());
}

fn test_put_get_update() {
    var m = make_int_map();
    @assert(size(m) == 0 && capacity(m) == 0, "empty map");
    @assert(valid(&m));

    var key: usize = 0;
    var value: i32 = 0;
    var out: i32 = 0;

    expect_invalid(put(&m, null, &value as *u8));
    expect_invalid(put(&m, &key as *u8, null));
    @assert(size(m) == 0, "failed put preserves map");

    key = 7;
    value = 70;
    expect_ok(put(&m, &key as *u8, &value as *u8));
    @assert(size(m) == 1 && valid(&m));

    out = -1;
    @assert(found(&m, &key as *u8, &out as *u8) && out == 70, "insert then get");

    value = 71;
    expect_ok(put(&m, &key as *u8, &value as *u8));
    @assert(size(m) == 1, "update does not grow size");
    out = -1;
    @assert(found(&m, &key as *u8, &out as *u8) && out == 71, "update overwrites");

    key = 8;
    out = 123;
    @assert(!found(&m, &key as *u8, &out as *u8) && out == 123, "missing key preserves out");

    // drop 后还有断言，故保持手动释放，不改为 defer。
    drop(&m);
    @assert(size(m) == 0 && capacity(m) == 0, "drop resets map");
}

fn test_growth_and_delete() {
    var m = make_int_map();
    defer { drop(&m); }
    var i: i32 = 0;
    while i < 1000 {
        var key: usize = i as usize;
        var value: i32 = i * 3 - 7;
        expect_ok(put(&m, &key as *u8, &value as *u8));
        i = i + 1;
    }
    @assert(size(m) == 1000);
    @assert(count_occupied(&m) == 1000, "all slots accounted");

    i = 0;
    while i < 1000 {
        var key: usize = i as usize;
        var out: i32 = 0;
        @assert(found(&m, &key as *u8, &out as *u8), "get after growth");
        @assert(out == i * 3 - 7, "value after growth");
        i = i + 1;
    }

    i = 0;
    while i < 500 {
        var key: usize = i as usize;
        @assert(deleted(&m, &key as *u8));
        i = i + 1;
    }
    @assert(size(m) == 500 && count_occupied(&m) == 500, "deleted slots not occupied");

    i = 0;
    while i < 500 {
        var key: usize = i as usize;
        var out: i32 = 0;
        @assert(!found(&m, &key as *u8, &out as *u8), "deleted key missing");
        i = i + 1;
    }

    // 墓碑槽位可被再次插入复用，且不会重复计数。
    var key: usize = 12345;
    var value: i32 = 99;
    expect_ok(put(&m, &key as *u8, &value as *u8));
    @assert(size(m) == 501);
    var out: i32 = 0;
    @assert(found(&m, &key as *u8, &out as *u8) && out == 99, "reuse tombstone");

    @assert(deleted(&m, &key as *u8), "delete key");
    @assert(size(m) == 500);
    @assert(!found(&m, &key as *u8, &out as *u8));

    clear(&m);
    @assert(size(m) == 0 && count_occupied(&m) == 0, "clear empties");
}

fn test_take_and_self_put() {
    var m = make_int_map();
    defer { drop(&m); }
    var key: usize = 5;
    var value: i32 = 55;
    expect_ok(put(&m, &key as *u8, &value as *u8));

    var moved = take(&m);
    defer { drop(&moved); }
    @assert(size(m) == 0 && capacity(m) == 0, "take leaves source empty");
    var out: i32 = 0;
    @assert(found(&moved, &key as *u8, &out as *u8) && out == 55, "moved keeps content");

    // 值指针可以指向表内已有的值（按字节移动，允许重叠）。
    var alias: i32 = 0;
    @assert(found(&moved, &key as *u8, &alias as *u8));
    expect_ok(put(&moved, &key as *u8, &alias as *u8));
    @assert(found(&moved, &key as *u8, &out as *u8) && out == 55, "self value put");
}

fn test_byte_view_keys() {
    var m = new(@sizeof(ByteView), @alignof(ByteView), @sizeof(i32), @alignof(i32),
                hash_kind_view());
    defer { drop(&m); }

    var alpha = ByteView.from_slice("alpha");
    var beta = ByteView.from_slice("beta");
    var gamma = ByteView.from_slice("gamma");
    var one: i32 = 1;
    var two: i32 = 2;
    var three: i32 = 3;

    expect_ok(put(&m, &alpha as *u8, &one as *u8));
    expect_ok(put(&m, &beta as *u8, &two as *u8));
    expect_ok(put(&m, &gamma as *u8, &three as *u8));
    @assert(size(m) == 3);

    var out: i32 = 0;
    @assert(found(&m, &alpha as *u8, &out as *u8) && out == 1, "alpha");
    @assert(found(&m, &beta as *u8, &out as *u8) && out == 2, "beta");
    @assert(found(&m, &gamma as *u8, &out as *u8) && out == 3, "gamma");

    // 内容相同的不同 ByteView 视为同一个键。
    var alpha2 = ByteView.from_slice("alpha");
    out = 0;
    @assert(found(&m, &alpha2 as *u8, &out as *u8) && out == 1, "equal content key");
    @assert(size(m) == 3, "equal content does not insert");

    @assert(deleted(&m, &beta as *u8), "delete beta");
    @assert(size(m) == 2);
    @assert(!found(&m, &beta as *u8, &out as *u8));
}

fn main() {
    test_put_get_update();
    test_growth_and_delete();
    test_take_and_self_put();
    test_byte_view_keys();
}