/* -*-C-*- */
/* $Id: Sybase.xs,v 1.19 2011/04/25 08:59:17 mpeppler Exp $
   Copyright (c) 1997-2011 Michael Peppler
   Uses from Driver.xst
   Copyright (c) 1994,1995,1996,1997  Tim Bunce
   You may distribute under the terms of either the GNU General Public
   License or the Artistic License, as specified in the Perl README file.
*/
#include "Sybase.h"
DBISTATE_DECLARE;
MODULE = DBD::Sybase    PACKAGE = DBD::Sybase
I32
constant()
    ALIAS:
    CS_ROW_RESULT           = CS_ROW_RESULT
    CS_CURSOR_RESULT        = CS_CURSOR_RESULT
    CS_PARAM_RESULT         = CS_PARAM_RESULT
    CS_STATUS_RESULT        = CS_STATUS_RESULT
    CS_MSG_RESULT           = CS_MSG_RESULT
    CS_COMPUTE_RESULT       = CS_COMPUTE_RESULT
    CODE:
    if (!ix) {
      char *what = GvNAME(CvGV(cv));
      croak("Unknown DBD::Sybase constant '%s'", what);
    } else {
      RETVAL = ix;
    }
    OUTPUT:
    RETVAL
void
timeout(value)
    int         value
    CODE:
    ST(0) = sv_2mortal(newSViv(syb_set_timeout(value)));
void
thread_enabled()
    CODE:
    ST(0) = sv_2mortal(newSViv(syb_thread_enabled()));
void
set_cslib_cb(cb)
    SV *        cb
    CODE:
    ST(0) = sv_2mortal(newSVsv(syb_set_cslib_cb(cb)));
MODULE = DBD::Sybase    PACKAGE = DBD::Sybase::db
void
_isdead(dbh)
    SV *        dbh
  ALIAS:
    syb_isdead     = 1
    CODE:
    D_imp_dbh(dbh);
    ST(0) = sv_2mortal(newSViv(imp_dbh->isDead));
void
_date_fmt(dbh, fmt)
    SV *        dbh
    char *      fmt
    ALIAS:
    syb_date_fmt     = 1
    CODE:
    D_imp_dbh(dbh);
    ST(0) = syb_db_date_fmt(dbh, imp_dbh, fmt) ? &PL_sv_yes : &PL_sv_no;
void
ping(dbh)
    SV *        dbh
    CODE:
    D_imp_dbh(dbh);
    ST(0) = sv_2mortal(newSViv(syb_ping(dbh, imp_dbh)));
MODULE = DBD::Sybase    PACKAGE = DBD::Sybase::st
void
cancel(sth)
    SV *        sth
  ALIAS:
    syb_cancel     = 1
    CODE:
    D_imp_sth(sth);
    ST(0) = syb_st_cancel(sth, imp_sth) ? &PL_sv_yes : &PL_sv_no;
void
ct_get_data(sth, column, bufrv, buflen=0)
    SV *        sth
    int         column
    SV *        bufrv
    int         buflen
    ALIAS:
    syb_ct_get_data    = 1
    CODE:
    {
    D_imp_sth(sth);
    int len = syb_ct_get_data(sth, imp_sth, column, bufrv, buflen);
    ST(0) = sv_2mortal(newSViv(len));
    }
void
ct_data_info(sth, action, column, attr=&PL_sv_undef)
    SV *        sth
    char *      action
    int         column
    SV *        attr
    ALIAS:
    syb_ct_data_info   =   1
    CODE:
    {
    D_imp_sth(sth);
    int sybaction;
    if(strEQ(action, "CS_SET")) {
        sybaction = CS_SET;
    } else if (strEQ(action, "CS_GET")) {
        sybaction = CS_GET;
    }
    ST(0) = syb_ct_data_info(sth, imp_sth, sybaction, column, attr) ? &PL_sv_yes : &PL_sv_no;
    }
void
ct_send_data(sth, buffer, size)
    SV *        sth
    char *      buffer
    int         size
    ALIAS:
    syb_ct_send_data    =  1
    CODE:
    D_imp_sth(sth);
    ST(0) = syb_ct_send_data(sth, imp_sth, buffer, size) ? &PL_sv_yes : &PL_sv_no;
void
ct_prepare_send(sth)
    SV *        sth
    ALIAS:
    syb_ct_prepare_send   = 1
    CODE:
    D_imp_sth(sth);
    ST(0) = syb_ct_prepare_send(sth, imp_sth) ? &PL_sv_yes : &PL_sv_no;
void
ct_finish_send(sth)
    SV *        sth
    ALIAS:
    syb_ct_finish_send    = 1
    CODE:
    D_imp_sth(sth);
    ST(0) = syb_ct_finish_send(sth, imp_sth) ? &PL_sv_yes : &PL_sv_no;
void
syb_describe(sth, doAssoc = 0)
    SV *        sth
    int doAssoc
  PPCODE:
{
    D_imp_sth(sth);
    int i, k;
    HV *hv;
    SV *sv;
    char statbuff[255];
    struct {
    int stat;
    char name[30];
    } stat[] = { { CS_CANBENULL, "CS_CANBENULL" }, 
         { CS_HIDDEN, "CS_HIDDEN" },
         { CS_IDENTITY, "CS_IDENTITY" },
         { CS_KEY, "CS_KEY" },
         { CS_VERSION_KEY, "CS_VERSION_KEY" },
         { CS_TIMESTAMP, "CS_TIMESTAMP" },
         { CS_UPDATABLE, "CS_UPDATABLE" },
         { CS_UPDATECOL, "CS_UPDATECOL" },
         { CS_RETURN, "CS_RETURN" },
         { 0, "" }
    };
    /* lifted almost verbatim from Sybase::CTlib's CTlib.xs file... */
    for(i = 0; i < imp_sth->numCols; ++i)
    {
    hv = newHV();
    hv_store(hv, "NAME", 4, newSVpv(imp_sth->datafmt[i].name,0), 0);
    hv_store(hv, "TYPE", 4, newSViv(imp_sth->datafmt[i].datatype), 0);
    hv_store(hv, "MAXLENGTH", 9, newSViv(imp_sth->datafmt[i].maxlength), 0);
    hv_store(hv, "SYBMAXLENGTH", 12, newSViv(imp_sth->coldata[i].realLength), 0);
    hv_store(hv, "SYBTYPE", 7, newSViv(imp_sth->coldata[i].realType), 0);
    hv_store(hv, "SCALE", 5, newSViv(imp_sth->datafmt[i].scale), 0);
    hv_store(hv, "PRECISION", 9, newSViv(imp_sth->datafmt[i].precision), 0);
    statbuff[0] = 0;
    for(k = 0; stat[k].stat > 0; ++k) {
        if(imp_sth->datafmt[i].status & stat[k].stat) {
        strcat(statbuff, stat[k].name);
        strcat(statbuff, " ");
        }
    }
    hv_store(hv, "STATUS", 6, newSVpv(statbuff, 0), 0);
    sv = newRV_noinc((SV*)hv);
    if(doAssoc)
        XPUSHs(sv_2mortal(newSVpv(imp_sth->datafmt[i].name, 0)));
    XPUSHs(sv_2mortal(sv));
    }
}
MODULE = DBD::Sybase    PACKAGE = DBD::Sybase
INCLUDE: Sybase.xsi