1
0
mirror of https://github.com/postgres/postgres.git synced 2025-06-07 11:02:12 +03:00

Reverted changes made by pgindent

Made show.pgc set all variables before displaying them.
This commit is contained in:
Michael Meskes 2006-10-04 10:09:03 +00:00
parent f99a569a2e
commit fcc2fbac22
43 changed files with 2607 additions and 4143 deletions

View File

@ -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;

View File

@ -47,9 +47,10 @@ TODO:
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};
@ -62,16 +63,10 @@ static void
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));
@ -91,60 +86,50 @@ main(void)
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);
@ -163,22 +148,16 @@ main(void)
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);

View File

@ -28,8 +28,7 @@ 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)
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);

View File

@ -30,8 +30,7 @@ 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"
@ -99,37 +98,27 @@ 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),
@ -146,18 +135,13 @@ main(void)
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,8 +156,7 @@ 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),
@ -196,25 +179,19 @@ main(void)
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),
@ -237,9 +214,7 @@ main(void)
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,8 +231,7 @@ 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),
@ -280,9 +254,7 @@ main(void)
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)
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"

View File

@ -25,14 +25,11 @@
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"
@ -42,9 +39,7 @@ main(void)
#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)
#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,23 +150,18 @@ 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);
@ -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"
} }

View File

@ -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);
/* 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)
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)
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
@ -163,7 +158,6 @@ main(void)
#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,64 +171,48 @@ 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),
@ -243,9 +221,7 @@ main(void)
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)
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);

View File

@ -33,176 +33,117 @@ main(void)
#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 */

View File

@ -40,7 +40,6 @@ main(void)
#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)
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"

View File

@ -39,7 +39,6 @@ main(void)
#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)
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
*/ */

View File

@ -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"

View File

@ -30,173 +30,114 @@ main(void)
#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"

View File

@ -41,20 +41,16 @@ main(void)
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,53 +59,40 @@ 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),
@ -118,26 +101,21 @@ main(void)
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);
@ -153,7 +131,6 @@ 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);
@ -165,154 +142,115 @@ 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);
@ -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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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);
} }

View File

@ -76,8 +76,7 @@ main(void)
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 ;
@ -87,13 +86,11 @@ main(void)
#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)
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)
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',
@ -138,13 +131,10 @@ main(void)
+ 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)
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)
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)
return (0); return (0);
} }

View File

@ -35,23 +35,18 @@ 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)
#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)
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)
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)
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)
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);
} }

View File

@ -35,9 +35,10 @@ 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};
@ -50,16 +51,10 @@ 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)
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
* do not test double to numeric because - extra digits are different * - PGTYPESnumeric_from_double internally calls PGTYPESnumeric_from_asc anyway
* 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);
@ -193,7 +156,6 @@ main(void)
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)
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)
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)
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)
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)
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);
} }

View File

@ -21,28 +21,23 @@
/* 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);
} }

View File

@ -61,74 +61,55 @@ main(void)
#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),
@ -137,9 +118,7 @@ main(void)
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"
@ -150,12 +129,10 @@ main(void)
#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)
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"

View File

@ -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)
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-";
@ -141,11 +132,9 @@ namespace N
}; };
#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 */
@ -192,7 +181,6 @@ main(void)
#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"
@ -205,9 +193,9 @@ main(void)
#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)
/* 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;

View File

@ -57,8 +57,7 @@ typedef char *c;
struct TBempl struct TBempl {
{
#line 19 "type.pgc" #line 19 "type.pgc"
mmInteger idnum ; mmInteger idnum ;
@ -68,7 +67,6 @@ struct TBempl
#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"
@ -95,15 +93,13 @@ main(void)
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"
@ -114,9 +110,7 @@ main(void)
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)
@ -125,9 +119,7 @@ main(void)
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)
@ -136,9 +128,7 @@ main(void)
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)
@ -147,8 +137,7 @@ main(void)
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),
@ -162,8 +151,7 @@ main(void)
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)
@ -173,9 +161,7 @@ main(void)
} }
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"

View File

@ -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 ] */
@ -57,15 +53,13 @@ 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,22 +72,16 @@ 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 ;
@ -103,7 +91,6 @@ main(void)
#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"
@ -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"
@ -240,11 +197,9 @@ main(void)
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),
@ -257,13 +212,10 @@ main(void)
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)
} }
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"

View File

@ -24,28 +24,24 @@
#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"
@ -62,249 +58,186 @@ 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 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);

View File

@ -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"
@ -124,7 +125,6 @@ main(void)
#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,72 +134,53 @@ 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),
@ -208,51 +189,39 @@ main(void)
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),
@ -261,9 +230,7 @@ main(void)
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)
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"

View File

