static SV *
dbixst_bounce_method(char *methname, int params)
{
dTHX;
void *xxx = PL_markstack_ptr++;
dXSARGS;
int i;
SV *sv;
int debug = 0;
D_imp_xxh(ST(0));
if (debug >= 3) {
PerlIO_printf(DBIc_LOGPIO(imp_xxh),
" -> %s (trampoline call with %d (%ld) params)\n", methname, params, (long)items);
xxx = xxx;
}
EXTEND(SP, params);
PUSHMARK(SP);
for (i=0; i < params; ++i) {
sv = (i >= items) ? &sv_undef : ST(i);
PUSHs(sv);
}
PUTBACK;
i = perl_call_method(methname, G_SCALAR);
SPAGAIN;
sv = (i) ? POPs : &sv_undef;
PUTBACK;
if (debug >= 3)
PerlIO_printf(DBIc_LOGPIO(imp_xxh),
" <- %s= %s (trampoline call return)\n", methname, neatsvpv(sv,0));
return sv;
}
static int
dbdxst_bind_params(SV *sth, imp_sth_t *imp_sth, I32 items, I32 ax)
{
dTHX;
int i;
SV *idx;
if (items-1 != DBIc_NUM_PARAMS(imp_sth)
&& DBIc_NUM_PARAMS(imp_sth) != DBIc_NUM_PARAMS_AT_EXECUTE
) {
char errmsg[99];
sprintf(errmsg,"called with %d bind variables when %d are needed",
(int)items-1, DBIc_NUM_PARAMS(imp_sth));
sv_setpv(DBIc_ERRSTR(imp_sth), errmsg);
sv_setiv(DBIc_ERR(imp_sth), (IV)-1);
return 0;
}
idx = sv_2mortal(newSViv(0));
for(i=1; i < items ; ++i) {
SV* value = ST(i);
if (SvGMAGICAL(value))
mg_get(value);
sv_setiv(idx, i);
if (!dbd_bind_ph(sth, imp_sth, idx, value, 0, Nullsv, FALSE, 0)) {
return 0;
}
}
return 1;
}
#ifndef dbd_fetchall_arrayref
static SV *
dbdxst_fetchall_arrayref(SV *sth, SV *slice, SV *batch_row_count)
{
dTHX;
D_imp_sth(sth);
SV *rows_rvav;
if (SvOK(slice)) {
char errmsg[99];
sprintf(errmsg,"slice param not supported by XS version of fetchall_arrayref");
sv_setpv(DBIc_ERRSTR(imp_sth), errmsg);
sv_setiv(DBIc_ERR(imp_sth), (IV)-1);
return &sv_undef;
}
else {
IV maxrows = SvOK(batch_row_count) ? SvIV(batch_row_count) : -1;
AV *fetched_av;
AV *rows_av = newAV();
if ( !DBIc_ACTIVE(imp_sth) && maxrows>0 ) {
return &sv_undef;
}
av_extend(rows_av, (maxrows>0) ? maxrows : 31);
while ( (maxrows < 0 || maxrows-- > 0)
&& (fetched_av = dbd_st_fetch(sth, imp_sth))
) {
AV *copy_row_av = av_make(AvFILL(fetched_av)+1, AvARRAY(fetched_av));
av_push(rows_av, newRV_noinc((SV*)copy_row_av));
}
rows_rvav = sv_2mortal(newRV_noinc((SV *)rows_av));
}
return rows_rvav;
}
#endif