database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-08 07:21:33 +03:00
Code

*** empty log message ***

Browse Source
This commit is contained in:
Michael Meskes 1999-05-21 16:36:27 +00:00
parent 96492290b5
commit a7b06f20c5
2 changed files with 17 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/interfaces/ecpg/ChangeLog
View File

@ -582,5 +582,9 @@ Thu May 13 13:51:26 CEST 1999
Mon May 17 18:13:30 CEST 1999 Mon May 17 18:13:30 CEST 1999
- Synced preproc.y with gram.y. - Synced preproc.y with gram.y.
Fri May 21 18:13:44 CEST 1999
- Synced preproc.y with gram.y.
- Set library version to 3.0.0 - Set library version to 3.0.0
- Set ecpg version to 2.6.0 - Set ecpg version to 2.6.0

38
src/interfaces/ecpg/preproc/preproc.y
View File

@ -814,7 +814,7 @@ adjust_array(enum ECPGttype type_enum, int *dimension, int *length, int type_dim
%type <str> ViewStmt LoadStmt CreatedbStmt opt_database1 opt_database2 location %type <str> ViewStmt LoadStmt CreatedbStmt opt_database1 opt_database2 location
%type <str> DestroydbStmt ClusterStmt grantee RevokeStmt encoding %type <str> DestroydbStmt ClusterStmt grantee RevokeStmt encoding
%type <str> GrantStmt privileges operation_commalist operation %type <str> GrantStmt privileges operation_commalist operation
%type <str> cursor_clause opt_cursor opt_readonly opt_of opt_lmode %type <str> opt_cursor opt_lmode
%type <str> case_expr when_clause_list case_default case_arg when_clause %type <str> case_expr when_clause_list case_default case_arg when_clause
%type <str> select_clause opt_select_limit select_limit_value %type <str> select_clause opt_select_limit select_limit_value
%type <str> select_offset_value table_list using_expr join_expr %type <str> select_offset_value table_list using_expr join_expr
@ -2724,7 +2724,9 @@ UpdateStmt: UPDATE relation_name
* CURSOR STATEMENTS * CURSOR STATEMENTS
* *
*****************************************************************************/ *****************************************************************************/
CursorStmt: DECLARE name opt_cursor CURSOR FOR SelectStmt cursor_clause CursorStmt: DECLARE name opt_cursor CURSOR FOR
{ ForUpdateNotAllowed = 1; }
SelectStmt
{ {
struct cursor *ptr, *this; struct cursor *ptr, *this;
@ -2744,7 +2746,7 @@ CursorStmt: DECLARE name opt_cursor CURSOR FOR SelectStmt cursor_clause
this->next = cur; this->next = cur;
this->name = $2; this->name = $2;
this->connection = connection; this->connection = connection;
this->command = cat2_str(cat5_str(make1_str("declare"), mm_strdup($2), $3, make1_str("cursor for"), $6), $7); this->command = cat5_str(make1_str("declare"), mm_strdup($2), $3, make1_str("cursor for"), $7);
this->argsinsert = argsinsert; this->argsinsert = argsinsert;
this->argsresult = argsresult; this->argsresult = argsresult;
argsinsert = argsresult = NULL; argsinsert = argsresult = NULL;
@ -2762,20 +2764,6 @@ opt_cursor: BINARY { $$ = make1_str("binary"); }
| /*EMPTY*/ { $$ = make1_str(""); } | /*EMPTY*/ { $$ = make1_str(""); }
; ;
cursor_clause: FOR opt_readonly { $$ = cat2_str(make1_str("for"), $2); }
| /*EMPTY*/ { $$ = make1_str(""); }
;
opt_readonly: READ ONLY { $$ = make1_str("read only"); }
| UPDATE opt_of
{
yyerror("DECLARE/UPDATE not supported; Cursors must be READ ONLY.");
}
;
opt_of: OF columnList { $$ = make2_str(make1_str("of"), $2); }
/***************************************************************************** /*****************************************************************************
* *
* QUERY: * QUERY:
@ -2793,7 +2781,7 @@ opt_of: OF columnList { $$ = make2_str(make1_str("of"), $2); }
SelectStmt: select_clause sort_clause for_update_clause opt_select_limit SelectStmt: select_clause sort_clause for_update_clause opt_select_limit
{ {
if (strlen($3) > 0 && ForUpdateNotAllowed != 0) if (strlen($3) > 0 && ForUpdateNotAllowed != 0)
yyerror("SELECT FOR UPDATE is not allowed in this context"); yyerror("FOR UPDATE is not allowed in this context");
ForUpdateNotAllowed = 0; ForUpdateNotAllowed = 0;
$$ = cat4_str($1, $2, $3, $4); $$ = cat4_str($1, $2, $3, $4);
@ -2941,6 +2929,10 @@ for_update_clause: FOR UPDATE update_list
{ {
$$ = make1_str("for update"); $$ = make1_str("for update");
} }
| FOR READ ONLY
{
$$ = make1_str("for read only");
}
| /* EMPTY */ | /* EMPTY */
{ {
$$ = make1_str(""); $$ = make1_str("");
@ -3356,11 +3348,7 @@ Character: character '(' Iconst ')'
yyerror(errortext); yyerror(errortext);
} }
else if (atol($3) > BLCKSZ - 128) { else if (atol($3) > BLCKSZ - 128) {
/* we can store a char() of length up to the size sprintf(errortext, "length for type '%s' cannot exceed %d",$1,BLCKSZ - 128);
* of a page (8KB) - page headers and friends but
* just to be safe here... - ay 6/95
*/
sprintf(errortext, "length for type '%s' cannot exceed %d",BLCKSZ-128);
yyerror(errortext); yyerror(errortext);
} }
@ -4721,7 +4709,7 @@ opt_options: Op ColId
* Declare a prepared cursor. The syntax is different from the standard * Declare a prepared cursor. The syntax is different from the standard
* declare statement, so we create a new rule. * declare statement, so we create a new rule.
*/ */
ECPGCursorStmt: DECLARE name opt_cursor CURSOR FOR ident cursor_clause ECPGCursorStmt: DECLARE name opt_cursor CURSOR FOR ident
{ {
struct cursor *ptr, *this; struct cursor *ptr, *this;
struct variable *thisquery = (struct variable *)mm_alloc(sizeof(struct variable)); struct variable *thisquery = (struct variable *)mm_alloc(sizeof(struct variable));
@ -4742,7 +4730,7 @@ ECPGCursorStmt: DECLARE name opt_cursor CURSOR FOR ident cursor_clause
this->next = cur; this->next = cur;
this->name = $2; this->name = $2;
this->connection = connection; this->connection = connection;
this->command = cat5_str(make1_str("declare"), mm_strdup($2), $3, make1_str("cursor for ?"), $7); this->command = cat4_str(make1_str("declare"), mm_strdup($2), $3, make1_str("cursor for ?"));
this->argsresult = NULL; this->argsresult = NULL;
thisquery->type = &ecpg_query; thisquery->type = &ecpg_query;