# https://fallabs.com/kyotocabinet/api/

use Inline C => config => inc  => '-I/usr/local/include';
use Inline C => config => libs => '-L/usr/local/lib -lkyotocabinet';
use Inline C => <<'EOC';

#include <string.h>
#include <kclangc.h>

KCDB  *db;
KCCUR *cur;

// open the database
int open_db(char* file) {
    db = kcdbnew();
    if (!kcdbopen(db, file, KCOREADER | KCONOLOCK)) return 0;
    cur = kcdbcursor(db);
    return 1;
}

// close the database
int close_db() {
    if (cur) kccurdel(cur);
    if (!kcdbclose(db)) return 0;
    return 1;
}

// search records containing substring
SV * search_db(char* substr) {
    AV *ret = newAV();

    char *kbuf, *vbuf;
    size_t ksiz, vsiz;
    const char *cvbuf;

    kccurjump(cur);
    while ((kbuf = kccurget(cur, &ksiz, &cvbuf, &vsiz, 1)) != NULL) {
        if (strstr(cvbuf, substr) != NULL) {
            av_push(ret, newSVpvn(kbuf, ksiz));
        }
        kcfree(kbuf);
    }

    return newRV_noinc((SV *) ret);
}

EOC