MDEV-10152 Add support for TYPE .. IS REF CURSOR

Version#2

In progress

Author: abarkov

plugin/type_assoc_array/sql_type_assoc_array.cc

@@ -2412,7 +2412,7 @@ bool Type_handler_assoc_array::
     return true;
   }
 
-  if (unlikely(tdef->def(1).type_handler() == this))
+  if (unlikely(tdef->def(1).type_handler()->is_complex()))
   {
     my_error(ER_ILLEGAL_PARAMETER_DATA_TYPE_FOR_OPERATION, MYF(0),
              tdef->def(1).type_handler()->name().ptr(),

plugin/type_cursor/mysql-test/type_cursor/type_cursor2.result

@@ -0,0 +1,271 @@
+SET sql_mode=ORACLE;
+CREATE PROCEDURE p1 AS
+TYPE assoc0_t IS TABLE OF SYS_REFCURSOR INDEX BY INT;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Illegal parameter data type sys_refcursor for operation '<array element data type>'
+CREATE PROCEDURE p1 AS
+TYPE cur0_t IS REF CURSOR;
+TYPE assoc0_t IS TABLE OF cur0_t INDEX BY INT;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Illegal parameter data type sys_refcursor for operation '<array element data type>'
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD(a INT, b VARCHAR(10));
+TYPE cur0_t IS REF CURSOR RETURN rec0_t;
+TYPE assoc0_t IS TABLE OF cur0_t INDEX BY INT;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Illegal parameter data type sys_refcursor for operation '<array element data type>'
+CREATE PROCEDURE p1 AS
+TYPE assoc0_t IS TABLE OF INT INDEX BY INT;
+TYPE rec0_t IS RECORD (a INT, b assoc0_t);
+TYPE cur0_t IS REF CURSOR RETURN rec0_t;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Unknown data type: 'assoc0_t'
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b VARCHAR(10));
+TYPE rec1_t IS RECORD (a INT, b rec0_t);
+TYPE cur1_t IS REF CURSOR RETURN rec1_t;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Unknown data type: 'rec0_t'
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b SYS_REFCURSOR);
+TYPE cur0_t IS REF CURSOR RETURN rec0_t;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Illegal parameter data type sys_refcursor for operation 'REF CURSOR RETURN'
+CREATE PROCEDURE p1 AS
+TYPE cur0_t IS REF CURSOR;
+TYPE rec0_t IS RECORD (a INT, b cur0_t); -- This fails: unknown type cur0_t
+TYPE cur1_t IS REF CURSOR RETURN rec0_t;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Unknown data type: 'cur0_t'
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b VARCHAR(10));
+TYPE cur0_t IS REF CURSOR RETURN rec0_t;
+TYPE rec1_t IS RECORD (a INT, b cur0_t); -- This fails: unknown type cur0_t
+TYPE cur1_t IS REF CURSOR RETURN rec1_t;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Unknown data type: 'cur0_t'
+CREATE PROCEDURE p1 AS
+TYPE cur0_t IS REF CURSOR RETURN cat1.db1.t1.v0%TYPE;
+BEGIN
+NULL;
+END;
+$$
+ERROR 42000: You have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near '.v0%TYPE;
+BEGIN
+NULL;
+END' at line 2
+CREATE PROCEDURE p1 AS
+TYPE cur0_t IS REF CURSOR RETURN db1.t1.v0%TYPE;
+BEGIN
+NULL;
+END;
+$$
+ERROR 42000: You have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near 'TYPE;
+BEGIN
+NULL;
+END' at line 2
+CREATE PROCEDURE p1 AS
+TYPE cur0_t IS REF CURSOR RETURN t1.v0%TYPE;
+BEGIN
+NULL;
+END;
+$$
+ERROR 42000: You have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near 'TYPE;
+BEGIN
+NULL;
+END' at line 2
+CREATE PROCEDURE p1 AS
+TYPE cur0_t IS REF CURSOR RETURN v0%TYPE;
+BEGIN
+NULL;
+END;
+$$
+ERROR 42000: Undeclared variable: v0
+CREATE PROCEDURE p1 AS
+v0 INT;
+TYPE cur0_t IS REF CURSOR RETURN v0%TYPE;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Illegal parameter data type int for operation 'REF CURSOR RETURN'
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b SYS_REFCURSOR);
+v0 rec0_t;
+TYPE cur0_t IS REF CURSOR RETURN v0%TYPE;
+BEGIN
+NULL;
+END;
+$$
+ERROR HY000: Illegal parameter data type sys_refcursor for operation 'REF CURSOR RETURN'
+CREATE TABLE t1 (a INT, b VARCHAR(10));
+CREATE PROCEDURE p1 AS
+r0 t1%ROWTYPE;
+TYPE cur0_t IS REF CURSOR RETURN r0%TYPE;
+c0 cur0_t;
+v0, v1 TEXT;
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO v0, v1;
+SELECT v0, v1;
+END;
+$$
+CALL p1;
+v0	v1
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;
+DROP TABLE t1;
+CREATE TABLE t1 (a INT, b VARCHAR(10));
+CREATE PROCEDURE p1 AS
+CURSOR cursor_example IS SELECT * FROM t1;
+r0 cursor_example%ROWTYPE;
+TYPE cur0_t IS REF CURSOR RETURN r0%TYPE;
+c0 cur0_t;
+v0, v1 TEXT;
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO v0, v1;
+SELECT v0, v1;
+END;
+$$
+CALL p1;
+v0	v1
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;
+DROP TABLE t1;
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b VARCHAR(10));
+TYPE cur0_t IS REF CURSOR RETURN rec0_t;
+c0 cur0_t;
+v0, v1 TEXT;
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO v0, v1;
+SELECT v0, v1;
+END;
+$$
+CALL p1;
+v0	v1
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b VARCHAR(10));
+TYPE cur0_t IS REF CURSOR RETURN rec0_t;
+c0 cur0_t;
+r0 ROW(a INT, b VARCHAR(10));
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO r0;
+SELECT r0.a, r0.b;
+END;
+$$
+CALL p1;
+r0.a	r0.b
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;
+CREATE TABLE t1 (a INT, b VARCHAR(10));
+CREATE PROCEDURE p1 AS
+CURSOR cursor_example IS SELECT * FROM t1;
+TYPE cur0_t IS REF CURSOR RETURN cursor_example%ROWTYPE;
+c0 cur0_t;
+v0, v1 TEXT;
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO v0, v1;
+SELECT v0, v1;
+END;
+$$
+CALL p1;
+v0	v1
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;
+DROP TABLE t1;
+CREATE TABLE t1 (a INT, b VARCHAR(10));
+CREATE PROCEDURE p1 AS
+TYPE cur0_t IS REF CURSOR RETURN t1%ROWTYPE;
+c0 cur0_t;
+v0, v1 TEXT;
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO v0, v1;
+SELECT v0, v1;
+END;
+$$
+CALL p1;
+v0	v1
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;
+DROP TABLE t1;
+CREATE TABLE t1 (a INT, b VARCHAR(10));
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b t1.b%TYPE);
+TYPE cur0_t IS REF CURSOR RETURN rec0_t;
+c0 cur0_t;
+v0, v1 TEXT;
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO v0, v1;
+SELECT v0, v1;
+END;
+$$
+CALL p1;
+v0	v1
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;
+DROP TABLE t1;
+CREATE PROCEDURE p1 AS
+TYPE rec0_t IS RECORD (a INT, b VARCHAR(10));
+r0 rec0_t;
+TYPE cur0_t IS REF CURSOR RETURN r0%TYPE;
+c0 cur0_t;
+v0, v1 TEXT;
+BEGIN
+OPEN c0 FOR SELECT 1,'           ';
+FETCH c0 INTO v0, v1;
+SELECT v0, v1;
+END;
+$$
+CALL p1;
+v0	v1
+1	          
+Warnings:
+Note	1265	Data truncated for column 'b' at row 1
+DROP PROCEDURE p1;