support global sequence (IvorySQL#700)

Author: bigplaice

contrib/ivorysql_ora/src/merge/ora_merge.c

@@ -64,6 +64,7 @@
 #include "access/heapam.h"
 
 #include "../include/ivorysql_ora.h"
+#include "nodes/nodes.h"
 
 
 static TM_Result execDelete4Merge(ModifyTableContext *context, ResultRelInfo *resultRelInfo,
@@ -232,6 +233,7 @@ lmerge_matched:;
 				break;
 
 			case CMD_DELETE:
+				result = TM_Ok;
 				 break;
 
 			case CMD_NOTHING:

contrib/ivorysql_ora/src/sysview/sysview--1.0.sql

@@ -1,3 +1,10 @@
+GRANT USAGE ON SCHEMA sys TO PUBLIC;
+SET search_path TO sys;
+
+CREATE table dual (DUMMY pg_catalog.bpchar(1));
+insert into dual values('X');
+GRANT SELECT ON dual TO PUBLIC;
+
 /* 
  * function which converts all-uppercase text to all-lowercase text
  * and vice versa. 
@@ -960,3 +967,49 @@ ORDER BY
 
 /* GRANT SELECT PRIVILEGE TO PUBLIC */
 GRANT SELECT ON SYS.USER_ARGUMENTS TO PUBLIC;
+
+/* For sequence VIEWS */
+CREATE OR REPLACE VIEW SYS.DBA_SEQUENCES AS
+SELECT
+	c.relowner::regrole AS sequence_owner,c.relname AS sequence_name,s.seqmin AS min_value,s.seqmax AS max_value,
+	s.seqincrement AS increment_by,s.seqcycle AS cycle_flag,null AS order_flag,s.seqcache AS cache_size,
+	CASE
+		WHEN has_sequence_privilege(c.oid, 'SELECT,USAGE'::text)
+			THEN pg_sequence_last_value(c.oid::regclass)
+		ELSE NULL::bigint
+	END AS last_number,
+	decode(bitand(s.flags, 16), 16, 'Y', 'N') AS scale_flag,
+	decode(bitand(s.flags, 2048), 2048, 'Y', 'N') AS extend_flag,null AS shared_flag,
+	decode(bitand(s.flags, 64), 64, 'Y', 'N') AS session_flag,null AS keep_value
+	FROM PG_SEQUENCE s,pg_class c where s.seqrelid = c.oid;
+
+
+CREATE OR REPLACE VIEW SYS.ALL_SEQUENCES AS
+SELECT
+	c.relowner::regrole AS sequence_owner,c.relname AS sequence_name,s.seqmin AS min_value,s.seqmax AS max_value,
+	s.seqincrement AS increment_by,s.seqcycle AS cycle_flag,null AS order_flag,s.seqcache AS cache_size,
+	CASE
+		WHEN has_sequence_privilege(c.oid, 'SELECT,USAGE'::text)
+			THEN pg_sequence_last_value(c.oid::regclass)
+		ELSE NULL::bigint
+	END AS last_number,
+	decode(bitand(s.flags, 16), 16, 'Y', 'N') AS scale_flag,
+	decode(bitand(s.flags, 2048), 2048, 'Y', 'N') AS extend_flag,null AS shared_flag,
+	decode(bitand(s.flags, 64), 64, 'Y', 'N') AS session_flag,null AS keep_value
+	FROM PG_SEQUENCE s,pg_class c where s.seqrelid = c.oid;
+
+
+CREATE OR REPLACE VIEW SYS.USER_SEQUENCES AS
+SELECT
+	c.relname AS sequence_name,s.seqmin AS min_value,s.seqmax AS max_value,
+	s.seqincrement AS increment_by,s.seqcycle AS cycle_flag,null AS order_flag,s.seqcache AS cache_size,
+	CASE
+		WHEN has_sequence_privilege(c.oid, 'SELECT,USAGE'::text)
+			THEN pg_sequence_last_value(c.oid::regclass)
+		ELSE NULL::bigint
+	END AS last_number,
+	decode(bitand(s.flags, 16), 16, 'Y', 'N') AS scale_flag,
+	decode(bitand(s.flags, 2048), 2048, 'Y', 'N') AS extend_flag,null AS shared_flag,
+	decode(bitand(s.flags, 64), 64, 'Y', 'N') AS session_flag,null AS keep_value
+	FROM PG_SEQUENCE s,pg_class c where s.seqrelid = c.oid and c.relowner::regrole = current_user::regrole;
+

src/backend/catalog/Makefile

@@ -132,7 +132,6 @@ install-data: bki-stamp installdirs
 	$(INSTALL_DATA) $(call vpathsearch,postgres_oracle.bki) '$(DESTDIR)$(datadir)/postgres_oracle.bki'
 	$(INSTALL_DATA) $(srcdir)/system_views.sql '$(DESTDIR)$(datadir)/system_views.sql'
 	$(INSTALL_DATA) $(srcdir)/information_schema.sql '$(DESTDIR)$(datadir)/information_schema.sql'
-	$(INSTALL_DATA) $(srcdir)/ora_sys_schema.sql '$(DESTDIR)$(datadir)/ora_sys_schema.sql'
 	$(INSTALL_DATA) $(srcdir)/sql_features.txt '$(DESTDIR)$(datadir)/sql_features.txt'
 	$(INSTALL_DATA) $(srcdir)/fix-CVE-2024-4317.sql '$(DESTDIR)$(datadir)/fix-CVE-2024-4317.sql'
 

src/backend/catalog/ora_sys_schema.sql

@@ -1,22 +0,0 @@
-/*
- * ora_sys_schema.sql
- *
- * Oracle Compatibility "sys" schema
- *
- * Copyright (c) 2023, IvorySQL
- *
- * src/backend/catalog/ora_sys_schema.sql
- *
- * IDENTIFICATION
- *	  src/backend/catalog/ora_sys_schema.sql
- *
- * add the file for requirement "SQL PARSER"
- *
- */
-
-GRANT USAGE ON SCHEMA sys TO PUBLIC;
-SET search_path TO sys;
-
-CREATE table dual (DUMMY CHAR(1));
-insert into dual values('X');
-GRANT SELECT ON dual TO PUBLIC;