#defineSQLERRMC_LEN70

{

{

intsqlerrml;

charsqlerrmc[70];

charsqlerrmc[SQLERRMC_LEN];

}sqlerrm;

charsqlerrp[8];

longsqlerrd[6];

sqlca.sqlcode=code;

va_start(args,fmt);

vsprintf(sqlca.sqlerrm.sqlerrmc,fmt,args);

vsnprintf(sqlca.sqlerrm.sqlerrmc,SQLERRMC_LEN,fmt,args);

va_end(args);

sqlca.sqlerrm.sqlerrml=strlen(sqlca.sqlerrm.sqlerrmc);

intnfields,

ntuples,

act_tuple,

act_field;

act_field,

isarray;

casePGRES_TUPLES_OK:

nfields=PQnfields(results);

return (false);

}

array_query= (char*)ecpg_alloc(strlen("select typelem from pg_type where oid=")+11,stmt->lineno);

sprintf(array_query,"select typelem from pg_type where oid=%d",PQftype(results,act_field));

query=PQexec(stmt->connection->connection,array_query);

isarray=0;

if (PQresultStatus(query)==PGRES_TUPLES_OK) {

isarray=atol((char*)PQgetvalue(query,0,0));

ECPGlog("ECPGexecute line %d: TYPE database: %d C: %d array: %s\n",stmt->lineno,PQftype(results,act_field),var->type,isarray ?"yes" :"no");

}

PQclear(query);

add_mem(var->value,stmt->lineno);

}

array_query= (char*)ecpg_alloc(strlen("select typelem from pg_type where oid=")+11,stmt->lineno);

sprintf(array_query,"select typelem from pg_type where oid=%d",PQftype(results,act_field));

query=PQexec(stmt->connection->connection,array_query);

if (PQresultStatus(query)==PGRES_TUPLES_OK)

ECPGlog("ECPGexecute line %d: TYPE database: %d C: %d array OID: %s\n",stmt->lineno,PQftype(results,act_field),var->type, (char*)PQgetvalue(query,0,0));

PQclear(query);

for (act_tuple=0;act_tuple<ntuples&&status;act_tuple++)

{

pval= (char*)PQgetvalue(results,act_tuple,act_field);

all: stp.so test1 test2 test3 test4 test5 perftest

LDFLAGS=-g -I/usr/include/postgresql -lecpg -lpq -lcrypt

LDFLAGS=-g -I../include -I/usr/include/postgresql -L/usr/lib/postgresql -L../lib -lecpg -lpq -lcrypt

ECPG=/usr/bin/ecpg -I/usr/include/postgresql

ECPG=../preproc/ecpg -I../include

.SUFFIXES: .pgc .c

stp.so: stp.c

cc -fPIC -I../include -I/usr/include/postgresql -c -o stp.o stp.c

ld -Bdynamic -shared -soname stp.so -o stp.so stp.o -lpq -lecpg

ld -Bdynamic -shared -soname stp.so -o stp.so stp.o -lpq -lecpg -lc

clean: