#include "tlmpsql.h"
#include "internal.h"
#include "tlmpsql.m"
#include <tlmplib.h>

void _F_sql_query::dostart(int )
{
}
void _F_sql_query::doend()
{
}
void _F_sql_query::empty()
{
}
void _F_sql_query::onerow(const char *[],int, NSQL_FIELD_NAMES &fields)
{
}


<mod>
static int sql_vquery (_F_sql_query &c, NSQL &sq, const char *ctl, va_list list)
{
	<glocal>
		_F_sql_query *c;
	</glocal>
	glocal.c = &c;
	VCTLLIST vc(ctl,list);
	int ret = <call sql_query>(vc,sq);
	<f onerow>
		glocal.c->onerow (row,rownum,fields);
	</f>
	<f empty>
		glocal.c->empty();
	</f>
	<f dostart>
		glocal.c->dostart(nbrow);
	</f>
	<f doend>
		glocal.c->doend();
	</f>
	</call>
	return ret;
}
</mod>


int sql_query (_F_sql_query &c, NSQL &sq, const char *ctl, ...)
{
	va_list list;
	va_start (list,ctl);
	int ret = sql_vquery (c,sq,ctl,list);
	va_end (list);
	return ret;
}

int sql_query (_F_sql_query &c, const char *ctl, ...)
{
	int ret = -1;
	NSQL *sq = query_getdefaultdb();
	if (sq == NULL){
		tlmp_error (MSG_R(E_NODEFSQ));
	}else{
		va_list list;
		va_start (list,ctl);
		ret = sql_vquery (c,*sq,ctl,list);
		va_end (list);
	}
	return ret;
}