- Fixed command line parsing.

- Set ecpg version to 2.6.13.

Thu Jan 6 09:52:27 CET 2000

- Synced preproc.y with gram.y.

- Made sure Bruce's additions also make it into my source tree.

- Set ecpg version to 2.6.14.

MAJOR_VERSION=2

MINOR_VERSION=6

PATCHLEVEL=13

PATCHLEVEL=14

CFLAGS+=-I../include -DMAJOR_VERSION=$(MAJOR_VERSION)\

-DMINOR_VERSION=$(MINOR_VERSION) -DPATCHLEVEL=$(PATCHLEVEL)\

staticint QueryIsRule =0, ForUpdateNotAllowed =0, FoundInto =0;

staticstructthis_type actual_type[STRUCT_DEPTH];

staticchar *actual_storage[STRUCT_DEPTH];

staticchar *actual_startline[STRUCT_DEPTH];

structECPGstruct_member *struct_member_list[STRUCT_DEPTH] = {NULL };

output_line_number()

{

if (input_filename)

fprintf(yyout,"\n#line %d\"%s\"\n", yylineno, input_filename);

fprintf(yyout,"\n#line %d\"%s\"\n", yylineno +1, input_filename);

}

return(name);

}

staticchar *

hashline_number()

{

if (input_filename)

{

char* line =mm_alloc(strlen("\n#line %d\"%s\"\n") +21 +strlen(input_filename));

sprintf(line,"\n#line %d\"%s\"\n", yylineno, input_filename);

return line;

}

return EMPTY;

}

output_statement(char * stmt,int mode)

