675 |
XSRETURN(1); |
XSRETURN(1); |
676 |
|
|
677 |
|
|
678 |
|
void |
679 |
|
tcjdbsearch2(jdb, word) |
680 |
|
void * jdb |
681 |
|
SV * word |
682 |
|
PREINIT: |
683 |
|
AV *av; |
684 |
|
STRLEN wsize; |
685 |
|
uint64_t *results; |
686 |
|
const char *wbuf; |
687 |
|
int i, rnum; |
688 |
|
PPCODE: |
689 |
|
wbuf = SvPV(word, wsize); |
690 |
|
results = tcjdbsearch2(jdb, wbuf, &rnum); |
691 |
|
if ( rnum > 0 ) { |
692 |
|
av = newAV(); |
693 |
|
for(i = 0; i < rnum; i++){ |
694 |
|
av_push(av, newSViv( (int)results[i] )); |
695 |
|
} |
696 |
|
XPUSHs(sv_2mortal(newRV_noinc((SV *)av))); |
697 |
|
} else { |
698 |
|
XPUSHs((SV *)&PL_sv_undef); |
699 |
|
} |
700 |
|
XSRETURN(1); |
701 |
|
|
702 |
|
|
703 |
int |
int |
704 |
tcjdbsync(jdb) |
tcjdbsync(jdb) |
705 |
void * jdb |
void * jdb |