mirror of
https://github.com/postgres/postgres.git
synced 2025-05-30 00:02:11 -04:00
06c723447b
In commit ecfd55795, I removed sqlda.c's checks for ndigits != 0 on the grounds that we should duplicate the state of the numeric value's digit buffer even when all the digits are zeroes. However, that still isn't quite right, because another possible state of the digit buffer is buf == digits == NULL (this occurs for a NaN). As the code now stands, it'll invoke memcpy with a NULL source address and zero bytecount, which we know a few platforms crash on. Hence, reinstate the no-copy short-circuit, but make it test specifically for buf != NULL rather than some other condition. In hindsight, the ndigits test (added by commit f2ae9f9c3) was almost certainly meant to fix the NaN case not the all-zeroes case as the associated thread alleged. As before, back-patch to all supported versions. Discussion: https://postgr.es/m/1803D792815FC24D871C00D17AE95905C71161@g01jpexmbkw24
542 lines
12 KiB
C
542 lines
12 KiB
C
/* Processed by ecpg (regression mode) */
|
|
/* These include files are added by the preprocessor */
|
|
#include <ecpglib.h>
|
|
#include <ecpgerrno.h>
|
|
#include <sqlca.h>
|
|
/* End of automatic include section */
|
|
#define ECPGdebug(X,Y) ECPGdebug((X)+100,(Y))
|
|
|
|
#line 1 "sqlda.pgc"
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <limits.h>
|
|
#include "ecpg_config.h"
|
|
|
|
|
|
#line 1 "regression.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#line 6 "sqlda.pgc"
|
|
|
|
|
|
#line 1 "sqlda.h"
|
|
#ifndef ECPG_SQLDA_H
|
|
#define ECPG_SQLDA_H
|
|
|
|
#ifdef _ECPG_INFORMIX_H
|
|
|
|
#include "sqlda-compat.h"
|
|
typedef struct sqlvar_compat sqlvar_t;
|
|
typedef struct sqlda_compat sqlda_t;
|
|
|
|
#else
|
|
|
|
#include "sqlda-native.h"
|
|
typedef struct sqlvar_struct sqlvar_t;
|
|
typedef struct sqlda_struct sqlda_t;
|
|
|
|
#endif
|
|
|
|
#endif /* ECPG_SQLDA_H */
|
|
|
|
#line 7 "sqlda.pgc"
|
|
|
|
|
|
#line 1 "pgtypes_numeric.h"
|
|
#ifndef PGTYPES_NUMERIC
|
|
#define PGTYPES_NUMERIC
|
|
|
|
#include <pgtypes.h>
|
|
|
|
#define NUMERIC_POS 0x0000
|
|
#define NUMERIC_NEG 0x4000
|
|
#define NUMERIC_NAN 0xC000
|
|
#define NUMERIC_NULL 0xF000
|
|
#define NUMERIC_MAX_PRECISION 1000
|
|
#define NUMERIC_MAX_DISPLAY_SCALE NUMERIC_MAX_PRECISION
|
|
#define NUMERIC_MIN_DISPLAY_SCALE 0
|
|
#define NUMERIC_MIN_SIG_DIGITS 16
|
|
|
|
#define DECSIZE 30
|
|
|
|
typedef unsigned char NumericDigit;
|
|
typedef struct
|
|
{
|
|
int ndigits; /* number of digits in digits[] - can be 0! */
|
|
int weight; /* weight of first digit */
|
|
int rscale; /* result scale */
|
|
int dscale; /* display scale */
|
|
int sign; /* NUMERIC_POS, NUMERIC_NEG, or NUMERIC_NAN */
|
|
NumericDigit *buf; /* start of alloc'd space for digits[] */
|
|
NumericDigit *digits; /* decimal digits */
|
|
} numeric;
|
|
|
|
typedef struct
|
|
{
|
|
int ndigits; /* number of digits in digits[] - can be 0! */
|
|
int weight; /* weight of first digit */
|
|
int rscale; /* result scale */
|
|
int dscale; /* display scale */
|
|
int sign; /* NUMERIC_POS, NUMERIC_NEG, or NUMERIC_NAN */
|
|
NumericDigit digits[DECSIZE]; /* decimal digits */
|
|
} decimal;
|
|
|
|
#ifdef __cplusplus
|
|
extern "C"
|
|
{
|
|
#endif
|
|
|
|
numeric *PGTYPESnumeric_new(void);
|
|
decimal *PGTYPESdecimal_new(void);
|
|
void PGTYPESnumeric_free(numeric *);
|
|
void PGTYPESdecimal_free(decimal *);
|
|
numeric *PGTYPESnumeric_from_asc(char *, char **);
|
|
char *PGTYPESnumeric_to_asc(numeric *, int);
|
|
int PGTYPESnumeric_add(numeric *, numeric *, numeric *);
|
|
int PGTYPESnumeric_sub(numeric *, numeric *, numeric *);
|
|
int PGTYPESnumeric_mul(numeric *, numeric *, numeric *);
|
|
int PGTYPESnumeric_div(numeric *, numeric *, numeric *);
|
|
int PGTYPESnumeric_cmp(numeric *, numeric *);
|
|
int PGTYPESnumeric_from_int(signed int, numeric *);
|
|
int PGTYPESnumeric_from_long(signed long int, numeric *);
|
|
int PGTYPESnumeric_copy(numeric *, numeric *);
|
|
int PGTYPESnumeric_from_double(double, numeric *);
|
|
int PGTYPESnumeric_to_double(numeric *, double *);
|
|
int PGTYPESnumeric_to_int(numeric *, int *);
|
|
int PGTYPESnumeric_to_long(numeric *, long *);
|
|
int PGTYPESnumeric_to_decimal(numeric *, decimal *);
|
|
int PGTYPESnumeric_from_decimal(decimal *, numeric *);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif /* PGTYPES_NUMERIC */
|
|
|
|
#line 8 "sqlda.pgc"
|
|
|
|
|
|
/* exec sql whenever sqlerror stop ; */
|
|
#line 10 "sqlda.pgc"
|
|
|
|
|
|
/* These shouldn't be under DECLARE SECTION */
|
|
sqlda_t *inp_sqlda, *outp_sqlda, *outp_sqlda1;
|
|
|
|
static void
|
|
dump_sqlda(sqlda_t *sqlda)
|
|
{
|
|
int i;
|
|
|
|
if (sqlda == NULL)
|
|
{
|
|
printf("dump_sqlda called with NULL sqlda\n");
|
|
return;
|
|
}
|
|
|
|
for (i = 0; i < sqlda->sqld; i++)
|
|
{
|
|
if (sqlda->sqlvar[i].sqlind && *(sqlda->sqlvar[i].sqlind) == -1)
|
|
printf("name sqlda descriptor: '%s' value NULL'\n", sqlda->sqlvar[i].sqlname.data);
|
|
else
|
|
switch (sqlda->sqlvar[i].sqltype)
|
|
{
|
|
case ECPGt_char:
|
|
printf("name sqlda descriptor: '%s' value '%s'\n", sqlda->sqlvar[i].sqlname.data, sqlda->sqlvar[i].sqldata);
|
|
break;
|
|
case ECPGt_int:
|
|
printf("name sqlda descriptor: '%s' value %d\n", sqlda->sqlvar[i].sqlname.data, *(int *)sqlda->sqlvar[i].sqldata);
|
|
break;
|
|
case ECPGt_long:
|
|
printf("name sqlda descriptor: '%s' value %ld\n", sqlda->sqlvar[i].sqlname.data, *(long int *)sqlda->sqlvar[i].sqldata);
|
|
break;
|
|
#ifdef HAVE_LONG_LONG_INT
|
|
case ECPGt_long_long:
|
|
printf("name sqlda descriptor: '%s' value %lld\n", sqlda->sqlvar[i].sqlname.data, *(long long int *)sqlda->sqlvar[i].sqldata);
|
|
break;
|
|
#endif
|
|
case ECPGt_double:
|
|
printf("name sqlda descriptor: '%s' value %f\n", sqlda->sqlvar[i].sqlname.data, *(double *)sqlda->sqlvar[i].sqldata);
|
|
break;
|
|
case ECPGt_numeric:
|
|
{
|
|
char *val;
|
|
|
|
val = PGTYPESnumeric_to_asc((numeric*)sqlda->sqlvar[i].sqldata, -1);
|
|
printf("name sqlda descriptor: '%s' value NUMERIC '%s'\n", sqlda->sqlvar[i].sqlname.data, val);
|
|
PGTYPESchar_free(val);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
/* exec sql begin declare section */
|
|
|
|
|
|
|
|
|
|
|
|
#line 67 "sqlda.pgc"
|
|
char * stmt1 = "SELECT * FROM t1" ;
|
|
|
|
#line 68 "sqlda.pgc"
|
|
char * stmt2 = "SELECT * FROM t1 WHERE id = ?" ;
|
|
|
|
#line 69 "sqlda.pgc"
|
|
int rec ;
|
|
|
|
#line 70 "sqlda.pgc"
|
|
int id ;
|
|
/* exec sql end declare section */
|
|
#line 71 "sqlda.pgc"
|
|
|
|
|
|
char msg[128];
|
|
|
|
ECPGdebug(1, stderr);
|
|
|
|
strcpy(msg, "connect");
|
|
{ ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , "regress1", 0);
|
|
#line 78 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 78 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "set");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 81 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 81 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "create");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table t1 ( id integer , t text , d1 numeric , d2 float8 , c char ( 10 ) , big bigint )", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 91 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 91 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "insert");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into t1 values ( 1 , 'a' , 1.0 , 1 , 'a' , 1111111111111111111 ) , ( 2 , null , null , null , null , null ) , ( 3 , 'c' , 0.0 , 3 , 'c' , 3333333333333333333 ) , ( 4 , 'd' , 'NaN' , 4 , 'd' , 4444444444444444444 ) , ( 5 , 'e' , 0.001234 , 5 , 'e' , 5555555555555555555 )", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 99 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 99 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "commit");
|
|
{ ECPGtrans(__LINE__, NULL, "commit");
|
|
#line 102 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 102 "sqlda.pgc"
|
|
|
|
|
|
/* SQLDA test for getting all records from a table */
|
|
|
|
outp_sqlda = NULL;
|
|
|
|
strcpy(msg, "prepare");
|
|
{ ECPGprepare(__LINE__, NULL, 0, "st_id1", stmt1);
|
|
#line 109 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 109 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "declare");
|
|
/* declare mycur1 cursor for $1 */
|
|
#line 112 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "open");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare mycur1 cursor for $1",
|
|
ECPGt_char_variable,(ECPGprepared_statement(NULL, "st_id1", __LINE__)),(long)1,(long)1,(1)*sizeof(char),
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
|
|
#line 115 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 115 "sqlda.pgc"
|
|
|
|
|
|
/* exec sql whenever not found break ; */
|
|
#line 117 "sqlda.pgc"
|
|
|
|
|
|
rec = 0;
|
|
while (1)
|
|
{
|
|
strcpy(msg, "fetch");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch 1 from mycur1", ECPGt_EOIT,
|
|
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
|
|
#line 123 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
|
|
#line 123 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 123 "sqlda.pgc"
|
|
|
|
|
|
printf("FETCH RECORD %d\n", ++rec);
|
|
dump_sqlda(outp_sqlda);
|
|
}
|
|
|
|
/* exec sql whenever not found continue ; */
|
|
#line 129 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "close");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close mycur1", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 132 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 132 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "deallocate");
|
|
{ ECPGdeallocate(__LINE__, 0, NULL, "st_id1");
|
|
#line 135 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 135 "sqlda.pgc"
|
|
|
|
|
|
free(outp_sqlda);
|
|
|
|
/* SQLDA test for getting ALL records into the sqlda list */
|
|
|
|
outp_sqlda = NULL;
|
|
|
|
strcpy(msg, "prepare");
|
|
{ ECPGprepare(__LINE__, NULL, 0, "st_id2", stmt1);
|
|
#line 144 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 144 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "declare");
|
|
/* declare mycur2 cursor for $1 */
|
|
#line 147 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "open");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare mycur2 cursor for $1",
|
|
ECPGt_char_variable,(ECPGprepared_statement(NULL, "st_id2", __LINE__)),(long)1,(long)1,(1)*sizeof(char),
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
|
|
#line 150 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 150 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "fetch");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch all from mycur2", ECPGt_EOIT,
|
|
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
|
|
#line 153 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 153 "sqlda.pgc"
|
|
|
|
|
|
outp_sqlda1 = outp_sqlda;
|
|
rec = 0;
|
|
while (outp_sqlda1)
|
|
{
|
|
sqlda_t *ptr;
|
|
printf("FETCH RECORD %d\n", ++rec);
|
|
dump_sqlda(outp_sqlda1);
|
|
|
|
ptr = outp_sqlda1;
|
|
outp_sqlda1 = outp_sqlda1->desc_next;
|
|
free(ptr);
|
|
}
|
|
|
|
strcpy(msg, "close");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close mycur2", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 169 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 169 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "deallocate");
|
|
{ ECPGdeallocate(__LINE__, 0, NULL, "st_id2");
|
|
#line 172 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 172 "sqlda.pgc"
|
|
|
|
|
|
/* SQLDA test for getting one record using an input descriptor */
|
|
|
|
/*
|
|
* Input sqlda has to be built manually
|
|
* sqlda_t contains 1 sqlvar_t structure already.
|
|
*/
|
|
inp_sqlda = (sqlda_t *)malloc(sizeof(sqlda_t));
|
|
memset(inp_sqlda, 0, sizeof(sqlda_t));
|
|
inp_sqlda->sqln = 1;
|
|
|
|
inp_sqlda->sqlvar[0].sqltype = ECPGt_int;
|
|
inp_sqlda->sqlvar[0].sqldata = (char *)&id;
|
|
|
|
printf("EXECUTE RECORD 4\n");
|
|
|
|
id = 4;
|
|
|
|
outp_sqlda = NULL;
|
|
|
|
strcpy(msg, "prepare");
|
|
{ ECPGprepare(__LINE__, NULL, 0, "st_id3", stmt2);
|
|
#line 194 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 194 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "execute");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, "st_id3",
|
|
ECPGt_sqlda, &inp_sqlda, 0L, 0L, 0L,
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
|
|
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
|
|
#line 197 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 197 "sqlda.pgc"
|
|
|
|
|
|
dump_sqlda(outp_sqlda);
|
|
|
|
strcpy(msg, "deallocate");
|
|
{ ECPGdeallocate(__LINE__, 0, NULL, "st_id3");
|
|
#line 202 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 202 "sqlda.pgc"
|
|
|
|
|
|
free(inp_sqlda);
|
|
free(outp_sqlda);
|
|
|
|
/* SQLDA test for getting one record using an input descriptor
|
|
* on a named connection
|
|
*/
|
|
|
|
{ ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , "con2", 0);
|
|
#line 211 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 211 "sqlda.pgc"
|
|
|
|
|
|
/*
|
|
* Input sqlda has to be built manually
|
|
* sqlda_t contains 1 sqlvar_t structure already.
|
|
*/
|
|
inp_sqlda = (sqlda_t *)malloc(sizeof(sqlda_t));
|
|
memset(inp_sqlda, 0, sizeof(sqlda_t));
|
|
inp_sqlda->sqln = 1;
|
|
|
|
inp_sqlda->sqlvar[0].sqltype = ECPGt_int;
|
|
inp_sqlda->sqlvar[0].sqldata = (char *)&id;
|
|
|
|
printf("EXECUTE RECORD 4\n");
|
|
|
|
id = 4;
|
|
|
|
outp_sqlda = NULL;
|
|
|
|
strcpy(msg, "prepare");
|
|
{ ECPGprepare(__LINE__, "con2", 0, "st_id4", stmt2);
|
|
#line 231 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 231 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "execute");
|
|
{ ECPGdo(__LINE__, 0, 1, "con2", 0, ECPGst_execute, "st_id4",
|
|
ECPGt_sqlda, &inp_sqlda, 0L, 0L, 0L,
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
|
|
ECPGt_sqlda, &outp_sqlda, 0L, 0L, 0L,
|
|
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
|
|
#line 234 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 234 "sqlda.pgc"
|
|
|
|
|
|
dump_sqlda(outp_sqlda);
|
|
|
|
strcpy(msg, "commit");
|
|
{ ECPGtrans(__LINE__, "con2", "commit");
|
|
#line 239 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 239 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "deallocate");
|
|
{ ECPGdeallocate(__LINE__, 0, NULL, "st_id4");
|
|
#line 242 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 242 "sqlda.pgc"
|
|
|
|
|
|
free(inp_sqlda);
|
|
free(outp_sqlda);
|
|
|
|
strcpy(msg, "disconnect");
|
|
{ ECPGdisconnect(__LINE__, "con2");
|
|
#line 248 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 248 "sqlda.pgc"
|
|
|
|
|
|
/* End test */
|
|
|
|
strcpy(msg, "drop");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "drop table t1", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 253 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 253 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "commit");
|
|
{ ECPGtrans(__LINE__, NULL, "commit");
|
|
#line 256 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 256 "sqlda.pgc"
|
|
|
|
|
|
strcpy(msg, "disconnect");
|
|
{ ECPGdisconnect(__LINE__, "CURRENT");
|
|
#line 259 "sqlda.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) exit (1);}
|
|
#line 259 "sqlda.pgc"
|
|
|
|
|
|
return 0;
|
|
}
|