mirror of
https://github.com/postgres/postgres.git
synced 2025-05-02 11:44:50 +03:00
270 lines
6.1 KiB
C
270 lines
6.1 KiB
C
/* Processed by ecpg (4.2.1) */
|
|
/* These include files are added by the preprocessor */
|
|
#include <ecpgtype.h>
|
|
#include <ecpglib.h>
|
|
#include <ecpgerrno.h>
|
|
#include <sqlca.h>
|
|
/* End of automatic include section */
|
|
|
|
#line 1 "variable.pgc"
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
|
|
#line 1 "regression.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#line 4 "variable.pgc"
|
|
|
|
|
|
/* exec sql whenever sqlerror sqlprint ; */
|
|
#line 6 "variable.pgc"
|
|
|
|
|
|
/* exec sql type c is char reference */
|
|
#line 8 "variable.pgc"
|
|
|
|
typedef char* c;
|
|
|
|
/* exec sql type ind is union {
|
|
#line 11 "variable.pgc"
|
|
int integer ;
|
|
|
|
#line 11 "variable.pgc"
|
|
short smallint ;
|
|
} */
|
|
#line 11 "variable.pgc"
|
|
|
|
typedef union { int integer; short smallint; } ind;
|
|
|
|
#define BUFFERSIZ 8
|
|
/* exec sql type str is [ BUFFERSIZ ] */
|
|
#line 15 "variable.pgc"
|
|
|
|
|
|
/* declare cur cursor for select name , born , age , married , children from family */
|
|
#line 18 "variable.pgc"
|
|
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
struct birthinfo {
|
|
#line 23 "variable.pgc"
|
|
long born ;
|
|
|
|
#line 23 "variable.pgc"
|
|
short age ;
|
|
} ;
|
|
#line 23 "variable.pgc"
|
|
|
|
/* exec sql begin declare section */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#line 27 "variable.pgc"
|
|
struct personal_struct {
|
|
#line 25 "variable.pgc"
|
|
struct varchar_name { int len; char arr[ BUFFERSIZ ]; } name ;
|
|
|
|
#line 26 "variable.pgc"
|
|
struct birthinfo birth ;
|
|
} personal , * p ;
|
|
|
|
#line 30 "variable.pgc"
|
|
struct personal_indicator {
|
|
#line 28 "variable.pgc"
|
|
int ind_name ;
|
|
|
|
#line 29 "variable.pgc"
|
|
struct birthinfo ind_birth ;
|
|
} ind_personal , * i ;
|
|
|
|
#line 31 "variable.pgc"
|
|
ind ind_children ;
|
|
/* exec sql end declare section */
|
|
#line 32 "variable.pgc"
|
|
|
|
|
|
|
|
#line 34 "variable.pgc"
|
|
char * married = NULL ;
|
|
|
|
#line 34 "variable.pgc"
|
|
|
|
|
|
#line 35 "variable.pgc"
|
|
long ind_married ;
|
|
|
|
#line 35 "variable.pgc"
|
|
|
|
|
|
#line 36 "variable.pgc"
|
|
ind children ;
|
|
|
|
#line 36 "variable.pgc"
|
|
|
|
|
|
char msg[128];
|
|
|
|
ECPGdebug(1, stderr);
|
|
|
|
strcpy(msg, "connect");
|
|
{ ECPGconnect(__LINE__, 0, "regress1" , NULL,NULL , NULL, 0);
|
|
#line 43 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 43 "variable.pgc"
|
|
|
|
|
|
strcpy(msg, "set");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "set datestyle to iso", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 46 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 46 "variable.pgc"
|
|
|
|
|
|
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);
|
|
#line 49 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 49 "variable.pgc"
|
|
|
|
|
|
strcpy(msg, "insert");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , married , children ) values ( 'Mum' , '19870714' , 3 ) ", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 52 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#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);
|
|
#line 53 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 53 "variable.pgc"
|
|
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 1' , 16 ) ", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 54 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 54 "variable.pgc"
|
|
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 2' , 14 ) ", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 55 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 55 "variable.pgc"
|
|
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "insert into family ( name , age ) values ( 'Child 3' , 9 ) ", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 56 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 56 "variable.pgc"
|
|
|
|
|
|
strcpy(msg, "commit");
|
|
{ ECPGtrans(__LINE__, NULL, "commit");
|
|
#line 59 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 59 "variable.pgc"
|
|
|
|
|
|
strcpy(msg, "open");
|
|
{ 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"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 62 "variable.pgc"
|
|
|
|
|
|
/* exec sql whenever not found break ; */
|
|
#line 64 "variable.pgc"
|
|
|
|
|
|
p=&personal;
|
|
i=&ind_personal;
|
|
memset(i, 0, sizeof(ind_personal));
|
|
while (1) {
|
|
strcpy(msg, "fetch");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "fetch cur", ECPGt_EOIT,
|
|
ECPGt_varchar,&(p->name),(long)BUFFERSIZ,(long)1,sizeof(struct varchar_name),
|
|
ECPGt_int,&(i->ind_name),(long)1,(long)1,sizeof(int),
|
|
ECPGt_long,&(p->birth.born),(long)1,(long)1,sizeof(long),
|
|
ECPGt_long,&(i->ind_birth.born),(long)1,(long)1,sizeof(long),
|
|
ECPGt_short,&(p->birth.age),(long)1,(long)1,sizeof(short),
|
|
ECPGt_short,&(i->ind_birth.age),(long)1,(long)1,sizeof(short),
|
|
ECPGt_char,&(married),(long)0,(long)1,(1)*sizeof(char),
|
|
ECPGt_long,&(ind_married),(long)1,(long)1,sizeof(long),
|
|
ECPGt_int,&(children.integer),(long)1,(long)1,sizeof(int),
|
|
ECPGt_short,&(ind_children.smallint),(long)1,(long)1,sizeof(short), ECPGt_EORT);
|
|
#line 71 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
|
|
#line 71 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 71 "variable.pgc"
|
|
|
|
printf("%8.8s", personal.name.arr);
|
|
if (i->ind_birth.born >= 0)
|
|
printf(", born %ld", personal.birth.born);
|
|
if (i->ind_birth.age >= 0)
|
|
printf(", age = %d", personal.birth.age);
|
|
if (ind_married >= 0)
|
|
printf(", married %s", married);
|
|
if (ind_children.smallint >= 0)
|
|
printf(", children = %d", children.integer);
|
|
putchar('\n');
|
|
|
|
free(married);
|
|
married = NULL;
|
|
}
|
|
|
|
strcpy(msg, "close");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "close cur", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 88 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 88 "variable.pgc"
|
|
|
|
|
|
strcpy(msg, "drop");
|
|
{ ECPGdo(__LINE__, 0, 1, NULL, "drop table family ", ECPGt_EOIT, ECPGt_EORT);
|
|
#line 91 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 91 "variable.pgc"
|
|
|
|
|
|
strcpy(msg, "commit");
|
|
{ ECPGtrans(__LINE__, NULL, "commit");
|
|
#line 94 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 94 "variable.pgc"
|
|
|
|
|
|
strcpy(msg, "disconnect");
|
|
{ ECPGdisconnect(__LINE__, "CURRENT");
|
|
#line 97 "variable.pgc"
|
|
|
|
if (sqlca.sqlcode < 0) sqlprint();}
|
|
#line 97 "variable.pgc"
|
|
|
|
|
|
return (0);
|
|
}
|