@ -29,8 +29,7 @@
struct TBempl struct TBempl {
{
#line 9 "binary.pgc" #line 9 "binary.pgc"
long idnum ; long idnum ;
@ -43,7 +42,6 @@ struct TBempl
#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"
@ -59,7 +57,6 @@ main(void)
#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"
@ -68,9 +65,7 @@ main(void)
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)
@ -79,9 +74,7 @@ main(void)
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)
@ -90,11 +83,9 @@ main(void)
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)
@ -103,28 +94,21 @@ main(void)
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)
@ -137,29 +121,21 @@ main(void)
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)
@ -168,16 +144,11 @@ main(void)
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
* outputs here
*/
printf ("name=%s, byte=", empl.name); printf ("name=%s, byte=", empl.name);
for (i=0; i<20; i++) for (i=0; i<20; i++)
{ {
@ -186,9 +157,7 @@ main(void)
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);

View File

@ -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,14 +92,12 @@ 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"
@ -106,94 +105,60 @@ 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 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 , ? ) ",
{
ECPGdo(__LINE__, 0, 1, NULL, "insert into test ( payload , index ) values( 0 , ? ) ",
ECPGt_int,&(index),(long)1,(long)1,sizeof(int), ECPGt_int,&(index),(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 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;
} }

View File

@ -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"
@ -105,49 +106,34 @@ main()
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()
/* 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"

View File

@ -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,8 +92,7 @@ struct sqlca_t *ECPGget_sqlca(void);
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
@ -103,7 +103,6 @@ main(void)
#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)
/* 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)
{ { 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)
{ { 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)
{ { 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;

View File

@ -48,20 +48,16 @@ main(void)
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,205 +67,154 @@ 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,
@ -278,21 +223,16 @@ main(void)
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)
/* 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"

View File

@ -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);
#line 4 "dynalloc.pgc" #line 4 "dynalloc.pgc"
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
@ -160,7 +160,6 @@ main(void)
#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)
/* 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]) if (i2[i]) printf("NULL, ");
printf("NULL, "); else printf("%f, ",d2[i]);
else
printf("%f, ", d2[i]);
if (i3[i]) if (i3[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",d3[i]);
else
printf("'%s', ", d3[i]);
if (i4[i]) if (i4[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",d4[i]);
else
printf("'%s', ", d4[i]);
if (i5[i]) if (i5[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",d5[i]);
else
printf("'%s', ", d5[i]);
if (i6[i]) if (i6[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",d6[i]);
else
printf("'%s', ", d6[i]);
if (i7[i]) if (i7[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",d7[i]);
else
printf("'%s', ", d7[i]);
if (i9[i]) if (i9[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",d9[i]);
else
printf("'%s', ", d9[i]);
printf("\n"); printf("\n");
} }
@ -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;

View File

@ -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);
#line 4 "dynalloc2.pgc" #line 4 "dynalloc2.pgc"
int int main(void)
main(void)
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
@ -114,7 +114,6 @@ main(void)
#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)
/* 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]) if (ipointer2[i]) printf("NULL, ");
printf("NULL, "); else printf("'%s', ",cp2[i]);
else
printf("'%s', ", cp2[i]);
printf("\n"); printf("\n");
} }
ECPGfree_auto_mem(); ECPGfree_auto_mem();
@ -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;

View File

@ -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);
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
#line 8 "dyntest.pgc" #line 8 "dyntest.pgc"
@ -176,19 +178,13 @@ main(int argc, char **argv)
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 ] ;
@ -198,7 +194,6 @@ main(int argc, char **argv)
#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"
@ -219,109 +214,81 @@ 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)
@ -332,8 +299,7 @@ main(int argc, char **argv)
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,
@ -345,9 +311,7 @@ main(int argc, char **argv)
#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);
@ -378,15 +342,12 @@ main(int argc, char **argv)
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)
@ -438,88 +399,70 @@ main(int argc, char **argv)
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);
@ -528,21 +471,17 @@ main(int argc, char **argv)
} }
} }
{ { 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"

View File

@ -51,148 +51,112 @@ main(void)
#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),
@ -201,9 +165,7 @@ main(void)
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"
@ -214,12 +176,10 @@ main(void)
#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,46 +188,36 @@ 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),
@ -276,9 +226,7 @@ main(void)
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"
@ -289,12 +237,10 @@ main(void)
#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)
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"

View File

@ -22,9 +22,7 @@
#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 */
@ -33,17 +31,13 @@ main(int argc, char *argv[])
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[])
#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[])
#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,
{
ECPGdo(__LINE__, 0, 1, NULL, "fetch 1 in 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_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 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,22 +135,17 @@ 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),
@ -195,56 +154,41 @@ main(int argc, char *argv[])
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"

View File

@ -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[])
#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"

View File

@ -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,8 +92,7 @@ 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 */
@ -103,121 +103,87 @@ main(int argc, char **argv)
#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 ",
{
ECPGdo(__LINE__, 0, 1, NULL, "update test set val = ? where id = 1 ",
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 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;

View File

@ -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[])
#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"

View File

@ -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[])
#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, #line 18 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 18 "show.pgc"
if (sqlca.sqlcode < 0) sqlprint();}
#line 18 "show.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, "show search_path", 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 18 "show.pgc" #line 19 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint(); #line 19 "show.pgc"
#line 18 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint(); #line 19 "show.pgc"
}
#line 18 "show.pgc"
printf("Var: Search path: %s\n", var); printf("Var: Search path: %s\n", var);
{ { ECPGdo(__LINE__, 0, 1, NULL, "set standard_conforming_strings to off", ECPGt_EOIT, ECPGt_EORT);
ECPGdo(__LINE__, 0, 1, NULL, "show wal_buffers", ECPGt_EOIT, #line 22 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 22 "show.pgc"
if (sqlca.sqlcode < 0) sqlprint();}
#line 22 "show.pgc"
{ 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 "show.pgc" #line 23 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint(); #line 23 "show.pgc"
#line 21 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint(); #line 23 "show.pgc"
}
#line 21 "show.pgc"
printf("Var: WAL buffers: %s\n", var);
{
ECPGdo(__LINE__, 0, 1, NULL, "show standard_conforming_strings", ECPGt_EOIT,
ECPGt_char, (var), (long) 25, (long) 1, (25) * sizeof(char),
ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
#line 24 "show.pgc"
if (sqlca.sqlwarn[0] == 'W')
sqlprint();
#line 24 "show.pgc"
if (sqlca.sqlcode < 0)
sqlprint();
}
#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"
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_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 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, #line 30 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 30 "show.pgc"
if (sqlca.sqlcode < 0) sqlprint();}
#line 30 "show.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, "show transaction isolation level", 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 30 "show.pgc" #line 31 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlwarn[0] == 'W') sqlprint();
sqlprint(); #line 31 "show.pgc"
#line 30 "show.pgc"
if (sqlca.sqlcode < 0) if (sqlca.sqlcode < 0) sqlprint();}
sqlprint(); #line 31 "show.pgc"
}
#line 30 "show.pgc"
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 */ { ECPGdisconnect(__LINE__, "ALL");
/* EXEC SQL SHOW SESSION AUTHORIZATION INTO :var; */ #line 34 "show.pgc"
{ if (sqlca.sqlwarn[0] == 'W') sqlprint();
ECPGdisconnect(__LINE__, "ALL"); #line 34 "show.pgc"
#line 36 "show.pgc"
if (sqlca.sqlwarn[0] == 'W') if (sqlca.sqlcode < 0) sqlprint();}
sqlprint(); #line 34 "show.pgc"
#line 36 "show.pgc"
if (sqlca.sqlcode < 0)
sqlprint();
}
#line 36 "show.pgc"
return 0; return 0;