{

%type<str>CreateGroupStmt,AlterGroupStmt,DropGroupStmt

opt_at:SQL_ATconnection_target{ connection =$2; }

stmt:AddAttrStmt{ output_statement($1,0); }

|AlterGroupStmt{ output_statement($1,0); }

|AlterUserStmt{ output_statement($1,0); }

|ClosePortalStmt{ output_statement($1,0); }

|CommentStmt{ output_statement($1,0); }

|CopyStmt{ output_statement($1,0); }

|CreateStmt{ output_statement($1,0); }

|CreateAsStmt{ output_statement($1,0); }

|CreateGroupStmt{ output_statement($1,0); }

|CreateSeqStmt{ output_statement($1,0); }

|CreatePLangStmt{ output_statement($1,0); }

|CreateTrigStmt{ output_statement($1,0); }

|DefineStmt { output_statement($1,0); }

|DropStmt{ output_statement($1,0); }

|TruncateStmt{ output_statement($1,0); }

|DropGroupStmt{ output_statement($1,0); }

|DropPLangStmt{ output_statement($1,0); }

|DropTrigStmt{ output_statement($1,0); }

|DropUserStmt{ output_statement($1,0); }

user_group_clause:INGROUPuser_group_list

{

mmerror(ET_WARN,"IN GROUP is not implemented");

$$ = cat2_str(make_str("in group"),$3);

}

|/*EMPTY*/{$$ = EMPTY; }

|/*EMPTY*/{$$ = EMPTY; }

;

CreateGroupStmt:CREATEGROUPUserId

{

$$ = cat2_str(make_str("create group"),$3);

}

{

$$ = cat_str(5, make_str("create group"),$3, make_str("with"),$5,$6);

}

;

users_in_new_group_clause:USERuser_group_list {$$ = cat2_str(make_str("user"),$2); }

|/* EMPTY*/ {$$ = EMPTY; }

;

AlterGroupStmt:ALTERGROUPUserIdWITHSYSIDIconst

{

$$ = cat_str(4, make_str("alter group"),$3, make_str("with sysid"),$6);

}

{

$$ = cat_str(4, make_str("alter group"),$3, make_str("add user"),$6);

}

{

$$ = cat_str(4, make_str("alter group"),$3, make_str("drop user"),$6);

}

;

DropGroupStmt:DROPGROUPUserId

{

$$ = cat2_str(make_str("drop group"),$3);

}

;

FetchStmt:FETCHdirectionfetch_how_manyportal_nameINTOinto_list

FetchStmt:FETCHopt_directionfetch_how_manyopt_portal_nameINTOinto_list

{

if (strcmp($2,"relative") ==0 && atol($3) ==0L)

mmerror(ET_ERROR,"FETCH/RELATIVE at current position is not supported");

$$ = cat_str(4, make_str("fetch"),$2,$3,$4);

}

{

$$ = cat_str(3, make_str("fetch"),$2,$3);

}

{

$$ = cat_str(2, make_str("fetch"),$2);

}

{

$$ = cat_str(4, make_str("move"),$2,$3,$4);

}

{

$$ = cat_str(3, make_str("move"),$2,$3);

}

{

$$ = cat_str(2, make_str("move"),$2);

$$ = cat_str(4, make_str("fetch"),$2,$3,$4);

}

;

direction:FORWARD{$$ = make_str("forward"); }

opt_direction:FORWARD{$$ = make_str("forward"); }

|BACKWARD{$$ = make_str("backward"); }

|RELATIVE {$$ = make_str("relative"); }

{

mmerror(ET_WARN,"FETCH/ABSOLUTE not supported, backend will use RELATIVE");

$$ = make_str("absolute");

}

|/*EMPTY*/{$$ = EMPTY;/* default*/ }

;

fetch_how_many:Iconst {$$ =$1; }

|'-'Iconst {$$ = cat2_str(make_str("-"),$2); }

|ALL{$$ = make_str("all"); }

|NEXT{$$ = make_str("next"); }

|PRIOR{$$ = make_str("prior"); }

|/*EMPTY*/{$$ = EMPTY;/*default*/ }

;

portal_name:INname{$$ = cat2_str(make_str("in"),$2); }

opt_portal_name:INname{$$ = cat2_str(make_str("in"),$2); }

|FROMname{$$ = cat2_str(make_str("from"),$2); }

|name{$$ = cat2_str(make_str("in"),$1); }

|/*EMPTY*/{$$ = EMPTY; }

;

ECPGDeclaration:sql_startdeclare

{

fputs("/* exec sql begin declare section */", yyout);

output_line_number();

}

{

sql_enddeclare:ecpgstartEND_TRANSDECLARESQL_SECTION';' {}

variable_declarations:/* empty*/ {$$ = EMPTY; }

|declarations {$$ =$1; }

declarations:declaration {$$ =$1; }

|declarationsdeclaration {$$ = cat2_str($1,$2); }

variable_declarations:/* empty*/

{

$$ = EMPTY;

}

{

$$ = cat2_str($1,$2);

}

declaration:storage_clause

{

actual_storage[struct_level] = mm_strdup($1);

actual_startline[struct_level] = hashline_number();

}

{

}

{

$$ = cat_str(5, actual_startline[struct_level],$1,$3.type_str,$5, make_str(";\n"));

$$ = cat_str(4,$1,$3.type_str,$5, make_str(";\n"));

}

storage_clause :S_EXTERN{$$ = make_str("extern"); }

}

c_list:c_term{$$ =$1; }

|c_list','c_term{$$ = cat_str(3,$1, make_str(","),$3); }

|c_term','c_list{$$ = cat_str(3,$1, make_str(","),$3); }

c_term:c_stuff {$$ =$1; }

|'{'c_list'}'{$$ = cat_str(3, make_str("{"),$2, make_str("}")); }

for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)

printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name[i], i, amount[i],i, letter[i][0]);

exec sql at pm selectname, amount, letter into :name, :amount, :letter from "Test";

exec sql at pm select* into :name, :amount, :letter from "Test";

for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)

printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name[i], i, amount[i],i, letter[i][0]);

int ind_children;

str *married = NULL;

char *wifesname="Petra";

char *query="selectname, born, age, married, children from meskes where name = :var1";

char *query="select* from meskes where name = :var1";

exec sql end declare section;

exec sql declare cur cursor for

exec sql insert into meskes(name, married, children) values (:wifesname, '19900404', 3);

exec sql insert into meskes(name, born, age, married, children) values ('Michael', 19660117, 33, '19900404', 3);

exec sql insert into meskes(name, born, age) values ('Carsten', 19910103, 8);

exec sql insert into meskes(name, born, age) values ('Marc', 19930907,5);

exec sql insert into meskes(name, born, age) values ('Chris', 19970923,1);

exec sql insert into meskes(name, born, age) values ('Marc', 19930907,6);

exec sql insert into meskes(name, born, age) values ('Chris', 19970923,2);

strcpy(msg, "commit");

exec sql commit;