Commit fcc2fbac authored by Michael Meskes's avatar Michael Meskes

Reverted changes made by pgindent

Made show.pgc set all variables before displaying them.
parent f99a569a
...@@ -13,11 +13,9 @@ ...@@ -13,11 +13,9 @@
#include <stdlib.h> #include <stdlib.h>
#include <sqltypes.h> #include <sqltypes.h>
int int main(void)
main(void)
{ {
char t1[] = "abc def ghi "; char t1[] = "abc def ghi ";
/* 123456789012345 */ /* 123456789012345 */
char buf[50]; char buf[50];
int k; int k;
......
...@@ -44,34 +44,29 @@ TODO: ...@@ -44,34 +44,29 @@ TODO:
ECPG_INFORMIX_BAD_EXPONENT ? ECPG_INFORMIX_BAD_EXPONENT ?
*/ */
char *decs[] = {"2E394", "-2", ".794", "3.44", "592.49E21", "-32.84e4", char* decs[] = { "2E394", "-2", ".794", "3.44", "592.49E21", "-32.84e4",
"2E-394", ".1E-2", "+.0", "-592.49E-07", "+32.84e-4", "2E-394", ".1E-2", "+.0", "-592.49E-07", "+32.84e-4",
".500001", "-.5000001", ".500001", "-.5000001",
"1234567890123456789012345678.91", /* 30 digits should fit into decimal */ "1234567890123456789012345678.91", /* 30 digits should fit
"1234567890123456789012345678.921", /* 31 digits should NOT fit into into decimal */
* decimal */ "1234567890123456789012345678.921", /* 31 digits should NOT
fit into decimal */
"not a number", "not a number",
NULL}; NULL};
static void static void
check_errno(void); check_errno(void);
#define BUFSIZE 200 #define BUFSIZE 200
int int
main(void) main(void)
{ {
decimal *dec, decimal *dec, *din;
*din;
char buf[BUFSIZE]; char buf[BUFSIZE];
long l; long l;
int i, int i, j, k, q, r, count = 0;
j,
k,
q,
r,
count = 0;
double dbl; double dbl;
decimal **decarr = (decimal **) calloc(1, sizeof(decimal)); decimal **decarr = (decimal **) calloc(1, sizeof(decimal));
...@@ -90,62 +85,52 @@ main(void) ...@@ -90,62 +85,52 @@ main(void)
decarr = realloc(decarr, sizeof(decimal *) * (count + 1)); decarr = realloc(decarr, sizeof(decimal *) * (count + 1));
decarr[count++] = dec; decarr[count++] = dec;
r = dectoasc(dec, buf, BUFSIZE - 1, -1); r = dectoasc(dec, buf, BUFSIZE-1, -1);
if (r < 0) if (r < 0) check_errno();
check_errno();
printf("dec[%d,1]: r: %d, %s\n", i, r, buf); printf("dec[%d,1]: r: %d, %s\n", i, r, buf);
r = dectoasc(dec, buf, BUFSIZE - 1, 0); r = dectoasc(dec, buf, BUFSIZE-1, 0);
if (r < 0) if (r < 0) check_errno();
check_errno();
printf("dec[%d,2]: r: %d, %s\n", i, r, buf); printf("dec[%d,2]: r: %d, %s\n", i, r, buf);
r = dectoasc(dec, buf, BUFSIZE - 1, 1); r = dectoasc(dec, buf, BUFSIZE-1, 1);
if (r < 0) if (r < 0) check_errno();
check_errno();
printf("dec[%d,3]: r: %d, %s\n", i, r, buf); printf("dec[%d,3]: r: %d, %s\n", i, r, buf);
r = dectoasc(dec, buf, BUFSIZE - 1, 2); r = dectoasc(dec, buf, BUFSIZE-1, 2);
if (r < 0) if (r < 0) check_errno();
check_errno();
printf("dec[%d,4]: r: %d, %s\n", i, r, buf); printf("dec[%d,4]: r: %d, %s\n", i, r, buf);
din = PGTYPESdecimal_new(); din = PGTYPESdecimal_new();
r = dectoasc(din, buf, BUFSIZE - 1, 2); r = dectoasc(din, buf, BUFSIZE-1, 2);
if (r < 0) if (r < 0) check_errno();
check_errno();
printf("dec[%d,5]: r: %d, %s\n", i, r, buf); printf("dec[%d,5]: r: %d, %s\n", i, r, buf);
r = dectolong(dec, &l); r = dectolong(dec, &l);
if (r) if (r) check_errno();
check_errno(); printf("dec[%d,6]: %ld (r: %d)\n", i, r?0L:l, r);
printf("dec[%d,6]: %ld (r: %d)\n", i, r ? 0L : l, r);
if (r == 0) if (r == 0)
{ {
r = deccvlong(l, din); r = deccvlong(l, din);
if (r) if (r) check_errno();
check_errno(); dectoasc(din, buf, BUFSIZE-1, 2);
dectoasc(din, buf, BUFSIZE - 1, 2);
q = deccmp(dec, din); q = deccmp(dec, din);
printf("dec[%d,7]: %s (r: %d - cmp: %d)\n", i, buf, r, q); printf("dec[%d,7]: %s (r: %d - cmp: %d)\n", i, buf, r, q);
} }
r = dectoint(dec, &k); r = dectoint(dec, &k);
if (r) if (r) check_errno();
check_errno(); printf("dec[%d,8]: %d (r: %d)\n", i, r?0:k, r);
printf("dec[%d,8]: %d (r: %d)\n", i, r ? 0 : k, r);
if (r == 0) if (r == 0)
{ {
r = deccvint(k, din); r = deccvint(k, din);
if (r) if (r) check_errno();
check_errno(); dectoasc(din, buf, BUFSIZE-1, 2);
dectoasc(din, buf, BUFSIZE - 1, 2);
q = deccmp(dec, din); q = deccmp(dec, din);
printf("dec[%d,9]: %s (r: %d - cmp: %d)\n", i, buf, r, q); printf("dec[%d,9]: %s (r: %d - cmp: %d)\n", i, buf, r, q);
} }
r = dectodbl(dec, &dbl); r = dectodbl(dec, &dbl);
if (r) if (r) check_errno();
check_errno(); printf("dec[%d,10]: %g (r: %d)\n", i, r?0.0:dbl, r);
printf("dec[%d,10]: %g (r: %d)\n", i, r ? 0.0 : dbl, r);
PGTYPESdecimal_free(din); PGTYPESdecimal_free(din);
printf("\n"); printf("\n");
...@@ -156,29 +141,23 @@ main(void) ...@@ -156,29 +141,23 @@ main(void)
decarr = realloc(decarr, sizeof(decimal *) * (count + 1)); decarr = realloc(decarr, sizeof(decimal *) * (count + 1));
decarr[count++] = dec; decarr[count++] = dec;
rsetnull(CDECIMALTYPE, (char *) decarr[count - 1]); rsetnull(CDECIMALTYPE, (char *) decarr[count-1]);
printf("dec[%d]: %sNULL\n", count - 1, printf("dec[%d]: %sNULL\n", count-1,
risnull(CDECIMALTYPE, (char *) decarr[count - 1]) ? "" : "NOT "); risnull(CDECIMALTYPE, (char *) decarr[count-1]) ? "" : "NOT ");
printf("dec[0]: %sNULL\n", printf("dec[0]: %sNULL\n",
risnull(CDECIMALTYPE, (char *) decarr[0]) ? "" : "NOT "); risnull(CDECIMALTYPE, (char *) decarr[0]) ? "" : "NOT ");
r = dectoasc(decarr[3], buf, -1, -1); r = dectoasc(decarr[3], buf, -1, -1);
check_errno(); check_errno(); printf("dectoasc with len == -1: r: %d\n", r);
printf("dectoasc with len == -1: r: %d\n", r);
r = dectoasc(decarr[3], buf, 0, -1); r = dectoasc(decarr[3], buf, 0, -1);
check_errno(); check_errno(); printf("dectoasc with len == 0: r: %d\n", r);
printf("dectoasc with len == 0: r: %d\n", r);
for (i = 0; i < count; i++) for (i = 0; i < count; i++)
{ {
for (j = 0; j < count; j++) for (j = 0; j < count; j++)
{ {
decimal a, decimal a, s, m, d;
s,
m,
d;
int c; int c;
c = deccmp(decarr[i], decarr[j]); c = deccmp(decarr[i], decarr[j]);
printf("dec[c,%d,%d]: %d\n", i, j, c); printf("dec[c,%d,%d]: %d\n", i, j, c);
...@@ -190,7 +169,7 @@ main(void) ...@@ -190,7 +169,7 @@ main(void)
} }
else else
{ {
dectoasc(&a, buf, BUFSIZE - 1, -1); dectoasc(&a, buf, BUFSIZE-1, -1);
printf("dec[a,%d,%d]: %s\n", i, j, buf); printf("dec[a,%d,%d]: %s\n", i, j, buf);
} }
...@@ -202,7 +181,7 @@ main(void) ...@@ -202,7 +181,7 @@ main(void)
} }
else else
{ {
dectoasc(&s, buf, BUFSIZE - 1, -1); dectoasc(&s, buf, BUFSIZE-1, -1);
printf("dec[s,%d,%d]: %s\n", i, j, buf); printf("dec[s,%d,%d]: %s\n", i, j, buf);
} }
...@@ -214,7 +193,7 @@ main(void) ...@@ -214,7 +193,7 @@ main(void)
} }
else else
{ {
dectoasc(&m, buf, BUFSIZE - 1, -1); dectoasc(&m, buf, BUFSIZE-1, -1);
printf("dec[m,%d,%d]: %s\n", i, j, buf); printf("dec[m,%d,%d]: %s\n", i, j, buf);
} }
...@@ -226,7 +205,7 @@ main(void) ...@@ -226,7 +205,7 @@ main(void)
} }
else else
{ {
dectoasc(&d, buf, BUFSIZE - 1, -1); dectoasc(&d, buf, BUFSIZE-1, -1);
printf("dec[d,%d,%d]: %s\n", i, j, buf); printf("dec[d,%d,%d]: %s\n", i, j, buf);
} }
} }
...@@ -234,7 +213,7 @@ main(void) ...@@ -234,7 +213,7 @@ main(void)
for (i = 0; i < count; i++) for (i = 0; i < count; i++)
{ {
dectoasc(decarr[i], buf, BUFSIZE - 1, -1); dectoasc(decarr[i], buf, BUFSIZE-1, -1);
printf("%d: %s\n", i, buf); printf("%d: %s\n", i, buf);
} }
...@@ -244,7 +223,7 @@ main(void) ...@@ -244,7 +223,7 @@ main(void)
static void static void
check_errno(void) check_errno(void)
{ {
switch (errno) switch(errno)
{ {
case 0: case 0:
printf("(no errno set) - "); printf("(no errno set) - ");
......
...@@ -21,15 +21,14 @@ ...@@ -21,15 +21,14 @@
static void static void
check_return(int ret); check_return(int ret);
static void static void
date_test_strdate(char *input) date_test_strdate(char *input)
{ {
static int i; static int i;
date d; date d;
int r, int r, q;
q;
char dbuf[11]; char dbuf[11];
r = rstrdate(input, &d); r = rstrdate(input, &d);
...@@ -55,8 +54,7 @@ date_test_defmt(char *fmt, char *input) ...@@ -55,8 +54,7 @@ date_test_defmt(char *fmt, char *input)
static int i; static int i;
char dbuf[11]; char dbuf[11];
date d; date d;
int q, int q, r;
r;
r = rdefmtdate(&d, fmt, input); r = rdefmtdate(&d, fmt, input);
printf("r: %d ", r); printf("r: %d ", r);
...@@ -94,7 +92,7 @@ date_test_fmt(date d, char *fmt) ...@@ -94,7 +92,7 @@ date_test_fmt(date d, char *fmt)
int int
main(void) main(void)
{ {
short mdy[3] = {11, 23, 1959}; short mdy[3] = { 11, 23, 1959 };
char dbuf[11]; char dbuf[11];
date d; date d;
int r; int r;
...@@ -166,7 +164,7 @@ main(void) ...@@ -166,7 +164,7 @@ main(void)
static void static void
check_return(int ret) check_return(int ret)
{ {
switch (ret) switch(ret)
{ {
case ECPG_INFORMIX_ENOTDMY: case ECPG_INFORMIX_ENOTDMY:
printf("(ECPG_INFORMIX_ENOTDMY)"); printf("(ECPG_INFORMIX_ENOTDMY)");
......
...@@ -21,7 +21,7 @@ ...@@ -21,7 +21,7 @@
static void static void
check_return(int ret); check_return(int ret);
static void static void
fmtlong(long lng, char *fmt) fmtlong(long lng, char *fmt)
...@@ -62,7 +62,7 @@ main(void) ...@@ -62,7 +62,7 @@ main(void)
static void static void
check_return(int ret) check_return(int ret)
{ {
switch (ret) switch(ret)
{ {
case ECPG_INFORMIX_ENOTDMY: case ECPG_INFORMIX_ENOTDMY:
printf("(ECPG_INFORMIX_ENOTDMY)"); printf("(ECPG_INFORMIX_ENOTDMY)");
......
...@@ -30,66 +30,65 @@ test_null(int type, char *ptr) ...@@ -30,66 +30,65 @@ test_null(int type, char *ptr)
printf("null: %d\n", risnull(type, ptr)); printf("null: %d\n", risnull(type, ptr));
} }
int int main(void)
main(void)
{ {
#line 15 "rnull.pgc" #line 15 "rnull.pgc"
char c[] = "abc "; char c [] = "abc " ;
#line 15 "rnull.pgc" #line 15 "rnull.pgc"
#line 16 "rnull.pgc" #line 16 "rnull.pgc"
short s = 17; short s = 17 ;
#line 16 "rnull.pgc" #line 16 "rnull.pgc"
#line 17 "rnull.pgc" #line 17 "rnull.pgc"
int i = -74874; int i = - 74874 ;
#line 17 "rnull.pgc" #line 17 "rnull.pgc"
#line 18 "rnull.pgc" #line 18 "rnull.pgc"
bool b = 1; bool b = 1 ;
#line 18 "rnull.pgc" #line 18 "rnull.pgc"
#line 19 "rnull.pgc" #line 19 "rnull.pgc"
float f = 3.71; float f = 3.71 ;
#line 19 "rnull.pgc" #line 19 "rnull.pgc"
#line 20 "rnull.pgc" #line 20 "rnull.pgc"
long l = 487444; long l = 487444 ;
#line 20 "rnull.pgc" #line 20 "rnull.pgc"
#line 21 "rnull.pgc" #line 21 "rnull.pgc"
double dbl = 404.404; double dbl = 404.404 ;
#line 21 "rnull.pgc" #line 21 "rnull.pgc"
#line 22 "rnull.pgc" #line 22 "rnull.pgc"
decimal dec; decimal dec ;
#line 22 "rnull.pgc" #line 22 "rnull.pgc"
#line 23 "rnull.pgc" #line 23 "rnull.pgc"
date dat; date dat ;
#line 23 "rnull.pgc" #line 23 "rnull.pgc"
#line 24 "rnull.pgc" #line 24 "rnull.pgc"
timestamp tmp; timestamp tmp ;
#line 24 "rnull.pgc" #line 24 "rnull.pgc"
...@@ -99,65 +98,50 @@ main(void) ...@@ -99,65 +98,50 @@ main(void)
#line 27 "rnull.pgc" #line 27 "rnull.pgc"
{ { ECPGconnect(__LINE__, 1, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 1, "regress1", NULL, NULL, NULL, 0);
#line 29 "rnull.pgc" #line 29 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 29 "rnull.pgc" #line 29 "rnull.pgc"
{ { ECPGdo(__LINE__, 1, 0, NULL, "create table test ( id int , c char ( 10 ) , s smallint , i int , b bool , f float , l bigint , dbl double precision , dec decimal , dat date , tmp timestamptz ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 0, NULL, "create table test ( id int , c char ( 10 ) , s smallint , i int , b bool , f float , l bigint , dbl double precision , dec decimal , dat date , tmp timestamptz ) ", ECPGt_EOIT, ECPGt_EORT);
#line 33 "rnull.pgc" #line 33 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 33 "rnull.pgc" #line 33 "rnull.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 34 "rnull.pgc" #line 34 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 34 "rnull.pgc" #line 34 "rnull.pgc"
{ { ECPGdo(__LINE__, 1, 0, NULL, "insert into test ( id , c , s , i , b , f , l , dbl ) values ( 1 , ? , ? , ? , ? , ? , ? , ? ) ",
ECPGdo(__LINE__, 1, 0, NULL, "insert into test ( id , c , s , i , b , f , l , dbl ) values( 1 , ? , ? , ? , ? , ? , ? , ? ) ", ECPGt_char,(c),(long)sizeof("abc "),(long)1,(sizeof("abc "))*sizeof(char),
ECPGt_char, (c), (long) sizeof("abc "), (long) 1, (sizeof("abc ")) *sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_short,&(s),(long)1,(long)1,sizeof(short),
ECPGt_short, &(s), (long) 1, (long) 1, sizeof(short), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_bool,&(b),(long)1,(long)1,sizeof(bool),
ECPGt_bool, &(b), (long) 1, (long) 1, sizeof(bool), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_float,&(f),(long)1,(long)1,sizeof(float),
ECPGt_float, &(f), (long) 1, (long) 1, sizeof(float), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_long,&(l),(long)1,(long)1,sizeof(long),
ECPGt_long, &(l), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_double,&(dbl),(long)1,(long)1,sizeof(double),
ECPGt_double, &(dbl), (long) 1, (long) 1, sizeof(double), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 38 "rnull.pgc" #line 38 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 38 "rnull.pgc" #line 38 "rnull.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 39 "rnull.pgc" #line 39 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 39 "rnull.pgc" #line 39 "rnull.pgc"
...@@ -172,74 +156,65 @@ main(void) ...@@ -172,74 +156,65 @@ main(void)
rsetnull(CDATETYPE, (char *) &dat); rsetnull(CDATETYPE, (char *) &dat);
rsetnull(CDTIMETYPE, (char *) &tmp); rsetnull(CDTIMETYPE, (char *) &tmp);
{ { ECPGdo(__LINE__, 1, 0, NULL, "insert into test ( id , c , s , i , b , f , l , dbl , dec , dat , tmp ) values ( 2 , ? , ? , ? , ? , ? , ? , ? , ? , ? , ? ) ",
ECPGdo(__LINE__, 1, 0, NULL, "insert into test ( id , c , s , i , b , f , l , dbl , dec , dat , tmp ) values( 2 , ? , ? , ? , ? , ? , ? , ? , ? , ? , ? ) ", ECPGt_char,(c),(long)sizeof("abc "),(long)1,(sizeof("abc "))*sizeof(char),
ECPGt_char, (c), (long) sizeof("abc "), (long) 1, (sizeof("abc ")) *sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_short,&(s),(long)1,(long)1,sizeof(short),
ECPGt_short, &(s), (long) 1, (long) 1, sizeof(short), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_bool,&(b),(long)1,(long)1,sizeof(bool),
ECPGt_bool, &(b), (long) 1, (long) 1, sizeof(bool), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_float,&(f),(long)1,(long)1,sizeof(float),
ECPGt_float, &(f), (long) 1, (long) 1, sizeof(float), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_long,&(l),(long)1,(long)1,sizeof(long),
ECPGt_long, &(l), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_double,&(dbl),(long)1,(long)1,sizeof(double),
ECPGt_double, &(dbl), (long) 1, (long) 1, sizeof(double), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_decimal,&(dec),(long)1,(long)1,sizeof(decimal),
ECPGt_decimal, &(dec), (long) 1, (long) 1, sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_date,&(dat),(long)1,(long)1,sizeof(date),
ECPGt_date, &(dat), (long) 1, (long) 1, sizeof(date), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_timestamp,&(tmp),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(tmp), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 54 "rnull.pgc" #line 54 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 54 "rnull.pgc" #line 54 "rnull.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 55 "rnull.pgc" #line 55 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 55 "rnull.pgc" #line 55 "rnull.pgc"
printf("first select\n"); printf("first select\n");
{ { ECPGdo(__LINE__, 1, 0, NULL, "select c , s , i , b , f , l , dbl , dec , dat , tmp from test where id = 1 ", ECPGt_EOIT,
ECPGdo(__LINE__, 1, 0, NULL, "select c , s , i , b , f , l , dbl , dec , dat , tmp from test where id = 1 ", ECPGt_EOIT, ECPGt_char,(c),(long)sizeof("abc "),(long)1,(sizeof("abc "))*sizeof(char),
ECPGt_char, (c), (long) sizeof("abc "), (long) 1, (sizeof("abc ")) *sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_short,&(s),(long)1,(long)1,sizeof(short),
ECPGt_short, &(s), (long) 1, (long) 1, sizeof(short), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_bool,&(b),(long)1,(long)1,sizeof(bool),
ECPGt_bool, &(b), (long) 1, (long) 1, sizeof(bool), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_float,&(f),(long)1,(long)1,sizeof(float),
ECPGt_float, &(f), (long) 1, (long) 1, sizeof(float), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_long,&(l),(long)1,(long)1,sizeof(long),
ECPGt_long, &(l), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_double,&(dbl),(long)1,(long)1,sizeof(double),
ECPGt_double, &(dbl), (long) 1, (long) 1, sizeof(double), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_decimal,&(dec),(long)1,(long)1,sizeof(decimal),
ECPGt_decimal, &(dec), (long) 1, (long) 1, sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_date,&(dat),(long)1,(long)1,sizeof(date),
ECPGt_date, &(dat), (long) 1, (long) 1, sizeof(date), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_timestamp,&(tmp),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(tmp), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 61 "rnull.pgc" #line 61 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 61 "rnull.pgc" #line 61 "rnull.pgc"
...@@ -256,33 +231,30 @@ main(void) ...@@ -256,33 +231,30 @@ main(void)
printf("second select\n"); printf("second select\n");
{ { ECPGdo(__LINE__, 1, 0, NULL, "select c , s , i , b , f , l , dbl , dec , dat , tmp from test where id = 2 ", ECPGt_EOIT,
ECPGdo(__LINE__, 1, 0, NULL, "select c , s , i , b , f , l , dbl , dec , dat , tmp from test where id = 2 ", ECPGt_EOIT, ECPGt_char,(c),(long)sizeof("abc "),(long)1,(sizeof("abc "))*sizeof(char),
ECPGt_char, (c), (long) sizeof("abc "), (long) 1, (sizeof("abc ")) *sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_short,&(s),(long)1,(long)1,sizeof(short),
ECPGt_short, &(s), (long) 1, (long) 1, sizeof(short), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_bool,&(b),(long)1,(long)1,sizeof(bool),
ECPGt_bool, &(b), (long) 1, (long) 1, sizeof(bool), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_float,&(f),(long)1,(long)1,sizeof(float),
ECPGt_float, &(f), (long) 1, (long) 1, sizeof(float), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_long,&(l),(long)1,(long)1,sizeof(long),
ECPGt_long, &(l), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_double,&(dbl),(long)1,(long)1,sizeof(double),
ECPGt_double, &(dbl), (long) 1, (long) 1, sizeof(double), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_decimal,&(dec),(long)1,(long)1,sizeof(decimal),
ECPGt_decimal, &(dec), (long) 1, (long) 1, sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_date,&(dat),(long)1,(long)1,sizeof(date),
ECPGt_date, &(dat), (long) 1, (long) 1, sizeof(date), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_timestamp,&(tmp),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(tmp), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 78 "rnull.pgc" #line 78 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 78 "rnull.pgc" #line 78 "rnull.pgc"
...@@ -297,32 +269,23 @@ main(void) ...@@ -297,32 +269,23 @@ main(void)
test_null(CDATETYPE, (char *) &dat); test_null(CDATETYPE, (char *) &dat);
test_null(CDTIMETYPE, (char *) &tmp); test_null(CDTIMETYPE, (char *) &tmp);
{ { ECPGdo(__LINE__, 1, 0, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 0, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
#line 91 "rnull.pgc" #line 91 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 91 "rnull.pgc" #line 91 "rnull.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 92 "rnull.pgc" #line 92 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 92 "rnull.pgc" #line 92 "rnull.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 94 "rnull.pgc" #line 94 "rnull.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 94 "rnull.pgc" #line 94 "rnull.pgc"
......
...@@ -25,26 +25,21 @@ ...@@ -25,26 +25,21 @@
static void openit(void); static void openit(void);
static void static void dosqlprint(void) {
dosqlprint(void)
{
printf("doSQLprint: Error: %s\n", sqlca.sqlerrm.sqlerrmc); printf("doSQLprint: Error: %s\n", sqlca.sqlerrm.sqlerrmc);
} }
int int main(void)
main(void)
{ {
#line 14 "test_informix.pgc" #line 14 "test_informix.pgc"
int i = 14; int i = 14 ;
#line 14 "test_informix.pgc" #line 14 "test_informix.pgc"
#line 15 "test_informix.pgc" #line 15 "test_informix.pgc"
decimal j, decimal j , m , n ;
m,
n;
#line 15 "test_informix.pgc" #line 15 "test_informix.pgc"
...@@ -54,138 +49,98 @@ main(void) ...@@ -54,138 +49,98 @@ main(void)
#line 18 "test_informix.pgc" #line 18 "test_informix.pgc"
{ { ECPGconnect(__LINE__, 1, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 1, "regress1", NULL, NULL, NULL, 0);
#line 20 "test_informix.pgc" #line 20 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 20 "test_informix.pgc" #line 20 "test_informix.pgc"
if (sqlca.sqlcode != 0) if (sqlca.sqlcode != 0) exit(1);
exit(1);
{ { ECPGdo(__LINE__, 1, 1, NULL, "create table test ( i int primary key , j int ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "create table test ( i int primary key , j int ) ", ECPGt_EOIT, ECPGt_EORT);
#line 23 "test_informix.pgc" #line 23 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 23 "test_informix.pgc" #line 23 "test_informix.pgc"
/* this INSERT works */ /* this INSERT works */
rsetnull(CDECIMALTYPE, (char *) &j); rsetnull(CDECIMALTYPE, (char *)&j);
{ { ECPGdo(__LINE__, 1, 1, NULL, "insert into test ( i , j ) values ( 7 , ? ) ",
ECPGdo(__LINE__, 1, 1, NULL, "insert into test ( i , j ) values( 7 , ? ) ", ECPGt_decimal,&(j),(long)1,(long)1,sizeof(decimal),
ECPGt_decimal, &(j), (long) 1, (long) 1, sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 27 "test_informix.pgc" #line 27 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 27 "test_informix.pgc" #line 27 "test_informix.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 28 "test_informix.pgc" #line 28 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 28 "test_informix.pgc" #line 28 "test_informix.pgc"
/* this INSERT should fail because i is a unique column */ /* this INSERT should fail because i is a unique column */
{ { ECPGdo(__LINE__, 1, 1, NULL, "insert into test ( i , j ) values ( 7 , 12 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "insert into test ( i , j ) values( 7 , 12 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 31 "test_informix.pgc" #line 31 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 31 "test_informix.pgc" #line 31 "test_informix.pgc"
printf("INSERT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); printf("INSERT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
if (sqlca.sqlcode != 0) if (sqlca.sqlcode != 0) { ECPGtrans(__LINE__, NULL, "rollback");
{
ECPGtrans(__LINE__, NULL, "rollback");
#line 33 "test_informix.pgc" #line 33 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 33 "test_informix.pgc" #line 33 "test_informix.pgc"
{ { ECPGdo(__LINE__, 1, 1, NULL, "insert into test ( i , j ) values ( ? , 1 ) ",
ECPGdo(__LINE__, 1, 1, NULL, "insert into test ( i , j ) values( ? , 1 ) ", ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 35 "test_informix.pgc" #line 35 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 35 "test_informix.pgc" #line 35 "test_informix.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 36 "test_informix.pgc" #line 36 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 36 "test_informix.pgc" #line 36 "test_informix.pgc"
/* this will fail (more than one row in subquery) */ /* this will fail (more than one row in subquery) */
{ { ECPGdo(__LINE__, 1, 1, NULL, "select i from test where j = ( select j from test ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "select i from test where j = ( select j from test ) ", ECPGt_EOIT, ECPGt_EORT);
#line 39 "test_informix.pgc" #line 39 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 39 "test_informix.pgc" #line 39 "test_informix.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 40 "test_informix.pgc" #line 40 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 40 "test_informix.pgc" #line 40 "test_informix.pgc"
/* this however should be ok */ /* this however should be ok */
{ { ECPGdo(__LINE__, 1, 1, NULL, "select i from test where j = ( select j from test order by i limit 1 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "select i from test where j = ( select j from test order by i limit 1 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 43 "test_informix.pgc" #line 43 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 43 "test_informix.pgc" #line 43 "test_informix.pgc"
printf("SELECT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); printf("SELECT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
if (sqlca.sqlcode != 0) if (sqlca.sqlcode != 0) { ECPGtrans(__LINE__, NULL, "rollback");
{
ECPGtrans(__LINE__, NULL, "rollback");
#line 45 "test_informix.pgc" #line 45 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 45 "test_informix.pgc" #line 45 "test_informix.pgc"
ECPG_informix_set_var(0, &(i), __LINE__); ECPG_informix_set_var( 0, &( i ), __LINE__);\
\
/* declare c cursor for select * from test where i <= ? */ /* declare c cursor for select * from test where i <= ? */
#line 47 "test_informix.pgc" #line 47 "test_informix.pgc"
...@@ -195,25 +150,20 @@ main(void) ...@@ -195,25 +150,20 @@ main(void)
while (1) while (1)
{ {
{ { ECPGdo(__LINE__, 1, 1, NULL, "fetch forward from c", ECPGt_EOIT,
ECPGdo(__LINE__, 1, 1, NULL, "fetch forward from c", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_decimal,&(j),(long)1,(long)1,sizeof(decimal),
ECPGt_decimal, &(j), (long) 1, (long) 1, sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 54 "test_informix.pgc" #line 54 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 54 "test_informix.pgc" #line 54 "test_informix.pgc"
if (sqlca.sqlcode == 100) if (sqlca.sqlcode == 100) break;
break; else if (sqlca.sqlcode != 0) printf ("Error: %ld\n", sqlca.sqlcode);
else if (sqlca.sqlcode != 0)
printf("Error: %ld\n", sqlca.sqlcode);
if (risnull(CDECIMALTYPE, (char *) &j)) if (risnull(CDECIMALTYPE, (char *)&j))
printf("%d NULL\n", i); printf("%d NULL\n", i);
else else
{ {
...@@ -227,94 +177,70 @@ main(void) ...@@ -227,94 +177,70 @@ main(void)
deccvint(7, &j); deccvint(7, &j);
deccvint(14, &m); deccvint(14, &m);
decadd(&j, &m, &n); decadd(&j, &m, &n);
{ { ECPGdo(__LINE__, 1, 1, NULL, "delete from test where i = ? ",
ECPGdo(__LINE__, 1, 1, NULL, "delete from test where i = ? ", ECPGt_decimal,&(n),(long)1,(long)1,sizeof(decimal),
ECPGt_decimal, &(n), (long) 1, (long) 1, sizeof(decimal), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 72 "test_informix.pgc" #line 72 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 72 "test_informix.pgc" #line 72 "test_informix.pgc"
printf("DELETE: %ld\n", sqlca.sqlcode); printf("DELETE: %ld\n", sqlca.sqlcode);
{ { ECPGdo(__LINE__, 1, 1, NULL, "select 1 from test where i = 14 ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "select 1 from test where i = 14 ", ECPGt_EOIT, ECPGt_EORT);
#line 75 "test_informix.pgc" #line 75 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 75 "test_informix.pgc" #line 75 "test_informix.pgc"
printf("Exists: %ld\n", sqlca.sqlcode); printf("Exists: %ld\n", sqlca.sqlcode);
{ { ECPGdo(__LINE__, 1, 1, NULL, "select 1 from test where i = 147 ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "select 1 from test where i = 147 ", ECPGt_EOIT, ECPGt_EORT);
#line 78 "test_informix.pgc" #line 78 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 78 "test_informix.pgc" #line 78 "test_informix.pgc"
printf("Does not exist: %ld\n", sqlca.sqlcode); printf("Does not exist: %ld\n", sqlca.sqlcode);
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 81 "test_informix.pgc" #line 81 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 81 "test_informix.pgc" #line 81 "test_informix.pgc"
{ { ECPGdo(__LINE__, 1, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
#line 82 "test_informix.pgc" #line 82 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 82 "test_informix.pgc" #line 82 "test_informix.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 83 "test_informix.pgc" #line 83 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 83 "test_informix.pgc" #line 83 "test_informix.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 85 "test_informix.pgc" #line 85 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 85 "test_informix.pgc" #line 85 "test_informix.pgc"
return 0; return 0;
} }
static void static void openit(void)
openit(void)
{ {
{ { ECPGdo(__LINE__, 1, 1, NULL, "declare c cursor for select * from test where i <= ? ",
ECPGdo(__LINE__, 1, 1, NULL, "declare c cursor for select * from test where i <= ? ", ECPGt_int,&(*( int *)(ECPG_informix_get_var( 0))),(long)1,(long)1,sizeof(int),
ECPGt_int, &(*(int *) (ECPG_informix_get_var(0))), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 92 "test_informix.pgc" #line 92 "test_informix.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) dosqlprint ( );}
dosqlprint();
}
#line 92 "test_informix.pgc" #line 92 "test_informix.pgc"
} }
...@@ -79,6 +79,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -79,6 +79,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 5 "test_informix2.pgc" #line 5 "test_informix2.pgc"
...@@ -96,8 +97,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -96,8 +97,7 @@ struct sqlca_t *ECPGget_sqlca(void);
/* Check SQLCODE, and produce a "standard error" if it's wrong! */ /* Check SQLCODE, and produce a "standard error" if it's wrong! */
static void static void sql_check(char *fn, char *caller, int ignore)
sql_check(char *fn, char *caller, int ignore)
{ {
char errorstring[255]; char errorstring[255];
...@@ -114,18 +114,14 @@ sql_check(char *fn, char *caller, int ignore) ...@@ -114,18 +114,14 @@ sql_check(char *fn, char *caller, int ignore)
printf("%s\n", errorstring); printf("%s\n", errorstring);
/* attempt a ROLLBACK */ /* attempt a ROLLBACK */
{ { ECPGtrans(__LINE__, NULL, "rollback");}
ECPGtrans(__LINE__, NULL, "rollback");
}
#line 27 "test_informix2.pgc" #line 27 "test_informix2.pgc"
if (SQLCODE == 0) if (SQLCODE == 0)
{ {
sprintf(errorstring, "Rollback successful.\n"); sprintf(errorstring, "Rollback successful.\n");
} } else {
else
{
sprintf(errorstring, "Rollback failed with code %ld.\n", SQLCODE); sprintf(errorstring, "Rollback failed with code %ld.\n", SQLCODE);
} }
...@@ -139,8 +135,7 @@ sql_check(char *fn, char *caller, int ignore) ...@@ -139,8 +135,7 @@ sql_check(char *fn, char *caller, int ignore)
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -150,20 +145,19 @@ main(void) ...@@ -150,20 +145,19 @@ main(void)
#line 49 "test_informix2.pgc" #line 49 "test_informix2.pgc"
int c; int c ;
#line 50 "test_informix2.pgc" #line 50 "test_informix2.pgc"
timestamp d; timestamp d ;
#line 51 "test_informix2.pgc" #line 51 "test_informix2.pgc"
timestamp e; timestamp e ;
#line 52 "test_informix2.pgc" #line 52 "test_informix2.pgc"
timestamp maxd; timestamp maxd ;
#line 53 "test_informix2.pgc" #line 53 "test_informix2.pgc"
char dbname[30]; char dbname [ 30 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 54 "test_informix2.pgc" #line 54 "test_informix2.pgc"
...@@ -177,75 +171,57 @@ main(void) ...@@ -177,75 +171,57 @@ main(void)
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
strcpy(dbname, "regress1"); strcpy(dbname, "regress1");
{ { ECPGconnect(__LINE__, 1, dbname , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 1, dbname, NULL, NULL, NULL, 0);
#line 63 "test_informix2.pgc" #line 63 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 63 "test_informix2.pgc" #line 63 "test_informix2.pgc"
sql_check("main", "connect", 0); sql_check("main", "connect", 0);
{ { ECPGdo(__LINE__, 1, 1, NULL, "set DateStyle to 'DMY'", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "set DateStyle to 'DMY'", ECPGt_EOIT, ECPGt_EORT);
#line 66 "test_informix2.pgc" #line 66 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 66 "test_informix2.pgc" #line 66 "test_informix2.pgc"
{ { ECPGdo(__LINE__, 1, 1, NULL, "create table history ( customerid integer , timestamp timestamp without time zone , action_taken char ( 5 ) , narrative varchar ( 100 ) ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "create table history ( customerid integer , timestamp timestamp without time zone , action_taken char ( 5 ) , narrative varchar ( 100 ) ) ", ECPGt_EOIT, ECPGt_EORT);
#line 68 "test_informix2.pgc" #line 68 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 68 "test_informix2.pgc" #line 68 "test_informix2.pgc"
sql_check("main", "create", 0); sql_check("main", "create", 0);
{ { ECPGdo(__LINE__, 1, 1, NULL, "insert into history ( customerid , timestamp , action_taken , narrative ) values ( 1 , '2003-05-07 13:28:34 CEST' , 'test' , 'test' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "insert into history ( customerid , timestamp , action_taken , narrative ) values( 1 , '2003-05-07 13:28:34 CEST' , 'test' , 'test' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 73 "test_informix2.pgc" #line 73 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 73 "test_informix2.pgc" #line 73 "test_informix2.pgc"
sql_check("main", "insert", 0); sql_check("main", "insert", 0);
{ { ECPGdo(__LINE__, 1, 1, NULL, "select max ( timestamp ) from history ", ECPGt_EOIT,
ECPGdo(__LINE__, 1, 1, NULL, "select max ( timestamp ) from history ", ECPGt_EOIT, ECPGt_timestamp,&(maxd),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(maxd), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 78 "test_informix2.pgc" #line 78 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 78 "test_informix2.pgc" #line 78 "test_informix2.pgc"
sql_check("main", "select max", 100); sql_check("main", "select max", 100);
{ { ECPGdo(__LINE__, 1, 1, NULL, "select customerid , timestamp from history where timestamp = ? limit 1 ",
ECPGdo(__LINE__, 1, 1, NULL, "select customerid , timestamp from history where timestamp = ? limit 1 ", ECPGt_timestamp,&(maxd),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(maxd), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_int,&(c),(long)1,(long)1,sizeof(int),
ECPGt_int, &(c), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_timestamp,&(d),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(d), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 85 "test_informix2.pgc" #line 85 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 85 "test_informix2.pgc" #line 85 "test_informix2.pgc"
sql_check("main", "select", 0); sql_check("main", "select", 0);
...@@ -257,59 +233,44 @@ main(void) ...@@ -257,59 +233,44 @@ main(void)
c++; c++;
{ { ECPGdo(__LINE__, 1, 1, NULL, "insert into history ( customerid , timestamp , action_taken , narrative ) values ( ? , ? , 'test' , 'test' ) ",
ECPGdo(__LINE__, 1, 1, NULL, "insert into history ( customerid , timestamp , action_taken , narrative ) values( ? , ? , 'test' , 'test' ) ", ECPGt_int,&(c),(long)1,(long)1,sizeof(int),
ECPGt_int, &(c), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_timestamp,&(e),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(e), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 97 "test_informix2.pgc" #line 97 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 97 "test_informix2.pgc" #line 97 "test_informix2.pgc"
sql_check("main", "update", 0); sql_check("main", "update", 0);
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 100 "test_informix2.pgc" #line 100 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 100 "test_informix2.pgc" #line 100 "test_informix2.pgc"
{ { ECPGdo(__LINE__, 1, 1, NULL, "drop table history ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 1, 1, NULL, "drop table history ", ECPGt_EOIT, ECPGt_EORT);
#line 102 "test_informix2.pgc" #line 102 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 102 "test_informix2.pgc" #line 102 "test_informix2.pgc"
sql_check("main", "drop", 0); sql_check("main", "drop", 0);
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 105 "test_informix2.pgc" #line 105 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 105 "test_informix2.pgc" #line 105 "test_informix2.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 107 "test_informix2.pgc" #line 107 "test_informix2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 107 "test_informix2.pgc" #line 107 "test_informix2.pgc"
sql_check("main", "disconnect", 0); sql_check("main", "disconnect", 0);
......
...@@ -29,180 +29,121 @@ main(void) ...@@ -29,180 +29,121 @@ main(void)
#line 16 "test1.pgc" #line 16 "test1.pgc"
char db[200]; char db [ 200 ] ;
#line 17 "test1.pgc" #line 17 "test1.pgc"
char pw[200]; char pw [ 200 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 18 "test1.pgc" #line 18 "test1.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "main", 0);
}
#line 22 "test1.pgc" #line 22 "test1.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "alter user connectuser encrypted password 'connectpw'", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "alter user connectuser encrypted password 'connectpw'", ECPGt_EOIT, ECPGt_EORT);
}
#line 23 "test1.pgc" #line 23 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 24 "test1.pgc" #line 24 "test1.pgc"
/* <-- "main" not specified */ /* <-- "main" not specified */
{ { ECPGconnect(__LINE__, 0, "connectdb@localhost" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb@localhost", NULL, NULL, "main", 0);
}
#line 26 "test1.pgc" #line 26 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 27 "test1.pgc" #line 27 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "@localhost" , "connectdb" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "@localhost", "connectdb", NULL, "main", 0);
}
#line 29 "test1.pgc" #line 29 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 30 "test1.pgc" #line 30 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb@localhost:55432" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb@localhost:55432", NULL, NULL, "main", 0);
}
#line 32 "test1.pgc" #line 32 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 33 "test1.pgc" #line 33 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "@localhost:55432" , "connectdb" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "@localhost:55432", "connectdb", NULL, "main", 0);
}
#line 35 "test1.pgc" #line 35 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 36 "test1.pgc" #line 36 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb:55432" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb:55432", NULL, NULL, "main", 0);
}
#line 38 "test1.pgc" #line 38 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 39 "test1.pgc" #line 39 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, ":55432" , "connectdb" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, ":55432", "connectdb", NULL, "main", 0);
}
#line 41 "test1.pgc" #line 41 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 42 "test1.pgc" #line 42 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:55432/connectdb" , "connectuser" , "connectpw" , NULL, 0); }
ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:55432/connectdb", "connectuser", "connectpw", NULL, 0);
}
#line 44 "test1.pgc" #line 44 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 45 "test1.pgc" #line 45 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:55432/" , "connectdb" , NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:55432/", "connectdb", NULL, NULL, 0);
}
#line 47 "test1.pgc" #line 47 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 48 "test1.pgc" #line 48 "test1.pgc"
strcpy(pw, "connectpw"); strcpy(pw, "connectpw");
strcpy(db, "tcp:postgresql://localhost:55432/connectdb"); strcpy(db, "tcp:postgresql://localhost:55432/connectdb");
{ { ECPGconnect(__LINE__, 0, db , "connectuser" , pw , NULL, 0); }
ECPGconnect(__LINE__, 0, db, "connectuser", pw, NULL, 0);
}
#line 52 "test1.pgc" #line 52 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 53 "test1.pgc" #line 53 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://localhost:55432/connectdb" , "connectuser" , "connectpw" , NULL, 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://localhost:55432/connectdb", "connectuser", "connectpw", NULL, 0);
}
#line 55 "test1.pgc" #line 55 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 56 "test1.pgc" #line 56 "test1.pgc"
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://localhost:55432/connectdb" , "connectuser" , NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://localhost:55432/connectdb", "connectuser", NULL, NULL, 0);
}
#line 58 "test1.pgc" #line 58 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 59 "test1.pgc" #line 59 "test1.pgc"
/* wrong db */ /* wrong db */
{ { ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:55432/nonexistant" , "connectuser" , "connectpw" , NULL, 0); }
ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:55432/nonexistant", "connectuser", "connectpw", NULL, 0);
}
#line 62 "test1.pgc" #line 62 "test1.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 63 "test1.pgc" #line 63 "test1.pgc"
/* wrong port */ /* wrong port */
{ { ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:20/connectdb" , "connectuser" , "connectpw" , NULL, 0); }
ECPGconnect(__LINE__, 0, "tcp:postgresql://localhost:20/connectdb", "connectuser", "connectpw", NULL, 0);
}
#line 66 "test1.pgc" #line 66 "test1.pgc"
/* no disconnect necessary */ /* no disconnect necessary */
/* wrong password */ /* wrong password */
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://localhost:55432/connectdb" , "connectuser" , "wrongpw" , NULL, 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://localhost:55432/connectdb", "connectuser", "wrongpw", NULL, 0);
}
#line 70 "test1.pgc" #line 70 "test1.pgc"
/* no disconnect necessary */ /* no disconnect necessary */
......
...@@ -36,11 +36,10 @@ main(void) ...@@ -36,11 +36,10 @@ main(void)
#line 17 "test2.pgc" #line 17 "test2.pgc"
char id[200]; char id [ 200 ] ;
#line 18 "test2.pgc" #line 18 "test2.pgc"
char res[200]; char res [ 200 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 19 "test2.pgc" #line 19 "test2.pgc"
...@@ -48,78 +47,56 @@ main(void) ...@@ -48,78 +47,56 @@ main(void)
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
strcpy(id, "first"); strcpy(id, "first");
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , id, 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, id, 0);
}
#line 24 "test2.pgc" #line 24 "test2.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , "second", 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, "second", 0);
}
#line 25 "test2.pgc" #line 25 "test2.pgc"
/* this selects from "second" which was opened last */ /* this selects from "second" which was opened last */
{ { ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT, ECPGt_char,(res),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (res), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 28 "test2.pgc" #line 28 "test2.pgc"
{ { ECPGdo(__LINE__, 0, 1, "first", "select current_database () ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, "first", "select current_database () ", ECPGt_EOIT, ECPGt_char,(res),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (res), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 29 "test2.pgc" #line 29 "test2.pgc"
{ { ECPGdo(__LINE__, 0, 1, "second", "select current_database () ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, "second", "select current_database () ", ECPGt_EOIT, ECPGt_char,(res),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (res), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 30 "test2.pgc" #line 30 "test2.pgc"
{ { ECPGsetconn(__LINE__, "first");}
ECPGsetconn(__LINE__, "first");
}
#line 32 "test2.pgc" #line 32 "test2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT, ECPGt_char,(res),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (res), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 33 "test2.pgc" #line 33 "test2.pgc"
/* this will disconnect from "first" */ /* this will disconnect from "first" */
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 36 "test2.pgc" #line 36 "test2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT, ECPGt_char,(res),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (res), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 37 "test2.pgc" #line 37 "test2.pgc"
/* error here since "first" is already disconnected */ /* error here since "first" is already disconnected */
{ { ECPGdisconnect(__LINE__, id);}
ECPGdisconnect(__LINE__, id);
}
#line 40 "test2.pgc" #line 40 "test2.pgc"
/* disconnect from "second" */ /* disconnect from "second" */
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 43 "test2.pgc" #line 43 "test2.pgc"
......
...@@ -35,11 +35,10 @@ main(void) ...@@ -35,11 +35,10 @@ main(void)
#line 16 "test3.pgc" #line 16 "test3.pgc"
char id[200]; char id [ 200 ] ;
#line 17 "test3.pgc" #line 17 "test3.pgc"
char res[200]; char res [ 200 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 18 "test3.pgc" #line 18 "test3.pgc"
...@@ -47,81 +46,58 @@ main(void) ...@@ -47,81 +46,58 @@ main(void)
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
strcpy(id, "first"); strcpy(id, "first");
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , id, 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, id, 0);
}
#line 23 "test3.pgc" #line 23 "test3.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , "second", 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, "second", 0);
}
#line 24 "test3.pgc" #line 24 "test3.pgc"
/* this selects from "second" which was opened last */ /* this selects from "second" which was opened last */
{ { ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT, ECPGt_char,(res),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (res), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 27 "test3.pgc" #line 27 "test3.pgc"
/* will close "second" */ /* will close "second" */
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 30 "test3.pgc" #line 30 "test3.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select current_database () ", ECPGt_EOIT, ECPGt_char,(res),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (res), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 31 "test3.pgc" #line 31 "test3.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , "second", 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, "second", 0);
}
#line 33 "test3.pgc" #line 33 "test3.pgc"
/* will close "second" */ /* will close "second" */
{ { ECPGdisconnect(__LINE__, "DEFAULT");}
ECPGdisconnect(__LINE__, "DEFAULT");
}
#line 35 "test3.pgc" #line 35 "test3.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "second", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "second", 0);
}
#line 37 "test3.pgc" #line 37 "test3.pgc"
{ { ECPGdisconnect(__LINE__, "ALL");}
ECPGdisconnect(__LINE__, "ALL");
}
#line 38 "test3.pgc" #line 38 "test3.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 40 "test3.pgc" #line 40 "test3.pgc"
{ { ECPGdisconnect(__LINE__, "DEFAULT");}
ECPGdisconnect(__LINE__, "DEFAULT");
}
#line 41 "test3.pgc" #line 41 "test3.pgc"
{ { ECPGdisconnect(__LINE__, "ALL");}
ECPGdisconnect(__LINE__, "ALL");
}
#line 42 "test3.pgc" #line 42 "test3.pgc"
/* /*
* exec sql disconnect; exec sql disconnect name; * exec sql disconnect;
* exec sql disconnect name;
* *
* are used in other tests * are used in other tests
*/ */
......
...@@ -28,21 +28,15 @@ main(void) ...@@ -28,21 +28,15 @@ main(void)
{ {
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, "main", 0);
}
#line 13 "test4.pgc" #line 13 "test4.pgc"
{ { ECPGsetconn(__LINE__, "main");}
ECPGsetconn(__LINE__, "main");
}
#line 15 "test4.pgc" #line 15 "test4.pgc"
{ { ECPGdisconnect(__LINE__, "DEFAULT");}
ECPGdisconnect(__LINE__, "DEFAULT");
}
#line 17 "test4.pgc" #line 17 "test4.pgc"
......
...@@ -26,177 +26,118 @@ main(void) ...@@ -26,177 +26,118 @@ main(void)
#line 16 "test5.pgc" #line 16 "test5.pgc"
char db[200]; char db [ 200 ] ;
#line 17 "test5.pgc" #line 17 "test5.pgc"
char id[200]; char id [ 200 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 18 "test5.pgc" #line 18 "test5.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "main", 0);
}
#line 22 "test5.pgc" #line 22 "test5.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "alter user connectuser encrypted password 'connectpw'", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "alter user connectuser encrypted password 'connectpw'", ECPGt_EOIT, ECPGt_EORT);
}
#line 23 "test5.pgc" #line 23 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 24 "test5.pgc" #line 24 "test5.pgc"
/* <-- "main" not specified */ /* <-- "main" not specified */
strcpy(db, "connectdb"); strcpy(db, "connectdb");
strcpy(id, "main"); strcpy(id, "main");
{ { ECPGconnect(__LINE__, 0, db , NULL,NULL , id, 0); }
ECPGconnect(__LINE__, 0, db, NULL, NULL, id, 0);
}
#line 28 "test5.pgc" #line 28 "test5.pgc"
{ { ECPGdisconnect(__LINE__, id);}
ECPGdisconnect(__LINE__, id);
}
#line 29 "test5.pgc" #line 29 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "main", 0);
}
#line 31 "test5.pgc" #line 31 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 32 "test5.pgc" #line 32 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "main", 0);
}
#line 34 "test5.pgc" #line 34 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 35 "test5.pgc" #line 35 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "main", 0);
}
#line 37 "test5.pgc" #line 37 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 38 "test5.pgc" #line 38 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "" , "connectdb" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "", "connectdb", NULL, "main", 0);
}
#line 40 "test5.pgc" #line 40 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 41 "test5.pgc" #line 41 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb" , "connectuser" , "connectdb" , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", "connectuser", "connectdb", "main", 0);
}
#line 43 "test5.pgc" #line 43 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 44 "test5.pgc" #line 44 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/connectdb" , "connectuser" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/connectdb", "connectuser", NULL, "main", 0);
}
#line 46 "test5.pgc" #line 46 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 47 "test5.pgc" #line 47 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/connectdb" , "connectuser" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/connectdb", "connectuser", NULL, "main", 0);
}
#line 49 "test5.pgc" #line 49 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 50 "test5.pgc" #line 50 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/connectdb" , "connectuser" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/connectdb", "connectuser", NULL, "main", 0);
}
#line 52 "test5.pgc" #line 52 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 53 "test5.pgc" #line 53 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://200.46.204.71/connectdb" , "connectuser" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://200.46.204.71/connectdb", "connectuser", NULL, "main", 0);
}
#line 55 "test5.pgc" #line 55 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 56 "test5.pgc" #line 56 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/" , "connectdb" , NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "unix:postgresql://localhost/", "connectdb", NULL, "main", 0);
}
#line 58 "test5.pgc" #line 58 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 59 "test5.pgc" #line 59 "test5.pgc"
/* connect twice */ /* connect twice */
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "main", 0);
}
#line 62 "test5.pgc" #line 62 "test5.pgc"
{ { ECPGconnect(__LINE__, 0, "connectdb" , NULL,NULL , "main", 0); }
ECPGconnect(__LINE__, 0, "connectdb", NULL, NULL, "main", 0);
}
#line 63 "test5.pgc" #line 63 "test5.pgc"
{ { ECPGdisconnect(__LINE__, "main");}
ECPGdisconnect(__LINE__, "main");
}
#line 64 "test5.pgc" #line 64 "test5.pgc"
/* not connected */ /* not connected */
{ { ECPGdisconnect(__LINE__, "nonexistant");}
ECPGdisconnect(__LINE__, "nonexistant");
}
#line 67 "test5.pgc" #line 67 "test5.pgc"
......
...@@ -35,26 +35,22 @@ main(void) ...@@ -35,26 +35,22 @@ main(void)
#line 14 "dt_test.pgc" #line 14 "dt_test.pgc"
date date1; date date1 ;
#line 15 "dt_test.pgc" #line 15 "dt_test.pgc"
timestamp ts1; timestamp ts1 ;
#line 16 "dt_test.pgc" #line 16 "dt_test.pgc"
interval *iv1, interval * iv1 , iv2 ;
iv2;
#line 17 "dt_test.pgc" #line 17 "dt_test.pgc"
char *text; char * text ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 18 "dt_test.pgc" #line 18 "dt_test.pgc"
date date2; date date2;
int mdy[3] = {4, 19, 1998}; int mdy[3] = { 4, 19, 1998 };
char *fmt, char *fmt, *out, *in;
*out,
*in;
char *d1 = "Mon Jan 17 1966"; char *d1 = "Mon Jan 17 1966";
char *t1 = "2000-7-12 17:34:29"; char *t1 = "2000-7-12 17:34:29";
int i; int i;
...@@ -63,82 +59,64 @@ main(void) ...@@ -63,82 +59,64 @@ main(void)
/* exec sql whenever sqlerror do sqlprint ( ) ; */ /* exec sql whenever sqlerror do sqlprint ( ) ; */
#line 27 "dt_test.pgc" #line 27 "dt_test.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 28 "dt_test.pgc" #line 28 "dt_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 28 "dt_test.pgc" #line 28 "dt_test.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table date_test ( d date , ts timestamp ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table date_test ( d date , ts timestamp ) ", ECPGt_EOIT, ECPGt_EORT);
#line 29 "dt_test.pgc" #line 29 "dt_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 29 "dt_test.pgc" #line 29 "dt_test.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
#line 30 "dt_test.pgc" #line 30 "dt_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 30 "dt_test.pgc" #line 30 "dt_test.pgc"
date1 = PGTYPESdate_from_asc(d1, NULL); date1 = PGTYPESdate_from_asc(d1, NULL);
ts1 = PGTYPEStimestamp_from_asc(t1, NULL); ts1 = PGTYPEStimestamp_from_asc(t1, NULL);
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into date_test ( d , ts ) values ( ? , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into date_test ( d , ts ) values( ? , ? ) ", ECPGt_date,&(date1),(long)1,(long)1,sizeof(date),
ECPGt_date, &(date1), (long) 1, (long) 1, sizeof(date), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_timestamp,&(ts1),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(ts1), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 35 "dt_test.pgc" #line 35 "dt_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 35 "dt_test.pgc" #line 35 "dt_test.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from date_test where d = ? ",
ECPGdo(__LINE__, 0, 1, NULL, "select * from date_test where d = ? ", ECPGt_date,&(date1),(long)1,(long)1,sizeof(date),
ECPGt_date, &(date1), (long) 1, (long) 1, sizeof(date), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_date,&(date1),(long)1,(long)1,sizeof(date),
ECPGt_date, &(date1), (long) 1, (long) 1, sizeof(date), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_timestamp,&(ts1),(long)1,(long)1,sizeof(timestamp),
ECPGt_timestamp, &(ts1), (long) 1, (long) 1, sizeof(timestamp), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 37 "dt_test.pgc" #line 37 "dt_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 37 "dt_test.pgc" #line 37 "dt_test.pgc"
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf ("Date: %s\n", text);
printf("Date: %s\n", text);
free(text); free(text);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf ("timestamp: %s\n", text);
printf("timestamp: %s\n", text);
free(text); free(text);
iv1 = PGTYPESinterval_from_asc("13556 days 12 hours 34 minutes 14 seconds ", NULL); iv1 = PGTYPESinterval_from_asc("13556 days 12 hours 34 minutes 14 seconds ", NULL);
PGTYPESinterval_copy(iv1, &iv2); PGTYPESinterval_copy(iv1, &iv2);
text = PGTYPESinterval_to_asc(&iv2); text = PGTYPESinterval_to_asc(&iv2);
printf ("interval: %s\n", text);
printf("interval: %s\n", text);
free(text); free(text);
PGTYPESdate_mdyjul(mdy, &date2); PGTYPESdate_mdyjul(mdy, &date2);
...@@ -153,9 +131,8 @@ main(void) ...@@ -153,9 +131,8 @@ main(void)
ts1 = PGTYPEStimestamp_from_asc("2003-12-04 17:34:29", NULL); ts1 = PGTYPEStimestamp_from_asc("2003-12-04 17:34:29", NULL);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
fmt = "(ddd), mmm. dd, yyyy, repeat: (ddd), mmm. dd, yyyy. end"; fmt = "(ddd), mmm. dd, yyyy, repeat: (ddd), mmm. dd, yyyy. end";
out = (char *) malloc(strlen(fmt) + 1); out = (char*) malloc(strlen(fmt) + 1);
date1 = PGTYPESdate_from_timestamp(ts1); date1 = PGTYPESdate_from_timestamp(ts1);
PGTYPESdate_fmt_asc(date1, fmt, out); PGTYPESdate_fmt_asc(date1, fmt, out);
printf("date_day of %s is %d\n", text, PGTYPESdate_dayofweek(date1)); printf("date_day of %s is %d\n", text, PGTYPESdate_dayofweek(date1));
...@@ -165,161 +142,122 @@ main(void) ...@@ -165,161 +142,122 @@ main(void)
/* rdate_defmt_asc() */ /* rdate_defmt_asc() */
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "yy/mm/dd"; fmt = "yy/mm/dd";
in = "In the year 1995, the month of December, it is the 25th day"; in = "In the year 1995, the month of December, it is the 25th day";
/* 0123456789012345678901234567890123456789012345678901234567890
/* * 0 1 2 3 4 5 6
* 0123456789012345678901234567890123456789012345678901234567890 0
* 1 2 3 4 5 6
*/ */
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc1: %s\n", text); printf("date_defmt_asc1: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "mmmm. dd. yyyy"; fmt = "mmmm. dd. yyyy";
in = "12/25/95"; in = "12/25/95";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc2: %s\n", text); printf("date_defmt_asc2: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "yy/mm/dd"; fmt = "yy/mm/dd";
in = "95/12/25"; in = "95/12/25";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc3: %s\n", text); printf("date_defmt_asc3: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "yy/mm/dd"; fmt = "yy/mm/dd";
in = "1995, December 25th"; in = "1995, December 25th";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc4: %s\n", text); printf("date_defmt_asc4: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "dd-mm-yy"; fmt = "dd-mm-yy";
in = "This is 25th day of December, 1995"; in = "This is 25th day of December, 1995";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc5: %s\n", text); printf("date_defmt_asc5: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "mmddyy"; fmt = "mmddyy";
in = "Dec. 25th, 1995"; in = "Dec. 25th, 1995";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc6: %s\n", text); printf("date_defmt_asc6: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "mmm. dd. yyyy"; fmt = "mmm. dd. yyyy";
in = "dec 25th 1995"; in = "dec 25th 1995";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc7: %s\n", text); printf("date_defmt_asc7: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "mmm. dd. yyyy"; fmt = "mmm. dd. yyyy";
in = "DEC-25-1995"; in = "DEC-25-1995";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc8: %s\n", text); printf("date_defmt_asc8: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "mm yy dd."; fmt = "mm yy dd.";
in = "12199525"; in = "12199525";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc9: %s\n", text); printf("date_defmt_asc9: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "yyyy fierj mm dd."; fmt = "yyyy fierj mm dd.";
in = "19951225"; in = "19951225";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc10: %s\n", text); printf("date_defmt_asc10: %s\n", text);
free(text); free(text);
date1 = 0; date1 = 0; text = "";
text = "";
fmt = "mm/dd/yy"; fmt = "mm/dd/yy";
in = "122595"; in = "122595";
PGTYPESdate_defmt_asc(&date1, fmt, in); PGTYPESdate_defmt_asc(&date1, fmt, in);
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("date_defmt_asc12: %s\n", text); printf("date_defmt_asc12: %s\n", text);
free(text); free(text);
PGTYPEStimestamp_current(&ts1); PGTYPEStimestamp_current(&ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
/* can't output this in regression mode */ /* can't output this in regression mode */
/* printf("timestamp_current: Now: %s\n", text); */ /* printf("timestamp_current: Now: %s\n", text); */
free(text); free(text);
ts1 = PGTYPEStimestamp_from_asc("96-02-29", NULL); ts1 = PGTYPEStimestamp_from_asc("96-02-29", NULL);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_to_asc1: %s\n", text); printf("timestamp_to_asc1: %s\n", text);
free(text); free(text);
ts1 = PGTYPEStimestamp_from_asc("1994-02-11 3:10:35", NULL); ts1 = PGTYPEStimestamp_from_asc("1994-02-11 3:10:35", NULL);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_to_asc2: %s\n", text); printf("timestamp_to_asc2: %s\n", text);
free(text); free(text);
ts1 = PGTYPEStimestamp_from_asc("1994-02-11 26:10:35", NULL); ts1 = PGTYPEStimestamp_from_asc("1994-02-11 26:10:35", NULL);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_to_asc3: %s\n", text); printf("timestamp_to_asc3: %s\n", text);
free(text); free(text);
/* abc-03:10:35-def-02/11/94-gh */ /* abc-03:10:35-def-02/11/94-gh */
/* 12345678901234567890123456789 */ /* 12345678901234567890123456789 */
out = (char *) malloc(32); out = (char*) malloc(32);
i = PGTYPEStimestamp_fmt_asc(&ts1, out, 31, "abc-%X-def-%x-ghi%%"); i = PGTYPEStimestamp_fmt_asc(&ts1, out, 31, "abc-%X-def-%x-ghi%%");
printf("timestamp_fmt_asc: %d: %s\n", i, out); printf("timestamp_fmt_asc: %d: %s\n", i, out);
free(out); free(out);
...@@ -328,7 +266,6 @@ main(void) ...@@ -328,7 +266,6 @@ main(void)
in = "This is a 4/12/80 3-39l12test"; in = "This is a 4/12/80 3-39l12test";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -336,7 +273,6 @@ main(void) ...@@ -336,7 +273,6 @@ main(void)
in = "Tue Jul 22 17:28:44 +0200 2003"; in = "Tue Jul 22 17:28:44 +0200 2003";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -344,7 +280,6 @@ main(void) ...@@ -344,7 +280,6 @@ main(void)
in = "Tue Feb 29 17:28:44 +0200 2000"; in = "Tue Feb 29 17:28:44 +0200 2000";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -352,7 +287,6 @@ main(void) ...@@ -352,7 +287,6 @@ main(void)
in = "Tue Feb 29 17:28:44 +0200 1900"; in = "Tue Feb 29 17:28:44 +0200 1900";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -360,7 +294,6 @@ main(void) ...@@ -360,7 +294,6 @@ main(void)
in = "Tue Feb 29 17:28:44 +0200 1996"; in = "Tue Feb 29 17:28:44 +0200 1996";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -368,7 +301,6 @@ main(void) ...@@ -368,7 +301,6 @@ main(void)
in = " Jul 31 17:28:44 +0200 1996"; in = " Jul 31 17:28:44 +0200 1996";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -376,7 +308,6 @@ main(void) ...@@ -376,7 +308,6 @@ main(void)
in = " Jul 32 17:28:44 +0200 1996"; in = " Jul 32 17:28:44 +0200 1996";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -384,7 +315,6 @@ main(void) ...@@ -384,7 +315,6 @@ main(void)
in = "Tue Feb 29 17:28:44 +0200 1997"; in = "Tue Feb 29 17:28:44 +0200 1997";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -392,7 +322,6 @@ main(void) ...@@ -392,7 +322,6 @@ main(void)
in = "Tue Jul 22 17:28:44 +0200 2003"; in = "Tue Jul 22 17:28:44 +0200 2003";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -400,7 +329,6 @@ main(void) ...@@ -400,7 +329,6 @@ main(void)
in = "Tue Jul 22 17:28:44 +0200 2003"; in = "Tue Jul 22 17:28:44 +0200 2003";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -408,7 +336,6 @@ main(void) ...@@ -408,7 +336,6 @@ main(void)
in = " Jul, 22 17_28 `44 +0200 2003 "; in = " Jul, 22 17_28 `44 +0200 2003 ";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -416,7 +343,6 @@ main(void) ...@@ -416,7 +343,6 @@ main(void)
in = "Tue Jul %22 17:28:44 CEST 2003"; in = "Tue Jul %22 17:28:44 CEST 2003";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -424,7 +350,6 @@ main(void) ...@@ -424,7 +350,6 @@ main(void)
in = "Tue Jul %22 17:28:44 CEST 2003"; in = "Tue Jul %22 17:28:44 CEST 2003";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -432,7 +357,6 @@ main(void) ...@@ -432,7 +357,6 @@ main(void)
in = "abc\n 19 October %22 17:28:44 CEST 2003"; in = "abc\n 19 October %22 17:28:44 CEST 2003";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -440,7 +364,6 @@ main(void) ...@@ -440,7 +364,6 @@ main(void)
in = "abc\n 18 October %34 17:28:44 CEST 80"; in = "abc\n 18 October %34 17:28:44 CEST 80";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -448,7 +371,6 @@ main(void) ...@@ -448,7 +371,6 @@ main(void)
in = "abc\n 18 October %34 17:28:44 CEST 80"; in = "abc\n 18 October %34 17:28:44 CEST 80";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error (should be error!): %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -456,7 +378,6 @@ main(void) ...@@ -456,7 +378,6 @@ main(void)
in = "1980-04-12 3:49:44 "; in = "1980-04-12 3:49:44 ";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, NULL) = %s, error: %d\n", in, text, i); printf("timestamp_defmt_asc(%s, NULL) = %s, error: %d\n", in, text, i);
free(text); free(text);
...@@ -464,7 +385,6 @@ main(void) ...@@ -464,7 +385,6 @@ main(void)
in = "July 14, 1988. Time: 9:15am"; in = "July 14, 1988. Time: 9:15am";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -472,7 +392,6 @@ main(void) ...@@ -472,7 +392,6 @@ main(void)
fmt = "%B %d at %I:%M %p in the year %Y"; fmt = "%B %d at %I:%M %p in the year %Y";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -480,7 +399,6 @@ main(void) ...@@ -480,7 +399,6 @@ main(void)
fmt = "%Y, %B %d. Time: %I:%M %p"; fmt = "%Y, %B %d. Time: %I:%M %p";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -488,7 +406,6 @@ main(void) ...@@ -488,7 +406,6 @@ main(void)
fmt = "%Y, %B %d. Time: %I:%M%p"; fmt = "%Y, %B %d. Time: %I:%M%p";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
...@@ -496,28 +413,22 @@ main(void) ...@@ -496,28 +413,22 @@ main(void)
fmt = "%Y, %P %B %d. Time: %I:%M"; fmt = "%Y, %P %B %d. Time: %I:%M";
i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1); i = PGTYPEStimestamp_defmt_asc(in, fmt, &ts1);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i); printf("timestamp_defmt_asc(%s, %s) = %s, error: %d\n", in, fmt, text, i);
free(text); free(text);
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 350 "dt_test.pgc" #line 350 "dt_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 350 "dt_test.pgc" #line 350 "dt_test.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 351 "dt_test.pgc" #line 351 "dt_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 351 "dt_test.pgc" #line 351 "dt_test.pgc"
return (0); return (0);
} }
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
#line 8 "dt_test2.pgc" #line 8 "dt_test2.pgc"
char *dates[] = {"19990108foobar", char *dates[] = { "19990108foobar",
"19990108 foobar", "19990108 foobar",
"1999-01-08 foobar", "1999-01-08 foobar",
"January 8, 1999", "January 8, 1999",
...@@ -45,22 +45,22 @@ char *dates[] = {"19990108foobar", ...@@ -45,22 +45,22 @@ char *dates[] = {"19990108foobar",
"1999.008", "1999.008",
"J2451187", "J2451187",
"January 8, 99 BC", "January 8, 99 BC",
NULL}; NULL };
char *times[] = {"0:04", char *times[] = { "0:04",
"1:59 PDT", "1:59 PDT",
"13:24:40 -8:00", "13:24:40 -8:00",
"13:24:40.495+3", "13:24:40.495+3",
NULL}; NULL };
char *intervals[] = {"1 minute", char *intervals[] = { "1 minute",
"1 12:59:10", "1 12:59:10",
"2 day 12 hour 59 minute 10 second", "2 day 12 hour 59 minute 10 second",
"1 days 12 hrs 59 mins 10 secs", "1 days 12 hrs 59 mins 10 secs",
"1 days 1 hours 1 minutes 1 seconds", "1 days 1 hours 1 minutes 1 seconds",
"1 year 59 mins", "1 year 59 mins",
"1 year 59 mins foobar", "1 year 59 mins foobar",
NULL}; NULL };
int int
main(void) main(void)
...@@ -73,27 +73,24 @@ main(void) ...@@ -73,27 +73,24 @@ main(void)
#line 51 "dt_test2.pgc" #line 51 "dt_test2.pgc"
date date1; date date1 ;
#line 52 "dt_test2.pgc" #line 52 "dt_test2.pgc"
timestamp ts1, timestamp ts1 , ts2 ;
ts2;
#line 53 "dt_test2.pgc" #line 53 "dt_test2.pgc"
char *text; char * text ;
#line 54 "dt_test2.pgc" #line 54 "dt_test2.pgc"
interval *i1; interval * i1 ;
#line 55 "dt_test2.pgc" #line 55 "dt_test2.pgc"
date *dc; date * dc ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 56 "dt_test2.pgc" #line 56 "dt_test2.pgc"
int i, int i, j;
j;
char *endptr; char *endptr;
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
...@@ -108,7 +105,6 @@ main(void) ...@@ -108,7 +105,6 @@ main(void)
dc = PGTYPESdate_new(); dc = PGTYPESdate_new();
*dc = date1; *dc = date1;
text = PGTYPESdate_to_asc(*dc); text = PGTYPESdate_to_asc(*dc);
printf("Date of timestamp: %s\n", text); printf("Date of timestamp: %s\n", text);
free(text); free(text);
PGTYPESdate_free(dc); PGTYPESdate_free(dc);
...@@ -116,14 +112,11 @@ main(void) ...@@ -116,14 +112,11 @@ main(void)
for (i = 0; dates[i]; i++) for (i = 0; dates[i]; i++)
{ {
bool err = false; bool err = false;
date1 = PGTYPESdate_from_asc(dates[i], &endptr); date1 = PGTYPESdate_from_asc(dates[i], &endptr);
if (date1 == INT_MIN) if (date1 == INT_MIN) {
{
err = true; err = true;
} }
text = PGTYPESdate_to_asc(date1); text = PGTYPESdate_to_asc(date1);
printf("Date[%d]: %s (%c - %c)\n", printf("Date[%d]: %s (%c - %c)\n",
i, err ? "-" : text, i, err ? "-" : text,
endptr ? 'N' : 'Y', endptr ? 'N' : 'Y',
...@@ -137,14 +130,11 @@ main(void) ...@@ -137,14 +130,11 @@ main(void)
+ 1 + 1
+ strlen(times[j]) + strlen(times[j])
+ 1; + 1;
char *t = malloc(length); char* t = malloc(length);
sprintf(t, "%s %s", dates[i], times[j]); sprintf(t, "%s %s", dates[i], times[j]);
ts1 = PGTYPEStimestamp_from_asc(t, NULL); ts1 = PGTYPEStimestamp_from_asc(t, NULL);
text = PGTYPEStimestamp_to_asc(ts1); text = PGTYPEStimestamp_to_asc(ts1);
if (i != 19 || j != 3) /* timestamp as integer or double differ for this case */
if (i != 19 || j != 3) /* timestamp as integer or double
* differ for this case */
printf("TS[%d,%d]: %s\n", printf("TS[%d,%d]: %s\n",
i, j, errno ? "-" : text); i, j, errno ? "-" : text);
free(text); free(text);
...@@ -157,7 +147,6 @@ main(void) ...@@ -157,7 +147,6 @@ main(void)
for (i = 0; intervals[i]; i++) for (i = 0; intervals[i]; i++)
{ {
interval *ic; interval *ic;
i1 = PGTYPESinterval_from_asc(intervals[i], &endptr); i1 = PGTYPESinterval_from_asc(intervals[i], &endptr);
if (*endptr) if (*endptr)
printf("endptr set to %s\n", endptr); printf("endptr set to %s\n", endptr);
...@@ -170,14 +159,12 @@ main(void) ...@@ -170,14 +159,12 @@ main(void)
if (j < 0) if (j < 0)
continue; continue;
text = PGTYPESinterval_to_asc(i1); text = PGTYPESinterval_to_asc(i1);
printf("interval[%d]: %s\n", i, text ? text : "-"); printf("interval[%d]: %s\n", i, text ? text : "-");
free(text); free(text);
ic = PGTYPESinterval_new(); ic = PGTYPESinterval_new();
PGTYPESinterval_copy(i1, ic); PGTYPESinterval_copy(i1, ic);
text = PGTYPESinterval_to_asc(i1); text = PGTYPESinterval_to_asc(i1);
printf("interval_copy[%d]: %s\n", i, text ? text : "-"); printf("interval_copy[%d]: %s\n", i, text ? text : "-");
free(text); free(text);
PGTYPESinterval_free(ic); PGTYPESinterval_free(ic);
...@@ -185,3 +172,4 @@ main(void) ...@@ -185,3 +172,4 @@ main(void)
return (0); return (0);
} }
...@@ -34,24 +34,19 @@ NOTE: This file has a different expect file for regression tests on MinGW32 ...@@ -34,24 +34,19 @@ NOTE: This file has a different expect file for regression tests on MinGW32
int int
main(void) main(void)
{ {
char *text = "error\n"; char *text="error\n";
numeric *value1, numeric *value1, *value2, *res;
*value2,
*res;
/* exec sql begin declare section */ /* exec sql begin declare section */
/* = {0, 0, 0, 0, 0, NULL, NULL} ; */ /* = {0, 0, 0, 0, 0, NULL, NULL} ; */
#line 22 "num_test.pgc" #line 22 "num_test.pgc"
numeric *des; numeric * des ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 24 "num_test.pgc" #line 24 "num_test.pgc"
double d; double d;
long l1, long l1, l2;
l2;
int i; int i;
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
...@@ -59,39 +54,29 @@ main(void) ...@@ -59,39 +54,29 @@ main(void)
#line 30 "num_test.pgc" #line 30 "num_test.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 32 "num_test.pgc" #line 32 "num_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 32 "num_test.pgc" #line 32 "num_test.pgc"
{ { ECPGsetcommit(__LINE__, "off", NULL);
ECPGsetcommit(__LINE__, "off", NULL);
#line 34 "num_test.pgc" #line 34 "num_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 34 "num_test.pgc" #line 34 "num_test.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( text char ( 5 ) , num numeric ( 14 , 7 ) ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( text char ( 5 ) , num numeric ( 14 , 7 ) ) ", ECPGt_EOIT, ECPGt_EORT);
#line 35 "num_test.pgc" #line 35 "num_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 35 "num_test.pgc" #line 35 "num_test.pgc"
value1 = PGTYPESnumeric_new(); value1 = PGTYPESnumeric_new();
PGTYPESnumeric_from_int(1407, value1); PGTYPESnumeric_from_int(1407, value1);
text = PGTYPESnumeric_to_asc(value1, -1); text = PGTYPESnumeric_to_asc(value1, -1);
printf("from int = %s\n", text); printf("from int = %s\n", text);
free(text); free(text);
PGTYPESnumeric_free(value1); PGTYPESnumeric_free(value1);
...@@ -101,28 +86,23 @@ main(void) ...@@ -101,28 +86,23 @@ main(void)
res = PGTYPESnumeric_new(); res = PGTYPESnumeric_new();
PGTYPESnumeric_add(value1, value2, res); PGTYPESnumeric_add(value1, value2, res);
text = PGTYPESnumeric_to_asc(res, -1); text = PGTYPESnumeric_to_asc(res, -1);
printf("add = %s\n", text); printf("add = %s\n", text);
free(text); free(text);
PGTYPESnumeric_sub(res, value2, res); PGTYPESnumeric_sub(res, value2, res);
text = PGTYPESnumeric_to_asc(res, -1); text = PGTYPESnumeric_to_asc(res, -1);
printf("sub = %s\n", text); printf("sub = %s\n", text);
free(text); free(text);
PGTYPESnumeric_free(value2); PGTYPESnumeric_free(value2);
des = PGTYPESnumeric_new(); des = PGTYPESnumeric_new();
PGTYPESnumeric_copy(res, des); PGTYPESnumeric_copy(res, des);
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( text , num ) values ( 'test' , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( text , num ) values( 'test' , ? ) ", ECPGt_numeric,&(des),(long)1,(long)0,sizeof(numeric),
ECPGt_numeric, &(des), (long) 1, (long) 0, sizeof(numeric), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 60 "num_test.pgc" #line 60 "num_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 60 "num_test.pgc" #line 60 "num_test.pgc"
...@@ -130,21 +110,17 @@ main(void) ...@@ -130,21 +110,17 @@ main(void)
PGTYPESnumeric_mul(value1, value2, res); PGTYPESnumeric_mul(value1, value2, res);
PGTYPESnumeric_free(value2); PGTYPESnumeric_free(value2);
{ { ECPGdo(__LINE__, 0, 1, NULL, "select num from test where text = 'test' ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select num from test where text = 'test' ", ECPGt_EOIT, ECPGt_numeric,&(des),(long)1,(long)0,sizeof(numeric),
ECPGt_numeric, &(des), (long) 1, (long) 0, sizeof(numeric), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 66 "num_test.pgc" #line 66 "num_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 66 "num_test.pgc" #line 66 "num_test.pgc"
PGTYPESnumeric_mul(res, des, res); PGTYPESnumeric_mul(res, des, res);
text = PGTYPESnumeric_to_asc(res, -1); text = PGTYPESnumeric_to_asc(res, -1);
printf("mul = %s\n", text); printf("mul = %s\n", text);
free(text); free(text);
PGTYPESnumeric_free(des); PGTYPESnumeric_free(des);
...@@ -152,7 +128,6 @@ main(void) ...@@ -152,7 +128,6 @@ main(void)
value2 = PGTYPESnumeric_from_asc("10000", NULL); value2 = PGTYPESnumeric_from_asc("10000", NULL);
PGTYPESnumeric_div(res, value2, res); PGTYPESnumeric_div(res, value2, res);
text = PGTYPESnumeric_to_asc(res, -1); text = PGTYPESnumeric_to_asc(res, -1);
PGTYPESnumeric_to_double(res, &d); PGTYPESnumeric_to_double(res, &d);
printf("div = %s %e\n", text, d); printf("div = %s %e\n", text, d);
...@@ -166,24 +141,19 @@ main(void) ...@@ -166,24 +141,19 @@ main(void)
PGTYPESnumeric_free(value2); PGTYPESnumeric_free(value2);
PGTYPESnumeric_free(res); PGTYPESnumeric_free(res);
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 90 "num_test.pgc" #line 90 "num_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 90 "num_test.pgc" #line 90 "num_test.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 91 "num_test.pgc" #line 91 "num_test.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 91 "num_test.pgc" #line 91 "num_test.pgc"
return (0); return (0);
} }
...@@ -32,34 +32,29 @@ NOTE: This file has a different expect file for regression tests on MinGW32 ...@@ -32,34 +32,29 @@ NOTE: This file has a different expect file for regression tests on MinGW32
*/ */
char *nums[] = {"2E394", "-2", ".794", "3.44", "592.49E21", "-32.84e4", char* nums[] = { "2E394", "-2", ".794", "3.44", "592.49E21", "-32.84e4",
"2E-394", ".1E-2", "+.0", "-592.49E-07", "+32.84e-4", "2E-394", ".1E-2", "+.0", "-592.49E-07", "+32.84e-4",
".500001", "-.5000001", ".500001", "-.5000001",
"1234567890123456789012345678.91", /* 30 digits should fit into decimal */ "1234567890123456789012345678.91", /* 30 digits should fit
"1234567890123456789012345678.921", /* 31 digits should NOT fit into into decimal */
* decimal */ "1234567890123456789012345678.921", /* 31 digits should NOT
fit into decimal */
"not a number", "not a number",
NULL}; NULL};
static void static void
check_errno(void); check_errno(void);
int int
main(void) main(void)
{ {
char *text = "error\n"; char *text="error\n";
char *endptr; char *endptr;
numeric *num, numeric *num, *nin;
*nin;
decimal *dec; decimal *dec;
long l; long l;
int i, int i, j, k, q, r, count = 0;
j,
k,
q,
r,
count = 0;
double d; double d;
numeric **numarr = (numeric **) calloc(1, sizeof(numeric)); numeric **numarr = (numeric **) calloc(1, sizeof(numeric));
...@@ -68,113 +63,81 @@ main(void) ...@@ -68,113 +63,81 @@ main(void)
for (i = 0; nums[i]; i++) for (i = 0; nums[i]; i++)
{ {
num = PGTYPESnumeric_from_asc(nums[i], &endptr); num = PGTYPESnumeric_from_asc(nums[i], &endptr);
if (!num) if (!num) check_errno();
check_errno();
if (endptr != NULL) if (endptr != NULL)
{ {
printf("endptr of %d is not NULL\n", i); printf("endptr of %d is not NULL\n", i);
if (*endptr != '\0') if (*endptr != '\0')
printf("*endptr of %d is not \\0\n", i); printf("*endptr of %d is not \\0\n", i);
} }
if (!num) if (!num) continue;
continue;
numarr = realloc(numarr, sizeof(numeric *) * (count + 1)); numarr = realloc(numarr, sizeof(numeric *) * (count + 1));
numarr[count++] = num; numarr[count++] = num;
text = PGTYPESnumeric_to_asc(num, -1); text = PGTYPESnumeric_to_asc(num, -1);
if (!text) check_errno();
if (!text) printf("num[%d,1]: %s\n", i, text); free(text);
check_errno();
printf("num[%d,1]: %s\n", i, text);
free(text);
text = PGTYPESnumeric_to_asc(num, 0); text = PGTYPESnumeric_to_asc(num, 0);
if (!text) check_errno();
if (!text) printf("num[%d,2]: %s\n", i, text); free(text);
check_errno();
printf("num[%d,2]: %s\n", i, text);
free(text);
text = PGTYPESnumeric_to_asc(num, 1); text = PGTYPESnumeric_to_asc(num, 1);
if (!text) check_errno();
if (!text) printf("num[%d,3]: %s\n", i, text); free(text);
check_errno();
printf("num[%d,3]: %s\n", i, text);
free(text);
text = PGTYPESnumeric_to_asc(num, 2); text = PGTYPESnumeric_to_asc(num, 2);
if (!text) check_errno();
if (!text) printf("num[%d,4]: %s\n", i, text); free(text);
check_errno();
printf("num[%d,4]: %s\n", i, text);
free(text);
nin = PGTYPESnumeric_new(); nin = PGTYPESnumeric_new();
text = PGTYPESnumeric_to_asc(nin, 2); text = PGTYPESnumeric_to_asc(nin, 2);
if (!text) check_errno();
if (!text) printf("num[%d,5]: %s\n", i, text); free(text);
check_errno();
printf("num[%d,5]: %s\n", i, text);
free(text);
r = PGTYPESnumeric_to_long(num, &l); r = PGTYPESnumeric_to_long(num, &l);
if (r) if (r) check_errno();
check_errno(); printf("num[%d,6]: %ld (r: %d)\n", i, r?0L:l, r);
printf("num[%d,6]: %ld (r: %d)\n", i, r ? 0L : l, r);
if (r == 0) if (r == 0)
{ {
r = PGTYPESnumeric_from_long(l, nin); r = PGTYPESnumeric_from_long(l, nin);
if (r) if (r) check_errno();
check_errno();
text = PGTYPESnumeric_to_asc(nin, 2); text = PGTYPESnumeric_to_asc(nin, 2);
q = PGTYPESnumeric_cmp(num, nin); q = PGTYPESnumeric_cmp(num, nin);
printf("num[%d,7]: %s (r: %d - cmp: %d)\n", i, text, r, q); printf("num[%d,7]: %s (r: %d - cmp: %d)\n", i, text, r, q);
free(text); free(text);
} }
r = PGTYPESnumeric_to_int(num, &k); r = PGTYPESnumeric_to_int(num, &k);
if (r) if (r) check_errno();
check_errno(); printf("num[%d,8]: %d (r: %d)\n", i, r?0:k, r);
printf("num[%d,8]: %d (r: %d)\n", i, r ? 0 : k, r);
if (r == 0) if (r == 0)
{ {
r = PGTYPESnumeric_from_int(k, nin); r = PGTYPESnumeric_from_int(k, nin);
if (r) if (r) check_errno();
check_errno();
text = PGTYPESnumeric_to_asc(nin, 2); text = PGTYPESnumeric_to_asc(nin, 2);
q = PGTYPESnumeric_cmp(num, nin); q = PGTYPESnumeric_cmp(num, nin);
printf("num[%d,9]: %s (r: %d - cmp: %d)\n", i, text, r, q); printf("num[%d,9]: %s (r: %d - cmp: %d)\n", i, text, r, q);
free(text); free(text);
} }
r = PGTYPESnumeric_to_double(num, &d); r = PGTYPESnumeric_to_double(num, &d);
if (r) if (r) check_errno();
check_errno(); printf("num[%d,10]: %g (r: %d)\n", i, r?0.0:d, r);
printf("num[%d,10]: %g (r: %d)\n", i, r ? 0.0 : d, r); /* do not test double to numeric because
* - extra digits are different on different architectures
/* * - PGTYPESnumeric_from_double internally calls PGTYPESnumeric_from_asc anyway
* do not test double to numeric because - extra digits are different
* on different architectures - PGTYPESnumeric_from_double internally
* calls PGTYPESnumeric_from_asc anyway
*/ */
dec = PGTYPESdecimal_new(); dec = PGTYPESdecimal_new();
r = PGTYPESnumeric_to_decimal(num, dec); r = PGTYPESnumeric_to_decimal(num, dec);
if (r) if (r) check_errno();
check_errno(); /* we have no special routine for outputting decimal, it would
* convert to a numeric anyway */
/*
* we have no special routine for outputting decimal, it would convert
* to a numeric anyway
*/
printf("num[%d,11]: - (r: %d)\n", i, r); printf("num[%d,11]: - (r: %d)\n", i, r);
if (r == 0) if (r == 0)
{ {
r = PGTYPESnumeric_from_decimal(dec, nin); r = PGTYPESnumeric_from_decimal(dec, nin);
if (r) if (r) check_errno();
check_errno();
text = PGTYPESnumeric_to_asc(nin, 2); text = PGTYPESnumeric_to_asc(nin, 2);
q = PGTYPESnumeric_cmp(num, nin); q = PGTYPESnumeric_cmp(num, nin);
printf("num[%d,12]: %s (r: %d - cmp: %d)\n", i, text, r, q); printf("num[%d,12]: %s (r: %d - cmp: %d)\n", i, text, r, q);
free(text); free(text);
...@@ -189,11 +152,10 @@ main(void) ...@@ -189,11 +152,10 @@ main(void)
{ {
for (j = 0; j < count; j++) for (j = 0; j < count; j++)
{ {
numeric *a = PGTYPESnumeric_new(); numeric* a = PGTYPESnumeric_new();
numeric *s = PGTYPESnumeric_new(); numeric* s = PGTYPESnumeric_new();
numeric *m = PGTYPESnumeric_new(); numeric* m = PGTYPESnumeric_new();
numeric *d = PGTYPESnumeric_new(); numeric* d = PGTYPESnumeric_new();
r = PGTYPESnumeric_add(numarr[i], numarr[j], a); r = PGTYPESnumeric_add(numarr[i], numarr[j], a);
if (r) if (r)
{ {
...@@ -203,7 +165,6 @@ main(void) ...@@ -203,7 +165,6 @@ main(void)
else else
{ {
text = PGTYPESnumeric_to_asc(a, 10); text = PGTYPESnumeric_to_asc(a, 10);
printf("num[a,%d,%d]: %s\n", i, j, text); printf("num[a,%d,%d]: %s\n", i, j, text);
free(text); free(text);
} }
...@@ -216,7 +177,6 @@ main(void) ...@@ -216,7 +177,6 @@ main(void)
else else
{ {
text = PGTYPESnumeric_to_asc(s, 10); text = PGTYPESnumeric_to_asc(s, 10);
printf("num[s,%d,%d]: %s\n", i, j, text); printf("num[s,%d,%d]: %s\n", i, j, text);
free(text); free(text);
} }
...@@ -229,7 +189,6 @@ main(void) ...@@ -229,7 +189,6 @@ main(void)
else else
{ {
text = PGTYPESnumeric_to_asc(m, 10); text = PGTYPESnumeric_to_asc(m, 10);
printf("num[m,%d,%d]: %s\n", i, j, text); printf("num[m,%d,%d]: %s\n", i, j, text);
free(text); free(text);
} }
...@@ -242,7 +201,6 @@ main(void) ...@@ -242,7 +201,6 @@ main(void)
else else
{ {
text = PGTYPESnumeric_to_asc(d, 10); text = PGTYPESnumeric_to_asc(d, 10);
printf("num[d,%d,%d]: %s\n", i, j, text); printf("num[d,%d,%d]: %s\n", i, j, text);
free(text); free(text);
} }
...@@ -252,7 +210,6 @@ main(void) ...@@ -252,7 +210,6 @@ main(void)
for (i = 0; i < count; i++) for (i = 0; i < count; i++)
{ {
text = PGTYPESnumeric_to_asc(numarr[i], -1); text = PGTYPESnumeric_to_asc(numarr[i], -1);
printf("%d: %s\n", i, text); printf("%d: %s\n", i, text);
free(text); free(text);
} }
...@@ -263,7 +220,7 @@ main(void) ...@@ -263,7 +220,7 @@ main(void)
static void static void
check_errno(void) check_errno(void)
{ {
switch (errno) switch(errno)
{ {
case 0: case 0:
printf("(no errno set) - "); printf("(no errno set) - ");
......
...@@ -20,29 +20,24 @@ ...@@ -20,29 +20,24 @@
#line 3 "comment.pgc" #line 3 "comment.pgc"
/* just a test comment */ int i; /* just a test comment */ int i;
/* just a test comment int j*/;
/* just a test comment int j*/ ;
/****************************************************************************/ /****************************************************************************/
/* Test comment */ /* Test comment */
/*--------------------------------------------------------------------------*/ /*--------------------------------------------------------------------------*/
int int main(void)
main(void)
{ {
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 17 "comment.pgc" #line 17 "comment.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 19 "comment.pgc" #line 19 "comment.pgc"
exit(0); exit (0);
} }
...@@ -33,14 +33,14 @@ ...@@ -33,14 +33,14 @@
/* exec sql type intarray is int [ 6 ] */ /* exec sql type intarray is int [ 6 ] */
#line 13 "define.pgc" #line 13 "define.pgc"
typedef int intarray[6]; typedef int intarray[ 6];
int int
main(void) main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
typedef char string[8]; typedef char string [ 8 ] ;
#line 21 "define.pgc" #line 21 "define.pgc"
...@@ -49,113 +49,90 @@ main(void) ...@@ -49,113 +49,90 @@ main(void)
#line 22 "define.pgc" #line 22 "define.pgc"
intarray amount; intarray amount ;
#line 23 "define.pgc" #line 23 "define.pgc"
char name[6][8]; char name [ 6 ] [ 8 ] ;
#line 24 "define.pgc" #line 24 "define.pgc"
char letter[6][1]; char letter [ 6 ] [ 1 ] ;
#if 0 #if 0
#line 26 "define.pgc" #line 26 "define.pgc"
int not_used; int not_used ;
#endif #endif
/* exec sql end declare section */ /* exec sql end declare section */
#line 29 "define.pgc" #line 29 "define.pgc"
int i, int i,j;
j;
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 34 "define.pgc" #line 34 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 34 "define.pgc" #line 34 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( name char ( 8 ) , amount int , letter char ( 1 ) ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( name char ( 8 ) , amount int , letter char ( 1 ) ) ", ECPGt_EOIT, ECPGt_EORT);
#line 36 "define.pgc" #line 36 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 36 "define.pgc" #line 36 "define.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 37 "define.pgc" #line 37 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 37 "define.pgc" #line 37 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into Test ( name , amount , letter ) values ( 'false' , 1 , 'f' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into Test ( name , amount , letter ) values ( 'false' , 1 , 'f' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 39 "define.pgc" #line 39 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 39 "define.pgc" #line 39 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( name , amount , letter ) values ( 'true' , 2 , 't' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( name , amount , letter ) values ( 'true' , 2 , 't' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 40 "define.pgc" #line 40 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 40 "define.pgc" #line 40 "define.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 41 "define.pgc" #line 41 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 41 "define.pgc" #line 41 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from test ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from test ", ECPGt_EOIT, ECPGt_char,(name),(long)8,(long)6,(8)*sizeof(char),
ECPGt_char, (name), (long) 8, (long) 6, (8) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,(amount),(long)1,(long)6,sizeof(int),
ECPGt_int, (amount), (long) 1, (long) 6, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(letter),(long)1,(long)6,(1)*sizeof(char),
ECPGt_char, (letter), (long) 1, (long) 6, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 43 "define.pgc" #line 43 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 43 "define.pgc" #line 43 "define.pgc"
for (i = 0, j = sqlca.sqlerrd[2]; i < j; i++) for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 48 "define.pgc" #line 48 "define.pgc"
char n[8], char n [ 8 ] , l = letter [ i ] [ 0 ] ;
l = letter[i][0];
#line 49 "define.pgc" #line 49 "define.pgc"
int a = amount[i]; int a = amount [ i ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 50 "define.pgc" #line 50 "define.pgc"
...@@ -164,31 +141,22 @@ main(void) ...@@ -164,31 +141,22 @@ main(void)
printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l); printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
#line 56 "define.pgc" #line 56 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 56 "define.pgc" #line 56 "define.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 57 "define.pgc" #line 57 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 57 "define.pgc" #line 57 "define.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 58 "define.pgc" #line 58 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 58 "define.pgc" #line 58 "define.pgc"
......
...@@ -73,22 +73,16 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -73,22 +73,16 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 1 "init.pgc" #line 1 "init.pgc"
enum e enum e { ENUM0, ENUM1 };
{ struct sa { int member; };
ENUM0, ENUM1
};
struct sa
{
int member;
};
static int static int fa(void)
fa(void)
{ {
printf("in fa\n"); printf("in fa\n");
return 2; return 2;
...@@ -108,22 +102,19 @@ fc(const char *x) ...@@ -108,22 +102,19 @@ fc(const char *x)
return *x; return *x;
} }
static int static int fd(const char *x,int i)
fd(const char *x, int i)
{ {
printf("in fd (%s, %d)\n", x, i); printf("in fd (%s, %d)\n", x, i);
return (*x) * i; return (*x)*i;
} }
static int static int fe(enum e x)
fe(enum e x)
{ {
printf("in fe (%d)\n", (int) x); printf("in fe (%d)\n", (int) x);
return (int) x; return (int)x;
} }
static void static void sqlnotice(char *notice, short trans)
sqlnotice(char *notice, short trans)
{ {
if (!notice) if (!notice)
notice = "-empty-"; notice = "-empty-";
...@@ -137,15 +128,13 @@ sqlnotice(char *notice, short trans) ...@@ -137,15 +128,13 @@ sqlnotice(char *notice, short trans)
#ifdef _cplusplus #ifdef _cplusplus
namespace N namespace N
{ {
static const int i = 2; static const int i=2;
}; };
#endif #endif
int int main(void)
main(void)
{ {
struct sa x = {14}, *y = &x; struct sa x = { 14 },*y = &x;
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -161,53 +150,52 @@ main(void) ...@@ -161,53 +150,52 @@ main(void)
/* = 1L */ /* = 1L */
#line 60 "init.pgc" #line 60 "init.pgc"
int a = (int) 2; int a = ( int ) 2 ;
#line 61 "init.pgc" #line 61 "init.pgc"
int b = 2 + 2; int b = 2 + 2 ;
#line 62 "init.pgc" #line 62 "init.pgc"
int b2 = (14 * 7); int b2 = ( 14 * 7 ) ;
#line 63 "init.pgc" #line 63 "init.pgc"
int d = x.member; int d = x . member ;
#line 64 "init.pgc" #line 64 "init.pgc"
int g = fb(2); int g = fb ( 2 ) ;
#line 65 "init.pgc" #line 65 "init.pgc"
int i = 3 ^ 1; int i = 3 ^ 1 ;
#line 66 "init.pgc" #line 66 "init.pgc"
int j = 1 ? 1 : 2; int j = 1 ? 1 : 2 ;
#line 68 "init.pgc" #line 68 "init.pgc"
int e = y->member; int e = y -> member ;
#line 69 "init.pgc" #line 69 "init.pgc"
int c = 10 >> 2; int c = 10 >> 2 ;
#line 70 "init.pgc" #line 70 "init.pgc"
bool h = 2 || 1; bool h = 2 || 1 ;
#line 71 "init.pgc" #line 71 "init.pgc"
long iay; long iay ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 72 "init.pgc" #line 72 "init.pgc"
int f = fa(); int f=fa();
#ifdef _cplusplus #ifdef _cplusplus
/* exec sql begin declare section */ /* exec sql begin declare section */
/* compile error */ /* compile error */
#line 78 "init.pgc" #line 78 "init.pgc"
int k = N::i; int k = N : : i ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 79 "init.pgc" #line 79 "init.pgc"
#endif #endif
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
...@@ -218,73 +206,55 @@ main(void) ...@@ -218,73 +206,55 @@ main(void)
/* exec sql whenever sqlerror do fa ( ) ; */ /* exec sql whenever sqlerror do fa ( ) ; */
#line 87 "init.pgc" #line 87 "init.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
#line 88 "init.pgc" #line 88 "init.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) fa ( );}
fa();
}
#line 88 "init.pgc" #line 88 "init.pgc"
/* exec sql whenever sqlerror do fb ( 20 ) ; */ /* exec sql whenever sqlerror do fb ( 20 ) ; */
#line 89 "init.pgc" #line 89 "init.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
#line 90 "init.pgc" #line 90 "init.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) fb ( 20 );}
fb(20);
}
#line 90 "init.pgc" #line 90 "init.pgc"
/* exec sql whenever sqlerror do fc ( \"50\" ) ; */ /* exec sql whenever sqlerror do fc ( \"50\" ) ; */
#line 91 "init.pgc" #line 91 "init.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
#line 92 "init.pgc" #line 92 "init.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) fc ( "50" );}
fc("50");
}
#line 92 "init.pgc" #line 92 "init.pgc"
/* exec sql whenever sqlerror do fd ( \"50\" , 1 ) ; */ /* exec sql whenever sqlerror do fd ( \"50\" , 1 ) ; */
#line 93 "init.pgc" #line 93 "init.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
#line 94 "init.pgc" #line 94 "init.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) fd ( "50" , 1 );}
fd("50", 1);
}
#line 94 "init.pgc" #line 94 "init.pgc"
/* exec sql whenever sqlerror do fe ( ENUM0 ) ; */ /* exec sql whenever sqlerror do fe ( ENUM0 ) ; */
#line 95 "init.pgc" #line 95 "init.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
#line 96 "init.pgc" #line 96 "init.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) fe ( ENUM0 );}
fe(ENUM0);
}
#line 96 "init.pgc" #line 96 "init.pgc"
/* exec sql whenever sqlerror do sqlnotice ( NULL , 0 ) ; */ /* exec sql whenever sqlerror do sqlnotice ( NULL , 0 ) ; */
#line 97 "init.pgc" #line 97 "init.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "select now () ", ECPGt_EOIT, ECPGt_EORT);
#line 98 "init.pgc" #line 98 "init.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlnotice ( NULL , 0 );}
sqlnotice(NULL, 0);
}
#line 98 "init.pgc" #line 98 "init.pgc"
return 0; return 0;
......
...@@ -21,19 +21,19 @@ ...@@ -21,19 +21,19 @@
#line 4 "type.pgc" #line 4 "type.pgc"
typedef long mmInteger; typedef long mmInteger ;
#line 6 "type.pgc" #line 6 "type.pgc"
#line 6 "type.pgc" #line 6 "type.pgc"
typedef char mmChar; typedef char mmChar ;
#line 7 "type.pgc" #line 7 "type.pgc"
#line 7 "type.pgc" #line 7 "type.pgc"
typedef short mmSmallInt; typedef short mmSmallInt ;
#line 8 "type.pgc" #line 8 "type.pgc"
...@@ -48,7 +48,7 @@ typedef char string[11]; ...@@ -48,7 +48,7 @@ typedef char string[11];
/* exec sql type c is char reference */ /* exec sql type c is char reference */
#line 13 "type.pgc" #line 13 "type.pgc"
typedef char *c; typedef char* c;
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -57,23 +57,21 @@ typedef char *c; ...@@ -57,23 +57,21 @@ typedef char *c;
struct TBempl struct TBempl {
{
#line 19 "type.pgc" #line 19 "type.pgc"
mmInteger idnum; mmInteger idnum ;
#line 20 "type.pgc" #line 20 "type.pgc"
mmChar name[21]; mmChar name [ 21 ] ;
#line 21 "type.pgc" #line 21 "type.pgc"
mmSmallInt accs; mmSmallInt accs ;
}; /* exec sql end declare section */ } ;/* exec sql end declare section */
#line 23 "type.pgc" #line 23 "type.pgc"
int int
main(void) main (void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -86,24 +84,22 @@ main(void) ...@@ -86,24 +84,22 @@ main(void)
#line 29 "type.pgc" #line 29 "type.pgc"
struct TBempl empl; struct TBempl empl ;
#line 30 "type.pgc" #line 30 "type.pgc"
string str; string str ;
#line 31 "type.pgc" #line 31 "type.pgc"
c ptr = NULL; c ptr = NULL ;
#line 36 "type.pgc" #line 36 "type.pgc"
struct varchar_vc struct varchar_vc {
{
#line 34 "type.pgc" #line 34 "type.pgc"
int len; int len ;
#line 35 "type.pgc" #line 35 "type.pgc"
char text [10]; char text [ 10 ] ;
} vc; } vc ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 37 "type.pgc" #line 37 "type.pgc"
...@@ -111,74 +107,64 @@ main(void) ...@@ -111,74 +107,64 @@ main(void)
/* exec sql var vc is [ 10 ] */ /* exec sql var vc is [ 10 ] */
#line 39 "type.pgc" #line 39 "type.pgc"
ECPGdebug(1, stderr); ECPGdebug (1, stderr);
empl.idnum = 1; empl.idnum = 1;
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 43 "type.pgc" #line 43 "type.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("connect error = %ld\n", sqlca.sqlcode); printf ("connect error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table empl ( idnum integer , name char ( 20 ) , accs smallint , string1 char ( 10 ) , string2 char ( 10 ) , string3 char ( 10 ) ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "create table empl ( idnum integer , name char ( 20 ) , accs smallint , string1 char ( 10 ) , string2 char ( 10 ) , string3 char ( 10 ) ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 51 "type.pgc" #line 51 "type.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("create error = %ld\n", sqlca.sqlcode); printf ("create error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into empl values ( 1 , 'user name' , 320 , 'first str' , 'second str' , 'third str' ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "insert into empl values ( 1 , 'user name' , 320 , 'first str' , 'second str' , 'third str' ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 58 "type.pgc" #line 58 "type.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("insert error = %ld\n", sqlca.sqlcode); printf ("insert error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "select idnum , name , accs , string1 , string2 , string3 from empl where idnum = ? ",
ECPGdo(__LINE__, 0, 1, NULL, "select idnum , name , accs , string1 , string2 , string3 from empl where idnum = ? ", ECPGt_long,&(empl.idnum),(long)1,(long)1,sizeof(long),
ECPGt_long, &(empl.idnum), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_long,&(empl.idnum),(long)1,(long)1,sizeof(long),
ECPGt_long, &(empl.idnum), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,&(empl.name),(long)21,(long)1,(21)*sizeof(char),
ECPGt_char, &(empl.name), (long) 21, (long) 1, (21) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_short,&(empl.accs),(long)1,(long)1,sizeof(short),
ECPGt_short, &(empl.accs), (long) 1, (long) 1, sizeof(short), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(str),(long)11,(long)1,(11)*sizeof(char),
ECPGt_char, (str), (long) 11, (long) 1, (11) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,&(ptr),(long)0,(long)1,(1)*sizeof(char),
ECPGt_char, &(ptr), (long) 0, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_varchar,&(vc),(long)10,(long)1,sizeof(struct varchar_vc),
ECPGt_varchar, &(vc), (long) 10, (long) 1, sizeof(struct varchar_vc), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 68 "type.pgc" #line 68 "type.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("select error = %ld\n", sqlca.sqlcode); printf ("select error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
printf("id=%ld name='%s' accs=%d str='%s' ptr='%s' vc='%10.10s'\n", empl.idnum, empl.name, empl.accs, str, ptr, vc.text); printf ("id=%ld name='%s' accs=%d str='%s' ptr='%s' vc='%10.10s'\n", empl.idnum, empl.name, empl.accs, str, ptr, vc.text);
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 76 "type.pgc" #line 76 "type.pgc"
free(ptr); free(ptr);
exit(0); exit (0);
} }
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
/* exec sql type c is char reference */ /* exec sql type c is char reference */
#line 8 "variable.pgc" #line 8 "variable.pgc"
typedef char *c; typedef char* c;
/* exec sql type ind is union { /* exec sql type ind is union {
#line 11 "variable.pgc" #line 11 "variable.pgc"
...@@ -39,11 +39,7 @@ typedef char *c; ...@@ -39,11 +39,7 @@ typedef char *c;
} */ } */
#line 11 "variable.pgc" #line 11 "variable.pgc"
typedef union typedef union { int integer; short smallint; } ind;
{
int integer;
short smallint;
} ind;
#define BUFFERSIZ 8 #define BUFFERSIZ 8
/* exec sql type str is [ BUFFERSIZ ] */ /* exec sql type str is [ BUFFERSIZ ] */
...@@ -55,17 +51,15 @@ typedef union ...@@ -55,17 +51,15 @@ typedef union
int int
main(void) main (void)
{ {
struct birthinfo struct birthinfo {
{
#line 23 "variable.pgc" #line 23 "variable.pgc"
long born; long born ;
#line 23 "variable.pgc" #line 23 "variable.pgc"
short age; short age ;
}; } ;
#line 23 "variable.pgc" #line 23 "variable.pgc"
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -78,51 +72,44 @@ main(void) ...@@ -78,51 +72,44 @@ main(void)
#line 27 "variable.pgc" #line 27 "variable.pgc"
struct personal_struct struct personal_struct {
{
#line 25 "variable.pgc" #line 25 "variable.pgc"
struct varchar_name struct varchar_name { int len; char arr[ BUFFERSIZ ]; } name ;
{
int len;
char arr[BUFFERSIZ];
} name;
#line 26 "variable.pgc" #line 26 "variable.pgc"
struct birthinfo birth; struct birthinfo birth ;
} personal, *p; } personal , * p ;
#line 30 "variable.pgc" #line 30 "variable.pgc"
struct personal_indicator struct personal_indicator {
{
#line 28 "variable.pgc" #line 28 "variable.pgc"
int ind_name; int ind_name ;
#line 29 "variable.pgc" #line 29 "variable.pgc"
struct birthinfo ind_birth; struct birthinfo ind_birth ;
} ind_personal, *i; } ind_personal , * i ;
#line 31 "variable.pgc" #line 31 "variable.pgc"
ind ind_children; ind ind_children ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 32 "variable.pgc" #line 32 "variable.pgc"
#line 34 "variable.pgc" #line 34 "variable.pgc"
char *married = NULL; char * married = NULL ;
#line 34 "variable.pgc" #line 34 "variable.pgc"
#line 35 "variable.pgc" #line 35 "variable.pgc"
long ind_married; long ind_married ;
#line 35 "variable.pgc" #line 35 "variable.pgc"
#line 36 "variable.pgc" #line 36 "variable.pgc"
ind children; ind children ;
#line 36 "variable.pgc" #line 36 "variable.pgc"
...@@ -132,104 +119,74 @@ main(void) ...@@ -132,104 +119,74 @@ main(void)
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
strcpy(msg, "connect"); strcpy(msg, "connect");
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 43 "variable.pgc" #line 43 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 43 "variable.pgc" #line 43 "variable.pgc"
strcpy(msg, "set"); strcpy(msg, "set");
{ { ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
#line 46 "variable.pgc" #line 46 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 46 "variable.pgc" #line 46 "variable.pgc"
strcpy(msg, "create"); strcpy(msg, "create");
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table family ( name char ( 8 ) , born integer , age smallint , married date , children integer ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table family ( name char ( 8 ) , born integer , age smallint , married date , children integer ) ", ECPGt_EOIT, ECPGt_EORT);
#line 49 "variable.pgc" #line 49 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 49 "variable.pgc" #line 49 "variable.pgc"
strcpy(msg, "insert"); strcpy(msg, "insert");
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , married , children ) values ( 'Mum' , '19870714' , 3 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , married , children ) values ( 'Mum' , '19870714' , 3 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 52 "variable.pgc" #line 52 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 52 "variable.pgc" #line 52 "variable.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , born , married , children ) values ( 'Dad' , '19610721' , '19870714' , 3 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , born , married , children ) values ( 'Dad' , '19610721' , '19870714' , 3 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 53 "variable.pgc" #line 53 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 53 "variable.pgc" #line 53 "variable.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 1' , 16 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 1' , 16 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 54 "variable.pgc" #line 54 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 54 "variable.pgc" #line 54 "variable.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 2' , 14 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 2' , 14 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 55 "variable.pgc" #line 55 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 55 "variable.pgc" #line 55 "variable.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 3' , 9 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 3' , 9 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 56 "variable.pgc" #line 56 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 56 "variable.pgc" #line 56 "variable.pgc"
strcpy(msg, "commit"); strcpy(msg, "commit");
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 59 "variable.pgc" #line 59 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 59 "variable.pgc" #line 59 "variable.pgc"
strcpy(msg, "open"); strcpy(msg, "open");
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare cur cursor for select name , born , age , married , children from family ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "declare cur cursor for select name , born , age , married , children from family ", ECPGt_EOIT, ECPGt_EORT);
#line 62 "variable.pgc" #line 62 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 62 "variable.pgc" #line 62 "variable.pgc"
...@@ -237,33 +194,28 @@ main(void) ...@@ -237,33 +194,28 @@ main(void)
#line 64 "variable.pgc" #line 64 "variable.pgc"
p = &personal; p=&personal;
i = &ind_personal; i=&ind_personal;
memset(i, 0, sizeof(ind_personal)); memset(i, 0, sizeof(ind_personal));
while (1) while (1) {
{
strcpy(msg, "fetch"); strcpy(msg, "fetch");
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch cur", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch cur", ECPGt_EOIT, ECPGt_varchar,&(p->name),(long)BUFFERSIZ,(long)1,sizeof(struct varchar_name),
ECPGt_varchar, &(p->name), (long) BUFFERSIZ, (long) 1, sizeof(struct varchar_name), ECPGt_int,&(i->ind_name),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i->ind_name), (long) 1, (long) 1, sizeof(int), ECPGt_long,&(p->birth.born),(long)1,(long)1,sizeof(long),
ECPGt_long, &(p->birth.born), (long) 1, (long) 1, sizeof(long), ECPGt_long,&(i->ind_birth.born),(long)1,(long)1,sizeof(long),
ECPGt_long, &(i->ind_birth.born), (long) 1, (long) 1, sizeof(long), ECPGt_short,&(p->birth.age),(long)1,(long)1,sizeof(short),
ECPGt_short, &(p->birth.age), (long) 1, (long) 1, sizeof(short), ECPGt_short,&(i->ind_birth.age),(long)1,(long)1,sizeof(short),
ECPGt_short, &(i->ind_birth.age), (long) 1, (long) 1, sizeof(short), ECPGt_char,&(married),(long)0,(long)1,(1)*sizeof(char),
ECPGt_char, &(married), (long) 0, (long) 1, (1) * sizeof(char), ECPGt_long,&(ind_married),(long)1,(long)1,sizeof(long),
ECPGt_long, &(ind_married), (long) 1, (long) 1, sizeof(long), ECPGt_int,&(children.integer),(long)1,(long)1,sizeof(int),
ECPGt_int, &(children.integer), (long) 1, (long) 1, sizeof(int), ECPGt_short,&(ind_children.smallint),(long)1,(long)1,sizeof(short), ECPGt_EORT);
ECPGt_short, &(ind_children.smallint), (long) 1, (long) 1, sizeof(short), ECPGt_EORT);
#line 71 "variable.pgc" #line 71 "variable.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
break;
#line 71 "variable.pgc" #line 71 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 71 "variable.pgc" #line 71 "variable.pgc"
printf("%8.8s", personal.name.arr); printf("%8.8s", personal.name.arr);
...@@ -282,46 +234,34 @@ main(void) ...@@ -282,46 +234,34 @@ main(void)
} }
strcpy(msg, "close"); strcpy(msg, "close");
{ { ECPGdo(__LINE__, 0, 1, NULL, "close cur", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "close cur", ECPGt_EOIT, ECPGt_EORT);
#line 88 "variable.pgc" #line 88 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 88 "variable.pgc" #line 88 "variable.pgc"
strcpy(msg, "drop"); strcpy(msg, "drop");
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table family ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table family ", ECPGt_EOIT, ECPGt_EORT);
#line 91 "variable.pgc" #line 91 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 91 "variable.pgc" #line 91 "variable.pgc"
strcpy(msg, "commit"); strcpy(msg, "commit");
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 94 "variable.pgc" #line 94 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 94 "variable.pgc" #line 94 "variable.pgc"
strcpy(msg, "disconnect"); strcpy(msg, "disconnect");
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 97 "variable.pgc" #line 97 "variable.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 97 "variable.pgc" #line 97 "variable.pgc"
......
...@@ -24,288 +24,221 @@ ...@@ -24,288 +24,221 @@
#line 5 "whenever.pgc" #line 5 "whenever.pgc"
static void static void print(char *msg)
print(char *msg)
{ {
fprintf(stderr, "Error in statement '%s':\n", msg); fprintf(stderr, "Error in statement '%s':\n", msg);
sqlprint(); sqlprint();
} }
static void static void print2(void)
print2(void)
{ {
fprintf(stderr, "Found another error\n"); fprintf(stderr, "Found another error\n");
sqlprint(); sqlprint();
} }
static void static void warn(void)
warn(void)
{ {
fprintf(stderr, "Warning: At least one column was truncated\n"); fprintf(stderr, "Warning: At least one column was truncated\n");
} }
int int main(void)
main(void)
{ {
#line 26 "whenever.pgc" #line 26 "whenever.pgc"
int i; int i ;
#line 26 "whenever.pgc" #line 26 "whenever.pgc"
#line 27 "whenever.pgc" #line 27 "whenever.pgc"
char c[6]; char c [ 6 ] ;
#line 27 "whenever.pgc" #line 27 "whenever.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 31 "whenever.pgc" #line 31 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 31 "whenever.pgc" #line 31 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( i int , c char ( 10 ) ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( i int , c char ( 10 ) ) ", ECPGt_EOIT, ECPGt_EORT);
#line 32 "whenever.pgc" #line 32 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "whenever.pgc" #line 32 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 1 , 'abcdefghij' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 1 , 'abcdefghij' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 33 "whenever.pgc" #line 33 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 33 "whenever.pgc" #line 33 "whenever.pgc"
/* exec sql whenever sql_warning do warn ( ) ; */ /* exec sql whenever sql_warning do warn ( ) ; */
#line 35 "whenever.pgc" #line 35 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from test ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from test ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(c),(long)6,(long)1,(6)*sizeof(char),
ECPGt_char, (c), (long) 6, (long) 1, (6) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 36 "whenever.pgc" #line 36 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 36 "whenever.pgc" #line 36 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 36 "whenever.pgc" #line 36 "whenever.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 37 "whenever.pgc" #line 37 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 37 "whenever.pgc" #line 37 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 37 "whenever.pgc" #line 37 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 39 "whenever.pgc" #line 39 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 39 "whenever.pgc" #line 39 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 39 "whenever.pgc" #line 39 "whenever.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 40 "whenever.pgc" #line 40 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 40 "whenever.pgc" #line 40 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 40 "whenever.pgc" #line 40 "whenever.pgc"
/* exec sql whenever sqlerror do print ( \"select\" ) ; */ /* exec sql whenever sqlerror do print ( \"select\" ) ; */
#line 42 "whenever.pgc" #line 42 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 43 "whenever.pgc" #line 43 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 43 "whenever.pgc" #line 43 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) print ( "select" );}
print("select");
}
#line 43 "whenever.pgc" #line 43 "whenever.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 44 "whenever.pgc" #line 44 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 44 "whenever.pgc" #line 44 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) print ( "select" );}
print("select");
}
#line 44 "whenever.pgc" #line 44 "whenever.pgc"
/* exec sql whenever sqlerror call print2 ( ) ; */ /* exec sql whenever sqlerror call print2 ( ) ; */
#line 46 "whenever.pgc" #line 46 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 47 "whenever.pgc" #line 47 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 47 "whenever.pgc" #line 47 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) print2 ( );}
print2();
}
#line 47 "whenever.pgc" #line 47 "whenever.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 48 "whenever.pgc" #line 48 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 48 "whenever.pgc" #line 48 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) print2 ( );}
print2();
}
#line 48 "whenever.pgc" #line 48 "whenever.pgc"
/* exec sql whenever sqlerror continue ; */ /* exec sql whenever sqlerror continue ; */
#line 50 "whenever.pgc" #line 50 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 51 "whenever.pgc" #line 51 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );}
warn();
}
#line 51 "whenever.pgc" #line 51 "whenever.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 52 "whenever.pgc" #line 52 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );}
warn();
}
#line 52 "whenever.pgc" #line 52 "whenever.pgc"
/* exec sql whenever sqlerror goto error ; */ /* exec sql whenever sqlerror goto error ; */
#line 54 "whenever.pgc" #line 54 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 55 "whenever.pgc" #line 55 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 55 "whenever.pgc" #line 55 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) goto error;}
goto error;
}
#line 55 "whenever.pgc" #line 55 "whenever.pgc"
printf("Should not be reachable\n"); printf("Should not be reachable\n");
error: error:
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 59 "whenever.pgc" #line 59 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 59 "whenever.pgc" #line 59 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) goto error;}
goto error;
}
#line 59 "whenever.pgc" #line 59 "whenever.pgc"
/* exec sql whenever sqlerror stop ; */ /* exec sql whenever sqlerror stop ; */
#line 61 "whenever.pgc" #line 61 "whenever.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from nonexistant ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 62 "whenever.pgc" #line 62 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 62 "whenever.pgc" #line 62 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) exit (1);}
exit(1);
}
#line 62 "whenever.pgc" #line 62 "whenever.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 63 "whenever.pgc" #line 63 "whenever.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') warn ( );
warn();
#line 63 "whenever.pgc" #line 63 "whenever.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) exit (1);}
exit(1);
}
#line 63 "whenever.pgc" #line 63 "whenever.pgc"
exit(0); exit (0);
} }
...@@ -81,6 +81,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -81,6 +81,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 7 "array.pgc" #line 7 "array.pgc"
...@@ -97,7 +98,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -97,7 +98,7 @@ struct sqlca_t *ECPGget_sqlca(void);
int int
main(void) main (void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -108,23 +109,22 @@ main(void) ...@@ -108,23 +109,22 @@ main(void)
#line 14 "array.pgc" #line 14 "array.pgc"
int i = 1; int i = 1 ;
#line 15 "array.pgc" #line 15 "array.pgc"
int *did = &i; int * did = & i ;
#line 16 "array.pgc" #line 16 "array.pgc"
int a[10] = {9, 8, 7, 6, 5, 4, 3, 2, 1, 0}; int a [ 10 ] = { 9 , 8 , 7 , 6 , 5 , 4 , 3 , 2 , 1 , 0 } ;
#line 17 "array.pgc" #line 17 "array.pgc"
char text [25] = "klmnopqrst"; char text [ 25 ] = "klmnopqrst" ;
#line 18 "array.pgc" #line 18 "array.pgc"
char *t = (char *) malloc(11); char * t = ( char * ) malloc ( 11 ) ;
#line 19 "array.pgc" #line 19 "array.pgc"
double f; double f ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 20 "array.pgc" #line 20 "array.pgc"
...@@ -134,136 +134,103 @@ main(void) ...@@ -134,136 +134,103 @@ main(void)
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 27 "array.pgc" #line 27 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 27 "array.pgc" #line 27 "array.pgc"
{ { ECPGsetcommit(__LINE__, "on", NULL);
ECPGsetcommit(__LINE__, "on", NULL);
#line 29 "array.pgc" #line 29 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 29 "array.pgc" #line 29 "array.pgc"
{ { ECPGtrans(__LINE__, NULL, "begin transaction ");
ECPGtrans(__LINE__, NULL, "begin transaction ");
#line 31 "array.pgc" #line 31 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 31 "array.pgc" #line 31 "array.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( f float , i int , a int [ 10 ] , text char ( 10 ) ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( f float , i int , a int [ 10 ] , text char ( 10 ) ) ", ECPGt_EOIT, ECPGt_EORT);
#line 33 "array.pgc" #line 33 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 33 "array.pgc" #line 33 "array.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( f , i , a , text ) values ( 404.90 , 3 , '{0,1,2,3,4,5,6,7,8,9}' , 'abcdefghij' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( f , i , a , text ) values ( 404.90 , 3 , '{0,1,2,3,4,5,6,7,8,9}' , 'abcdefghij' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 35 "array.pgc" #line 35 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 35 "array.pgc" #line 35 "array.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( f , i , a , text ) values ( 140787.0 , 2 , ? , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( f , i , a , text ) values ( 140787.0 , 2 , ? , ? ) ", ECPGt_int,(a),(long)1,(long)10,sizeof(int),
ECPGt_int, (a), (long) 1, (long) 10, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(text),(long)25,(long)1,(25)*sizeof(char),
ECPGt_char, (text), (long) 25, (long) 1, (25) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 37 "array.pgc" #line 37 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 37 "array.pgc" #line 37 "array.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( f , i , a , text ) values ( 14.07 , ? , ? , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( f , i , a , text ) values ( 14.07 , ? , ? , ? ) ", ECPGt_int,&(did),(long)1,(long)0,sizeof(int),
ECPGt_int, &(did), (long) 1, (long) 0, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,(a),(long)1,(long)10,sizeof(int),
ECPGt_int, (a), (long) 1, (long) 10, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,&(t),(long)0,(long)1,(1)*sizeof(char),
ECPGt_char, &(t), (long) 0, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 39 "array.pgc" #line 39 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 39 "array.pgc" #line 39 "array.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 41 "array.pgc" #line 41 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 41 "array.pgc" #line 41 "array.pgc"
{ { ECPGtrans(__LINE__, NULL, "begin transaction ");
ECPGtrans(__LINE__, NULL, "begin transaction ");
#line 43 "array.pgc" #line 43 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 43 "array.pgc" #line 43 "array.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select f , text from test where i = 1 ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select f , text from test where i = 1 ", ECPGt_EOIT, ECPGt_double,&(f),(long)1,(long)1,sizeof(double),
ECPGt_double, &(f), (long) 1, (long) 1, sizeof(double), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(text),(long)25,(long)1,(25)*sizeof(char),
ECPGt_char, (text), (long) 25, (long) 1, (25) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 48 "array.pgc" #line 48 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 48 "array.pgc" #line 48 "array.pgc"
printf("Found f=%f text=%10.10s\n", f, text); printf("Found f=%f text=%10.10s\n", f, text);
f = 140787; f=140787;
{ { ECPGdo(__LINE__, 0, 1, NULL, "select a , text from test where f = ? ",
ECPGdo(__LINE__, 0, 1, NULL, "select a , text from test where f = ? ", ECPGt_double,&(f),(long)1,(long)1,sizeof(double),
ECPGt_double, &(f), (long) 1, (long) 1, sizeof(double), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_int,(a),(long)1,(long)10,sizeof(int),
ECPGt_int, (a), (long) 1, (long) 10, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,&(t),(long)0,(long)1,(1)*sizeof(char),
ECPGt_char, &(t), (long) 0, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 56 "array.pgc" #line 56 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 56 "array.pgc" #line 56 "array.pgc"
...@@ -272,49 +239,37 @@ main(void) ...@@ -272,49 +239,37 @@ main(void)
printf("Found text=%10.10s\n", t); printf("Found text=%10.10s\n", t);
{ { ECPGdo(__LINE__, 0, 1, NULL, "select a from test where f = ? ",
ECPGdo(__LINE__, 0, 1, NULL, "select a from test where f = ? ", ECPGt_double,&(f),(long)1,(long)1,sizeof(double),
ECPGt_double, &(f), (long) 1, (long) 1, sizeof(double), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_char,(text),(long)25,(long)1,(25)*sizeof(char),
ECPGt_char, (text), (long) 25, (long) 1, (25) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 66 "array.pgc" #line 66 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 66 "array.pgc" #line 66 "array.pgc"
printf("Found text=%s\n", text); printf("Found text=%s\n", text);
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
#line 70 "array.pgc" #line 70 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 70 "array.pgc" #line 70 "array.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 72 "array.pgc" #line 72 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 72 "array.pgc" #line 72 "array.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 74 "array.pgc" #line 74 "array.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 74 "array.pgc" #line 74 "array.pgc"
......
...@@ -29,167 +29,136 @@ ...@@ -29,167 +29,136 @@
struct TBempl struct TBempl {
{
#line 9 "binary.pgc" #line 9 "binary.pgc"
long idnum; long idnum ;
#line 10 "binary.pgc" #line 10 "binary.pgc"
char name[21]; char name [ 21 ] ;
#line 11 "binary.pgc" #line 11 "binary.pgc"
short accs; short accs ;
#line 12 "binary.pgc" #line 12 "binary.pgc"
char byte[20]; char byte [ 20 ] ;
}; /* exec sql end declare section */ } ;/* exec sql end declare section */
#line 14 "binary.pgc" #line 14 "binary.pgc"
int int
main(void) main (void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 20 "binary.pgc" #line 20 "binary.pgc"
struct TBempl empl; struct TBempl empl ;
#line 21 "binary.pgc" #line 21 "binary.pgc"
char *data = "\\001\\155\\000\\212"; char * data = "\\001\\155\\000\\212" ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 22 "binary.pgc" #line 22 "binary.pgc"
int i; int i;
ECPGdebug(1, stderr); ECPGdebug (1, stderr);
empl.idnum = 1; empl.idnum = 1;
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 28 "binary.pgc" #line 28 "binary.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("connect error = %ld\n", sqlca.sqlcode); printf ("connect error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table empl ( idnum integer , name char ( 20 ) , accs smallint , byte bytea ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "create table empl ( idnum integer , name char ( 20 ) , accs smallint , byte bytea ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 36 "binary.pgc" #line 36 "binary.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("create error = %ld\n", sqlca.sqlcode); printf ("create error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into empl values ( 1 , 'first user' , 320 , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into empl values ( 1 , 'first user' , 320 , ? ) ", ECPGt_char,&(data),(long)0,(long)1,(1)*sizeof(char),
ECPGt_char, &(data), (long) 0, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
}
#line 43 "binary.pgc" #line 43 "binary.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("insert error = %ld\n", sqlca.sqlcode); printf ("insert error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
/* /* declare C cursor for select name , accs , byte from empl where idnum = ? */
* declare C cursor for select name , accs , byte from empl where
* idnum = ?
*/
#line 50 "binary.pgc" #line 50 "binary.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare C cursor for select name , accs , byte from empl where idnum = ? ",
ECPGdo(__LINE__, 0, 1, NULL, "declare C cursor for select name , accs , byte from empl where idnum = ? ", ECPGt_long,&(empl.idnum),(long)1,(long)1,sizeof(long),
ECPGt_long, &(empl.idnum), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
}
#line 51 "binary.pgc" #line 51 "binary.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch C", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch C", ECPGt_EOIT, ECPGt_char,(empl.name),(long)21,(long)1,(21)*sizeof(char),
ECPGt_char, (empl.name), (long) 21, (long) 1, (21) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_short,&(empl.accs),(long)1,(long)1,sizeof(short),
ECPGt_short, &(empl.accs), (long) 1, (long) 1, sizeof(short), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(empl.byte),(long)20,(long)1,(20)*sizeof(char),
ECPGt_char, (empl.byte), (long) 20, (long) 1, (20) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 52 "binary.pgc" #line 52 "binary.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("fetch error = %ld\n", sqlca.sqlcode); printf ("fetch error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
printf("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte); printf ("name=%s, accs=%d byte=%s\n", empl.name, empl.accs, empl.byte);
memset(empl.name, 0, 21L); memset(empl.name, 0, 21L);
memset(empl.byte, '#', 20L); memset(empl.byte, '#', 20L);
/* declare B binary cursor for select name , accs , byte from empl where idnum = ? */
/*
* declare B binary cursor for select name , accs , byte from empl
* where idnum = ?
*/
#line 63 "binary.pgc" #line 63 "binary.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare B binary cursor for select name , accs , byte from empl where idnum = ? ",
ECPGdo(__LINE__, 0, 1, NULL, "declare B binary cursor for select name , accs , byte from empl where idnum = ? ", ECPGt_long,&(empl.idnum),(long)1,(long)1,sizeof(long),
ECPGt_long, &(empl.idnum), (long) 1, (long) 1, sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
}
#line 64 "binary.pgc" #line 64 "binary.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch B", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch B", ECPGt_EOIT, ECPGt_char,(empl.name),(long)21,(long)1,(21)*sizeof(char),
ECPGt_char, (empl.name), (long) 21, (long) 1, (21) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_short,&(empl.accs),(long)1,(long)1,sizeof(short),
ECPGt_short, &(empl.accs), (long) 1, (long) 1, sizeof(short), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(empl.byte),(long)20,(long)1,(20)*sizeof(char),
ECPGt_char, (empl.byte), (long) 20, (long) 1, (20) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 65 "binary.pgc" #line 65 "binary.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
{ {
printf("fetch error = %ld\n", sqlca.sqlcode); printf ("fetch error = %ld\n", sqlca.sqlcode);
exit(sqlca.sqlcode); exit (sqlca.sqlcode);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "close B", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "close B", ECPGt_EOIT, ECPGt_EORT);
}
#line 72 "binary.pgc" #line 72 "binary.pgc"
/* /* do not print a.accs because big/little endian will have different outputs here */
* do not print a.accs because big/little endian will have different printf ("name=%s, byte=", empl.name);
* outputs here for (i=0; i<20; i++)
*/
printf("name=%s, byte=", empl.name);
for (i = 0; i < 20; i++)
{ {
if (empl.byte[i] == '#') if (empl.byte[i] == '#')
break; break;
printf("(%o)", (unsigned char) empl.byte[i]); printf("(%o)", (unsigned char)empl.byte[i]);
} }
printf("\n"); printf("\n");
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 83 "binary.pgc" #line 83 "binary.pgc"
exit(0); exit (0);
} }
...@@ -73,6 +73,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -73,6 +73,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 1 "code100.pgc" #line 1 "code100.pgc"
...@@ -91,109 +92,73 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -91,109 +92,73 @@ struct sqlca_t *ECPGget_sqlca(void);
int int main(int argc, char **argv)
main(int argc, char **argv)
{ /* exec sql begin declare section */ { /* exec sql begin declare section */
#line 9 "code100.pgc" #line 9 "code100.pgc"
int index; int index ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 10 "code100.pgc" #line 10 "code100.pgc"
ECPGdebug(1, stderr); ECPGdebug(1,stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 15 "code100.pgc" #line 15 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( \"index\" numeric ( 3 ) primary key , \"payload\" int4 not null ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( \"index\" numeric ( 3 ) primary key , \"payload\" int4 not null ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 20 "code100.pgc" #line 20 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); { ECPGtrans(__LINE__, NULL, "commit");}
{
ECPGtrans(__LINE__, NULL, "commit");
}
#line 22 "code100.pgc" #line 22 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
for (index = 0; index < 10; ++index) for (index=0;index<10;++index)
{ { { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( payload , index ) values ( 0 , ? ) ",
{ ECPGt_int,&(index),(long)1,(long)1,sizeof(int),
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( payload , index ) values( 0 , ? ) ", ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
ECPGt_int, &(index), (long) 1, (long) 1, sizeof(int),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
}
#line 28 "code100.pgc" #line 28 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
}
{
ECPGtrans(__LINE__, NULL, "commit");
} }
{ ECPGtrans(__LINE__, NULL, "commit");}
#line 31 "code100.pgc" #line 31 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
{ { ECPGdo(__LINE__, 0, 1, NULL, "update test set payload = payload + 1 where index = - 1 ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "update test set payload = payload + 1 where index = - 1 ", ECPGt_EOIT, ECPGt_EORT);
}
#line 35 "code100.pgc" #line 35 "code100.pgc"
if (sqlca.sqlcode != 100) if (sqlca.sqlcode!=100) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
{ { ECPGdo(__LINE__, 0, 1, NULL, "delete from test where index = - 1 ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "delete from test where index = - 1 ", ECPGt_EOIT, ECPGt_EORT);
}
#line 38 "code100.pgc" #line 38 "code100.pgc"
if (sqlca.sqlcode != 100) if (sqlca.sqlcode!=100) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( select * from test where index = - 1 ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( select * from test where index = - 1 ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 41 "code100.pgc" #line 41 "code100.pgc"
if (sqlca.sqlcode != 100) if (sqlca.sqlcode!=100) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
}
#line 44 "code100.pgc" #line 44 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); { ECPGtrans(__LINE__, NULL, "commit");}
{
ECPGtrans(__LINE__, NULL, "commit");
}
#line 46 "code100.pgc" #line 46 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 49 "code100.pgc" #line 49 "code100.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode) printf("%ld:%s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
printf("%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
return 0; return 0;
} }
...@@ -75,6 +75,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -75,6 +75,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 3 "copystdout.pgc" #line 3 "copystdout.pgc"
...@@ -95,7 +96,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -95,7 +96,7 @@ struct sqlca_t *ECPGget_sqlca(void);
int int
main() main ()
{ {
/* /*
EXEC SQL BEGIN DECLARE SECTION; EXEC SQL BEGIN DECLARE SECTION;
...@@ -103,51 +104,36 @@ main() ...@@ -103,51 +104,36 @@ main()
EXEC SQL END DECLARE SECTION; EXEC SQL END DECLARE SECTION;
*/ */
ECPGdebug(1, stderr); ECPGdebug (1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 19 "copystdout.pgc" #line 19 "copystdout.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 19 "copystdout.pgc" #line 19 "copystdout.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table foo ( a int , b varchar ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table foo ( a int , b varchar ) ", ECPGt_EOIT, ECPGt_EORT);
#line 20 "copystdout.pgc" #line 20 "copystdout.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 20 "copystdout.pgc" #line 20 "copystdout.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into foo values ( 5 , 'abc' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into foo values( 5 , 'abc' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 21 "copystdout.pgc" #line 21 "copystdout.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 21 "copystdout.pgc" #line 21 "copystdout.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into foo values ( 6 , 'def' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into foo values( 6 , 'def' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 22 "copystdout.pgc" #line 22 "copystdout.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 22 "copystdout.pgc" #line 22 "copystdout.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into foo values ( 7 , 'ghi' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into foo values( 7 , 'ghi' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 23 "copystdout.pgc" #line 23 "copystdout.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 23 "copystdout.pgc" #line 23 "copystdout.pgc"
...@@ -155,24 +141,18 @@ main() ...@@ -155,24 +141,18 @@ main()
/* EXEC SQL COPY foo TO:fname WITH DELIMITER ','; */ /* EXEC SQL COPY foo TO:fname WITH DELIMITER ','; */
/* printf ("copy to /tmp/foo : sqlca.sqlcode = %ld", sqlca.sqlcode); */ /* printf ("copy to /tmp/foo : sqlca.sqlcode = %ld", sqlca.sqlcode); */
{ { ECPGdo(__LINE__, 0, 1, NULL, "copy foo to stdout with delimiter ','", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "copy foo to stdout with delimiter ','", ECPGt_EOIT, ECPGt_EORT);
#line 29 "copystdout.pgc" #line 29 "copystdout.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 29 "copystdout.pgc" #line 29 "copystdout.pgc"
printf("copy to STDOUT : sqlca.sqlcode = %ld\n", sqlca.sqlcode); printf ("copy to STDOUT : sqlca.sqlcode = %ld\n", sqlca.sqlcode);
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 32 "copystdout.pgc" #line 32 "copystdout.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "copystdout.pgc" #line 32 "copystdout.pgc"
......
...@@ -73,6 +73,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -73,6 +73,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 1 "define.pgc" #line 1 "define.pgc"
...@@ -91,19 +92,17 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -91,19 +92,17 @@ struct sqlca_t *ECPGget_sqlca(void);
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 10 "define.pgc" #line 10 "define.pgc"
int i; int i ;
#line 11 "define.pgc" #line 11 "define.pgc"
char s[200]; char s [ 200 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 12 "define.pgc" #line 12 "define.pgc"
...@@ -113,43 +112,31 @@ main(void) ...@@ -113,43 +112,31 @@ main(void)
/* exec sql whenever sqlerror do sqlprint ( ) ; */ /* exec sql whenever sqlerror do sqlprint ( ) ; */
#line 16 "define.pgc" #line 16 "define.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 17 "define.pgc" #line 17 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 17 "define.pgc" #line 17 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a int , b text ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a int , b text ) ", ECPGt_EOIT, ECPGt_EORT);
#line 19 "define.pgc" #line 19 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 19 "define.pgc" #line 19 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 29 , 'abcdef' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( 29 , 'abcdef' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 20 "define.pgc" #line 20 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 20 "define.pgc" #line 20 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( null , 'defined' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( null , 'defined' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 23 "define.pgc" #line 23 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 23 "define.pgc" #line 23 "define.pgc"
...@@ -159,30 +146,24 @@ main(void) ...@@ -159,30 +146,24 @@ main(void)
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( null , 'someothervar not defined' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( null , 'someothervar not defined' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 31 "define.pgc" #line 31 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 31 "define.pgc" #line 31 "define.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select 1 , 29 :: text || '-' || 'abcdef' ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select 1 , 29 :: text || '-' || 'abcdef' ", ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(s),(long)200,(long)1,(200)*sizeof(char),
ECPGt_char, (s), (long) 200, (long) 1, (200) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 36 "define.pgc" #line 36 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 36 "define.pgc" #line 36 "define.pgc"
...@@ -190,13 +171,10 @@ main(void) ...@@ -190,13 +171,10 @@ main(void)
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 29 , 'no string' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( 29 , 'no string' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 42 "define.pgc" #line 42 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 42 "define.pgc" #line 42 "define.pgc"
...@@ -209,24 +187,18 @@ main(void) ...@@ -209,24 +187,18 @@ main(void)
{ { ECPGdo(__LINE__, 0, 1, NULL, "set TIMEZONE to 'UTC'", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "set TIMEZONE to 'UTC'", ECPGt_EOIT, ECPGt_EORT);
#line 53 "define.pgc" #line 53 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 53 "define.pgc" #line 53 "define.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 56 "define.pgc" #line 56 "define.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 56 "define.pgc" #line 56 "define.pgc"
return 0; return 0;
......
...@@ -36,32 +36,28 @@ main(void) ...@@ -36,32 +36,28 @@ main(void)
#line 8 "desc.pgc" #line 8 "desc.pgc"
char *stmt1 = "INSERT INTO test1 VALUES (?, ?)"; char * stmt1 = "INSERT INTO test1 VALUES (?, ?)" ;
#line 9 "desc.pgc" #line 9 "desc.pgc"
char *stmt2 = "SELECT * from test1 where a = ? and b = ?"; char * stmt2 = "SELECT * from test1 where a = ? and b = ?" ;
#line 10 "desc.pgc" #line 10 "desc.pgc"
char *stmt3 = "SELECT * from test1 where a = ?"; char * stmt3 = "SELECT * from test1 where a = ?" ;
#line 12 "desc.pgc" #line 12 "desc.pgc"
int val1 = 1; int val1 = 1 ;
#line 13 "desc.pgc" #line 13 "desc.pgc"
char val2[4] = "one", char val2 [ 4 ] = "one" , val2output [] = "AAA" ;
val2output[] = "AAA";
#line 14 "desc.pgc" #line 14 "desc.pgc"
int val1output = 2, int val1output = 2 , val2i = 0 ;
val2i = 0;
#line 15 "desc.pgc" #line 15 "desc.pgc"
int val2null = -1; int val2null = - 1 ;
#line 16 "desc.pgc" #line 16 "desc.pgc"
int ind1, int ind1 , ind2 ;
ind2;
/* exec sql end declare section */ /* exec sql end declare section */
#line 17 "desc.pgc" #line 17 "desc.pgc"
...@@ -71,228 +67,172 @@ main(void) ...@@ -71,228 +67,172 @@ main(void)
ECPGallocate_desc(__LINE__, "indesc"); ECPGallocate_desc(__LINE__, "indesc");
#line 21 "desc.pgc" #line 21 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();
sqlprint();
#line 21 "desc.pgc" #line 21 "desc.pgc"
ECPGallocate_desc(__LINE__, "outdesc"); ECPGallocate_desc(__LINE__, "outdesc");
#line 22 "desc.pgc" #line 22 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();
sqlprint();
#line 22 "desc.pgc" #line 22 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 1, ECPGd_data, ECPGt_int,&(val1),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(val1), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 24 "desc.pgc" #line 24 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 24 "desc.pgc" #line 24 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 2, ECPGd_data, ECPGt_char,(val2),(long)4,(long)1,(4)*sizeof(char), ECPGd_indicator,
ECPGt_char, (val2), (long) 4, (long) 1, (4) * sizeof(char), ECPGd_indicator, ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(val2i), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 25 "desc.pgc" #line 25 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 25 "desc.pgc" #line 25 "desc.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 27 "desc.pgc" #line 27 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 27 "desc.pgc" #line 27 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test1 ( a int , b text ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test1 ( a int , b text ) ", ECPGt_EOIT, ECPGt_EORT);
#line 29 "desc.pgc" #line 29 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 29 "desc.pgc" #line 29 "desc.pgc"
{ { ECPGprepare(__LINE__, "foo1" , stmt1);
ECPGprepare(__LINE__, "foo1", stmt1);
#line 30 "desc.pgc" #line 30 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 30 "desc.pgc" #line 30 "desc.pgc"
{ { ECPGprepare(__LINE__, "foo2" , stmt2);
ECPGprepare(__LINE__, "foo2", stmt2);
#line 31 "desc.pgc" #line 31 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 31 "desc.pgc" #line 31 "desc.pgc"
{ { ECPGprepare(__LINE__, "foo3" , stmt3);
ECPGprepare(__LINE__, "foo3", stmt3);
#line 32 "desc.pgc" #line 32 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "desc.pgc" #line 32 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(ECPGprepared_statement("foo1")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("foo1")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L,
ECPGt_descriptor, "indesc", 0L, 0L, 0L, ECPGt_descriptor, "indesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 34 "desc.pgc" #line 34 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 34 "desc.pgc" #line 34 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 1, ECPGd_data, ECPGt_const,"2",(long)1,(long)1,strlen("2"), ECPGd_EODT);
ECPGt_const, "2", (long) 1, (long) 1, strlen("2"), ECPGd_EODT);
#line 36 "desc.pgc" #line 36 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 36 "desc.pgc" #line 36 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 2, ECPGd_data, ECPGt_char,(val2),(long)4,(long)1,(4)*sizeof(char), ECPGd_indicator,
ECPGt_char, (val2), (long) 4, (long) 1, (4) * sizeof(char), ECPGd_indicator, ECPGt_int,&(val2null),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(val2null), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 37 "desc.pgc" #line 37 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 37 "desc.pgc" #line 37 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(ECPGprepared_statement("foo1")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("foo1")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L,
ECPGt_descriptor, "indesc", 0L, 0L, 0L, ECPGt_descriptor, "indesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 39 "desc.pgc" #line 39 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 39 "desc.pgc" #line 39 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 1, ECPGd_data, ECPGt_const,"3",(long)1,(long)1,strlen("3"), ECPGd_EODT);
ECPGt_const, "3", (long) 1, (long) 1, strlen("3"), ECPGd_EODT);
#line 41 "desc.pgc" #line 41 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 41 "desc.pgc" #line 41 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 2, ECPGd_data, ECPGt_const,"this is a long test",(long)19,(long)1,strlen("this is a long test"), ECPGd_indicator,
ECPGt_const, "this is a long test", (long) 19, (long) 1, strlen("this is a long test"), ECPGd_indicator, ECPGt_int,&(val1),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(val1), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 42 "desc.pgc" #line 42 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 42 "desc.pgc" #line 42 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(ECPGprepared_statement("foo1")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("foo1")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L,
ECPGt_descriptor, "indesc", 0L, 0L, 0L, ECPGt_descriptor, "indesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 44 "desc.pgc" #line 44 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 44 "desc.pgc" #line 44 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 1, ECPGd_data, ECPGt_int,&(val1),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(val1), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 46 "desc.pgc" #line 46 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 46 "desc.pgc" #line 46 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 2,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 2, ECPGd_data, ECPGt_char,(val2),(long)4,(long)1,(4)*sizeof(char), ECPGd_indicator,
ECPGt_char, (val2), (long) 4, (long) 1, (4) * sizeof(char), ECPGd_indicator, ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(val2i), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 47 "desc.pgc" #line 47 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 47 "desc.pgc" #line 47 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(ECPGprepared_statement("foo2")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("foo2")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L,
ECPGt_descriptor, "indesc", 0L, 0L, 0L, ECPGt_descriptor, "indesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_descriptor, "outdesc", 0L, 0L, 0L, ECPGt_descriptor, "outdesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 49 "desc.pgc" #line 49 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 49 "desc.pgc" #line 49 "desc.pgc"
{ { ECPGget_desc(__LINE__, "outdesc", 1,ECPGd_data,
ECPGget_desc(__LINE__, "outdesc", 1, ECPGd_data, ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char), ECPGd_EODT);
ECPGt_char, (val2output), (long) sizeof("AAA"), (long) 1, (sizeof("AAA")) *sizeof(char), ECPGd_EODT);
#line 51 "desc.pgc" #line 51 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 51 "desc.pgc" #line 51 "desc.pgc"
printf("output = %s\n", val2output); printf("output = %s\n", val2output);
...@@ -300,156 +240,121 @@ main(void) ...@@ -300,156 +240,121 @@ main(void)
/* declare c1 cursor for ? */ /* declare c1 cursor for ? */
#line 54 "desc.pgc" #line 54 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare c1 cursor for ?",
ECPGdo(__LINE__, 0, 1, NULL, "declare c1 cursor for ?", ECPGt_char_variable,(ECPGprepared_statement("foo2")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("foo2")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L,
ECPGt_descriptor, "indesc", 0L, 0L, 0L, ECPGt_descriptor, "indesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 55 "desc.pgc" #line 55 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 55 "desc.pgc" #line 55 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch next from c1", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch next from c1", ECPGt_EOIT, ECPGt_int,&(val1output),(long)1,(long)1,sizeof(int),
ECPGt_int, &(val1output), (long) 1, (long) 1, sizeof(int), ECPGt_int,&(ind1),(long)1,(long)1,sizeof(int),
ECPGt_int, &(ind1), (long) 1, (long) 1, sizeof(int), ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char),
ECPGt_char, (val2output), (long) sizeof("AAA"), (long) 1, (sizeof("AAA")) *sizeof(char), ECPGt_int,&(ind2),(long)1,(long)1,sizeof(int), ECPGt_EORT);
ECPGt_int, &(ind2), (long) 1, (long) 1, sizeof(int), ECPGt_EORT);
#line 57 "desc.pgc" #line 57 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 57 "desc.pgc" #line 57 "desc.pgc"
printf("val1=%d (ind1: %d) val2=%s (ind2: %d)\n", printf("val1=%d (ind1: %d) val2=%s (ind2: %d)\n",
val1output, ind1, val2output, ind2); val1output, ind1, val2output, ind2);
{ { ECPGdo(__LINE__, 0, 1, NULL, "close c1", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "close c1", ECPGt_EOIT, ECPGt_EORT);
#line 61 "desc.pgc" #line 61 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 61 "desc.pgc" #line 61 "desc.pgc"
{ { ECPGset_desc_header(__LINE__, "indesc", (int)(1));
ECPGset_desc_header(__LINE__, "indesc", (int) (1));
#line 63 "desc.pgc" #line 63 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 63 "desc.pgc" #line 63 "desc.pgc"
{ { ECPGset_desc(__LINE__, "indesc", 1,ECPGd_data,
ECPGset_desc(__LINE__, "indesc", 1, ECPGd_data, ECPGt_const,"2",(long)1,(long)1,strlen("2"), ECPGd_EODT);
ECPGt_const, "2", (long) 1, (long) 1, strlen("2"), ECPGd_EODT);
#line 64 "desc.pgc" #line 64 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 64 "desc.pgc" #line 64 "desc.pgc"
/* declare c2 cursor for ? */ /* declare c2 cursor for ? */
#line 66 "desc.pgc" #line 66 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare c2 cursor for ?",
ECPGdo(__LINE__, 0, 1, NULL, "declare c2 cursor for ?", ECPGt_char_variable,(ECPGprepared_statement("foo3")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("foo3")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L,
ECPGt_descriptor, "indesc", 0L, 0L, 0L, ECPGt_descriptor, "indesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 67 "desc.pgc" #line 67 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 67 "desc.pgc" #line 67 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch next from c2", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch next from c2", ECPGt_EOIT, ECPGt_int,&(val1output),(long)1,(long)1,sizeof(int),
ECPGt_int, &(val1output), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char),
ECPGt_char, (val2output), (long) sizeof("AAA"), (long) 1, (sizeof("AAA")) *sizeof(char), ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGt_EORT);
ECPGt_int, &(val2i), (long) 1, (long) 1, sizeof(int), ECPGt_EORT);
#line 69 "desc.pgc" #line 69 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 69 "desc.pgc" #line 69 "desc.pgc"
printf("val1=%d val2=%s\n", val1output, val2i ? "null" : val2output); printf("val1=%d val2=%s\n", val1output, val2i ? "null" : val2output);
{ { ECPGdo(__LINE__, 0, 1, NULL, "close c2", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "close c2", ECPGt_EOIT, ECPGt_EORT);
#line 72 "desc.pgc" #line 72 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 72 "desc.pgc" #line 72 "desc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from test1 where a = 3 ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from test1 where a = 3 ", ECPGt_EOIT, ECPGt_int,&(val1output),(long)1,(long)1,sizeof(int),
ECPGt_int, &(val1output), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char),
ECPGt_char, (val2output), (long) sizeof("AAA"), (long) 1, (sizeof("AAA")) *sizeof(char), ECPGt_int,&(val2i),(long)1,(long)1,sizeof(int), ECPGt_EORT);
ECPGt_int, &(val2i), (long) 1, (long) 1, sizeof(int), ECPGt_EORT);
#line 74 "desc.pgc" #line 74 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 74 "desc.pgc" #line 74 "desc.pgc"
printf("val1=%d val2=%c%c%c%c warn=%c truncate=%d\n", val1output, val2output[0], val2output[1], val2output[2], val2output[3], sqlca.sqlwarn[0], val2i); printf("val1=%d val2=%c%c%c%c warn=%c truncate=%d\n", val1output, val2output[0], val2output[1], val2output[2], val2output[3], sqlca.sqlwarn[0], val2i);
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test1 ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table test1 ", ECPGt_EOIT, ECPGt_EORT);
#line 77 "desc.pgc" #line 77 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 77 "desc.pgc" #line 77 "desc.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 78 "desc.pgc" #line 78 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 78 "desc.pgc" #line 78 "desc.pgc"
ECPGdeallocate_desc(__LINE__, "indesc"); ECPGdeallocate_desc(__LINE__, "indesc");
#line 80 "desc.pgc" #line 80 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();
sqlprint();
#line 80 "desc.pgc" #line 80 "desc.pgc"
ECPGdeallocate_desc(__LINE__, "outdesc"); ECPGdeallocate_desc(__LINE__, "outdesc");
#line 81 "desc.pgc" #line 81 "desc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();
sqlprint();
#line 81 "desc.pgc" #line 81 "desc.pgc"
......
...@@ -74,6 +74,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -74,6 +74,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 2 "dynalloc.pgc" #line 2 "dynalloc.pgc"
...@@ -90,8 +91,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -90,8 +91,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#line 4 "dynalloc.pgc" #line 4 "dynalloc.pgc"
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -114,53 +114,52 @@ main(void) ...@@ -114,53 +114,52 @@ main(void)
#line 9 "dynalloc.pgc" #line 9 "dynalloc.pgc"
int *d1 = 0; int * d1 = 0 ;
#line 10 "dynalloc.pgc" #line 10 "dynalloc.pgc"
double *d2 = 0; double * d2 = 0 ;
#line 11 "dynalloc.pgc" #line 11 "dynalloc.pgc"
char **d3 = 0; char ** d3 = 0 ;
#line 12 "dynalloc.pgc" #line 12 "dynalloc.pgc"
char **d4 = 0; char ** d4 = 0 ;
#line 13 "dynalloc.pgc" #line 13 "dynalloc.pgc"
char **d5 = 0; char ** d5 = 0 ;
#line 14 "dynalloc.pgc" #line 14 "dynalloc.pgc"
char **d6 = 0; char ** d6 = 0 ;
#line 15 "dynalloc.pgc" #line 15 "dynalloc.pgc"
char **d7 = 0; char ** d7 = 0 ;
#line 17 "dynalloc.pgc" #line 17 "dynalloc.pgc"
char **d9 = 0; char ** d9 = 0 ;
#line 18 "dynalloc.pgc" #line 18 "dynalloc.pgc"
int *i1 = 0; int * i1 = 0 ;
#line 19 "dynalloc.pgc" #line 19 "dynalloc.pgc"
int *i2 = 0; int * i2 = 0 ;
#line 20 "dynalloc.pgc" #line 20 "dynalloc.pgc"
int *i3 = 0; int * i3 = 0 ;
#line 21 "dynalloc.pgc" #line 21 "dynalloc.pgc"
int *i4 = 0; int * i4 = 0 ;
#line 22 "dynalloc.pgc" #line 22 "dynalloc.pgc"
int *i5 = 0; int * i5 = 0 ;
#line 23 "dynalloc.pgc" #line 23 "dynalloc.pgc"
int *i6 = 0; int * i6 = 0 ;
#line 24 "dynalloc.pgc" #line 24 "dynalloc.pgc"
int *i7 = 0; int * i7 = 0 ;
#line 26 "dynalloc.pgc" #line 26 "dynalloc.pgc"
int *i9 = 0; int * i9 = 0 ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 27 "dynalloc.pgc" #line 27 "dynalloc.pgc"
...@@ -171,213 +170,154 @@ main(void) ...@@ -171,213 +170,154 @@ main(void)
/* exec sql whenever sqlerror do sqlprint ( ) ; */ /* exec sql whenever sqlerror do sqlprint ( ) ; */
#line 32 "dynalloc.pgc" #line 32 "dynalloc.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 33 "dynalloc.pgc" #line 33 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 33 "dynalloc.pgc" #line 33 "dynalloc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to mdy", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to mdy", ECPGt_EOIT, ECPGt_EORT);
#line 35 "dynalloc.pgc" #line 35 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 35 "dynalloc.pgc" #line 35 "dynalloc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a serial , b numeric ( 12 , 3 ) , c varchar , d varchar ( 3 ) , e char ( 4 ) , f timestamptz , g boolean , h box , i inet ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a serial , b numeric ( 12 , 3 ) , c varchar , d varchar ( 3 ) , e char ( 4 ) , f timestamptz , g boolean , h box , i inet ) ", ECPGt_EOIT, ECPGt_EORT);
#line 37 "dynalloc.pgc" #line 37 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 37 "dynalloc.pgc" #line 37 "dynalloc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( b , c , d , e , f , g , h , i ) values ( 23.456 , 'varchar' , 'v' , 'c' , '2003-03-03 12:33:07 PDT' , true , '(1,2,3,4)' , '2001:4f8:3:ba:2e0:81ff:fe22:d1f1/128' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( b , c , d , e , f , g , h , i ) values( 23.456 , 'varchar' , 'v' , 'c' , '2003-03-03 12:33:07 PDT' , true , '(1,2,3,4)' , '2001:4f8:3:ba:2e0:81ff:fe22:d1f1/128' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 38 "dynalloc.pgc" #line 38 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 38 "dynalloc.pgc" #line 38 "dynalloc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( b , c , d , e , f , g , h , i ) values ( 2.446456 , null , 'v' , 'c' , '2003-03-03 12:33:07 PDT' , false , null , null ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( b , c , d , e , f , g , h , i ) values( 2.446456 , null , 'v' , 'c' , '2003-03-03 12:33:07 PDT' , false , null , null ) ", ECPGt_EOIT, ECPGt_EORT);
#line 39 "dynalloc.pgc" #line 39 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 39 "dynalloc.pgc" #line 39 "dynalloc.pgc"
ECPGallocate_desc(__LINE__, "mydesc"); ECPGallocate_desc(__LINE__, "mydesc");
#line 41 "dynalloc.pgc" #line 41 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );
sqlprint();
#line 41 "dynalloc.pgc" #line 41 "dynalloc.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select a , b , c , d , e , f , g , h , i from test order by a", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select a , b , c , d , e , f , g , h , i from test order by a", ECPGt_EOIT,
ECPGt_descriptor, "mydesc", 0L, 0L, 0L, ECPGt_descriptor, "mydesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 42 "dynalloc.pgc" #line 42 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 42 "dynalloc.pgc" #line 42 "dynalloc.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 1,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 1, ECPGd_indicator, ECPGt_int,&(i1),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i1), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_int,&(d1),(long)1,(long)0,sizeof(int), ECPGd_EODT);
ECPGt_int, &(d1), (long) 1, (long) 0, sizeof(int), ECPGd_EODT);
#line 43 "dynalloc.pgc" #line 43 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 43 "dynalloc.pgc" #line 43 "dynalloc.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 2,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 2, ECPGd_indicator, ECPGt_int,&(i2),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i2), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_double,&(d2),(long)1,(long)0,sizeof(double), ECPGd_EODT);
ECPGt_double, &(d2), (long) 1, (long) 0, sizeof(double), ECPGd_EODT);
#line 44 "dynalloc.pgc" #line 44 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 44 "dynalloc.pgc" #line 44 "dynalloc.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 3,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 3, ECPGd_indicator, ECPGt_int,&(i3),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i3), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_char,&(d3),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT);
ECPGt_char, &(d3), (long) 0, (long) 0, (1) * sizeof(char), ECPGd_EODT);
#line 45 "dynalloc.pgc" #line 45 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 45 "dynalloc.pgc" #line 45 "dynalloc.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 4,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 4, ECPGd_indicator, ECPGt_int,&(i4),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i4), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_char,&(d4),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT);
ECPGt_char, &(d4), (long) 0, (long) 0, (1) * sizeof(char), ECPGd_EODT);
#line 46 "dynalloc.pgc" #line 46 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 46 "dynalloc.pgc" #line 46 "dynalloc.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 5,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 5, ECPGd_indicator, ECPGt_int,&(i5),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i5), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_char,&(d5),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT);
ECPGt_char, &(d5), (long) 0, (long) 0, (1) * sizeof(char), ECPGd_EODT);
#line 47 "dynalloc.pgc" #line 47 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 47 "dynalloc.pgc" #line 47 "dynalloc.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 6,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 6, ECPGd_indicator, ECPGt_int,&(i6),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i6), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_char,&(d6),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT);
ECPGt_char, &(d6), (long) 0, (long) 0, (1) * sizeof(char), ECPGd_EODT);
#line 48 "dynalloc.pgc" #line 48 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 48 "dynalloc.pgc" #line 48 "dynalloc.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 7,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 7, ECPGd_indicator, ECPGt_int,&(i7),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i7), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_char,&(d7),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT);
ECPGt_char, &(d7), (long) 0, (long) 0, (1) * sizeof(char), ECPGd_EODT);
#line 49 "dynalloc.pgc" #line 49 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 49 "dynalloc.pgc" #line 49 "dynalloc.pgc"
/* skip box for now */ /* skip box for now */
/* exec sql get descriptor mydesc value 8 :d8=DATA, :i8=INDICATOR; */ /* exec sql get descriptor mydesc value 8 :d8=DATA, :i8=INDICATOR; */
{ { ECPGget_desc(__LINE__, "mydesc", 9,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 9, ECPGd_indicator, ECPGt_int,&(i9),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(i9), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_char,&(d9),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT);
ECPGt_char, &(d9), (long) 0, (long) 0, (1) * sizeof(char), ECPGd_EODT);
#line 52 "dynalloc.pgc" #line 52 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 52 "dynalloc.pgc" #line 52 "dynalloc.pgc"
printf("Result:\n"); printf("Result:\n");
for (i = 0; i < sqlca.sqlerrd[2]; ++i) for (i=0;i<sqlca.sqlerrd[2];++i)
{ {
if (i1[i]) if (i1[i]) printf("NULL, ");
printf("NULL, "); else printf("%d, ",d1[i]);
else
printf("%d, ", d1[i]); if (i2[i]) printf("NULL, ");
else printf("%f, ",d2[i]);
if (i2[i])
printf("NULL, "); if (i3[i]) printf("NULL, ");
else else printf("'%s', ",d3[i]);
printf("%f, ", d2[i]);
if (i4[i]) printf("NULL, ");
if (i3[i]) else printf("'%s', ",d4[i]);
printf("NULL, ");
else if (i5[i]) printf("NULL, ");
printf("'%s', ", d3[i]); else printf("'%s', ",d5[i]);
if (i4[i]) if (i6[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",d6[i]);
else
printf("'%s', ", d4[i]); if (i7[i]) printf("NULL, ");
else printf("'%s', ",d7[i]);
if (i5[i])
printf("NULL, "); if (i9[i]) printf("NULL, ");
else else printf("'%s', ",d9[i]);
printf("'%s', ", d5[i]);
if (i6[i])
printf("NULL, ");
else
printf("'%s', ", d6[i]);
if (i7[i])
printf("NULL, ");
else
printf("'%s', ", d7[i]);
if (i9[i])
printf("NULL, ");
else
printf("'%s', ", d9[i]);
printf("\n"); printf("\n");
} }
...@@ -387,17 +327,13 @@ main(void) ...@@ -387,17 +327,13 @@ main(void)
ECPGdeallocate_desc(__LINE__, "mydesc"); ECPGdeallocate_desc(__LINE__, "mydesc");
#line 86 "dynalloc.pgc" #line 86 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );
sqlprint();
#line 86 "dynalloc.pgc" #line 86 "dynalloc.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 87 "dynalloc.pgc" #line 87 "dynalloc.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 87 "dynalloc.pgc" #line 87 "dynalloc.pgc"
return 0; return 0;
......
...@@ -74,6 +74,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -74,6 +74,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 2 "dynalloc2.pgc" #line 2 "dynalloc2.pgc"
...@@ -90,8 +91,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -90,8 +91,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#line 4 "dynalloc2.pgc" #line 4 "dynalloc2.pgc"
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -101,20 +101,19 @@ main(void) ...@@ -101,20 +101,19 @@ main(void)
#line 9 "dynalloc2.pgc" #line 9 "dynalloc2.pgc"
int *ip1 = 0; int * ip1 = 0 ;
#line 10 "dynalloc2.pgc" #line 10 "dynalloc2.pgc"
char **cp2 = 0; char ** cp2 = 0 ;
#line 11 "dynalloc2.pgc" #line 11 "dynalloc2.pgc"
int *ipointer1 = 0; int * ipointer1 = 0 ;
#line 12 "dynalloc2.pgc" #line 12 "dynalloc2.pgc"
int *ipointer2 = 0; int * ipointer2 = 0 ;
#line 13 "dynalloc2.pgc" #line 13 "dynalloc2.pgc"
int colnum; int colnum ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 14 "dynalloc2.pgc" #line 14 "dynalloc2.pgc"
...@@ -125,155 +124,111 @@ main(void) ...@@ -125,155 +124,111 @@ main(void)
/* exec sql whenever sqlerror do sqlprint ( ) ; */ /* exec sql whenever sqlerror do sqlprint ( ) ; */
#line 19 "dynalloc2.pgc" #line 19 "dynalloc2.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 20 "dynalloc2.pgc" #line 20 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 20 "dynalloc2.pgc" #line 20 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to postgres", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to postgres", ECPGt_EOIT, ECPGt_EORT);
#line 22 "dynalloc2.pgc" #line 22 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 22 "dynalloc2.pgc" #line 22 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a int , b text ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a int , b text ) ", ECPGt_EOIT, ECPGt_EORT);
#line 24 "dynalloc2.pgc" #line 24 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 24 "dynalloc2.pgc" #line 24 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 1 , 'one' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( 1 , 'one' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 25 "dynalloc2.pgc" #line 25 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 25 "dynalloc2.pgc" #line 25 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 2 , 'two' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( 2 , 'two' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 26 "dynalloc2.pgc" #line 26 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 26 "dynalloc2.pgc" #line 26 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( null , 'three' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( null , 'three' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 27 "dynalloc2.pgc" #line 27 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 27 "dynalloc2.pgc" #line 27 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 4 , 'four' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( 4 , 'four' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 28 "dynalloc2.pgc" #line 28 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 28 "dynalloc2.pgc" #line 28 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( 5 , null ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( 5 , null ) ", ECPGt_EOIT, ECPGt_EORT);
#line 29 "dynalloc2.pgc" #line 29 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 29 "dynalloc2.pgc" #line 29 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test values ( null , null ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test values( null , null ) ", ECPGt_EOIT, ECPGt_EORT);
#line 30 "dynalloc2.pgc" #line 30 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 30 "dynalloc2.pgc" #line 30 "dynalloc2.pgc"
ECPGallocate_desc(__LINE__, "mydesc"); ECPGallocate_desc(__LINE__, "mydesc");
#line 32 "dynalloc2.pgc" #line 32 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );
sqlprint();
#line 32 "dynalloc2.pgc" #line 32 "dynalloc2.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from test ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select * from test ", ECPGt_EOIT,
ECPGt_descriptor, "mydesc", 0L, 0L, 0L, ECPGt_descriptor, "mydesc", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 33 "dynalloc2.pgc" #line 33 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 33 "dynalloc2.pgc" #line 33 "dynalloc2.pgc"
{ { ECPGget_desc_header(__LINE__, "mydesc", &(colnum));
ECPGget_desc_header(__LINE__, "mydesc", &(colnum));
#line 34 "dynalloc2.pgc" #line 34 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 34 "dynalloc2.pgc" #line 34 "dynalloc2.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 1,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 1, ECPGd_indicator, ECPGt_int,&(ipointer1),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(ipointer1), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_int,&(ip1),(long)1,(long)0,sizeof(int), ECPGd_EODT);
ECPGt_int, &(ip1), (long) 1, (long) 0, sizeof(int), ECPGd_EODT);
#line 35 "dynalloc2.pgc" #line 35 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 35 "dynalloc2.pgc" #line 35 "dynalloc2.pgc"
{ { ECPGget_desc(__LINE__, "mydesc", 2,ECPGd_indicator,
ECPGget_desc(__LINE__, "mydesc", 2, ECPGd_indicator, ECPGt_int,&(ipointer2),(long)1,(long)0,sizeof(int), ECPGd_data,
ECPGt_int, &(ipointer2), (long) 1, (long) 0, sizeof(int), ECPGd_data, ECPGt_char,&(cp2),(long)0,(long)0,(1)*sizeof(char), ECPGd_EODT);
ECPGt_char, &(cp2), (long) 0, (long) 0, (1) * sizeof(char), ECPGd_EODT);
#line 36 "dynalloc2.pgc" #line 36 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 36 "dynalloc2.pgc" #line 36 "dynalloc2.pgc"
printf("Result (%d columns):\n", colnum); printf("Result (%d columns):\n", colnum);
for (i = 0; i < sqlca.sqlerrd[2]; ++i) for (i=0;i < sqlca.sqlerrd[2];++i)
{ {
if (ipointer1[i]) if (ipointer1[i]) printf("NULL, ");
printf("NULL, "); else printf("%d, ",ip1[i]);
else
printf("%d, ", ip1[i]); if (ipointer2[i]) printf("NULL, ");
else printf("'%s', ",cp2[i]);
if (ipointer2[i])
printf("NULL, ");
else
printf("'%s', ", cp2[i]);
printf("\n"); printf("\n");
} }
ECPGfree_auto_mem(); ECPGfree_auto_mem();
...@@ -282,26 +237,19 @@ main(void) ...@@ -282,26 +237,19 @@ main(void)
ECPGdeallocate_desc(__LINE__, "mydesc"); ECPGdeallocate_desc(__LINE__, "mydesc");
#line 51 "dynalloc2.pgc" #line 51 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );
sqlprint();
#line 51 "dynalloc2.pgc" #line 51 "dynalloc2.pgc"
{ { ECPGtrans(__LINE__, NULL, "rollback");
ECPGtrans(__LINE__, NULL, "rollback");
#line 52 "dynalloc2.pgc" #line 52 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 52 "dynalloc2.pgc" #line 52 "dynalloc2.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 53 "dynalloc2.pgc" #line 53 "dynalloc2.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint ( );}
sqlprint();
}
#line 53 "dynalloc2.pgc" #line 53 "dynalloc2.pgc"
return 0; return 0;
......
...@@ -56,6 +56,7 @@ enum ...@@ -56,6 +56,7 @@ enum
SQL3_DDT_ILLEGAL /* not a datetime data type (not part of SQL3_DDT_ILLEGAL /* not a datetime data type (not part of
* standard) */ * standard) */
}; };
#endif /* !_ECPG_SQL3TYPES_H */ #endif /* !_ECPG_SQL3TYPES_H */
#line 7 "dyntest.pgc" #line 7 "dyntest.pgc"
...@@ -126,6 +127,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -126,6 +127,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 8 "dyntest.pgc" #line 8 "dyntest.pgc"
...@@ -142,14 +144,14 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -142,14 +144,14 @@ struct sqlca_t *ECPGget_sqlca(void);
static void static void
error(void) error (void)
{ {
printf("\n#%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); printf ("\n#%ld:%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
exit(1); exit (1);
} }
int int
main(int argc, char **argv) main (int argc, char **argv)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
...@@ -164,41 +166,34 @@ main(int argc, char **argv) ...@@ -164,41 +166,34 @@ main(int argc, char **argv)
#line 22 "dyntest.pgc" #line 22 "dyntest.pgc"
int COUNT; int COUNT ;
#line 23 "dyntest.pgc" #line 23 "dyntest.pgc"
int INTVAR; int INTVAR ;
#line 24 "dyntest.pgc" #line 24 "dyntest.pgc"
int INDEX; int INDEX ;
#line 25 "dyntest.pgc" #line 25 "dyntest.pgc"
int INDICATOR; int INDICATOR ;
#line 26 "dyntest.pgc" #line 26 "dyntest.pgc"
int TYPE, int TYPE , LENGTH , OCTET_LENGTH , PRECISION , SCALE , RETURNED_OCTET_LENGTH ;
LENGTH,
OCTET_LENGTH,
PRECISION,
SCALE,
RETURNED_OCTET_LENGTH;
#line 27 "dyntest.pgc" #line 27 "dyntest.pgc"
int DATETIME_INTERVAL_CODE; int DATETIME_INTERVAL_CODE ;
#line 28 "dyntest.pgc" #line 28 "dyntest.pgc"
char NAME[120], char NAME [ 120 ] , BOOLVAR ;
BOOLVAR;
#line 29 "dyntest.pgc" #line 29 "dyntest.pgc"
char STRINGVAR[1024]; char STRINGVAR [ 1024 ] ;
#line 30 "dyntest.pgc" #line 30 "dyntest.pgc"
double DOUBLEVAR; double DOUBLEVAR ;
#line 31 "dyntest.pgc" #line 31 "dyntest.pgc"
char *QUERY; char * QUERY ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 32 "dyntest.pgc" #line 32 "dyntest.pgc"
...@@ -208,7 +203,7 @@ main(int argc, char **argv) ...@@ -208,7 +203,7 @@ main(int argc, char **argv)
#line 35 "dyntest.pgc" #line 35 "dyntest.pgc"
ECPGdebug(1, stderr); ECPGdebug (1, stderr);
QUERY = "select * from dyntest"; QUERY = "select * from dyntest";
...@@ -219,332 +214,276 @@ main(int argc, char **argv) ...@@ -219,332 +214,276 @@ main(int argc, char **argv)
ECPGallocate_desc(__LINE__, "MYDESC"); ECPGallocate_desc(__LINE__, "MYDESC");
#line 45 "dyntest.pgc" #line 45 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );
error();
#line 45 "dyntest.pgc" #line 45 "dyntest.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
#line 47 "dyntest.pgc" #line 47 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 47 "dyntest.pgc" #line 47 "dyntest.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to german", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to german", ECPGt_EOIT, ECPGt_EORT);
#line 49 "dyntest.pgc" #line 49 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 49 "dyntest.pgc" #line 49 "dyntest.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table dyntest ( name char ( 14 ) , d float8 , i int , bignumber int8 , b boolean , comment text , day date ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table dyntest ( name char ( 14 ) , d float8 , i int , bignumber int8 , b boolean , comment text , day date ) ", ECPGt_EOIT, ECPGt_EORT);
#line 53 "dyntest.pgc" #line 53 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 53 "dyntest.pgc" #line 53 "dyntest.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into dyntest values ( 'first entry' , 14.7 , 14 , 123045607890 , true , 'The world''s most advanced open source database.' , '1987-07-14' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into dyntest values( 'first entry' , 14.7 , 14 , 123045607890 , true , 'The world''s most advanced open source database.' , '1987-07-14' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 54 "dyntest.pgc" #line 54 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 54 "dyntest.pgc" #line 54 "dyntest.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into dyntest values ( 'second entry' , 1407.87 , 1407 , 987065403210 , false , 'The elephant never forgets.' , '1999-11-5' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into dyntest values( 'second entry' , 1407.87 , 1407 , 987065403210 , false , 'The elephant never forgets.' , '1999-11-5' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 55 "dyntest.pgc" #line 55 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 55 "dyntest.pgc" #line 55 "dyntest.pgc"
{ { ECPGprepare(__LINE__, "MYQUERY" , QUERY);
ECPGprepare(__LINE__, "MYQUERY", QUERY);
#line 57 "dyntest.pgc" #line 57 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 57 "dyntest.pgc" #line 57 "dyntest.pgc"
/* declare MYCURS cursor for ? */ /* declare MYCURS cursor for ? */
#line 58 "dyntest.pgc" #line 58 "dyntest.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare MYCURS cursor for ?",
ECPGdo(__LINE__, 0, 1, NULL, "declare MYCURS cursor for ?", ECPGt_char_variable,(ECPGprepared_statement("MYQUERY")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("MYQUERY")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 60 "dyntest.pgc" #line 60 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 60 "dyntest.pgc" #line 60 "dyntest.pgc"
while (1) while (1)
{ {
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch in MYCURS", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch in MYCURS", ECPGt_EOIT,
ECPGt_descriptor, "MYDESC", 0L, 0L, 0L, ECPGt_descriptor, "MYDESC", 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 64 "dyntest.pgc" #line 64 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 64 "dyntest.pgc" #line 64 "dyntest.pgc"
if (sqlca.sqlcode) if (sqlca.sqlcode)
break; break;
{ { ECPGget_desc_header(__LINE__, "MYDESC", &(COUNT));
ECPGget_desc_header(__LINE__, "MYDESC", &(COUNT));
#line 69 "dyntest.pgc" #line 69 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 69 "dyntest.pgc" #line 69 "dyntest.pgc"
if (!done) if (!done)
{ {
printf("Found %d columns\n", COUNT); printf ("Found %d columns\n", COUNT);
done = 1; done = 1;
} }
for (INDEX = 1; INDEX <= COUNT; ++INDEX) for (INDEX = 1; INDEX <= COUNT; ++INDEX)
{ {
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_indicator,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_indicator, ECPGt_int,&(INDICATOR),(long)1,(long)1,sizeof(int), ECPGd_name,
ECPGt_int, &(INDICATOR), (long) 1, (long) 1, sizeof(int), ECPGd_name, ECPGt_char,(NAME),(long)120,(long)1,(120)*sizeof(char), ECPGd_scale,
ECPGt_char, (NAME), (long) 120, (long) 1, (120) * sizeof(char), ECPGd_scale, ECPGt_int,&(SCALE),(long)1,(long)1,sizeof(int), ECPGd_precision,
ECPGt_int, &(SCALE), (long) 1, (long) 1, sizeof(int), ECPGd_precision, ECPGt_int,&(PRECISION),(long)1,(long)1,sizeof(int), ECPGd_ret_octet,
ECPGt_int, &(PRECISION), (long) 1, (long) 1, sizeof(int), ECPGd_ret_octet, ECPGt_int,&(RETURNED_OCTET_LENGTH),(long)1,(long)1,sizeof(int), ECPGd_octet,
ECPGt_int, &(RETURNED_OCTET_LENGTH), (long) 1, (long) 1, sizeof(int), ECPGd_octet, ECPGt_int,&(OCTET_LENGTH),(long)1,(long)1,sizeof(int), ECPGd_length,
ECPGt_int, &(OCTET_LENGTH), (long) 1, (long) 1, sizeof(int), ECPGd_length, ECPGt_int,&(LENGTH),(long)1,(long)1,sizeof(int), ECPGd_type,
ECPGt_int, &(LENGTH), (long) 1, (long) 1, sizeof(int), ECPGd_type, ECPGt_int,&(TYPE),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(TYPE), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 86 "dyntest.pgc" #line 86 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 86 "dyntest.pgc" #line 86 "dyntest.pgc"
printf("%2d\t%s (type: %d length: %d precision: %d scale: %d = ", INDEX, NAME, TYPE, LENGTH, PRECISION, SCALE); printf ("%2d\t%s (type: %d length: %d precision: %d scale: %d = " , INDEX, NAME, TYPE, LENGTH, PRECISION, SCALE);
switch (TYPE) switch (TYPE)
{ {
case SQL3_BOOLEAN: case SQL3_BOOLEAN:
printf("bool"); printf ("bool");
break; break;
case SQL3_NUMERIC: case SQL3_NUMERIC:
printf("numeric(%d,%d)", PRECISION, SCALE); printf ("numeric(%d,%d)", PRECISION, SCALE);
break; break;
case SQL3_DECIMAL: case SQL3_DECIMAL:
printf("decimal(%d,%d)", PRECISION, SCALE); printf ("decimal(%d,%d)", PRECISION, SCALE);
break; break;
case SQL3_INTEGER: case SQL3_INTEGER:
printf("integer"); printf ("integer");
break; break;
case SQL3_SMALLINT: case SQL3_SMALLINT:
printf("smallint"); printf ("smallint");
break; break;
case SQL3_FLOAT: case SQL3_FLOAT:
printf("float(%d,%d)", PRECISION, SCALE); printf ("float(%d,%d)", PRECISION, SCALE);
break; break;
case SQL3_REAL: case SQL3_REAL:
printf("real"); printf ("real");
break; break;
case SQL3_DOUBLE_PRECISION: case SQL3_DOUBLE_PRECISION:
printf("double precision"); printf ("double precision");
break; break;
case SQL3_DATE_TIME_TIMESTAMP: case SQL3_DATE_TIME_TIMESTAMP:
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_di_code,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_di_code, ECPGt_int,&(DATETIME_INTERVAL_CODE),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(DATETIME_INTERVAL_CODE), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 116 "dyntest.pgc" #line 116 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 116 "dyntest.pgc" #line 116 "dyntest.pgc"
switch (DATETIME_INTERVAL_CODE) switch (DATETIME_INTERVAL_CODE)
{ {
case SQL3_DDT_DATE: case SQL3_DDT_DATE:
printf("date"); printf ("date");
break; break;
case SQL3_DDT_TIME: case SQL3_DDT_TIME:
printf("time"); printf ("time");
break; break;
case SQL3_DDT_TIMESTAMP: case SQL3_DDT_TIMESTAMP:
printf("timestamp"); printf ("timestamp");
break; break;
case SQL3_DDT_TIME_WITH_TIME_ZONE: case SQL3_DDT_TIME_WITH_TIME_ZONE:
printf("time with time zone"); printf ("time with time zone");
break; break;
case SQL3_DDT_TIMESTAMP_WITH_TIME_ZONE: case SQL3_DDT_TIMESTAMP_WITH_TIME_ZONE:
printf("timestamp with time zone"); printf ("timestamp with time zone");
break; break;
} }
break; break;
case SQL3_INTERVAL: case SQL3_INTERVAL:
printf("interval"); printf ("interval");
break; break;
case SQL3_CHARACTER: case SQL3_CHARACTER:
if (LENGTH > 0) if (LENGTH > 0)
printf("char(%d)", LENGTH); printf ("char(%d)", LENGTH);
else else
printf("text"); printf ("text");
break; break;
case SQL3_CHARACTER_VARYING: case SQL3_CHARACTER_VARYING:
if (LENGTH > 0) if (LENGTH > 0)
printf("varchar(%d)", LENGTH); printf ("varchar(%d)", LENGTH);
else else
printf("varchar()"); printf ("varchar()");
break; break;
default: default:
if (TYPE < 0) if (TYPE < 0)
printf("<OID %d>", -TYPE); printf ("<OID %d>", -TYPE);
else else
printf("<SQL3 %d>", TYPE); printf ("<SQL3 %d>", TYPE);
break; break;
} }
printf(")\n\toctet_length: %d returned_octet_length: %d)\n\t= ", printf (")\n\toctet_length: %d returned_octet_length: %d)\n\t= ",
OCTET_LENGTH, RETURNED_OCTET_LENGTH); OCTET_LENGTH, RETURNED_OCTET_LENGTH);
if (INDICATOR == -1) if (INDICATOR == -1)
printf("NULL\n"); printf ("NULL\n");
else else
switch (TYPE) switch (TYPE)
{ {
case SQL3_BOOLEAN: case SQL3_BOOLEAN:
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_data, ECPGt_bool,&(BOOLVAR),(long)1,(long)1,sizeof(bool), ECPGd_EODT);
ECPGt_bool, &(BOOLVAR), (long) 1, (long) 1, sizeof(bool), ECPGd_EODT);
#line 166 "dyntest.pgc" #line 166 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 166 "dyntest.pgc" #line 166 "dyntest.pgc"
printf("%s\n", BOOLVAR ? "true" : "false"); printf ("%s\n", BOOLVAR ? "true" : "false");
break; break;
case SQL3_INTEGER: case SQL3_INTEGER:
case SQL3_SMALLINT: case SQL3_SMALLINT:
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_data, ECPGt_int,&(INTVAR),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(INTVAR), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 171 "dyntest.pgc" #line 171 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 171 "dyntest.pgc" #line 171 "dyntest.pgc"
printf("%d\n", INTVAR); printf ("%d\n", INTVAR);
break; break;
case SQL3_DOUBLE_PRECISION: case SQL3_DOUBLE_PRECISION:
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_data, ECPGt_double,&(DOUBLEVAR),(long)1,(long)1,sizeof(double), ECPGd_EODT);
ECPGt_double, &(DOUBLEVAR), (long) 1, (long) 1, sizeof(double), ECPGd_EODT);
#line 175 "dyntest.pgc" #line 175 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 175 "dyntest.pgc" #line 175 "dyntest.pgc"
printf("%.*f\n", PRECISION, DOUBLEVAR); printf ("%.*f\n", PRECISION, DOUBLEVAR);
break; break;
case SQL3_DATE_TIME_TIMESTAMP: case SQL3_DATE_TIME_TIMESTAMP:
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_data, ECPGt_char,(STRINGVAR),(long)1024,(long)1,(1024)*sizeof(char), ECPGd_di_code,
ECPGt_char, (STRINGVAR), (long) 1024, (long) 1, (1024) * sizeof(char), ECPGd_di_code, ECPGt_int,&(DATETIME_INTERVAL_CODE),(long)1,(long)1,sizeof(int), ECPGd_EODT);
ECPGt_int, &(DATETIME_INTERVAL_CODE), (long) 1, (long) 1, sizeof(int), ECPGd_EODT);
#line 181 "dyntest.pgc" #line 181 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 181 "dyntest.pgc" #line 181 "dyntest.pgc"
printf("%d \"%s\"\n", DATETIME_INTERVAL_CODE, STRINGVAR); printf ("%d \"%s\"\n", DATETIME_INTERVAL_CODE, STRINGVAR);
break; break;
case SQL3_CHARACTER: case SQL3_CHARACTER:
case SQL3_CHARACTER_VARYING: case SQL3_CHARACTER_VARYING:
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_data, ECPGt_char,(STRINGVAR),(long)1024,(long)1,(1024)*sizeof(char), ECPGd_EODT);
ECPGt_char, (STRINGVAR), (long) 1024, (long) 1, (1024) * sizeof(char), ECPGd_EODT);
#line 186 "dyntest.pgc" #line 186 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 186 "dyntest.pgc" #line 186 "dyntest.pgc"
printf("\"%s\"\n", STRINGVAR); printf ("\"%s\"\n", STRINGVAR);
break; break;
default: default:
{ { ECPGget_desc(__LINE__, "MYDESC", INDEX,ECPGd_data,
ECPGget_desc(__LINE__, "MYDESC", INDEX, ECPGd_data, ECPGt_char,(STRINGVAR),(long)1024,(long)1,(1024)*sizeof(char), ECPGd_EODT);
ECPGt_char, (STRINGVAR), (long) 1024, (long) 1, (1024) * sizeof(char), ECPGd_EODT);
#line 190 "dyntest.pgc" #line 190 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 190 "dyntest.pgc" #line 190 "dyntest.pgc"
printf("<\"%s\">\n", STRINGVAR); printf ("<\"%s\">\n", STRINGVAR);
break; break;
} }
} }
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "close MYCURS", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "close MYCURS", ECPGt_EOIT, ECPGt_EORT);
#line 197 "dyntest.pgc" #line 197 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );}
error();
}
#line 197 "dyntest.pgc" #line 197 "dyntest.pgc"
ECPGdeallocate_desc(__LINE__, "MYDESC"); ECPGdeallocate_desc(__LINE__, "MYDESC");
#line 199 "dyntest.pgc" #line 199 "dyntest.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) error ( );
error();
#line 199 "dyntest.pgc" #line 199 "dyntest.pgc"
return 0; return 0;
} }
...@@ -38,188 +38,148 @@ main(void) ...@@ -38,188 +38,148 @@ main(void)
#line 14 "execute.pgc" #line 14 "execute.pgc"
int amount[8]; int amount [ 8 ] ;
#line 15 "execute.pgc" #line 15 "execute.pgc"
int increment = 100; int increment = 100 ;
#line 16 "execute.pgc" #line 16 "execute.pgc"
char name[8][8]; char name [ 8 ] [ 8 ] ;
#line 17 "execute.pgc" #line 17 "execute.pgc"
char letter[8][1]; char letter [ 8 ] [ 1 ] ;
#line 18 "execute.pgc" #line 18 "execute.pgc"
char command[128]; char command [ 128 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 19 "execute.pgc" #line 19 "execute.pgc"
int i, int i,j;
j;
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , "main", 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, "main", 0);
#line 24 "execute.pgc" #line 24 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 24 "execute.pgc" #line 24 "execute.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( name char ( 8 ) , amount int , letter char ( 1 ) ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( name char ( 8 ) , amount int , letter char ( 1 ) ) ", ECPGt_EOIT, ECPGt_EORT);
#line 25 "execute.pgc" #line 25 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 25 "execute.pgc" #line 25 "execute.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 26 "execute.pgc" #line 26 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 26 "execute.pgc" #line 26 "execute.pgc"
sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 1, 'f')"); sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 1, 'f')");
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(command),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (command), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 29 "execute.pgc" #line 29 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 29 "execute.pgc" #line 29 "execute.pgc"
sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 2, 't')"); sprintf(command, "insert into test (name, amount, letter) values ('db: ''r1''', 2, 't')");
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(command),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (command), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 32 "execute.pgc" #line 32 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "execute.pgc" #line 32 "execute.pgc"
sprintf(command, "insert into test (name, amount, letter) select name, amount+10, letter from test"); sprintf(command, "insert into test (name, amount, letter) select name, amount+10, letter from test");
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(command),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (command), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 35 "execute.pgc" #line 35 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 35 "execute.pgc" #line 35 "execute.pgc"
printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]); printf("Inserted %ld tuples via execute immediate\n", sqlca.sqlerrd[2]);
sprintf(command, "insert into test (name, amount, letter) select name, amount+?, letter from test"); sprintf(command, "insert into test (name, amount, letter) select name, amount+?, letter from test");
{ { ECPGprepare(__LINE__, "I" , command);
ECPGprepare(__LINE__, "I", command);
#line 40 "execute.pgc" #line 40 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 40 "execute.pgc" #line 40 "execute.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "?",
ECPGdo(__LINE__, 0, 1, NULL, "?", ECPGt_char_variable,(ECPGprepared_statement("I")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("I")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,&(increment),(long)1,(long)1,sizeof(int),
ECPGt_int, &(increment), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 41 "execute.pgc" #line 41 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 41 "execute.pgc" #line 41 "execute.pgc"
printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]); printf("Inserted %ld tuples via prepared execute\n", sqlca.sqlerrd[2]);
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 45 "execute.pgc" #line 45 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 45 "execute.pgc" #line 45 "execute.pgc"
sprintf(command, "select * from test"); sprintf (command, "select * from test");
{ { ECPGprepare(__LINE__, "F" , command);
ECPGprepare(__LINE__, "F", command);
#line 49 "execute.pgc" #line 49 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 49 "execute.pgc" #line 49 "execute.pgc"
/* declare CUR cursor for ? */ /* declare CUR cursor for ? */
#line 50 "execute.pgc" #line 50 "execute.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare CUR cursor for ?",
ECPGdo(__LINE__, 0, 1, NULL, "declare CUR cursor for ?", ECPGt_char_variable,(ECPGprepared_statement("F")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("F")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 52 "execute.pgc" #line 52 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 52 "execute.pgc" #line 52 "execute.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch 8 in CUR", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch 8 in CUR", ECPGt_EOIT, ECPGt_char,(name),(long)8,(long)8,(8)*sizeof(char),
ECPGt_char, (name), (long) 8, (long) 8, (8) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,(amount),(long)1,(long)8,sizeof(int),
ECPGt_int, (amount), (long) 1, (long) 8, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(letter),(long)1,(long)8,(1)*sizeof(char),
ECPGt_char, (letter), (long) 1, (long) 8, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 53 "execute.pgc" #line 53 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 53 "execute.pgc" #line 53 "execute.pgc"
for (i = 0, j = sqlca.sqlerrd[2]; i < j; i++) for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 58 "execute.pgc" #line 58 "execute.pgc"
char n[8], char n [ 8 ] , l = letter [ i ] [ 0 ] ;
l = letter[i][0];
#line 59 "execute.pgc" #line 59 "execute.pgc"
int a = amount[i]; int a = amount [ i ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 60 "execute.pgc" #line 60 "execute.pgc"
...@@ -228,73 +188,59 @@ main(void) ...@@ -228,73 +188,59 @@ main(void)
printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l); printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "close CUR", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "close CUR", ECPGt_EOIT, ECPGt_EORT);
#line 66 "execute.pgc" #line 66 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 66 "execute.pgc" #line 66 "execute.pgc"
sprintf(command, "select * from test where amount = ?"); sprintf (command, "select * from test where amount = ?");
{ { ECPGprepare(__LINE__, "F" , command);
ECPGprepare(__LINE__, "F", command);
#line 70 "execute.pgc" #line 70 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 70 "execute.pgc" #line 70 "execute.pgc"
/* declare CUR2 cursor for ? */ /* declare CUR2 cursor for ? */
#line 71 "execute.pgc" #line 71 "execute.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare CUR2 cursor for ?",
ECPGdo(__LINE__, 0, 1, NULL, "declare CUR2 cursor for ?", ECPGt_char_variable,(ECPGprepared_statement("F")),(long)1,(long)1,(1)*sizeof(char),
ECPGt_char_variable, (ECPGprepared_statement("F")), (long) 1, (long) 1, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_const,"1",(long)1,(long)1,strlen("1"),
ECPGt_const, "1", (long) 1, (long) 1, strlen("1"), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 73 "execute.pgc" #line 73 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 73 "execute.pgc" #line 73 "execute.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch in CUR2", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "fetch in CUR2", ECPGt_EOIT, ECPGt_char,(name),(long)8,(long)8,(8)*sizeof(char),
ECPGt_char, (name), (long) 8, (long) 8, (8) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,(amount),(long)1,(long)8,sizeof(int),
ECPGt_int, (amount), (long) 1, (long) 8, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(letter),(long)1,(long)8,(1)*sizeof(char),
ECPGt_char, (letter), (long) 1, (long) 8, (1) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 74 "execute.pgc" #line 74 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 74 "execute.pgc" #line 74 "execute.pgc"
for (i = 0, j = sqlca.sqlerrd[2]; i < j; i++) for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 79 "execute.pgc" #line 79 "execute.pgc"
char n[8], char n [ 8 ] , l = letter [ i ] [ 0 ] ;
l = letter[i][0];
#line 80 "execute.pgc" #line 80 "execute.pgc"
int a = amount[i]; int a = amount [ i ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 81 "execute.pgc" #line 81 "execute.pgc"
...@@ -303,40 +249,28 @@ main(void) ...@@ -303,40 +249,28 @@ main(void)
printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l); printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, n, i, a, i, l);
} }
{ { ECPGdo(__LINE__, 0, 1, NULL, "close CUR2", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "close CUR2", ECPGt_EOIT, ECPGt_EORT);
#line 87 "execute.pgc" #line 87 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 87 "execute.pgc" #line 87 "execute.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
#line 88 "execute.pgc" #line 88 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 88 "execute.pgc" #line 88 "execute.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 89 "execute.pgc" #line 89 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 89 "execute.pgc" #line 89 "execute.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");
ECPGdisconnect(__LINE__, "CURRENT");
#line 90 "execute.pgc" #line 90 "execute.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 90 "execute.pgc" #line 90 "execute.pgc"
......
...@@ -22,28 +22,22 @@ ...@@ -22,28 +22,22 @@
#line 5 "fetch.pgc" #line 5 "fetch.pgc"
int int main(int argc, char* argv[]) {
main(int argc, char *argv[])
{
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 9 "fetch.pgc" #line 9 "fetch.pgc"
char str[25]; char str [ 25 ] ;
#line 10 "fetch.pgc" #line 10 "fetch.pgc"
int i, int i , how_many = 1 ;
how_many = 1;
/* exec sql end declare section */ /* exec sql end declare section */
#line 11 "fetch.pgc" #line 11 "fetch.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 14 "fetch.pgc" #line 14 "fetch.pgc"
...@@ -54,70 +48,50 @@ main(int argc, char *argv[]) ...@@ -54,70 +48,50 @@ main(int argc, char *argv[])
#line 17 "fetch.pgc" #line 17 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table My_Table ( Item1 int , Item2 text ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table My_Table ( Item1 int , Item2 text ) ", ECPGt_EOIT, ECPGt_EORT);
#line 19 "fetch.pgc" #line 19 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 19 "fetch.pgc" #line 19 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 19 "fetch.pgc" #line 19 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 1 , 'text1' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 1 , 'text1' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 21 "fetch.pgc" #line 21 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 21 "fetch.pgc" #line 21 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 21 "fetch.pgc" #line 21 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 2 , 'text2' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 2 , 'text2' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 22 "fetch.pgc" #line 22 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 22 "fetch.pgc" #line 22 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 22 "fetch.pgc" #line 22 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 3 , 'text3' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 3 , 'text3' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 23 "fetch.pgc" #line 23 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 23 "fetch.pgc" #line 23 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 23 "fetch.pgc" #line 23 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 4 , 'text4' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 4 , 'text4' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 24 "fetch.pgc" #line 24 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 24 "fetch.pgc" #line 24 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 24 "fetch.pgc" #line 24 "fetch.pgc"
...@@ -125,44 +99,34 @@ main(int argc, char *argv[]) ...@@ -125,44 +99,34 @@ main(int argc, char *argv[])
#line 26 "fetch.pgc" #line 26 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "declare C cursor for select * from My_Table ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "declare C cursor for select * from My_Table ", ECPGt_EOIT, ECPGt_EORT);
#line 28 "fetch.pgc" #line 28 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 28 "fetch.pgc" #line 28 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 28 "fetch.pgc" #line 28 "fetch.pgc"
/* exec sql whenever not found break ; */ /* exec sql whenever not found break ; */
#line 30 "fetch.pgc" #line 30 "fetch.pgc"
while (1) while (1) {
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch 1 in C", ECPGt_EOIT,
{ ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGdo(__LINE__, 0, 1, NULL, "fetch 1 in C", ECPGt_EOIT, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_char,(str),(long)25,(long)1,(25)*sizeof(char),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_char, (str), (long) 25, (long) 1, (25) * sizeof(char),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 32 "fetch.pgc" #line 32 "fetch.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
break;
#line 32 "fetch.pgc" #line 32 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 32 "fetch.pgc" #line 32 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "fetch.pgc" #line 32 "fetch.pgc"
printf("%d: %s\n", i, str); printf("%d: %s\n", i, str);
...@@ -171,80 +135,60 @@ main(int argc, char *argv[]) ...@@ -171,80 +135,60 @@ main(int argc, char *argv[])
/* exec sql whenever not found continue ; */ /* exec sql whenever not found continue ; */
#line 36 "fetch.pgc" #line 36 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "move backward 2 in C", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "move backward 2 in C", ECPGt_EOIT, ECPGt_EORT);
#line 37 "fetch.pgc" #line 37 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 37 "fetch.pgc" #line 37 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 37 "fetch.pgc" #line 37 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "fetch ? in C",
ECPGdo(__LINE__, 0, 1, NULL, "fetch ? in C", ECPGt_int,&(how_many),(long)1,(long)1,sizeof(int),
ECPGt_int, &(how_many), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_int,&(i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_char,(str),(long)25,(long)1,(25)*sizeof(char),
ECPGt_char, (str), (long) 25, (long) 1, (25) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 39 "fetch.pgc" #line 39 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 39 "fetch.pgc" #line 39 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 39 "fetch.pgc" #line 39 "fetch.pgc"
printf("%d: %s\n", i, str); printf("%d: %s\n", i, str);
{ { ECPGdo(__LINE__, 0, 1, NULL, "close C", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "close C", ECPGt_EOIT, ECPGt_EORT);
#line 42 "fetch.pgc" #line 42 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 42 "fetch.pgc" #line 42 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 42 "fetch.pgc" #line 42 "fetch.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table My_Table ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table My_Table ", ECPGt_EOIT, ECPGt_EORT);
#line 44 "fetch.pgc" #line 44 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 44 "fetch.pgc" #line 44 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 44 "fetch.pgc" #line 44 "fetch.pgc"
{ { ECPGdisconnect(__LINE__, "ALL");
ECPGdisconnect(__LINE__, "ALL");
#line 46 "fetch.pgc" #line 46 "fetch.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 46 "fetch.pgc" #line 46 "fetch.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 46 "fetch.pgc" #line 46 "fetch.pgc"
......
...@@ -22,20 +22,14 @@ ...@@ -22,20 +22,14 @@
#line 5 "func.pgc" #line 5 "func.pgc"
int int main(int argc, char* argv[]) {
main(int argc, char *argv[])
{
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 10 "func.pgc" #line 10 "func.pgc"
{ { ECPGsetcommit(__LINE__, "on", NULL);}
ECPGsetcommit(__LINE__, "on", NULL);
}
#line 12 "func.pgc" #line 12 "func.pgc"
/* exec sql whenever sql_warning sqlprint ; */ /* exec sql whenever sql_warning sqlprint ; */
...@@ -45,130 +39,94 @@ main(int argc, char *argv[]) ...@@ -45,130 +39,94 @@ main(int argc, char *argv[])
#line 14 "func.pgc" #line 14 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table My_Table ( Item1 int , Item2 text ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table My_Table ( Item1 int , Item2 text ) ", ECPGt_EOIT, ECPGt_EORT);
#line 16 "func.pgc" #line 16 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 16 "func.pgc" #line 16 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 16 "func.pgc" #line 16 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create function My_Table_Check () returns trigger as $test$\
ECPGdo(__LINE__, 0, 1, NULL, "create function My_Table_Check () returns trigger as $test$\
BEGIN\ BEGIN\
RAISE WARNING 'Notice: TG_NAME=%, TG WHEN=%', TG_NAME, TG_WHEN;\ RAISE WARNING 'Notice: TG_NAME=%, TG WHEN=%', TG_NAME, TG_WHEN;\
RETURN NEW;\ RETURN NEW;\
END; $test$ language plpgsql", ECPGt_EOIT, ECPGt_EORT); END; $test$ language plpgsql", ECPGt_EOIT, ECPGt_EORT);
#line 24 "func.pgc" #line 24 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 24 "func.pgc" #line 24 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 24 "func.pgc" #line 24 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create trigger My_Table_Check_Trigger before insert on My_Table for each row execute procedure My_Table_Check ( )", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create trigger My_Table_Check_Trigger before insert on My_Table for each row execute procedure My_Table_Check ( )", ECPGt_EOIT, ECPGt_EORT);
#line 30 "func.pgc" #line 30 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 30 "func.pgc" #line 30 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 30 "func.pgc" #line 30 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 1234 , 'Some random text' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values( 1234 , 'Some random text' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 32 "func.pgc" #line 32 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 32 "func.pgc" #line 32 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "func.pgc" #line 32 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values ( 5678 , 'The Quick Brown' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into My_Table values( 5678 , 'The Quick Brown' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 33 "func.pgc" #line 33 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 33 "func.pgc" #line 33 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 33 "func.pgc" #line 33 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop trigger My_Table_Check_Trigger on My_Table ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop trigger My_Table_Check_Trigger on My_Table ", ECPGt_EOIT, ECPGt_EORT);
#line 35 "func.pgc" #line 35 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 35 "func.pgc" #line 35 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 35 "func.pgc" #line 35 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop function My_Table_Check () ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop function My_Table_Check () ", ECPGt_EOIT, ECPGt_EORT);
#line 36 "func.pgc" #line 36 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 36 "func.pgc" #line 36 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 36 "func.pgc" #line 36 "func.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table My_Table ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table My_Table ", ECPGt_EOIT, ECPGt_EORT);
#line 37 "func.pgc" #line 37 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 37 "func.pgc" #line 37 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 37 "func.pgc" #line 37 "func.pgc"
{ { ECPGdisconnect(__LINE__, "ALL");
ECPGdisconnect(__LINE__, "ALL");
#line 39 "func.pgc" #line 39 "func.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 39 "func.pgc" #line 39 "func.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 39 "func.pgc" #line 39 "func.pgc"
......
...@@ -75,6 +75,7 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -75,6 +75,7 @@ struct sqlca_t *ECPGget_sqlca(void);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 3 "indicators.pgc" #line 3 "indicators.pgc"
...@@ -91,133 +92,98 @@ struct sqlca_t *ECPGget_sqlca(void); ...@@ -91,133 +92,98 @@ struct sqlca_t *ECPGget_sqlca(void);
int int main(int argc, char **argv)
main(int argc, char **argv)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 10 "indicators.pgc" #line 10 "indicators.pgc"
int intvar = 5; int intvar = 5 ;
#line 11 "indicators.pgc" #line 11 "indicators.pgc"
int nullind = -1; int nullind = - 1 ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 12 "indicators.pgc" #line 12 "indicators.pgc"
ECPGdebug(1, stderr); ECPGdebug(1,stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 16 "indicators.pgc" #line 16 "indicators.pgc"
{ { ECPGsetcommit(__LINE__, "off", NULL);}
ECPGsetcommit(__LINE__, "off", NULL);
}
#line 17 "indicators.pgc" #line 17 "indicators.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( \"id\" int primary key , \"str\" text not null , val int null ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( \"id\" int primary key , \"str\" text not null , val int null ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 22 "indicators.pgc" #line 22 "indicators.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 23 "indicators.pgc" #line 23 "indicators.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( id , str , val ) values ( 1 , 'Hello' , 0 ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( id , str , val ) values( 1 , 'Hello' , 0 ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 25 "indicators.pgc" #line 25 "indicators.pgc"
/* use indicator in insert */ /* use indicator in insert */
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( id , str , val ) values ( 2 , 'Hi there' , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( id , str , val ) values( 2 , 'Hi there' , ? ) ", ECPGt_int,&(intvar),(long)1,(long)1,sizeof(int),
ECPGt_int, &(intvar), (long) 1, (long) 1, sizeof(int), ECPGt_int,&(nullind),(long)1,(long)1,sizeof(int), ECPGt_EOIT, ECPGt_EORT);}
ECPGt_int, &(nullind), (long) 1, (long) 1, sizeof(int), ECPGt_EOIT, ECPGt_EORT);
}
#line 28 "indicators.pgc" #line 28 "indicators.pgc"
nullind = 0; nullind = 0;
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( id , str , val ) values ( 3 , 'Good evening' , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( id , str , val ) values( 3 , 'Good evening' , ? ) ", ECPGt_int,&(intvar),(long)1,(long)1,sizeof(int),
ECPGt_int, &(intvar), (long) 1, (long) 1, sizeof(int), ECPGt_int,&(nullind),(long)1,(long)1,sizeof(int), ECPGt_EOIT, ECPGt_EORT);}
ECPGt_int, &(nullind), (long) 1, (long) 1, sizeof(int), ECPGt_EOIT, ECPGt_EORT);
}
#line 30 "indicators.pgc" #line 30 "indicators.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 31 "indicators.pgc" #line 31 "indicators.pgc"
/* use indicators to get information about selects */ /* use indicators to get information about selects */
{ { ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 1 ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 1 ", ECPGt_EOIT, ECPGt_int,&(intvar),(long)1,(long)1,sizeof(int),
ECPGt_int, &(intvar), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 34 "indicators.pgc" #line 34 "indicators.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 2 ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 2 ", ECPGt_EOIT, ECPGt_int,&(intvar),(long)1,(long)1,sizeof(int),
ECPGt_int, &(intvar), (long) 1, (long) 1, sizeof(int), ECPGt_int,&(nullind),(long)1,(long)1,sizeof(int), ECPGt_EORT);}
ECPGt_int, &(nullind), (long) 1, (long) 1, sizeof(int), ECPGt_EORT);
}
#line 35 "indicators.pgc" #line 35 "indicators.pgc"
printf("intvar: %d, nullind: %d\n", intvar, nullind); printf("intvar: %d, nullind: %d\n", intvar, nullind);
{ { ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 3 ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 3 ", ECPGt_EOIT, ECPGt_int,&(intvar),(long)1,(long)1,sizeof(int),
ECPGt_int, &(intvar), (long) 1, (long) 1, sizeof(int), ECPGt_int,&(nullind),(long)1,(long)1,sizeof(int), ECPGt_EORT);}
ECPGt_int, &(nullind), (long) 1, (long) 1, sizeof(int), ECPGt_EORT);
}
#line 37 "indicators.pgc" #line 37 "indicators.pgc"
printf("intvar: %d, nullind: %d\n", intvar, nullind); printf("intvar: %d, nullind: %d\n", intvar, nullind);
/* use indicators for update */ /* use indicators for update */
intvar = 5; intvar = 5; nullind = -1;
nullind = -1; { ECPGdo(__LINE__, 0, 1, NULL, "update test set val = ? where id = 1 ",
{ ECPGt_int,&(intvar),(long)1,(long)1,sizeof(int),
ECPGdo(__LINE__, 0, 1, NULL, "update test set val = ? where id = 1 ", ECPGt_int,&(nullind),(long)1,(long)1,sizeof(int), ECPGt_EOIT, ECPGt_EORT);}
ECPGt_int, &(intvar), (long) 1, (long) 1, sizeof(int),
ECPGt_int, &(nullind), (long) 1, (long) 1, sizeof(int), ECPGt_EOIT, ECPGt_EORT);
}
#line 42 "indicators.pgc" #line 42 "indicators.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 1 ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select val from test where id = 1 ", ECPGt_EOIT, ECPGt_int,&(intvar),(long)1,(long)1,sizeof(int),
ECPGt_int, &(intvar), (long) 1, (long) 1, sizeof(int), ECPGt_int,&(nullind),(long)1,(long)1,sizeof(int), ECPGt_EORT);}
ECPGt_int, &(nullind), (long) 1, (long) 1, sizeof(int), ECPGt_EORT);
}
#line 43 "indicators.pgc" #line 43 "indicators.pgc"
printf("intvar: %d, nullind: %d\n", intvar, nullind); printf("intvar: %d, nullind: %d\n", intvar, nullind);
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "drop table test ", ECPGt_EOIT, ECPGt_EORT);
}
#line 46 "indicators.pgc" #line 46 "indicators.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 47 "indicators.pgc" #line 47 "indicators.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 49 "indicators.pgc" #line 49 "indicators.pgc"
return 0; return 0;
......
...@@ -22,29 +22,22 @@ ...@@ -22,29 +22,22 @@
#line 5 "quote.pgc" #line 5 "quote.pgc"
int int main(int argc, char* argv[]) {
main(int argc, char *argv[])
{
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 9 "quote.pgc" #line 9 "quote.pgc"
char var[25]; char var [ 25 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 10 "quote.pgc" #line 10 "quote.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 13 "quote.pgc" #line 13 "quote.pgc"
{ { ECPGsetcommit(__LINE__, "on", NULL);}
ECPGsetcommit(__LINE__, "on", NULL);
}
#line 15 "quote.pgc" #line 15 "quote.pgc"
/* exec sql whenever sql_warning sqlprint ; */ /* exec sql whenever sql_warning sqlprint ; */
...@@ -54,148 +47,108 @@ main(int argc, char *argv[]) ...@@ -54,148 +47,108 @@ main(int argc, char *argv[])
#line 17 "quote.pgc" #line 17 "quote.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table \"My_Table\" ( Item1 int , Item2 text ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table \"My_Table\" ( Item1 int , Item2 text ) ", ECPGt_EOIT, ECPGt_EORT);
#line 19 "quote.pgc" #line 19 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 19 "quote.pgc" #line 19 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 19 "quote.pgc" #line 19 "quote.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "show standard_conforming_strings", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "show standard_conforming_strings", ECPGt_EOIT, ECPGt_char,(var),(long)25,(long)1,(25)*sizeof(char),
ECPGt_char, (var), (long) 25, (long) 1, (25) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 21 "quote.pgc" #line 21 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 21 "quote.pgc" #line 21 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 21 "quote.pgc" #line 21 "quote.pgc"
printf("Standard conforming strings: %s\n", var); printf("Standard conforming strings: %s\n", var);
/* this is a\\b actually */ /* this is a\\b actually */
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 25 "quote.pgc" #line 25 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 25 "quote.pgc" #line 25 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 25 "quote.pgc" #line 25 "quote.pgc"
/* this is a\b */ /* this is a\b */
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 27 "quote.pgc" #line 27 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 27 "quote.pgc" #line 27 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 27 "quote.pgc" #line 27 "quote.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "set standard_conforming_strings to on", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "set standard_conforming_strings to on", ECPGt_EOIT, ECPGt_EORT);
#line 29 "quote.pgc" #line 29 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 29 "quote.pgc" #line 29 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 29 "quote.pgc" #line 29 "quote.pgc"
/* this is a\\b actually */ /* this is a\\b actually */
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 32 "quote.pgc" #line 32 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 32 "quote.pgc" #line 32 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "quote.pgc" #line 32 "quote.pgc"
/* this is a\b */ /* this is a\b */
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into \"My_Table\" values ( 1 , 'a\\\\b' ) ", ECPGt_EOIT, ECPGt_EORT);
#line 34 "quote.pgc" #line 34 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 34 "quote.pgc" #line 34 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 34 "quote.pgc" #line 34 "quote.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select * from \"My_Table\" ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "select * from \"My_Table\" ", ECPGt_EOIT, ECPGt_EORT);
#line 36 "quote.pgc" #line 36 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 36 "quote.pgc" #line 36 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 36 "quote.pgc" #line 36 "quote.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table \"My_Table\" ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "drop table \"My_Table\" ", ECPGt_EOIT, ECPGt_EORT);
#line 38 "quote.pgc" #line 38 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 38 "quote.pgc" #line 38 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 38 "quote.pgc" #line 38 "quote.pgc"
{ { ECPGdisconnect(__LINE__, "ALL");
ECPGdisconnect(__LINE__, "ALL");
#line 40 "quote.pgc" #line 40 "quote.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 40 "quote.pgc" #line 40 "quote.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 40 "quote.pgc" #line 40 "quote.pgc"
......
...@@ -22,23 +22,18 @@ ...@@ -22,23 +22,18 @@
#line 5 "show.pgc" #line 5 "show.pgc"
int int main(int argc, char* argv[]) {
main(int argc, char *argv[])
{
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 9 "show.pgc" #line 9 "show.pgc"
char var[25]; char var [ 25 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 10 "show.pgc" #line 10 "show.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 13 "show.pgc" #line 13 "show.pgc"
...@@ -49,106 +44,102 @@ main(int argc, char *argv[]) ...@@ -49,106 +44,102 @@ main(int argc, char *argv[])
#line 16 "show.pgc" #line 16 "show.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "set search_path to 'public'", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "show search_path", ECPGt_EOIT,
ECPGt_char, (var), (long) 25, (long) 1, (25) * sizeof(char),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 18 "show.pgc" #line 18 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 18 "show.pgc" #line 18 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 18 "show.pgc" #line 18 "show.pgc"
printf("Var: Search path: %s\n", var); { ECPGdo(__LINE__, 0, 1, NULL, "show search_path", ECPGt_EOIT,
ECPGt_char,(var),(long)25,(long)1,(25)*sizeof(char),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 19 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 19 "show.pgc"
{ if (sqlca.sqlcode < 0) sqlprint();}
ECPGdo(__LINE__, 0, 1, NULL, "show wal_buffers", ECPGt_EOIT, #line 19 "show.pgc"
ECPGt_char, (var), (long) 25, (long) 1, (25) * sizeof(char),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 21 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') printf("Var: Search path: %s\n", var);
sqlprint();
#line 21 "show.pgc" { ECPGdo(__LINE__, 0, 1, NULL, "set standard_conforming_strings to off", ECPGt_EOIT, ECPGt_EORT);
#line 22 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint(); #line 22 "show.pgc"
}
#line 21 "show.pgc"
printf("Var: WAL buffers: %s\n", var); if (sqlca.sqlcode < 0) sqlprint();}
#line 22 "show.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "show standard_conforming_strings", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "show standard_conforming_strings", ECPGt_EOIT, ECPGt_char,(var),(long)25,(long)1,(25)*sizeof(char),
ECPGt_char, (var), (long) 25, (long) 1, (25) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT); #line 23 "show.pgc"
#line 24 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint(); #line 23 "show.pgc"
#line 24 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint(); #line 23 "show.pgc"
}
#line 24 "show.pgc"
printf("Var: Standard conforming strings: %s\n", var); printf("Var: Standard conforming strings: %s\n", var);
{ { ECPGdo(__LINE__, 0, 1, NULL, "set time zone PST8PDT", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "show time zone", ECPGt_EOIT, #line 26 "show.pgc"
ECPGt_char, (var), (long) 25, (long) 1, (25) * sizeof(char),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 26 "show.pgc"
if (sqlca.sqlcode < 0) sqlprint();}
#line 26 "show.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, "show time zone", ECPGt_EOIT,
ECPGt_char,(var),(long)25,(long)1,(25)*sizeof(char),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 27 "show.pgc" #line 27 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 27 "show.pgc" #line 27 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 27 "show.pgc" #line 27 "show.pgc"
printf("Time Zone: %s\n", var); printf("Time Zone: %s\n", var);
{ { ECPGdo(__LINE__, 0, 1, NULL, "set transaction isolation level read committed", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "show transaction isolation level", ECPGt_EOIT,
ECPGt_char, (var), (long) 25, (long) 1, (25) * sizeof(char),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 30 "show.pgc" #line 30 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 30 "show.pgc" #line 30 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 30 "show.pgc" #line 30 "show.pgc"
printf("Transaction isolation level: %s\n", var); { ECPGdo(__LINE__, 0, 1, NULL, "show transaction isolation level", ECPGt_EOIT,
ECPGt_char,(var),(long)25,(long)1,(25)*sizeof(char),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 31 "show.pgc"
/* Do not ask for the user name, it may differ in a regression test */ if (sqlca.sqlwarn[0] == 'W') sqlprint();
/* EXEC SQL SHOW SESSION AUTHORIZATION INTO :var; */ #line 31 "show.pgc"
if (sqlca.sqlcode < 0) sqlprint();}
#line 31 "show.pgc"
printf("Transaction isolation level: %s\n", var);
{ { ECPGdisconnect(__LINE__, "ALL");
ECPGdisconnect(__LINE__, "ALL"); #line 34 "show.pgc"
#line 36 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint(); #line 34 "show.pgc"
#line 36 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint(); #line 34 "show.pgc"
}
#line 36 "show.pgc"
return 0; return 0;
......
...@@ -2,35 +2,45 @@ ...@@ -2,35 +2,45 @@
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT> [NO_PID]: ECPGconnect: opening database regress1 on <DEFAULT> port <DEFAULT>
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 18: QUERY: show search_path on connection regress1 [NO_PID]: ECPGexecute line 18: QUERY: set search_path to 'public' on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 18: Correctly got 1 tuples with 1 fields [NO_PID]: ECPGexecute line 18 Ok: SET
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGget_data line 18: RESULT: "$user",public offset: -1 array: Yes [NO_PID]: ECPGexecute line 19: QUERY: show search_path on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 21: QUERY: show wal_buffers on connection regress1 [NO_PID]: ECPGexecute line 19: Correctly got 1 tuples with 1 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 21: Correctly got 1 tuples with 1 fields [NO_PID]: ECPGget_data line 19: RESULT: public offset: -1 array: Yes
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGget_data line 21: RESULT: 8 offset: -1 array: Yes [NO_PID]: ECPGexecute line 22: QUERY: set standard_conforming_strings to off on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 24: QUERY: show standard_conforming_strings on connection regress1 [NO_PID]: ECPGexecute line 22 Ok: SET
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 24: Correctly got 1 tuples with 1 fields [NO_PID]: ECPGexecute line 23: QUERY: show standard_conforming_strings on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGget_data line 24: RESULT: off offset: -1 array: Yes [NO_PID]: ECPGexecute line 23: Correctly got 1 tuples with 1 fields
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGget_data line 23: RESULT: off offset: -1 array: Yes
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 26: QUERY: set time zone PST8PDT on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 26 Ok: SET
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 27: QUERY: show time zone on connection regress1 [NO_PID]: ECPGexecute line 27: QUERY: show time zone on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 27: Correctly got 1 tuples with 1 fields [NO_PID]: ECPGexecute line 27: Correctly got 1 tuples with 1 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGget_data line 27: RESULT: PST8PDT offset: -1 array: Yes [NO_PID]: ECPGget_data line 27: RESULT: pst8pdt offset: -1 array: Yes
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 30: QUERY: set transaction isolation level read committed on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 30 Ok: SET
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 30: QUERY: show transaction isolation level on connection regress1 [NO_PID]: ECPGexecute line 31: QUERY: show transaction isolation level on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 30: Correctly got 1 tuples with 1 fields [NO_PID]: ECPGexecute line 31: Correctly got 1 tuples with 1 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGget_data line 30: RESULT: read committed offset: -1 array: Yes [NO_PID]: ECPGget_data line 31: RESULT: read committed offset: -1 array: Yes
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_finish: Connection regress1 closed. [NO_PID]: ecpg_finish: Connection regress1 closed.
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
Var: Search path: "$user",public Var: Search path: public
Var: WAL buffers: 8
Var: Standard conforming strings: off Var: Standard conforming strings: off
Time Zone: PST8PDT Time Zone: pst8pdt
Transaction isolation level: read committed Transaction isolation level: read committed
...@@ -22,24 +22,18 @@ ...@@ -22,24 +22,18 @@
#line 5 "update.pgc" #line 5 "update.pgc"
int int main(int argc, char* argv[]) {
main(int argc, char *argv[])
{
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 9 "update.pgc" #line 9 "update.pgc"
int i1[3], int i1 [ 3 ] , i2 [ 3 ] ;
i2[3];
/* exec sql end declare section */ /* exec sql end declare section */
#line 10 "update.pgc" #line 10 "update.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 13 "update.pgc" #line 13 "update.pgc"
...@@ -50,131 +44,95 @@ main(int argc, char *argv[]) ...@@ -50,131 +44,95 @@ main(int argc, char *argv[])
#line 16 "update.pgc" #line 16 "update.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a int , b int ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "create table test ( a int , b int ) ", ECPGt_EOIT, ECPGt_EORT);
#line 18 "update.pgc" #line 18 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 18 "update.pgc" #line 18 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 18 "update.pgc" #line 18 "update.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( a , b ) values ( 1 , 1 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( a , b ) values( 1 , 1 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 20 "update.pgc" #line 20 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 20 "update.pgc" #line 20 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 20 "update.pgc" #line 20 "update.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( a , b ) values ( 2 , 2 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( a , b ) values( 2 , 2 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 21 "update.pgc" #line 21 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 21 "update.pgc" #line 21 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 21 "update.pgc" #line 21 "update.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( a , b ) values ( 3 , 3 ) ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( a , b ) values( 3 , 3 ) ", ECPGt_EOIT, ECPGt_EORT);
#line 22 "update.pgc" #line 22 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 22 "update.pgc" #line 22 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 22 "update.pgc" #line 22 "update.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "update test set a = a + 1 ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "update test set a = a + 1 ", ECPGt_EOIT, ECPGt_EORT);
#line 24 "update.pgc" #line 24 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 24 "update.pgc" #line 24 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 24 "update.pgc" #line 24 "update.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "update test set ( a , b )= ( 5 , 5 ) where a = 4 ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "update test set ( a , b )=( 5 , 5 ) where a = 4 ", ECPGt_EOIT, ECPGt_EORT);
#line 25 "update.pgc" #line 25 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 25 "update.pgc" #line 25 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 25 "update.pgc" #line 25 "update.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "update test set a = 4 where a = 3 ", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "update test set a = 4 where a = 3 ", ECPGt_EOIT, ECPGt_EORT);
#line 26 "update.pgc" #line 26 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 26 "update.pgc" #line 26 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 26 "update.pgc" #line 26 "update.pgc"
; ;
{ { ECPGdo(__LINE__, 0, 1, NULL, "select a , b from test order by a", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select a , b from test order by a", ECPGt_EOIT, ECPGt_int,(i1),(long)1,(long)3,sizeof(int),
ECPGt_int, (i1), (long) 1, (long) 3, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,(i2),(long)1,(long)3,sizeof(int),
ECPGt_int, (i2), (long) 1, (long) 3, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 28 "update.pgc" #line 28 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 28 "update.pgc" #line 28 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 28 "update.pgc" #line 28 "update.pgc"
printf("test\na b\n%d %d\n%d %d\n%d %d\n", i1[0], i2[0], i1[1], i2[1], i1[2], i2[2]); printf("test\na b\n%d %d\n%d %d\n%d %d\n", i1[0], i2[0], i1[1], i2[1], i1[2], i2[2]);
{ { ECPGdisconnect(__LINE__, "ALL");
ECPGdisconnect(__LINE__, "ALL");
#line 32 "update.pgc" #line 32 "update.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint();
#line 32 "update.pgc" #line 32 "update.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 32 "update.pgc" #line 32 "update.pgc"
......
...@@ -41,127 +41,99 @@ void *test_thread(void *arg); ...@@ -41,127 +41,99 @@ void *test_thread(void *arg);
int nthreads = 10; int nthreads = 10;
int iterations = 20; int iterations = 20;
int int main(int argc, char *argv[])
main(int argc, char *argv[])
{ {
pthread_t *threads; pthread_t *threads;
int n; int n;
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 31 "thread.pgc" #line 31 "thread.pgc"
int l_rows; int l_rows ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 32 "thread.pgc" #line 32 "thread.pgc"
/* /* Switch off debug output for regression tests. The threads get executed in
* Switch off debug output for regression tests. The threads get executed * more or less random order */
* in more or less random order
*/
ECPGdebug(0, stderr); ECPGdebug(0, stderr);
/* setup test_thread table */ /* setup test_thread table */
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 41 "thread.pgc" #line 41 "thread.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test_thread ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "drop table test_thread ", ECPGt_EOIT, ECPGt_EORT);
}
#line 42 "thread.pgc" #line 42 "thread.pgc"
/* DROP might fail */ /* DROP might fail */
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 43 "thread.pgc" #line 43 "thread.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test_thread ( tstamp timestamp not null default cast( timeofday () as timestamp ) , thread TEXT not null , iteration integer not null , primary key( thread , iteration ) ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "create table test_thread ( tstamp timestamp not null default cast( timeofday () as timestamp ) , thread TEXT not null , iteration integer not null , primary key( thread , iteration ) ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 48 "thread.pgc" #line 48 "thread.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 49 "thread.pgc" #line 49 "thread.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 50 "thread.pgc" #line 50 "thread.pgc"
/* create, and start, threads */ /* create, and start, threads */
threads = calloc(nthreads, sizeof(pthread_t)); threads = calloc(nthreads, sizeof(pthread_t));
if (threads == NULL) if( threads == NULL )
{ {
fprintf(stderr, "Cannot alloc memory\n"); fprintf(stderr, "Cannot alloc memory\n");
return (1); return( 1 );
} }
for (n = 0; n < nthreads; n++) for( n = 0; n < nthreads; n++ )
{ {
pthread_create(&threads[n], NULL, test_thread, (void *) (n + 1)); pthread_create(&threads[n], NULL, test_thread, (void *) (n + 1));
} }
/* wait for thread completion */ /* wait for thread completion */
for (n = 0; n < nthreads; n++) for( n = 0; n < nthreads; n++ )
{ {
pthread_join(threads[n], NULL); pthread_join(threads[n], NULL);
} }
free(threads); free(threads);
/* and check results */ /* and check results */
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 72 "thread.pgc" #line 72 "thread.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select count (*) from test_thread ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select count (*) from test_thread ", ECPGt_EOIT, ECPGt_int,&(l_rows),(long)1,(long)1,sizeof(int),
ECPGt_int, &(l_rows), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 73 "thread.pgc" #line 73 "thread.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 74 "thread.pgc" #line 74 "thread.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 75 "thread.pgc" #line 75 "thread.pgc"
if (l_rows == (nthreads * iterations)) if( l_rows == (nthreads * iterations) )
printf("Success.\n"); printf("Success.\n");
else else
printf("ERROR: Failure - expecting %d rows, got %d.\n", nthreads * iterations, l_rows); printf("ERROR: Failure - expecting %d rows, got %d.\n", nthreads * iterations, l_rows);
return (0); return( 0 );
} }
void * void *test_thread(void *arg)
test_thread(void *arg)
{ {
long threadnum = (long) arg; long threadnum = (long)arg;
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 88 "thread.pgc" #line 88 "thread.pgc"
int l_i; int l_i ;
#line 89 "thread.pgc" #line 89 "thread.pgc"
char l_connection[128]; char l_connection [ 128 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 90 "thread.pgc" #line 90 "thread.pgc"
...@@ -171,51 +143,42 @@ test_thread(void *arg) ...@@ -171,51 +143,42 @@ test_thread(void *arg)
/* exec sql whenever sqlerror sqlprint ; */ /* exec sql whenever sqlerror sqlprint ; */
#line 94 "thread.pgc" #line 94 "thread.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , l_connection, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, l_connection, 0);
#line 95 "thread.pgc" #line 95 "thread.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 95 "thread.pgc" #line 95 "thread.pgc"
if (sqlca.sqlcode != 0) if( sqlca.sqlcode != 0 )
{ {
printf("%s: ERROR: cannot connect to database!\n", l_connection); printf("%s: ERROR: cannot connect to database!\n", l_connection);
return (NULL); return( NULL );
} }
{ { ECPGtrans(__LINE__, l_connection, "begin transaction ");
ECPGtrans(__LINE__, l_connection, "begin transaction ");
#line 101 "thread.pgc" #line 101 "thread.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 101 "thread.pgc" #line 101 "thread.pgc"
/* insert into test_thread table */ /* insert into test_thread table */
for (l_i = 1; l_i <= iterations; l_i++) for( l_i = 1; l_i <= iterations; l_i++ )
{ {
#ifdef DEBUG #ifdef DEBUG
printf("%s: inserting %d\n", l_connection, l_i); printf("%s: inserting %d\n", l_connection, l_i);
#endif #endif
{ { ECPGdo(__LINE__, 0, 1, l_connection, "insert into test_thread ( thread , iteration ) values ( ? , ? ) ",
ECPGdo(__LINE__, 0, 1, l_connection, "insert into test_thread ( thread , iteration ) values( ? , ? ) ", ECPGt_char,(l_connection),(long)128,(long)1,(128)*sizeof(char),
ECPGt_char, (l_connection), (long) 128, (long) 1, (128) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,&(l_i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(l_i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 109 "thread.pgc" #line 109 "thread.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 109 "thread.pgc" #line 109 "thread.pgc"
#ifdef DEBUG #ifdef DEBUG
if (sqlca.sqlcode == 0) if( sqlca.sqlcode == 0 )
printf("%s: insert done\n", l_connection); printf("%s: insert done\n", l_connection);
else else
printf("%s: ERROR: insert failed!\n", l_connection); printf("%s: ERROR: insert failed!\n", l_connection);
...@@ -223,28 +186,21 @@ test_thread(void *arg) ...@@ -223,28 +186,21 @@ test_thread(void *arg)
} }
/* all done */ /* all done */
{ { ECPGtrans(__LINE__, l_connection, "commit");
ECPGtrans(__LINE__, l_connection, "commit");
#line 119 "thread.pgc" #line 119 "thread.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 119 "thread.pgc" #line 119 "thread.pgc"
{ { ECPGdisconnect(__LINE__, l_connection);
ECPGdisconnect(__LINE__, l_connection);
#line 120 "thread.pgc" #line 120 "thread.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 120 "thread.pgc" #line 120 "thread.pgc"
#ifdef DEBUG #ifdef DEBUG
printf("%s: done!\n", l_connection); printf("%s: done!\n", l_connection);
#endif #endif
return (NULL); return( NULL );
} }
#endif /* ENABLE_THREAD_SAFETY */ #endif /* ENABLE_THREAD_SAFETY */
...@@ -42,127 +42,99 @@ void *test_thread(void *arg); ...@@ -42,127 +42,99 @@ void *test_thread(void *arg);
int nthreads = 10; int nthreads = 10;
int iterations = 20; int iterations = 20;
int int main(int argc, char *argv[])
main(int argc, char *argv[])
{ {
pthread_t *threads; pthread_t *threads;
int n; int n;
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 32 "thread_implicit.pgc" #line 32 "thread_implicit.pgc"
int l_rows; int l_rows ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 33 "thread_implicit.pgc" #line 33 "thread_implicit.pgc"
/* /* Switch off debug output for regression tests. The threads get executed in
* Switch off debug output for regression tests. The threads get executed * more or less random order */
* in more or less random order
*/
ECPGdebug(0, stderr); ECPGdebug(0, stderr);
/* setup test_thread table */ /* setup test_thread table */
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 42 "thread_implicit.pgc" #line 42 "thread_implicit.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "drop table test_thread ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "drop table test_thread ", ECPGt_EOIT, ECPGt_EORT);
}
#line 43 "thread_implicit.pgc" #line 43 "thread_implicit.pgc"
/* DROP might fail */ /* DROP might fail */
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 44 "thread_implicit.pgc" #line 44 "thread_implicit.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "create table test_thread ( tstamp timestamp not null default cast( timeofday () as timestamp ) , thread TEXT not null , iteration integer not null , primary key( thread , iteration ) ) ", ECPGt_EOIT, ECPGt_EORT);}
ECPGdo(__LINE__, 0, 1, NULL, "create table test_thread ( tstamp timestamp not null default cast( timeofday () as timestamp ) , thread TEXT not null , iteration integer not null , primary key( thread , iteration ) ) ", ECPGt_EOIT, ECPGt_EORT);
}
#line 49 "thread_implicit.pgc" #line 49 "thread_implicit.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 50 "thread_implicit.pgc" #line 50 "thread_implicit.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 51 "thread_implicit.pgc" #line 51 "thread_implicit.pgc"
/* create, and start, threads */ /* create, and start, threads */
threads = calloc(nthreads, sizeof(pthread_t)); threads = calloc(nthreads, sizeof(pthread_t));
if (threads == NULL) if( threads == NULL )
{ {
fprintf(stderr, "Cannot alloc memory\n"); fprintf(stderr, "Cannot alloc memory\n");
return (1); return( 1 );
} }
for (n = 0; n < nthreads; n++) for( n = 0; n < nthreads; n++ )
{ {
pthread_create(&threads[n], NULL, test_thread, (void *) (n + 1)); pthread_create(&threads[n], NULL, test_thread, (void *) (n + 1));
} }
/* wait for thread completion */ /* wait for thread completion */
for (n = 0; n < nthreads; n++) for( n = 0; n < nthreads; n++ )
{ {
pthread_join(threads[n], NULL); pthread_join(threads[n], NULL);
} }
free(threads); free(threads);
/* and check results */ /* and check results */
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0); }
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, NULL, 0);
}
#line 73 "thread_implicit.pgc" #line 73 "thread_implicit.pgc"
{ { ECPGdo(__LINE__, 0, 1, NULL, "select count (*) from test_thread ", ECPGt_EOIT,
ECPGdo(__LINE__, 0, 1, NULL, "select count (*) from test_thread ", ECPGt_EOIT, ECPGt_int,&(l_rows),(long)1,(long)1,sizeof(int),
ECPGt_int, &(l_rows), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
}
#line 74 "thread_implicit.pgc" #line 74 "thread_implicit.pgc"
{ { ECPGtrans(__LINE__, NULL, "commit");}
ECPGtrans(__LINE__, NULL, "commit");
}
#line 75 "thread_implicit.pgc" #line 75 "thread_implicit.pgc"
{ { ECPGdisconnect(__LINE__, "CURRENT");}
ECPGdisconnect(__LINE__, "CURRENT");
}
#line 76 "thread_implicit.pgc" #line 76 "thread_implicit.pgc"
if (l_rows == (nthreads * iterations)) if( l_rows == (nthreads * iterations) )
printf("Success.\n"); printf("Success.\n");
else else
printf("ERROR: Failure - expecting %d rows, got %d.\n", nthreads * iterations, l_rows); printf("ERROR: Failure - expecting %d rows, got %d.\n", nthreads * iterations, l_rows);
return (0); return( 0 );
} }
void * void *test_thread(void *arg)
test_thread(void *arg)
{ {
long threadnum = (long) arg; long threadnum = (long)arg;
/* exec sql begin declare section */ /* exec sql begin declare section */
#line 89 "thread_implicit.pgc" #line 89 "thread_implicit.pgc"
int l_i; int l_i ;
#line 90 "thread_implicit.pgc" #line 90 "thread_implicit.pgc"
char l_connection[128]; char l_connection [ 128 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 91 "thread_implicit.pgc" #line 91 "thread_implicit.pgc"
...@@ -172,51 +144,42 @@ test_thread(void *arg) ...@@ -172,51 +144,42 @@ test_thread(void *arg)
/* exec sql whenever sqlerror sqlprint ; */ /* exec sql whenever sqlerror sqlprint ; */
#line 95 "thread_implicit.pgc" #line 95 "thread_implicit.pgc"
{ { ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , l_connection, 0);
ECPGconnect(__LINE__, 0, "regress1", NULL, NULL, l_connection, 0);
#line 96 "thread_implicit.pgc" #line 96 "thread_implicit.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 96 "thread_implicit.pgc" #line 96 "thread_implicit.pgc"
if (sqlca.sqlcode != 0) if( sqlca.sqlcode != 0 )
{ {
printf("%s: ERROR: cannot connect to database!\n", l_connection); printf("%s: ERROR: cannot connect to database!\n", l_connection);
return (NULL); return( NULL );
} }
{ { ECPGtrans(__LINE__, NULL, "begin transaction ");
ECPGtrans(__LINE__, NULL, "begin transaction ");
#line 102 "thread_implicit.pgc" #line 102 "thread_implicit.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 102 "thread_implicit.pgc" #line 102 "thread_implicit.pgc"
/* insert into test_thread table */ /* insert into test_thread table */
for (l_i = 1; l_i <= iterations; l_i++) for( l_i = 1; l_i <= iterations; l_i++ )
{ {
#ifdef DEBUG #ifdef DEBUG
printf("%s: inserting %d\n", l_connection, l_i); printf("%s: inserting %d\n", l_connection, l_i);
#endif #endif
{ { ECPGdo(__LINE__, 0, 1, NULL, "insert into test_thread ( thread , iteration ) values ( ? , ? ) ",
ECPGdo(__LINE__, 0, 1, NULL, "insert into test_thread ( thread , iteration ) values( ? , ? ) ", ECPGt_char,(l_connection),(long)128,(long)1,(128)*sizeof(char),
ECPGt_char, (l_connection), (long) 128, (long) 1, (128) * sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_int,&(l_i),(long)1,(long)1,sizeof(int),
ECPGt_int, &(l_i), (long) 1, (long) 1, sizeof(int), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 110 "thread_implicit.pgc" #line 110 "thread_implicit.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 110 "thread_implicit.pgc" #line 110 "thread_implicit.pgc"
#ifdef DEBUG #ifdef DEBUG
if (sqlca.sqlcode == 0) if( sqlca.sqlcode == 0 )
printf("%s: insert done\n", l_connection); printf("%s: insert done\n", l_connection);
else else
printf("%s: ERROR: insert failed!\n", l_connection); printf("%s: ERROR: insert failed!\n", l_connection);
...@@ -224,28 +187,21 @@ test_thread(void *arg) ...@@ -224,28 +187,21 @@ test_thread(void *arg)
} }
/* all done */ /* all done */
{ { ECPGtrans(__LINE__, NULL, "commit");
ECPGtrans(__LINE__, NULL, "commit");
#line 120 "thread_implicit.pgc" #line 120 "thread_implicit.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 120 "thread_implicit.pgc" #line 120 "thread_implicit.pgc"
{ { ECPGdisconnect(__LINE__, l_connection);
ECPGdisconnect(__LINE__, l_connection);
#line 121 "thread_implicit.pgc" #line 121 "thread_implicit.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint();
}
#line 121 "thread_implicit.pgc" #line 121 "thread_implicit.pgc"
#ifdef DEBUG #ifdef DEBUG
printf("%s: done!\n", l_connection); printf("%s: done!\n", l_connection);
#endif #endif
return (NULL); return( NULL );
} }
#endif /* ENABLE_THREAD_SAFETY */ #endif /* ENABLE_THREAD_SAFETY */
...@@ -15,24 +15,22 @@ int main(int argc, char* argv[]) { ...@@ -15,24 +15,22 @@ int main(int argc, char* argv[]) {
EXEC SQL WHENEVER SQLWARNING SQLPRINT; EXEC SQL WHENEVER SQLWARNING SQLPRINT;
EXEC SQL WHENEVER SQLERROR SQLPRINT; EXEC SQL WHENEVER SQLERROR SQLPRINT;
EXEC SQL SET search_path TO 'public';
EXEC SQL SHOW search_path INTO :var; EXEC SQL SHOW search_path INTO :var;
printf("Var: Search path: %s\n", var); printf("Var: Search path: %s\n", var);
EXEC SQL SHOW wal_buffers INTO :var; EXEC SQL SET standard_conforming_strings TO off;
printf("Var: WAL buffers: %s\n", var);
EXEC SQL SHOW standard_conforming_strings INTO :var; EXEC SQL SHOW standard_conforming_strings INTO :var;
printf("Var: Standard conforming strings: %s\n", var); printf("Var: Standard conforming strings: %s\n", var);
EXEC SQL SET TIME ZONE PST8PDT;
EXEC SQL SHOW TIME ZONE INTO :var; EXEC SQL SHOW TIME ZONE INTO :var;
printf("Time Zone: %s\n", var); printf("Time Zone: %s\n", var);
EXEC SQL SET TRANSACTION ISOLATION LEVEL read committed;
EXEC SQL SHOW TRANSACTION ISOLATION LEVEL INTO :var; EXEC SQL SHOW TRANSACTION ISOLATION LEVEL INTO :var;
printf("Transaction isolation level: %s\n", var); printf("Transaction isolation level: %s\n", var);
/* Do not ask for the user name, it may differ in a regression test */
/* EXEC SQL SHOW SESSION AUTHORIZATION INTO :var; */
EXEC SQL DISCONNECT ALL; EXEC SQL DISCONNECT ALL;
return 0; return 0;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment