Data-HashMap-Shared

 view release on metacpan or  search on metacpan

xs/i16.xs  view on Meta::CPAN

    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int ok;
        int16_t val = shm_i16_incr_by(h, key, -1, &ok);
        if (!ok) croak("Data::HashMap::Shared::I16: decrement failed");
        RETVAL = newSViv(val);
    OUTPUT:
        RETVAL

SV*
incr_by(SV* self_sv, int16_t key, int16_t delta)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int ok;
        int16_t val = shm_i16_incr_by(h, key, delta, &ok);
        if (!ok) croak("Data::HashMap::Shared::I16: incr_by failed");
        RETVAL = newSViv(val);
    OUTPUT:
        RETVAL

SV*
max(SV* self_sv, int16_t key, int16_t desired)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int ok;
        int16_t val = shm_i16_set_minmax(h, key, desired, 1, &ok);
        if (!ok) croak("Data::HashMap::Shared::I16: max failed");
        RETVAL = newSViv(val);
    OUTPUT:
        RETVAL

SV*
min(SV* self_sv, int16_t key, int16_t desired)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int ok;
        int16_t val = shm_i16_set_minmax(h, key, desired, 0, &ok);
        if (!ok) croak("Data::HashMap::Shared::I16: min failed");
        RETVAL = newSViv(val);
    OUTPUT:
        RETVAL

