Allow IS and FOR in Pl/PgSQL cursors, per Oracle and ANSI. Jan-approved.

diff --git a/src/pl/plpgsql/src/gram.y b/src/pl/plpgsql/src/gram.y
index 9dee73a..0bec5a8 100644 (file)
--- a/src/pl/plpgsql/src/gram.y
+++ b/src/pl/plpgsql/src/gram.y
@@ -4,7 +4,7 @@
  *                                               procedural language
  *
  * IDENTIFICATION
- *       $Header: /cvsroot/pgsql/src/pl/plpgsql/src/gram.y,v 1.19 2001/05/21 14:22:18 wieck Exp $
+ *       $Header: /cvsroot/pgsql/src/pl/plpgsql/src/gram.y,v 1.20 2001/05/31 17:15:40 momjian Exp $
  *
  *       This software is copyrighted by Jan Wieck - Hamburg.
  *
@@ -355,7 +355,7 @@ decl_statement      : decl_varname decl_const decl_datatype decl_notnull decl_defval
                                        {
                                                plpgsql_ns_rename($2, $4);
                                        }
-                               | decl_varname K_CURSOR decl_cursor_args K_IS K_SELECT decl_cursor_query
+                               | decl_varname K_CURSOR decl_cursor_args decl_is_from K_SELECT decl_cursor_query
                                        {
                                                PLpgSQL_var *new;
                                                PLpgSQL_expr *curname_def;
@@ -499,7 +499,9 @@ decl_cursor_openparen : '('
                                                plpgsql_ns_push(NULL);
                                        }
                                ;
-                               
+
+decl_is_from   :       K_IS |          /* Oracle */
+                                       K_FOR;          /* ANSI */
 
 decl_aliasitem : T_WORD
                                        {