[Tora-cvs] SF.net SVN: tora:[3835] branches/tora-trotl/sandbox

[<ibr...@us...>]

Revision: 3835
          http://tora.svn.sourceforge.net/tora/?rev=3835&view=rev
Author:   ibre5041
Date:     2010-12-08 22:09:08 +0000 (Wed, 08 Dec 2010)

Log Message:
-----------
support for CURSOR clause

Modified Paths:
--------------
    branches/tora-trotl/sandbox/OracleSQL.g

Added Paths:
-----------
    branches/tora-trotl/sandbox/tests/cast_multiset03.sql

Modified: branches/tora-trotl/sandbox/OracleSQL.g
===================================================================
--- branches/tora-trotl/sandbox/OracleSQL.g	2010-12-08 15:03:33 UTC (rev 3834)
+++ branches/tora-trotl/sandbox/OracleSQL.g	2010-12-08 22:09:08 UTC (rev 3835)
@@ -348,13 +348,13 @@
 	:	datetime_expression
 	|	interval_expression        
 	|	( expr_paren ) => expr_paren
+	|	( cursor_expression ) => cursor_expression        
 	|	( cast_expression) => cast_expression
 	|	( special_expression ) => special_expression
 	|	( analytic_function ) => analytic_function
 	|	( function_expression ) => function_expression
 //	|	( compound_expression ) => compound_expression
 	|	( case_expression ) => case_expression
-//	|	( cursor_expression ) => cursor_expression
 	|	( simple_expression ) => simple_expression
 //	|	( select_expression ) => select_expression replaced with subquery
 //	|	object_access_expression
@@ -388,6 +388,9 @@
 case_expression
 	:	k_case ( simple_case_expression | searched_case_expression ) ( else_case_expression )? k_end
 	;
+cursor_expression
+	:	k_cursor subquery
+	;
 simple_case_expression
 	:	nested_expression ( k_when nested_expression k_then nested_expression )+
 	;
@@ -1596,7 +1599,9 @@
 	| 'BACKUP'	| 'BECOME'	| 'BEFORE'	| 'BEGIN'	| 'BLOCK'	| 'BODY'	| 'BREADTH'
 	| 'CACHE'	| 'CANCEL'	| 'CASCADE'	| 'CHANGE'	| 'CHARACTER'	| 'CHECKPOINT'	| 'CLOSE'	
 	| 'COBOL'	| 'COMMIT'	| 'COMPILE'	| 'CONSTRAINT'	| 'CONSTRAINTS'	| 'CONTENTS'	| 'CONTINUE'	
-	| 'CONTROLFILE'	| 'COUNT'	| 'CURSOR'	| 'CYCLE'	
+	| 'CONTROLFILE'	| 'COUNT'
+    // | 'CURSOR'
+    | 'CYCLE'	
 	| 'DATABASE'	| 'DATAFILE'	| 'DAY'	| 'DBA'	| 'DBTIMEZONE'	| 'DEC'	| 'DECLARE'	| 'DISABLE'	| 'DISMOUNT'	| 'DOUBLE'	| 'DUMP'
     | 'DEPTH'
 	| 'EACH'	| 'ENABLE'	| 'END'	| 'ESCAPE'	| 'EVENTS'	| 'ERRORS'	| 'EXCEPT'	| 'EXCEPTIONS'	| 'EXEC'	| 'EXECUTE'

Added: branches/tora-trotl/sandbox/tests/cast_multiset03.sql
===================================================================
--- branches/tora-trotl/sandbox/tests/cast_multiset03.sql	                        (rev 0)
+++ branches/tora-trotl/sandbox/tests/cast_multiset03.sql	2010-12-08 22:09:08 UTC (rev 3835)
@@ -0,0 +1,7 @@
+ SELECT
+ 1
+ , CURSOR(select 1 FROM xxx) C1
+ , CURSOR(select 2, 3 FROM yyy) AS C2
+ FROM
+ TABLE(select * FROM DUAL)
+;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.