UV
size(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_size(h);
    OUTPUT:
        RETVAL

UV
max_entries(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_max_entries(h);
    OUTPUT:
        RETVAL

void
keys(SV* self_sv)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        uint32_t ns = h->shard_handles ? h->num_shards : 1;
        for (uint32_t si = 0; si < ns; si++) {
            ShmHandle *sh = h->shard_handles ? h->shard_handles[si] : h;
            ShmHeader *hdr = sh->hdr;
            ShmNodeI16 *nodes = (ShmNodeI16 *)sh->nodes;
            uint32_t now = sh->expires_at ? shm_now() : 0;
            RDLOCK_GUARD(sh);
            EXTEND(SP, hdr->size);
            for (uint32_t i = 0; i < hdr->table_cap; i++) {
                if (SHM_IS_LIVE(sh->states[i]) && !SHM_IS_EXPIRED(sh, i, now))
                    mXPUSHi(nodes[i].key);
            }
        }

void
values(SV* self_sv)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        uint32_t ns = h->shard_handles ? h->num_shards : 1;
        for (uint32_t si = 0; si < ns; si++) {
            ShmHandle *sh = h->shard_handles ? h->shard_handles[si] : h;
            ShmHeader *hdr = sh->hdr;
            ShmNodeI16 *nodes = (ShmNodeI16 *)sh->nodes;
            uint32_t now = sh->expires_at ? shm_now() : 0;
            RDLOCK_GUARD(sh);
            EXTEND(SP, hdr->size);
            for (uint32_t i = 0; i < hdr->table_cap; i++) {
                if (SHM_IS_LIVE(sh->states[i]) && !SHM_IS_EXPIRED(sh, i, now))
                    mXPUSHi(nodes[i].value);
            }
        }


void
items(SV* self_sv)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        uint32_t ns = h->shard_handles ? h->num_shards : 1;
        for (uint32_t si = 0; si < ns; si++) {
            ShmHandle *sh = h->shard_handles ? h->shard_handles[si] : h;
            ShmHeader *hdr = sh->hdr;
            ShmNodeI16 *nodes = (ShmNodeI16 *)sh->nodes;
            uint32_t now = sh->expires_at ? shm_now() : 0;
            RDLOCK_GUARD(sh);
            EXTEND(SP, hdr->size * 2);
            for (uint32_t i = 0; i < hdr->table_cap; i++) {
                if (SHM_IS_LIVE(sh->states[i]) && !SHM_IS_EXPIRED(sh, i, now)) {
                    mXPUSHi(nodes[i].key);
                    mXPUSHi(nodes[i].value);
                }
            }
        }


void
each(SV* self_sv)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out_key, out_value;
        if (shm_i16_each(h, &out_key, &out_value)) {
            EXTEND(SP, 2);
            mXPUSHi(out_key);
            mXPUSHi(out_value);
            XSRETURN(2);
        }
        shm_i16_flush_deferred(h);
        XSRETURN_EMPTY;

void
iter_reset(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        shm_i16_iter_reset(h);
        shm_i16_flush_deferred(h);

void
clear(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        shm_i16_clear(h);

SV*
to_hash(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        HV* hv = newHV();
        uint32_t ns = h->shard_handles ? h->num_shards : 1;
        for (uint32_t si = 0; si < ns; si++) {
            ShmHandle *sh = h->shard_handles ? h->shard_handles[si] : h;
            ShmHeader *hdr = sh->hdr;
            ShmNodeI16 *nodes = (ShmNodeI16 *)sh->nodes;
            uint32_t now = sh->expires_at ? shm_now() : 0;
            RDLOCK_GUARD(sh);
            for (uint32_t i = 0; i < hdr->table_cap; i++) {
                if (SHM_IS_LIVE(sh->states[i]) && !SHM_IS_EXPIRED(sh, i, now)) {
                    SV* val = newSViv(nodes[i].value);
                    char kbuf[24];
                    int klen = my_snprintf(kbuf, sizeof(kbuf), "%" IVdf, (IV)nodes[i].key);
                    if (!hv_store(hv, kbuf, klen, val, 0)) SvREFCNT_dec(val);
                }
            }
        }

        RETVAL = newRV_noinc((SV*)hv);
    OUTPUT:
        RETVAL

SV*
get_or_set(SV* self_sv, int16_t key, int16_t default_value)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out;
        int rc = shm_i16_get_or_set(h, key, default_value, &out);
        if (!rc) XSRETURN_UNDEF;
        RETVAL = newSViv(out);
    OUTPUT:
        RETVAL

bool
put_ttl(SV* self_sv, int16_t key, int16_t value, UV ttl_sec)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        REQUIRE_TTL(h);
        RETVAL = shm_i16_put_ttl(h, key, value, (uint32_t)ttl_sec);
    OUTPUT:
        RETVAL

UV
max_size(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_max_size(h);
    OUTPUT:
        RETVAL

UV
ttl(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_ttl(h);
    OUTPUT:
        RETVAL

SV*
take(SV* self_sv, int16_t key)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out_value;
        if (!shm_i16_take(h, key, &out_value)) XSRETURN_UNDEF;
        RETVAL = newSViv(out_value);
    OUTPUT:
        RETVAL

void
pop(SV* self_sv)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out_key;
        int16_t out_val;
        if (!shm_i16_pop(h, &out_key, &out_val)) XSRETURN_EMPTY;
        EXTEND(SP, 2);
        mPUSHi(out_key);
        mPUSHi(out_val);

void
shift(SV* self_sv)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out_key;
        int16_t out_val;
        if (!shm_i16_shift(h, &out_key, &out_val)) XSRETURN_EMPTY;
        EXTEND(SP, 2);
        mPUSHi(out_key);
        mPUSHi(out_val);

void
drain(SV* self_sv, UV limit)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        if (limit == 0) XSRETURN_EMPTY;
        shm_i16_drain_entry *entries;
        Newxz(entries, limit, shm_i16_drain_entry);

        SAVEFREEPV(entries);
        char *buf = NULL; uint32_t buf_cap = 0;
        uint32_t n = shm_i16_drain(h, (uint32_t)limit, entries, &buf, &buf_cap);
        if (buf) SAVEDESTRUCTOR_X(shm_free_cleanup, buf);

        EXTEND(SP, n * 2);
        for (uint32_t i = 0; i < n; i++) {
            mPUSHi(entries[i].key);
            mPUSHi(entries[i].value);
        }


UV
flush_expired(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_flush_expired(h);
    OUTPUT:
        RETVAL

void
flush_expired_partial(SV* self_sv, UV limit)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int done = 0;
        uint32_t flushed = shm_i16_flush_expired_partial(h, (uint32_t)limit, &done);
        EXTEND(SP, 2);
        mPUSHu(flushed);
        mPUSHi(done);

UV
mmap_size(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_mmap_size(h);
    OUTPUT:
        RETVAL

bool
touch(SV* self_sv, int16_t key)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = shm_i16_touch(h, key);
    OUTPUT:
        RETVAL

bool
reserve(SV* self_sv, UV target)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = shm_i16_reserve(h, (uint32_t)target);
    OUTPUT:
        RETVAL

UV
stat_evictions(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_stat_evictions(h);
    OUTPUT:
        RETVAL

UV
stat_expired(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_stat_expired(h);
    OUTPUT:
        RETVAL

UV
stat_recoveries(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_stat_recoveries(h);
    OUTPUT:
        RETVAL

UV
arena_used(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_arena_used(h);

xs/i16.xs  view on Meta::CPAN

        RETVAL = shm_i16_update(h, key, value);
    OUTPUT:
        RETVAL

bool
update_ttl(SV* self_sv, int16_t key, int16_t value, UV ttl_sec)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        REQUIRE_TTL(h);
        RETVAL = shm_i16_update_ttl(h, key, value, (uint32_t)ttl_sec);
    OUTPUT:
        RETVAL

SV*
swap(SV* self_sv, int16_t key, int16_t value)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out_value;
        int rc = shm_i16_swap(h, key, value, &out_value);
        if (rc != 1) XSRETURN_UNDEF;
        RETVAL = newSViv(out_value);
    OUTPUT:
        RETVAL

bool
cas(SV* self_sv, int16_t key, int16_t expected, int16_t desired)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = shm_i16_cas(h, key, expected, desired);
    OUTPUT:
        RETVAL

SV*
cas_take(SV* self_sv, int16_t key, int16_t expected)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out_value;
        if (!shm_i16_cas_take(h, key, expected, &out_value)) XSRETURN_UNDEF;
        RETVAL = newSViv(out_value);
    OUTPUT:
        RETVAL

bool
persist(SV* self_sv, int16_t key)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = shm_i16_persist(h, key);
    OUTPUT:
        RETVAL

bool
set_ttl(SV* self_sv, int16_t key, UV ttl_sec)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = shm_i16_set_ttl(h, key, (uint32_t)ttl_sec);
    OUTPUT:
        RETVAL

void
get_multi(SV* self_sv, ...)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int nkeys = items - 1;
        if (nkeys == 0) XSRETURN_EMPTY;
        EXTEND(SP, nkeys);
        if (h->shard_handles) {
            for (int i = 0; i < nkeys; i++) {
                int16_t key = (int16_t)SvIV(ST(i + 1));
                int16_t val;
                if (shm_i16_get(h, key, &val))
                    mPUSHi(val);
                else
                    PUSHs(&PL_sv_undef);
            }
        } else {
            ShmHeader *hdr = h->hdr;
            ShmNodeI16 *nodes = (ShmNodeI16 *)h->nodes;
            uint8_t *states = h->states;
            uint32_t now = h->expires_at ? shm_now() : 0;
            /* Phase 1: compute hashes and prefetch first probe positions */
            uint32_t *hashes = NULL;
            Newx(hashes, nkeys, uint32_t);
            SAVEFREEPV(hashes);
            RDLOCK_GUARD(h);
            uint32_t mask = hdr->table_cap - 1;
            for (int i = 0; i < nkeys; i++) {
                hashes[i] = shm_hash_int64((int64_t)(int16_t)SvIV(ST(i + 1)));
                __builtin_prefetch(&states[hashes[i] & mask], 0, 0);
                __builtin_prefetch(&nodes[hashes[i] & mask], 0, 0);
            }
            /* Phase 2: probe each key */
            for (int i = 0; i < nkeys; i++) {
                int16_t key = (int16_t)SvIV(ST(i + 1));
                uint32_t hash = hashes[i];
                uint32_t pos = hash & mask;
                uint8_t tag = SHM_MAKE_TAG(hash);
                int found = 0;
                int16_t val = 0;
                for (uint32_t j = 0; j <= mask; j++) {
                    uint32_t idx = (pos + j) & mask;
                    uint8_t st = states[idx];
                    if (st == SHM_EMPTY) break;
                    if (st != tag) continue;
                    if (nodes[idx].key == key) {
                        if (h->expires_at && h->expires_at[idx] && now >= h->expires_at[idx]) break;
                        val = nodes[idx].value;
                        found = 1;
                        break;
                    }
                }
                if (found) mPUSHi(val);
                else PUSHs(&PL_sv_undef);
                /* Prefetch next key's probe position */
                if (i + 1 < nkeys) {
                    uint32_t npos = hashes[i + 1] & mask;
                    __builtin_prefetch(&states[npos], 0, 0);
                    __builtin_prefetch(&nodes[npos], 0, 0);
                }
            }
        }

void
get_with_ttl(SV* self_sv, int16_t key)
    PPCODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int16_t out_value;
        int64_t out_ttl;
        if (!shm_i16_get_with_ttl(h, key, &out_value, &out_ttl)) XSRETURN_EMPTY;
        EXTEND(SP, 2);
        mPUSHi(out_value);
        if (out_ttl < 0) PUSHs(&PL_sv_undef);
        else mPUSHi(out_ttl);

SV*
stats(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        HV *hv = newHV();
        hv_store(hv, "size", 4, newSVuv(shm_i16_size(h)), 0);
        hv_store(hv, "capacity", 8, newSVuv(shm_i16_capacity(h)), 0);
        hv_store(hv, "max_entries", 11, newSVuv(shm_i16_max_entries(h)), 0);
        hv_store(hv, "tombstones", 10, newSVuv(shm_i16_tombstones(h)), 0);
        hv_store(hv, "mmap_size", 9, newSVuv(shm_i16_mmap_size(h)), 0);
        hv_store(hv, "arena_used", 10, newSVuv(shm_i16_arena_used(h)), 0);
        hv_store(hv, "arena_cap", 9, newSVuv(shm_i16_arena_cap(h)), 0);
        hv_store(hv, "evictions", 9, newSVuv(shm_i16_stat_evictions(h)), 0);
        hv_store(hv, "expired", 7, newSVuv(shm_i16_stat_expired(h)), 0);
        hv_store(hv, "recoveries", 10, newSVuv(shm_i16_stat_recoveries(h)), 0);
        hv_store(hv, "max_size", 8, newSVuv(shm_i16_max_size(h)), 0);
        hv_store(hv, "ttl", 3, newSVuv(shm_i16_ttl(h)), 0);
        RETVAL = newRV_noinc((SV*)hv);
    OUTPUT:
        RETVAL

UV
set_multi(SV* self_sv, ...)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        if ((items - 1) % 2 != 0) croak("set_multi requires even number of arguments (key, value pairs)");
        uint32_t count = 0;
        if (h->shard_handles) {
            for (int i = 1; i < items; i += 2)
                count += shm_i16_put(h, (int16_t)SvIV(ST(i)), (int16_t)SvIV(ST(i + 1)));
        } else {
            WRSEQ_GUARD(h);
            for (int i = 1; i < items; i += 2)
                count += shm_i16_put_inner(h, (int16_t)SvIV(ST(i)), (int16_t)SvIV(ST(i + 1)), SHM_TTL_USE_DEFAULT);
        }
        RETVAL = count;
    OUTPUT:
        RETVAL

UV
remove_multi(SV* self_sv, ...)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        uint32_t count = 0;
        if (h->shard_handles) {
            for (int i = 1; i < items; i++)
                count += shm_i16_remove(h, (int16_t)SvIV(ST(i)));
        } else {
            WRSEQ_GUARD(h);
            for (int i = 1; i < items; i++)
                count += shm_i16_remove_inner(h, (int16_t)SvIV(ST(i)));

xs/i16.xs  view on Meta::CPAN

            RETVAL = shm_unlink_sharded(h);
        } else {
            if (items < 2) croak("Usage: Data::HashMap::Shared::I16->unlink($path)");
            RETVAL = shm_unlink_path(SvPV_nolen(ST(1)));
        }
    OUTPUT:
        RETVAL

SV*
ttl_remaining(SV* self_sv, int16_t key)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        int64_t remaining = shm_i16_ttl_remaining(h, key);
        if (remaining < 0) XSRETURN_UNDEF;
        RETVAL = newSViv(remaining);
    OUTPUT:
        RETVAL

UV
capacity(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_capacity(h);
    OUTPUT:
        RETVAL

UV
tombstones(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        RETVAL = (UV)shm_i16_tombstones(h);
    OUTPUT:
        RETVAL

SV*
cursor(SV* self_sv)
    CODE:
        EXTRACT_MAP("Data::HashMap::Shared::I16", self_sv);
        ShmCursor* c = shm_cursor_create(h);
        if (!c) croak("Failed to allocate cursor");
        RETVAL = sv_setref_pv(newSV(0), "Data::HashMap::Shared::I16::Cursor", (void*)c);
    OUTPUT:
        RETVAL

MODULE = Data::HashMap::Shared    PACKAGE = Data::HashMap::Shared::I16::Cursor
PROTOTYPES: DISABLE

void
DESTROY(SV* self_sv)
    CODE:
        if (!SvROK(self_sv)) return;
        ShmCursor* c = INT2PTR(ShmCursor*, SvIV(SvRV(self_sv)));
        if (!c) return;
        ShmHandle* h = c->current;
        shm_cursor_destroy(c);
        if (h) shm_i16_flush_deferred(h);
        sv_setiv(SvRV(self_sv), 0);

void
next(SV* self_sv)
    PPCODE:
        EXTRACT_CURSOR("Data::HashMap::Shared::I16::Cursor", self_sv);
        int16_t out_key, out_value;
        if (shm_i16_cursor_next(c, &out_key, &out_value)) {
            EXTEND(SP, 2);
            mXPUSHi(out_key);
            mXPUSHi(out_value);
            XSRETURN(2);
        }
        XSRETURN_EMPTY;

void
reset(SV* self_sv)
    CODE:
        EXTRACT_CURSOR("Data::HashMap::Shared::I16::Cursor", self_sv);
        shm_i16_cursor_reset(c);

bool
seek(SV* self_sv, int16_t key)
    CODE:
        EXTRACT_CURSOR("Data::HashMap::Shared::I16::Cursor", self_sv);
        RETVAL = shm_i16_cursor_seek(c, key);
    OUTPUT:
        RETVAL