-/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/data.c,v 1.29 2005/10/15 02:49:47 momjian Exp $ */
+/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/data.c,v 1.30 2006/01/17 19:49:23 meskes Exp $ */
#define POSTGRES_ECPG_INTERNAL
#include "postgres_fe.h"
long ind_offset, enum ARRAY_TYPE isarray, enum COMPAT_MODE compat, bool force_indicator)
{
struct sqlca_t *sqlca = ECPGget_sqlca();
- char *pval = (char *) PQgetvalue(results, act_tuple, act_field);
- int value_for_indicator = 0;
-
- ECPGlog("ECPGget_data line %d: RESULT: %s offset: %ld array: %s\n", lineno, pval ? pval : "", offset, isarray ? "Yes" : "No");
+ char *pval = (char *) PQgetvalue(results, act_tuple, act_field);
+ int binary = PQfformat(results, act_field);
+ int size = PQgetlength(results, act_tuple, act_field);
+ int value_for_indicator = 0;
+ ECPGlog("ECPGget_data line %d: RESULT: %s offset: %ld array: %s\n", lineno, pval ? (binary ? "BINARY" : pval) : "EMPTY", offset, isarray ? "Yes" : "No");
/* We will have to decode the value */
/*
do
{
+ if (binary)
+ {
+ if (pval)
+ {
+ if (varcharsize == 0 || varcharsize*offset >= size)
+ memcpy((char *) ((long) var + offset * act_tuple), pval, size);
+ else
+ {
+ memcpy((char *) ((long) var + offset * act_tuple), pval, varcharsize*offset);
+
+ if (varcharsize*offset < size)
+ {
+ /* truncation */
+ switch (ind_type)
+ {
+ case ECPGt_short:
+ case ECPGt_unsigned_short:
+ *((short *) (ind + ind_offset * act_tuple)) = size;
+ break;
+ case ECPGt_int:
+ case ECPGt_unsigned_int:
+ *((int *) (ind + ind_offset * act_tuple)) = size;
+ break;
+ case ECPGt_long:
+ case ECPGt_unsigned_long:
+ *((long *) (ind + ind_offset * act_tuple)) = size;
+ break;
+#ifdef HAVE_LONG_LONG_INT_64
+ case ECPGt_long_long:
+ case ECPGt_unsigned_long_long:
+ *((long long int *) (ind + ind_offset * act_tuple)) = size;
+ break;
+#endif /* HAVE_LONG_LONG_INT_64 */
+ default:
+ break;
+ }
+ sqlca->sqlwarn[0] = sqlca->sqlwarn[1] = 'W';
+ }
+ }
+ pval += size;
+ }
+ }
+ else
+ {
switch (type)
{
long res;
if (*pval == ' ')
++pval;
}
+ }
} while (*pval != '\0' && ((isarray == ECPG_ARRAY_ARRAY && *pval != '}') || isarray == ECPG_ARRAY_VECTOR));
return (true);
EXEC SQL BEGIN DECLARE SECTION;
struct TBempl
- {
- mmInteger idnum;
- mmChar name[21];
- mmSmallInt accs;
- };
+{
+ mmInteger idnum;
+ mmChar name[21];
+ mmSmallInt accs;
+ mmChar byte[20];
+};
EXEC SQL END DECLARE SECTION;
-int main(void)
+int
+main (void)
{
-EXEC SQL BEGIN DECLARE SECTION;
-struct TBempl empl;
-EXEC SQL END DECLARE SECTION;
-FILE *dbgs;
+ EXEC SQL BEGIN DECLARE SECTION;
+ struct TBempl empl;
+ char *data = "\\001\\155\\000\\212";
+ union
+ {
+ mmSmallInt accs;
+ char t[2];
+ } a;
+ EXEC SQL END DECLARE SECTION;
+ FILE *dbgs;
+ int i;
+
+ if ((dbgs = fopen ("log", "w")) != NULL)
+ ECPGdebug (1, dbgs);
+
+ empl.idnum = 1;
+ EXEC SQL connect to mm;
+ if (sqlca.sqlcode)
+ {
+ printf ("connect error = %ld\n", sqlca.sqlcode);
+ exit (sqlca.sqlcode);
+ }
+
+ EXEC SQL create table empl
+ (idnum integer, name char (20), accs smallint, byte bytea);
+ if (sqlca.sqlcode)
+ {
+ printf ("create error = %ld\n", sqlca.sqlcode);
+ exit (sqlca.sqlcode);
+ }
+
+ EXEC SQL insert into empl values (1, 'first user', 320,:data);
+ if (sqlca.sqlcode)
+ {
+ printf ("insert error = %ld\n", sqlca.sqlcode);
+ exit (sqlca.sqlcode);
+ }
+
+ EXEC SQL select name, accs, byte into:empl.name,:empl.accs,:empl.byte from empl where idnum =:empl.idnum;
+ if (sqlca.sqlcode)
+ {
+ printf ("select error = %ld\n", sqlca.sqlcode);
+ exit (sqlca.sqlcode);
+ }
+ printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
+
+ EXEC SQL DECLARE C CURSOR FOR select name, accs, byte from empl where idnum =:empl.idnum;
+ EXEC SQL OPEN C;
+ EXEC SQL FETCH C INTO:empl.name,:empl.accs,:empl.byte;
+ if (sqlca.sqlcode)
+ {
+ printf ("fetch error = %ld\n", sqlca.sqlcode);
+ exit (sqlca.sqlcode);
+ }
-if ((dbgs = fopen("log", "w")) != NULL)
- ECPGdebug(1, dbgs);
-
-empl.idnum = 1;
-EXEC SQL connect to mm;
-if (sqlca.sqlcode)
- {
- printf("connect error = %ld\n", sqlca.sqlcode);
- exit(sqlca.sqlcode);
- }
+ printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
-EXEC SQL create table empl
- (
- idnum integer,
- name char(20),
- accs smallint
- );
-if (sqlca.sqlcode)
- {
- printf("select error = %ld\n", sqlca.sqlcode);
- exit(sqlca.sqlcode);
- }
+ memset(empl.name, 0, 21L);
+ memset(empl.byte, '#', 20L);
+ EXEC SQL DECLARE B BINARY CURSOR FOR select name, accs, byte from empl where idnum =:empl.idnum;
+ EXEC SQL OPEN B;
+ EXEC SQL FETCH B INTO :empl.name,:a.accs,:empl.byte;
+ if (sqlca.sqlcode)
+ {
+ printf ("fetch error = %ld\n", sqlca.sqlcode);
+ exit (sqlca.sqlcode);
+ }
-EXEC SQL insert into empl values (1, 'first user', 20);
-if (sqlca.sqlcode)
- {
- printf("select error = %ld\n", sqlca.sqlcode);
- exit(sqlca.sqlcode);
- }
+ EXEC SQL CLOSE B;
-EXEC SQL select name, accs
- into :empl.name, :empl.accs
- from empl where idnum = :empl.idnum;
-if (sqlca.sqlcode)
- {
- printf("select error = %ld\n", sqlca.sqlcode);
- exit(sqlca.sqlcode);
- }
-printf("name=%s, accs=%d\n", empl.name, empl.accs);
-EXEC SQL disconnect;
-fclose(dbgs);
-exit(0);
+ i=a.t[0];
+ a.t[0]=a.t[1];
+ a.t[1]=i;
+
+ printf ("name=%s, accs=%d byte=", empl.name, a.accs);
+ for (i=0; i<20; i++)
+ {
+ if (empl.byte[i] == '#')
+ break;
+ printf("(%o)", (unsigned char)empl.byte[i]);
+ }
+ printf("\n");
+ EXEC SQL disconnect;
+ fclose (dbgs);
+ exit (0);
}
projects / users / rhaas / postgres.git / commitdiff