#include "cubrid.h"
MODULE = DBD::cubrid PACKAGE = DBD::cubrid
INCLUDE: cubrid.xsi
MODULE = DBD::cubrid PACKAGE = DBD::cubrid::dr
MODULE = DBD::cubrid PACKAGE = DBD::cubrid::db
void
_ping( dbh )
SV *dbh
CODE:
ST(0) = sv_2mortal(newSViv(dbd_db_ping(dbh)));
void
do( dbh, statement, attr=Nullsv, ... )
SV *dbh
char *statement
SV *attr
PROTOTYPE: $$;$@
CODE:
{
int retval;
if (statement[0] == '\0') {
XST_mUNDEF (0);
return;
}
if (items < 4) {
imp_sth_t *imp_sth;
SV * const sth = dbixst_bounce_method ("prepare", 3);
if (!SvROK (sth))
XSRETURN_UNDEF;
imp_sth = (imp_sth_t*)(DBIh_COM (sth));
retval = dbd_st_execute (sth, imp_sth);
} else {
imp_sth_t *imp_sth;
SV * const sth = dbixst_bounce_method ("prepare", 3);
if (!SvROK (sth))
XSRETURN_UNDEF;
imp_sth = (imp_sth_t*)(DBIh_COM (sth));
if (!dbdxst_bind_params (sth, imp_sth, items-2, ax+2))
XSRETURN_UNDEF;
retval = dbd_st_execute (sth, imp_sth);
}
if (retval == 0)
XST_mPV (0, "0E0");
else if (retval < -1)
XST_mUNDEF (0);
else
XST_mIV (0, retval);
}
void
_primary_key_info( dbh, table )
SV *dbh
char *table
CODE:
ST(0) = _cubrid_primary_key (dbh, table);
void
_foreign_key_info( dbh, pk_table = Nullsv, fk_table = Nullsv)
SV *dbh
SV *pk_table
SV *fk_table
CODE:
{
STRLEN len;
char *pktable = (SvOK(pk_table)) ? SvPV(pk_table, len) : "";
char *fktable = (SvOK(fk_table)) ? SvPV(fk_table, len) : "";
ST(0) = _cubrid_foreign_key (dbh, pktable, fktable);
}
void
quote(dbh, str, type=NULL)
SV* dbh
SV* str
SV* type
PROTOTYPE: $$;$
CODE:
{
D_imp_dbh(dbh);
SV* quoted = dbd_db_quote(dbh, str, type);
ST(0) = quoted ? sv_2mortal(quoted) : str;
XSRETURN(1);
}
MODULE = DBD::cubrid PACKAGE = DBD::cubrid::st
void
cubrid_lob_get( sth, col )
SV *sth
int col
CODE:
ST(0) = sv_2mortal (newSViv (cubrid_st_lob_get(sth, col)));
void
cubrid_lob_export( sth, index, filename )
SV *sth
int index
char *filename
CODE:
ST(0) = sv_2mortal (newSViv (cubrid_st_lob_export(sth, index, filename)));
void
cubrid_lob_import( sth, index, filename, sql_type )
SV *sth
int index
char *filename
IV sql_type
CODE:
ST(0) = sv_2mortal (newSViv (cubrid_st_lob_import(sth, index, filename, sql_type)));
void
cubrid_lob_close( sth )
SV *sth
CODE:
ST(0) = sv_2mortal (newSViv (cubrid_st_lob_close(sth)));