View File

@ -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]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 30: QUERY: show transaction isolation level on connection regress1 [NO_PID]: ECPGexecute line 30: QUERY: set transaction isolation level read committed 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 30 Ok: SET
[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]: ECPGexecute line 31: QUERY: show transaction isolation level on connection regress1
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGexecute line 31: Correctly got 1 tuples with 1 fields
[NO_PID]: sqlca: code: 0, state: 00000
[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

View File

@ -1,5 +1,4 @@
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

View File

@ -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[])
#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"

View File

@ -41,59 +41,42 @@ 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"
@ -117,26 +100,18 @@ main(int argc, char *argv[])
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) )
@ -147,11 +122,9 @@ main(int argc, char *argv[])
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 */
@ -161,7 +134,6 @@ test_thread(void *arg)
#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,13 +143,10 @@ 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 )
@ -185,13 +154,10 @@ test_thread(void *arg)
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"
@ -201,17 +167,14 @@ test_thread(void *arg)
#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
@ -223,22 +186,16 @@ 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
@ -246,5 +203,4 @@ test_thread(void *arg)
#endif #endif
return( NULL ); return( NULL );
} }
#endif /* ENABLE_THREAD_SAFETY */ #endif /* ENABLE_THREAD_SAFETY */

View File

@ -42,59 +42,42 @@ 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"
@ -118,26 +101,18 @@ main(int argc, char *argv[])
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) )
@ -148,11 +123,9 @@ main(int argc, char *argv[])
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 */
@ -162,7 +135,6 @@ test_thread(void *arg)
#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,13 +144,10 @@ 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 )
@ -186,13 +155,10 @@ test_thread(void *arg)
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"
@ -202,17 +168,14 @@ test_thread(void *arg)
#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
@ -224,22 +187,16 @@ 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
@ -247,5 +204,4 @@ test_thread(void *arg)
#endif #endif
return( NULL ); return( NULL );
} }
#endif /* ENABLE_THREAD_SAFETY */ #endif /* ENABLE_THREAD_SAFETY */

View File

@ -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;