--- TokyoDystopia.xs 2008/08/18 17:45:56 17 +++ TokyoDystopia.xs 2008/08/18 18:48:33 21 @@ -141,3 +141,56 @@ } XSRETURN(1); + +void +tcidbsearch(idb, word, smode) + void * idb + SV * word + int smode +PREINIT: + AV *av; + STRLEN wsize; + uint64_t *results; + const char *wbuf; + int i, rnum; +PPCODE: + wbuf = SvPV(word, wsize); + results = tcidbsearch(idb, wbuf, smode, &rnum); + if ( rnum > 0 ) { + av = newAV(); + for(i = 0; i < rnum; i++){ + av_push(av, newSViv( (int)results[i] )); + } + XPUSHs(sv_2mortal(newRV_noinc((SV *)av))); + } else { + XPUSHs((SV *)&PL_sv_undef); + } + XSRETURN(1); + + +int +tcidbiterinit(idb) + void * idb +CODE: + RETVAL = tcidbiterinit(idb); +OUTPUT: + RETVAL + + +int +tcidbiternext(idb) + void * idb +CODE: + RETVAL = tcidbiternext(idb); +OUTPUT: + RETVAL + + +int +tcidbsync(idb) + void * idb +CODE: + RETVAL = tcidbsync(idb); +OUTPUT: + RETVAL +