open-dsi
/
postgres
mirror of https://github.com/postgres/postgres
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ecpg: refactor to eliminate cast-away-const in find_variable().

Browse Source 
find_variable() and its subroutines transiently scribble on the
passed-in "name" string, even though we've declared that "const".
The string is in fact temporary, so this is not very harmful,
but it's confusing and will produce compiler warnings with
late-model gcc.  Rearrange the code so that instead of modifying
the given string, we make temporary copies of the parts that we
need separated out.  (I used loc_alloc so that the copies are
short-lived and don't need to be freed explicitly.)

This code is poorly structured and confusing, to the point where
my first attempt to fix it was wrong.  It is also under-tested,
allowing the broken v1 patch to nonetheless pass regression.
I'll restrain myself from rewriting it completely, and just add
some comments and more test cases.

We will probably want to back-patch this once gcc 15.2 becomes
more widespread, but for now just put it in master.

Author: Tom Lane <tgl@sss.pgh.pa.us>
Discussion: https://postgr.es/m/1324889.1764886170@sss.pgh.pa.us
pull/256/head
Tom Lane 1 week ago
parent 005a2907dc
commit 4eda42e8bd
7 changed files with 423 additions and 232 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 133
      src/interfaces/ecpg/preproc/variable.c
  2. 143
      src/interfaces/ecpg/test/expected/preproc-array_of_struct.c
  3. 88
      src/interfaces/ecpg/test/expected/preproc-array_of_struct.stderr
  4. 144
      src/interfaces/ecpg/test/expected/preproc-pointer_to_struct.c
  5. 88
      src/interfaces/ecpg/test/expected/preproc-pointer_to_struct.stderr
  6. 29
      src/interfaces/ecpg/test/preproc/array_of_struct.pgc
  7. 30
      src/interfaces/ecpg/test/preproc/pointer_to_struct.pgc

133
src/interfaces/ecpg/preproc/variable.c
Unescape View File

@ -6,6 +6,19 @@
static struct variable *allvariables = NULL; static struct variable *allvariables = NULL;
/* this probably belongs in util.c, but for now it's only needed here */
static char *
loc_nstrdup(const char *in, size_t len)
{
char *out;
out = loc_alloc(len + 1);
memcpy(out, in, len);
out[len] = '\0';
return out;
}
struct variable * struct variable *
new_variable(const char *name, struct ECPGtype *type, int brace_level) new_variable(const char *name, struct ECPGtype *type, int brace_level)
{ {
@ -21,22 +34,34 @@ new_variable(const char *name, struct ECPGtype *type, int brace_level)
return p; return p;
} }
/*
* Perform lookup of a field within a struct
*
* 'name' is the entire C variable name
* 'str' points just before the next field name to parse
* 'members' and 'brace_level' describe the struct we are looking into
*
* Returns NULL if field is not found.
*
* This recurses if needed to handle sub-fields.
*/
static struct variable * static struct variable *
find_struct_member(const char *name, char *str, struct ECPGstruct_member *members, int brace_level) find_struct_member(const char *name, const char *str,
struct ECPGstruct_member *members, int brace_level)
{ {
char *next = strpbrk(++str, ".-["), /* ++ here skips over the '.', or the '>' of '->' */
const char *next = strpbrk(++str, ".-["),
*end, *end,
c = '\0'; *field;
if (next != NULL) if (next != NULL)
{ field = loc_nstrdup(str, next - str);
c = *next; else
*next = '\0'; field = str;
}
for (; members; members = members->next) for (; members; members = members->next)
{ {
if (strcmp(members->name, str) == 0) if (strcmp(members->name, field) == 0)
{ {
if (next == NULL) if (next == NULL)
{ {
@ -54,14 +79,13 @@ find_struct_member(const char *name, char *str, struct ECPGstruct_member *member
} }
else else
{ {
*next = c; if (*next == '[')
if (c == '[')
{ {
int count; int count;
/* /*
* We don't care about what's inside the array brackets so * We don't care about what's inside the array brackets so
* just eat up the character * just scan to find the matching right bracket.
*/ */
for (count = 1, end = next + 1; count; end++) for (count = 1, end = next + 1; count; end++)
{ {
@ -122,26 +146,35 @@ find_struct_member(const char *name, char *str, struct ECPGstruct_member *member
return NULL; return NULL;
} }
/*
* Do struct lookup when we have found var.field, var->field, or var[n].field
*
* 'name' is the entire C variable name
* 'next' points at the character after the base name
* 'end' points at the character after the subscript, if there was a
* subscript, else it's the same as 'next'.
*
* This is used only at the first level of field reference; sub-fields will
* be handled by internal recursion in find_struct_member.
*/
static struct variable * static struct variable *
find_struct(const char *name, char *next, char *end) find_struct(const char *name, const char *next, const char *end)
{ {
char *prefix;
struct variable *p; struct variable *p;
char c = *next;
/* first get the mother structure entry */ /* first get the mother structure entry */
*next = '\0'; prefix = loc_nstrdup(name, next - name);
p = find_variable(name); p = find_variable(prefix);
if (c == '-') if (*next == '-')
{ {
/* We have var->field */
if (p->type->type != ECPGt_array) if (p->type->type != ECPGt_array)
mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer", name); mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer", prefix);
if (p->type->u.element->type != ECPGt_struct && p->type->u.element->type != ECPGt_union) if (p->type->u.element->type != ECPGt_struct && p->type->u.element->type != ECPGt_union)
mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer to a structure or a union", name); mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer to a structure or a union", prefix);
/* restore the name, we will need it later */
*next = c;
return find_struct_member(name, ++end, p->type->u.element->u.members, p->brace_level); return find_struct_member(name, ++end, p->type->u.element->u.members, p->brace_level);
} }
@ -149,30 +182,27 @@ find_struct(const char *name, char *next, char *end)
{ {
if (next == end) if (next == end)
{ {
/* We have var.field */
if (p->type->type != ECPGt_struct && p->type->type != ECPGt_union) if (p->type->type != ECPGt_struct && p->type->type != ECPGt_union)
mmfatal(PARSE_ERROR, "variable \"%s\" is neither a structure nor a union", name); mmfatal(PARSE_ERROR, "variable \"%s\" is neither a structure nor a union", prefix);
/* restore the name, we will need it later */
*next = c;
return find_struct_member(name, end, p->type->u.members, p->brace_level); return find_struct_member(name, end, p->type->u.members, p->brace_level);
} }
else else
{ {
/* We have var[n].field */
if (p->type->type != ECPGt_array) if (p->type->type != ECPGt_array)
mmfatal(PARSE_ERROR, "variable \"%s\" is not an array", name); mmfatal(PARSE_ERROR, "variable \"%s\" is not an array", prefix);
if (p->type->u.element->type != ECPGt_struct && p->type->u.element->type != ECPGt_union) if (p->type->u.element->type != ECPGt_struct && p->type->u.element->type != ECPGt_union)
mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer to a structure or a union", name); mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer to a structure or a union", prefix);
/* restore the name, we will need it later */
*next = c;
return find_struct_member(name, end, p->type->u.element->u.members, p->brace_level); return find_struct_member(name, end, p->type->u.element->u.members, p->brace_level);
} }
} }
} }
/* Look up a variable given its base name */
static struct variable * static struct variable *
find_simple(const char *name) find_simple(const char *name)
{ {
@ -187,12 +217,24 @@ find_simple(const char *name)
return NULL; return NULL;
} }
/* Note that this function will end the program in case of an unknown */ /*
/* variable */ * Build a "struct variable" for a C variable reference.
*
* The given "name" string is a CVARIABLE per pgc.l, so it can include not
* only a base variable name but also ".field", "->field", or "[subscript]"
* decoration. We don't need to understand that fully, because we always
* duplicate the whole string into the name field of the result variable
* and emit it literally to the output file; the C compiler will make sense
* of it later. What we do need to do here is identify the type of the
* target field or array element so that we can attach a correct ECPGtype
* struct to the result.
*
* Note that this function will end the program in case of an unknown variable.
*/
struct variable * struct variable *
find_variable(const char *name) find_variable(const char *name)
{ {
char *next, const char *next,
*end; *end;
struct variable *p; struct variable *p;
int count; int count;
@ -200,11 +242,12 @@ find_variable(const char *name)
next = strpbrk(name, ".[-"); next = strpbrk(name, ".[-");
if (next) if (next)
{ {
/* Deal with field/subscript decoration */
if (*next == '[') if (*next == '[')
{ {
/* /*
* We don't care about what's inside the array brackets so just * We don't care about what's inside the array brackets so just
* eat up the characters * scan to find the matching right bracket.
*/ */
for (count = 1, end = next + 1; count; end++) for (count = 1, end = next + 1; count; end++)
{ {
@ -224,18 +267,25 @@ find_variable(const char *name)
} }
} }
if (*end == '.') if (*end == '.')
{
/* We have var[n].field */
p = find_struct(name, next, end); p = find_struct(name, next, end);
}
else else
{ {
char c = *next; /*
* Note: this part assumes we must just have var[n] without
* any further decoration, which fails to handle cases such as
* var[n]->field. For now, that's okay because
* pointer-to-pointer variables are rejected elsewhere.
*/
char *prefix = loc_nstrdup(name, next - name);
*next = '\0'; p = find_simple(prefix);
p = find_simple(name);
if (p == NULL) if (p == NULL)
mmfatal(PARSE_ERROR, "variable \"%s\" is not declared", name); mmfatal(PARSE_ERROR, "variable \"%s\" is not declared", prefix);
if (p->type->type != ECPGt_array) if (p->type->type != ECPGt_array)
mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer", name); mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer", prefix);
*next = c;
switch (p->type->u.element->type) switch (p->type->u.element->type)
{ {
case ECPGt_array: case ECPGt_array:
@ -249,7 +299,10 @@ find_variable(const char *name)
} }
} }
else else
{
/* Must be var.field or var->field */
p = find_struct(name, next, next); p = find_struct(name, next, next);
}
} }
else else
p = find_simple(name); p = find_simple(name);

143
src/interfaces/ecpg/test/expected/preproc-array_of_struct.c
Unescape View File

@ -50,6 +50,13 @@ typedef struct ind {
#line 21 "array_of_struct.pgc" #line 21 "array_of_struct.pgc"
typedef struct {
#line 26 "array_of_struct.pgc"
customer customers [ 10 ] ;
} company ;
#line 27 "array_of_struct.pgc"
int main() int main()
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
@ -60,14 +67,14 @@ int main()
typedef struct { typedef struct {
#line 30 "array_of_struct.pgc" #line 36 "array_of_struct.pgc"
struct varchar_2 { int len; char arr[ 50 ]; } name ; struct varchar_2 { int len; char arr[ 50 ]; } name ;
#line 31 "array_of_struct.pgc" #line 37 "array_of_struct.pgc"
int phone ; int phone ;
} customer2 ; } customer2 ;
#line 32 "array_of_struct.pgc" #line 38 "array_of_struct.pgc"
@ -83,103 +90,131 @@ int main()
#line 26 "array_of_struct.pgc"
#line 32 "array_of_struct.pgc"
customer custs1 [ 10 ] ; customer custs1 [ 10 ] ;
#line 27 "array_of_struct.pgc" #line 33 "array_of_struct.pgc"
cust_ind inds [ 10 ] ; cust_ind inds [ 10 ] ;
#line 33 "array_of_struct.pgc" #line 39 "array_of_struct.pgc"
customer2 custs2 [ 10 ] ; customer2 custs2 [ 10 ] ;
#line 38 "array_of_struct.pgc" #line 44 "array_of_struct.pgc"
struct customer3 { struct customer3 {
#line 36 "array_of_struct.pgc" #line 42 "array_of_struct.pgc"
struct varchar_3 { int len; char arr[ 50 ]; } name ; struct varchar_3 { int len; char arr[ 50 ]; } name ;
#line 37 "array_of_struct.pgc" #line 43 "array_of_struct.pgc"
int phone ; int phone ;
} custs3 [ 10 ] ; } custs3 [ 10 ] ;
#line 43 "array_of_struct.pgc" #line 49 "array_of_struct.pgc"
struct customer4 { struct customer4 {
#line 41 "array_of_struct.pgc" #line 47 "array_of_struct.pgc"
struct varchar_4 { int len; char arr[ 50 ]; } name ; struct varchar_4 { int len; char arr[ 50 ]; } name ;
#line 42 "array_of_struct.pgc" #line 48 "array_of_struct.pgc"
int phone ; int phone ;
} custs4 ; } custs4 ;
#line 44 "array_of_struct.pgc" #line 51 "array_of_struct.pgc"
company acme ;
#line 53 "array_of_struct.pgc"
int r ; int r ;
#line 45 "array_of_struct.pgc" #line 54 "array_of_struct.pgc"
struct varchar_5 { int len; char arr[ 50 ]; } onlyname [ 2 ] ; struct varchar_5 { int len; char arr[ 50 ]; } onlyname [ 2 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 46 "array_of_struct.pgc" #line 55 "array_of_struct.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
{ ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , NULL, 0); { ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , NULL, 0);
#line 50 "array_of_struct.pgc" #line 59 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 50 "array_of_struct.pgc" #line 59 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 50 "array_of_struct.pgc" #line 59 "array_of_struct.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table customers ( c varchar ( 50 ) , p int )", ECPGt_EOIT, ECPGt_EORT); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table customers ( c varchar ( 50 ) , p int )", ECPGt_EOIT, ECPGt_EORT);
#line 52 "array_of_struct.pgc" #line 61 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 52 "array_of_struct.pgc" #line 61 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 52 "array_of_struct.pgc" #line 61 "array_of_struct.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( 'John Doe' , '12345' )", ECPGt_EOIT, ECPGt_EORT);
#line 53 "array_of_struct.pgc" /* First we'll insert some data using C variable references */
strcpy(custs1[0].name.arr, "John Doe");
custs1[0].name.len = strlen(custs1[0].name.arr);
custs1[0].phone = 12345;
strcpy(acme.customers[1].name.arr, "Jane Doe");
acme.customers[1].name.len = strlen(acme.customers[1].name.arr);
acme.customers[1].phone = 67890;
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( $1 , $2 )",
ECPGt_varchar,&(custs1->name),(long)50,(long)1,sizeof(struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_int,&(custs1[0].phone),(long)1,(long)1,sizeof(int),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 73 "array_of_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 53 "array_of_struct.pgc" #line 73 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 53 "array_of_struct.pgc" #line 73 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 53 "array_of_struct.pgc" #line 73 "array_of_struct.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( 'Jane Doe' , '67890' )", ECPGt_EOIT, ECPGt_EORT); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( $1 , $2 )",
#line 54 "array_of_struct.pgc" ECPGt_varchar,&(acme.customers[1].name),(long)50,(long)1,sizeof(struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_int,&(acme.customers[1].phone),(long)1,(long)1,sizeof(int),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 75 "array_of_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 54 "array_of_struct.pgc" #line 75 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 54 "array_of_struct.pgc" #line 75 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 54 "array_of_struct.pgc" #line 75 "array_of_struct.pgc"
/* Clear the array, to be sure reading back into it actually gets data */
memset(custs1, 0, sizeof(customer) * 10);
/* Now read back the data */
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from customers limit 2", ECPGt_EOIT, { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from customers limit 2", ECPGt_EOIT,
ECPGt_varchar,&(custs1->name),(long)50,(long)10,sizeof( customer ), ECPGt_varchar,&(custs1->name),(long)50,(long)10,sizeof( customer ),
ECPGt_short,&(inds->name_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_short,&(inds->name_ind),(long)1,(long)10,sizeof( struct ind ),
ECPGt_int,&(custs1->phone),(long)1,(long)10,sizeof( customer ), ECPGt_int,&(custs1->phone),(long)1,(long)10,sizeof( customer ),
ECPGt_short,&(inds->phone_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds->phone_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_EORT);
#line 56 "array_of_struct.pgc" #line 81 "array_of_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 56 "array_of_struct.pgc" #line 81 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 56 "array_of_struct.pgc" #line 81 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 56 "array_of_struct.pgc" #line 81 "array_of_struct.pgc"
printf("custs1:\n"); printf("custs1:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -193,16 +228,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
ECPGt_short,&(inds->name_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_short,&(inds->name_ind),(long)1,(long)10,sizeof( struct ind ),
ECPGt_int,&(custs2->phone),(long)1,(long)10,sizeof( customer2 ), ECPGt_int,&(custs2->phone),(long)1,(long)10,sizeof( customer2 ),
ECPGt_short,&(inds->phone_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds->phone_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_EORT);
#line 64 "array_of_struct.pgc" #line 89 "array_of_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 64 "array_of_struct.pgc" #line 89 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 64 "array_of_struct.pgc" #line 89 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 64 "array_of_struct.pgc" #line 89 "array_of_struct.pgc"
printf("\ncusts2:\n"); printf("\ncusts2:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -216,16 +251,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
ECPGt_short,&(inds->name_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_short,&(inds->name_ind),(long)1,(long)10,sizeof( struct ind ),
ECPGt_int,&(custs3->phone),(long)1,(long)10,sizeof( struct customer3 ), ECPGt_int,&(custs3->phone),(long)1,(long)10,sizeof( struct customer3 ),
ECPGt_short,&(inds->phone_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds->phone_ind),(long)1,(long)10,sizeof( struct ind ), ECPGt_EORT);
#line 72 "array_of_struct.pgc" #line 97 "array_of_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 72 "array_of_struct.pgc" #line 97 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 72 "array_of_struct.pgc" #line 97 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 72 "array_of_struct.pgc" #line 97 "array_of_struct.pgc"
printf("\ncusts3:\n"); printf("\ncusts3:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -239,16 +274,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
ECPGt_short,&(inds[0].name_ind),(long)1,(long)1,sizeof( struct ind ), ECPGt_short,&(inds[0].name_ind),(long)1,(long)1,sizeof( struct ind ),
ECPGt_int,&(custs4.phone),(long)1,(long)1,sizeof( struct customer4 ), ECPGt_int,&(custs4.phone),(long)1,(long)1,sizeof( struct customer4 ),
ECPGt_short,&(inds[0].phone_ind),(long)1,(long)1,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds[0].phone_ind),(long)1,(long)1,sizeof( struct ind ), ECPGt_EORT);
#line 80 "array_of_struct.pgc" #line 105 "array_of_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 80 "array_of_struct.pgc" #line 105 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 80 "array_of_struct.pgc" #line 105 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 80 "array_of_struct.pgc" #line 105 "array_of_struct.pgc"
printf("\ncusts4:\n"); printf("\ncusts4:\n");
printf( "name - %s\n", custs4.name.arr ); printf( "name - %s\n", custs4.name.arr );
@ -257,16 +292,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select c from customers limit 2", ECPGt_EOIT, { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select c from customers limit 2", ECPGt_EOIT,
ECPGt_varchar,(onlyname),(long)50,(long)2,sizeof(struct varchar_5), ECPGt_varchar,(onlyname),(long)50,(long)2,sizeof(struct varchar_5),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 85 "array_of_struct.pgc" #line 110 "array_of_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 85 "array_of_struct.pgc" #line 110 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 85 "array_of_struct.pgc" #line 110 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 85 "array_of_struct.pgc" #line 110 "array_of_struct.pgc"
printf("\nname:\n"); printf("\nname:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -275,13 +310,13 @@ if (sqlca.sqlcode < 0) sqlprint();}
} }
{ ECPGdisconnect(__LINE__, "ALL"); { ECPGdisconnect(__LINE__, "ALL");
#line 92 "array_of_struct.pgc" #line 117 "array_of_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 92 "array_of_struct.pgc" #line 117 "array_of_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 92 "array_of_struct.pgc" #line 117 "array_of_struct.pgc"
return 0; return 0;

88
src/interfaces/ecpg/test/expected/preproc-array_of_struct.stderr
Unescape View File

@ -2,85 +2,93 @@
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGconnect: opening database ecpg1_regression on <DEFAULT> port <DEFAULT> [NO_PID]: ECPGconnect: opening database ecpg1_regression on <DEFAULT> port <DEFAULT>
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 52: query: create table customers ( c varchar ( 50 ) , p int ); with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 61: query: create table customers ( c varchar ( 50 ) , p int ); with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 52: using PQexec [NO_PID]: ecpg_execute on line 61: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 52: OK: CREATE TABLE [NO_PID]: ecpg_process_output on line 61: OK: CREATE TABLE
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 53: query: insert into customers values ( 'John Doe' , '12345' ); with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 72: query: insert into customers values ( $1 , $2 ); with 2 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 53: using PQexec [NO_PID]: ecpg_execute on line 72: using PQexecParams
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 53: OK: INSERT 0 1 [NO_PID]: ecpg_free_params on line 72: parameter 1 = John Doe
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 54: query: insert into customers values ( 'Jane Doe' , '67890' ); with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_free_params on line 72: parameter 2 = 12345
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 54: using PQexec [NO_PID]: ecpg_process_output on line 72: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 54: OK: INSERT 0 1 [NO_PID]: ecpg_execute on line 74: query: insert into customers values ( $1 , $2 ); with 2 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 56: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 74: using PQexecParams
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 56: using PQexec [NO_PID]: ecpg_free_params on line 74: parameter 1 = Jane Doe
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 56: correctly got 2 tuples with 2 fields [NO_PID]: ecpg_free_params on line 74: parameter 2 = 67890
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 56: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_process_output on line 74: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 56: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 81: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 56: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 81: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 56: RESULT: 67890 offset: -1; array: no [NO_PID]: ecpg_process_output on line 81: correctly got 2 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 64: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_get_data on line 81: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 64: using PQexec [NO_PID]: ecpg_get_data on line 81: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 64: correctly got 2 tuples with 2 fields [NO_PID]: ecpg_get_data on line 81: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 64: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 81: RESULT: 67890 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 64: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 89: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 64: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 89: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 64: RESULT: 67890 offset: -1; array: no [NO_PID]: ecpg_process_output on line 89: correctly got 2 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 72: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_get_data on line 89: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 72: using PQexec [NO_PID]: ecpg_get_data on line 89: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 72: correctly got 2 tuples with 2 fields [NO_PID]: ecpg_get_data on line 89: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 72: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 89: RESULT: 67890 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 72: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 97: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 72: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 97: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 72: RESULT: 67890 offset: -1; array: no [NO_PID]: ecpg_process_output on line 97: correctly got 2 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 80: query: select * from customers limit 1; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_get_data on line 97: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 80: using PQexec [NO_PID]: ecpg_get_data on line 97: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 80: correctly got 1 tuples with 2 fields [NO_PID]: ecpg_get_data on line 97: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 80: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 97: RESULT: 67890 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 80: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 105: query: select * from customers limit 1; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 85: query: select c from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 105: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 85: using PQexec [NO_PID]: ecpg_process_output on line 105: correctly got 1 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 85: correctly got 2 tuples with 1 fields [NO_PID]: ecpg_get_data on line 105: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 85: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 105: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 85: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 110: query: select c from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 110: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 110: correctly got 2 tuples with 1 fields
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 110: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 110: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_finish: connection ecpg1_regression closed [NO_PID]: ecpg_finish: connection ecpg1_regression closed
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000

144
src/interfaces/ecpg/test/expected/preproc-pointer_to_struct.c
Unescape View File

@ -51,6 +51,13 @@ typedef struct ind {
#line 22 "pointer_to_struct.pgc" #line 22 "pointer_to_struct.pgc"
typedef struct {
#line 27 "pointer_to_struct.pgc"
customer * customers ;
} company ;
#line 28 "pointer_to_struct.pgc"
int main() int main()
{ {
/* exec sql begin declare section */ /* exec sql begin declare section */
@ -61,14 +68,14 @@ int main()
typedef struct { typedef struct {
#line 31 "pointer_to_struct.pgc" #line 37 "pointer_to_struct.pgc"
struct varchar_2 { int len; char arr[ 50 ]; } name ; struct varchar_2 { int len; char arr[ 50 ]; } name ;
#line 32 "pointer_to_struct.pgc" #line 38 "pointer_to_struct.pgc"
int phone ; int phone ;
} customer2 ; } customer2 ;
#line 33 "pointer_to_struct.pgc" #line 39 "pointer_to_struct.pgc"
@ -87,103 +94,132 @@ int main()
#line 27 "pointer_to_struct.pgc"
#line 33 "pointer_to_struct.pgc"
customer * custs1 = ( customer * ) malloc ( sizeof ( customer ) * 10 ) ; customer * custs1 = ( customer * ) malloc ( sizeof ( customer ) * 10 ) ;
#line 28 "pointer_to_struct.pgc" #line 34 "pointer_to_struct.pgc"
cust_ind * inds = ( cust_ind * ) malloc ( sizeof ( cust_ind ) * 10 ) ; cust_ind * inds = ( cust_ind * ) malloc ( sizeof ( cust_ind ) * 10 ) ;
#line 34 "pointer_to_struct.pgc" #line 40 "pointer_to_struct.pgc"
customer2 * custs2 = ( customer2 * ) malloc ( sizeof ( customer2 ) * 10 ) ; customer2 * custs2 = ( customer2 * ) malloc ( sizeof ( customer2 ) * 10 ) ;
#line 40 "pointer_to_struct.pgc" #line 46 "pointer_to_struct.pgc"
struct customer3 { struct customer3 {
#line 38 "pointer_to_struct.pgc" #line 44 "pointer_to_struct.pgc"
char name [ 50 ] ; char name [ 50 ] ;
#line 39 "pointer_to_struct.pgc" #line 45 "pointer_to_struct.pgc"
int phone ; int phone ;
} * custs3 = ( struct customer3 * ) malloc ( sizeof ( struct customer3 ) * 10 ) ; } * custs3 = ( struct customer3 * ) malloc ( sizeof ( struct customer3 ) * 10 ) ;
#line 46 "pointer_to_struct.pgc" #line 52 "pointer_to_struct.pgc"
struct customer4 { struct customer4 {
#line 44 "pointer_to_struct.pgc" #line 50 "pointer_to_struct.pgc"
struct varchar_3 { int len; char arr[ 50 ]; } name ; struct varchar_3 { int len; char arr[ 50 ]; } name ;
#line 45 "pointer_to_struct.pgc" #line 51 "pointer_to_struct.pgc"
int phone ; int phone ;
} * custs4 = ( struct customer4 * ) malloc ( sizeof ( struct customer4 ) ) ; } * custs4 = ( struct customer4 * ) malloc ( sizeof ( struct customer4 ) ) ;
#line 48 "pointer_to_struct.pgc" #line 54 "pointer_to_struct.pgc"
company acme ;
#line 56 "pointer_to_struct.pgc"
int r ; int r ;
#line 49 "pointer_to_struct.pgc" #line 57 "pointer_to_struct.pgc"
struct varchar_4 { int len; char arr[ 50 ]; } onlyname [ 2 ] ; struct varchar_4 { int len; char arr[ 50 ]; } onlyname [ 2 ] ;
/* exec sql end declare section */ /* exec sql end declare section */
#line 50 "pointer_to_struct.pgc" #line 58 "pointer_to_struct.pgc"
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
acme.customers = (customer *) malloc(sizeof(customer) * 10);
{ ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , NULL, 0); { ECPGconnect(__LINE__, 0, "ecpg1_regression" , NULL, NULL , NULL, 0);
#line 54 "pointer_to_struct.pgc" #line 64 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 54 "pointer_to_struct.pgc" #line 64 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 54 "pointer_to_struct.pgc" #line 64 "pointer_to_struct.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table customers ( c varchar ( 50 ) , p int )", ECPGt_EOIT, ECPGt_EORT); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table customers ( c varchar ( 50 ) , p int )", ECPGt_EOIT, ECPGt_EORT);
#line 56 "pointer_to_struct.pgc" #line 66 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 56 "pointer_to_struct.pgc" #line 66 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 56 "pointer_to_struct.pgc" #line 66 "pointer_to_struct.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( 'John Doe' , '12345' )", ECPGt_EOIT, ECPGt_EORT);
#line 57 "pointer_to_struct.pgc" /* First we'll insert some data using C variable references */
strcpy(custs1[0].name.arr, "John Doe");
custs1[0].name.len = strlen(custs1[0].name.arr);
custs1[0].phone = 12345;
strcpy(acme.customers[1].name.arr, "Jane Doe");
acme.customers[1].name.len = strlen(acme.customers[1].name.arr);
acme.customers[1].phone = 67890;
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( $1 , $2 )",
ECPGt_varchar,&(custs1->name),(long)50,(long)1,sizeof(struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_int,&(custs1[0].phone),(long)1,(long)1,sizeof(int),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 78 "pointer_to_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 57 "pointer_to_struct.pgc" #line 78 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 57 "pointer_to_struct.pgc" #line 78 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 57 "pointer_to_struct.pgc" #line 78 "pointer_to_struct.pgc"
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( 'Jane Doe' , '67890' )", ECPGt_EOIT, ECPGt_EORT); { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into customers values ( $1 , $2 )",
#line 58 "pointer_to_struct.pgc" ECPGt_varchar,&(acme.customers[1].name),(long)50,(long)1,sizeof(struct varchar_1),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L,
ECPGt_int,&(acme.customers[1].phone),(long)1,(long)1,sizeof(int),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
#line 80 "pointer_to_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 58 "pointer_to_struct.pgc" #line 80 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 58 "pointer_to_struct.pgc" #line 80 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 58 "pointer_to_struct.pgc" #line 80 "pointer_to_struct.pgc"
/* Clear the array, to be sure reading back into it actually gets data */
memset(custs1, 0, sizeof(customer) * 10);
/* Now read back the data */
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from customers limit 2", ECPGt_EOIT, { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select * from customers limit 2", ECPGt_EOIT,
ECPGt_varchar,&(custs1->name),(long)50,(long)-1,sizeof( customer ), ECPGt_varchar,&(custs1->name),(long)50,(long)-1,sizeof( customer ),
ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ),
ECPGt_int,&(custs1->phone),(long)1,(long)-1,sizeof( customer ), ECPGt_int,&(custs1->phone),(long)1,(long)-1,sizeof( customer ),
ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT);
#line 60 "pointer_to_struct.pgc" #line 86 "pointer_to_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 60 "pointer_to_struct.pgc" #line 86 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 60 "pointer_to_struct.pgc" #line 86 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 60 "pointer_to_struct.pgc" #line 86 "pointer_to_struct.pgc"
printf("custs1:\n"); printf("custs1:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -197,16 +233,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ),
ECPGt_int,&(custs2->phone),(long)1,(long)-1,sizeof( customer2 ), ECPGt_int,&(custs2->phone),(long)1,(long)-1,sizeof( customer2 ),
ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT);
#line 68 "pointer_to_struct.pgc" #line 94 "pointer_to_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 68 "pointer_to_struct.pgc" #line 94 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 68 "pointer_to_struct.pgc" #line 94 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 68 "pointer_to_struct.pgc" #line 94 "pointer_to_struct.pgc"
printf("\ncusts2:\n"); printf("\ncusts2:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -220,16 +256,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ),
ECPGt_int,&(custs3->phone),(long)1,(long)-1,sizeof( struct customer3 ), ECPGt_int,&(custs3->phone),(long)1,(long)-1,sizeof( struct customer3 ),
ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT);
#line 76 "pointer_to_struct.pgc" #line 102 "pointer_to_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 76 "pointer_to_struct.pgc" #line 102 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 76 "pointer_to_struct.pgc" #line 102 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 76 "pointer_to_struct.pgc" #line 102 "pointer_to_struct.pgc"
printf("\ncusts3:\n"); printf("\ncusts3:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -243,16 +279,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_short,&(inds->name_ind),(long)1,(long)-1,sizeof( struct ind ),
ECPGt_int,&(custs4->phone),(long)1,(long)-1,sizeof( struct customer4 ), ECPGt_int,&(custs4->phone),(long)1,(long)-1,sizeof( struct customer4 ),
ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT); ECPGt_short,&(inds->phone_ind),(long)1,(long)-1,sizeof( struct ind ), ECPGt_EORT);
#line 84 "pointer_to_struct.pgc" #line 110 "pointer_to_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 84 "pointer_to_struct.pgc" #line 110 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 84 "pointer_to_struct.pgc" #line 110 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 84 "pointer_to_struct.pgc" #line 110 "pointer_to_struct.pgc"
printf("\ncusts4:\n"); printf("\ncusts4:\n");
printf( "name - %s\n", custs4->name.arr ); printf( "name - %s\n", custs4->name.arr );
@ -261,16 +297,16 @@ if (sqlca.sqlcode < 0) sqlprint();}
{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select c from customers limit 2", ECPGt_EOIT, { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select c from customers limit 2", ECPGt_EOIT,
ECPGt_varchar,(onlyname),(long)50,(long)2,sizeof(struct varchar_4), ECPGt_varchar,(onlyname),(long)50,(long)2,sizeof(struct varchar_4),
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT); ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 89 "pointer_to_struct.pgc" #line 115 "pointer_to_struct.pgc"
if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint(); if (sqlca.sqlcode == ECPG_NOT_FOUND) sqlprint();
#line 89 "pointer_to_struct.pgc" #line 115 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 89 "pointer_to_struct.pgc" #line 115 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 89 "pointer_to_struct.pgc" #line 115 "pointer_to_struct.pgc"
printf("\nname:\n"); printf("\nname:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)
@ -279,13 +315,13 @@ if (sqlca.sqlcode < 0) sqlprint();}
} }
{ ECPGdisconnect(__LINE__, "ALL"); { ECPGdisconnect(__LINE__, "ALL");
#line 96 "pointer_to_struct.pgc" #line 122 "pointer_to_struct.pgc"
if (sqlca.sqlwarn[0] == 'W') sqlprint(); if (sqlca.sqlwarn[0] == 'W') sqlprint();
#line 96 "pointer_to_struct.pgc" #line 122 "pointer_to_struct.pgc"
if (sqlca.sqlcode < 0) sqlprint();} if (sqlca.sqlcode < 0) sqlprint();}
#line 96 "pointer_to_struct.pgc" #line 122 "pointer_to_struct.pgc"
/* All the memory will anyway be freed at the end */ /* All the memory will anyway be freed at the end */

88
src/interfaces/ecpg/test/expected/preproc-pointer_to_struct.stderr
Unescape View File

@ -2,85 +2,93 @@
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ECPGconnect: opening database ecpg1_regression on <DEFAULT> port <DEFAULT> [NO_PID]: ECPGconnect: opening database ecpg1_regression on <DEFAULT> port <DEFAULT>
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 56: query: create table customers ( c varchar ( 50 ) , p int ); with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 66: query: create table customers ( c varchar ( 50 ) , p int ); with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 56: using PQexec [NO_PID]: ecpg_execute on line 66: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 56: OK: CREATE TABLE [NO_PID]: ecpg_process_output on line 66: OK: CREATE TABLE
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 57: query: insert into customers values ( 'John Doe' , '12345' ); with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 77: query: insert into customers values ( $1 , $2 ); with 2 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 57: using PQexec [NO_PID]: ecpg_execute on line 77: using PQexecParams
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 57: OK: INSERT 0 1 [NO_PID]: ecpg_free_params on line 77: parameter 1 = John Doe
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 58: query: insert into customers values ( 'Jane Doe' , '67890' ); with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_free_params on line 77: parameter 2 = 12345
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 58: using PQexec [NO_PID]: ecpg_process_output on line 77: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 58: OK: INSERT 0 1 [NO_PID]: ecpg_execute on line 79: query: insert into customers values ( $1 , $2 ); with 2 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 60: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 79: using PQexecParams
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 60: using PQexec [NO_PID]: ecpg_free_params on line 79: parameter 1 = Jane Doe
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 60: correctly got 2 tuples with 2 fields [NO_PID]: ecpg_free_params on line 79: parameter 2 = 67890
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 60: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_process_output on line 79: OK: INSERT 0 1
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 60: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 86: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 60: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 86: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 60: RESULT: 67890 offset: -1; array: no [NO_PID]: ecpg_process_output on line 86: correctly got 2 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 68: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_get_data on line 86: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 68: using PQexec [NO_PID]: ecpg_get_data on line 86: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 68: correctly got 2 tuples with 2 fields [NO_PID]: ecpg_get_data on line 86: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 68: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 86: RESULT: 67890 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 68: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 94: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 68: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 94: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 68: RESULT: 67890 offset: -1; array: no [NO_PID]: ecpg_process_output on line 94: correctly got 2 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 76: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_get_data on line 94: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 76: using PQexec [NO_PID]: ecpg_get_data on line 94: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 76: correctly got 2 tuples with 2 fields [NO_PID]: ecpg_get_data on line 94: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 76: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 94: RESULT: 67890 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 76: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 102: query: select * from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 76: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 102: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 76: RESULT: 67890 offset: -1; array: no [NO_PID]: ecpg_process_output on line 102: correctly got 2 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 84: query: select * from customers limit 1; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_get_data on line 102: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 84: using PQexec [NO_PID]: ecpg_get_data on line 102: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 84: correctly got 1 tuples with 2 fields [NO_PID]: ecpg_get_data on line 102: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 84: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 102: RESULT: 67890 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 84: RESULT: 12345 offset: -1; array: no [NO_PID]: ecpg_execute on line 110: query: select * from customers limit 1; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 89: query: select c from customers limit 2; with 0 parameter(s) on connection ecpg1_regression [NO_PID]: ecpg_execute on line 110: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 89: using PQexec [NO_PID]: ecpg_process_output on line 110: correctly got 1 tuples with 2 fields
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 89: correctly got 2 tuples with 1 fields [NO_PID]: ecpg_get_data on line 110: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 89: RESULT: John Doe offset: -1; array: no [NO_PID]: ecpg_get_data on line 110: RESULT: 12345 offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 89: RESULT: Jane Doe offset: -1; array: no [NO_PID]: ecpg_execute on line 115: query: select c from customers limit 2; with 0 parameter(s) on connection ecpg1_regression
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_execute on line 115: using PQexec
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_process_output on line 115: correctly got 2 tuples with 1 fields
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 115: RESULT: John Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_get_data on line 115: RESULT: Jane Doe offset: -1; array: no
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000
[NO_PID]: ecpg_finish: connection ecpg1_regression closed [NO_PID]: ecpg_finish: connection ecpg1_regression closed
[NO_PID]: sqlca: code: 0, state: 00000 [NO_PID]: sqlca: code: 0, state: 00000

29
src/interfaces/ecpg/test/preproc/array_of_struct.pgc
Unescape View File

@ -20,6 +20,12 @@ EXEC SQL TYPE cust_ind IS
short phone_ind; short phone_ind;
}; };
EXEC SQL TYPE company IS
struct
{
customer customers[10];
};
int main() int main()
{ {
EXEC SQL begin declare section; EXEC SQL begin declare section;
@ -41,6 +47,9 @@ int main()
varchar name[50]; varchar name[50];
int phone; int phone;
} custs4; } custs4;
company acme;
int r; int r;
varchar onlyname[2][50]; varchar onlyname[2][50];
EXEC SQL end declare section; EXEC SQL end declare section;
@ -50,9 +59,25 @@ int main()
EXEC SQL connect to REGRESSDB1; EXEC SQL connect to REGRESSDB1;
EXEC SQL create table customers (c varchar(50), p int); EXEC SQL create table customers (c varchar(50), p int);
EXEC SQL insert into customers values ('John Doe', '12345');
EXEC SQL insert into customers values ('Jane Doe', '67890');
/* First we'll insert some data using C variable references */
strcpy(custs1[0].name.arr, "John Doe");
custs1[0].name.len = strlen(custs1[0].name.arr);
custs1[0].phone = 12345;
strcpy(acme.customers[1].name.arr, "Jane Doe");
acme.customers[1].name.len = strlen(acme.customers[1].name.arr);
acme.customers[1].phone = 67890;
EXEC SQL insert into customers values (:custs1->name,
:custs1[0].phone);
EXEC SQL insert into customers values (:acme.customers[1].name,
:acme.customers[1].phone);
/* Clear the array, to be sure reading back into it actually gets data */
memset(custs1, 0, sizeof(customer) * 10);
/* Now read back the data */
EXEC SQL select * INTO :custs1:inds from customers limit 2; EXEC SQL select * INTO :custs1:inds from customers limit 2;
printf("custs1:\n"); printf("custs1:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)

30
src/interfaces/ecpg/test/preproc/pointer_to_struct.pgc
Unescape View File

@ -21,6 +21,12 @@ EXEC SQL TYPE cust_ind IS
short phone_ind; short phone_ind;
}; };
EXEC SQL TYPE company IS
struct
{
customer *customers;
};
int main() int main()
{ {
EXEC SQL begin declare section; EXEC SQL begin declare section;
@ -45,18 +51,38 @@ int main()
int phone; int phone;
} *custs4 = (struct customer4 *) malloc(sizeof(struct customer4)); } *custs4 = (struct customer4 *) malloc(sizeof(struct customer4));
company acme;
int r; int r;
varchar onlyname[2][50]; varchar onlyname[2][50];
EXEC SQL end declare section; EXEC SQL end declare section;
ECPGdebug(1, stderr); ECPGdebug(1, stderr);
acme.customers = (customer *) malloc(sizeof(customer) * 10);
EXEC SQL connect to REGRESSDB1; EXEC SQL connect to REGRESSDB1;
EXEC SQL create table customers (c varchar(50), p int); EXEC SQL create table customers (c varchar(50), p int);
EXEC SQL insert into customers values ('John Doe', '12345');
EXEC SQL insert into customers values ('Jane Doe', '67890');
/* First we'll insert some data using C variable references */
strcpy(custs1[0].name.arr, "John Doe");
custs1[0].name.len = strlen(custs1[0].name.arr);
custs1[0].phone = 12345;
strcpy(acme.customers[1].name.arr, "Jane Doe");
acme.customers[1].name.len = strlen(acme.customers[1].name.arr);
acme.customers[1].phone = 67890;
EXEC SQL insert into customers values (:custs1->name,
:custs1[0].phone);
EXEC SQL insert into customers values (:acme.customers[1].name,
:acme.customers[1].phone);
/* Clear the array, to be sure reading back into it actually gets data */
memset(custs1, 0, sizeof(customer) * 10);
/* Now read back the data */
EXEC SQL select * INTO :custs1:inds from customers limit 2; EXEC SQL select * INTO :custs1:inds from customers limit 2;
printf("custs1:\n"); printf("custs1:\n");
for (r = 0; r < 2; r++) for (r = 0; r < 2; r++)

Write Preview
Loading…
Cancel
Save