view release on metacpan or  search on metacpan

Sqlflex.xs  view on Meta::CPAN

/*
 * Portions Copyright (c) 1994-95 Tim Bunce
 * Portions Copyright (c) 1995-96 Alligator Descartes
 * Portions Copyright (c) 1996-98 Jonathan Leffler
 *
 * You may distribute under the terms of either the GNU General Public
 * License or the Artistic License, as specified in the Perl README file.
 */

/*TABSTOP=4*/

#include "Sqlflex.h"

DBISTATE_DECLARE;

/* Assume string concatenation is available */
#ifndef lint
static const char rcs[] =
	"@(#)$Id: Sqlflex.xs$";
#endif

MODULE = DBD::Sqlflex	PACKAGE = DBD::Sqlflex

INCLUDE: Sqlflex.xsi

MODULE = DBD::Sqlflex	PACKAGE = DBD::Sqlflex::dr

# Initialize the DBD::Sqlflex driver data structure
void
driver_init(drh)
	SV *        drh
	CODE:
	ST(0) = dbd_ix_dr_driver(drh) ? &sv_yes : &sv_no;

# Fetch a driver attribute.  The keys are always strings.
# For some reason, not a part of the DBI standard
void
FETCH(drh, keysv)
	SV *        drh
	SV *        keysv
	CODE:
	D_imp_drh(drh);
	SV *valuesv = dbd_ix_dr_FETCH_attrib(imp_drh, keysv);
	if (!valuesv)
		valuesv = DBIS->get_attr(drh, keysv);
	ST(0) = valuesv;    /* dbd_dr_FETCH_attrib did sv_2mortal  */

# Utility function to list available databases
void
data_sources(drh)
	SV *drh
	PPCODE:
# Note that a database name could consist of up to 18 characters in OnLine,
# plus the name of the server (no limit defined, assume 18 again), plus the
# at sign and the NUL at the end.
#define MAXDBS 100
#define MAXDBSSIZE	(18+18+2)
#define FASIZE (MAXDBS * MAXDBSSIZE)
	int sqlcode = 0;
	int ndbs = 0;
	int i;
	char *dbsname[MAXDBS + 1];
	char dbsarea[FASIZE];
/*	sqlcode = sqgetdbs(&ndbs, dbsname, MAXDBS, dbsarea, FASIZE); */

	if (sqlcode != 0)
	{
		dbd_ix_seterror(sqlcode);
	}
	else
	{
            if (ndbs == 0) 
	       XPUSHs(sv_2mortal((SV*)newSVpv("", 0)));
            else
		for (i = 0; i < ndbs; ++i)
		{
			# Let Perl calculate the length of the name
			XPUSHs(sv_2mortal((SV*)newSVpv(dbsname[i], 0)));
		}
	}

MODULE = DBD::Sqlflex    PACKAGE = DBD::Sqlflex::db

void
preset(dbh, dbattr)
	SV *        dbh
	SV *        dbattr
	CODE:
	{
	D_imp_dbh(dbh);
	ST(0) = dbd_ix_db_preset(imp_dbh, dbattr) ? &sv_yes : &sv_no;
	}

MODULE = DBD::Sqlflex    PACKAGE = DBD::Sqlflex::st

# end of Sqlflex.xs