Changeset: d013e7eee901 for MonetDB
URL: https://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=d013e7eee901
Added Files:
sql/test/Tests/comment-on-sequence.sql
sql/test/Tests/comment-on-sequence.stable.err
sql/test/Tests/comment-on-sequence.stable.out
Modified Files:
sql/server/rel_schema.c
sql/server/sql_parser.h
sql/server/sql_parser.y
sql/storage/store.c
sql/test/Tests/All
sql/test/Tests/comment-on-column.sql
sql/test/Tests/comment-on-index.sql
sql/test/Tests/comment-on-schema.sql
sql/test/Tests/comment-on-table.sql
sql/test/Tests/comment-on-view.sql
Branch: comment-on
Log Message:
Support COMMENT ON SEQUENCE bla IS 'bla bla'
diffs (truncated from 419 to 300 lines):
diff --git a/sql/server/rel_schema.c b/sql/server/rel_schema.c
--- a/sql/server/rel_schema.c
+++ b/sql/server/rel_schema.c
@@ -2055,6 +2055,34 @@ rel_find_designated_index(mvc *sql, symb
}
static sqlid
+rel_find_designated_sequence(mvc *sql, symbol *sym) {
+ (void)sql;
+ (void)sym;
+ dlist *qname;
+ sql_schema *s;
+ char *sname;
+ char *seqname;
+ sql_sequence *seq;
+
+ assert(sym->type == type_list);
+ qname = sym->data.lval;
+ s = cur_schema(sql);
+ sname = qname_schema(qname);
+ if (sname && !(s = mvc_bind_schema(sql, sname))) {
+ sql_error(sql, 02, "3F000!COMMENT ON:no such schema: %s",
sname);
+ return 0;
+ }
+ seqname = qname_table(qname);
+ seq = find_sql_sequence(s, seqname);
+ if (seq)
+ return seq->base.id;
+
+ sql_error(sql, 02, "3F000!COMMENT ON:no such sequence: %s.%s",
+ s->base.name, seqname);
+ return 0;
+}
+
+static sqlid
rel_find_designated_object(mvc *sql, symbol *sym) {
switch (sym->token) {
@@ -2068,6 +2096,8 @@ rel_find_designated_object(mvc *sql, sym
return rel_find_designated_column(sql, sym);
case SQL_INDEX:
return rel_find_designated_index(sql, sym);
+ case SQL_SEQUENCE:
+ return rel_find_designated_sequence(sql, sym);
default:
sql_error(sql, 2, "!COMMENT ON %s is not supported",
token2string(sym->token));
return 0;
diff --git a/sql/server/sql_parser.h b/sql/server/sql_parser.h
--- a/sql/server/sql_parser.h
+++ b/sql/server/sql_parser.h
@@ -63,6 +63,7 @@ typedef enum tokens {
SQL_VIEW,
SQL_INDEX,
SQL_TYPE,
+ SQL_SEQUENCE,
SQL_CASE,
SQL_CAST,
SQL_RETURN,
diff --git a/sql/server/sql_parser.y b/sql/server/sql_parser.y
--- a/sql/server/sql_parser.y
+++ b/sql/server/sql_parser.y
@@ -5467,9 +5467,9 @@ comment_on_statement:
;
catalog_object:
- SCHEMA ident { $$ = _symbol_create( SQL_SCHEMA, $2); }
- | TABLE qname { $$ = _symbol_create_list( SQL_TABLE, $2); }
- | VIEW qname { $$ = _symbol_create_list( SQL_VIEW, $2); }
+ SCHEMA ident { $$ = _symbol_create( SQL_SCHEMA, $2 ); }
+ | TABLE qname { $$ = _symbol_create_list( SQL_TABLE, $2 ); }
+ | VIEW qname { $$ = _symbol_create_list( SQL_VIEW, $2 ); }
| COLUMN ident '.' ident
{ dlist *l = L();
append_string(l, $2);
@@ -5483,7 +5483,8 @@ catalog_object:
append_string(l, $6);
$$ = _symbol_create_list( SQL_COLUMN, l );
}
- | INDEX qname { $$ = _symbol_create_list( SQL_INDEX, $2); }
+ | INDEX qname { $$ = _symbol_create_list( SQL_INDEX, $2 ); }
+ | SEQUENCE qname { $$ = _symbol_create_list( SQL_SEQUENCE, $2 ); }
;
XML_value_expression:
@@ -6078,6 +6079,7 @@ char *token2string(int token)
SQL(VIEW);
SQL(INDEX);
SQL(TYPE);
+ SQL(SEQUENCE);
SQL(CASE);
SQL(CAST);
SQL(RETURN);
diff --git a/sql/storage/store.c b/sql/storage/store.c
--- a/sql/storage/store.c
+++ b/sql/storage/store.c
@@ -3758,7 +3758,8 @@ sys_drop_sequence(sql_trans *tr, sql_seq
return ;
table_funcs.table_delete(tr, sysseqs, rid);
sql_trans_drop_dependencies(tr, seq->base.id);
-
+ sql_trans_drop_any_comment(tr, seq->base.id);
+
if (drop_action)
sql_trans_drop_all_dependencies(tr, seq->s, seq->base.id,
SEQ_DEPENDENCY);
diff --git a/sql/test/Tests/All b/sql/test/Tests/All
--- a/sql/test/Tests/All
+++ b/sql/test/Tests/All
@@ -106,6 +106,7 @@ comment-on-table
comment-on-view
comment-on-column
comment-on-index
+comment-on-sequence
#HAVE_GEOM?trace
diff --git a/sql/test/Tests/comment-on-column.sql
b/sql/test/Tests/comment-on-column.sql
--- a/sql/test/Tests/comment-on-column.sql
+++ b/sql/test/Tests/comment-on-column.sql
@@ -18,9 +18,11 @@ RETURN TABLE (
FROM sys.columns AS c, sys.tables AS t
WHERE c.table_id = t.id
UNION ALL
- SELECT i.id, t.name || '.' || i.name, 'INDEX'
- FROM sys.idxs AS i, sys.tables AS t
- WHERE i.table_id = t.id
+ SELECT id, name, 'INDEX'
+ FROM sys.idxs
+ UNION ALL
+ SELECT id, name, 'SEQUENCE'
+ FROM sys.sequences
);
CREATE FUNCTION new_comments()
diff --git a/sql/test/Tests/comment-on-index.sql
b/sql/test/Tests/comment-on-index.sql
--- a/sql/test/Tests/comment-on-index.sql
+++ b/sql/test/Tests/comment-on-index.sql
@@ -18,9 +18,11 @@ RETURN TABLE (
FROM sys.columns AS c, sys.tables AS t
WHERE c.table_id = t.id
UNION ALL
- SELECT i.id, t.name || '.' || i.name, 'INDEX'
- FROM sys.idxs AS i, sys.tables AS t
- WHERE i.table_id = t.id
+ SELECT id, name, 'INDEX'
+ FROM sys.idxs
+ UNION ALL
+ SELECT id, name, 'SEQUENCE'
+ FROM sys.sequences
);
CREATE FUNCTION new_comments()
diff --git a/sql/test/Tests/comment-on-schema.sql
b/sql/test/Tests/comment-on-schema.sql
--- a/sql/test/Tests/comment-on-schema.sql
+++ b/sql/test/Tests/comment-on-schema.sql
@@ -18,9 +18,11 @@ RETURN TABLE (
FROM sys.columns AS c, sys.tables AS t
WHERE c.table_id = t.id
UNION ALL
- SELECT i.id, t.name || '.' || i.name, 'INDEX'
- FROM sys.idxs AS i, sys.tables AS t
- WHERE i.table_id = t.id
+ SELECT id, name, 'INDEX'
+ FROM sys.idxs
+ UNION ALL
+ SELECT id, name, 'SEQUENCE'
+ FROM sys.sequences
);
CREATE FUNCTION new_comments()
diff --git a/sql/test/Tests/comment-on-sequence.sql
b/sql/test/Tests/comment-on-sequence.sql
new file mode 100644
--- /dev/null
+++ b/sql/test/Tests/comment-on-sequence.sql
@@ -0,0 +1,49 @@
+DROP SCHEMA IF EXISTS sch;
+CREATE SCHEMA sch;
+SET SCHEMA sch;
+
+CREATE TABLE origs AS SELECT id FROM sys.comments;
+
+CREATE FUNCTION all_kinds_of_object()
+RETURNS TABLE (id INTEGER, name VARCHAR(80), type VARCHAR(20))
+RETURN TABLE (
+ SELECT id, name, table_type_name
+ FROM sys.tables, sys.table_types
+ WHERE type = table_type_id
+ UNION ALL
+ SELECT id, name, 'SCHEMA'
+ FROM sys.schemas
+ UNION ALL
+ SELECT c.id, t.name || '.' || c.name, 'COLUMN'
+ FROM sys.columns AS c, sys.tables AS t
+ WHERE c.table_id = t.id
+ UNION ALL
+ SELECT id, name, 'INDEX'
+ FROM sys.idxs
+ UNION ALL
+ SELECT id, name, 'SEQUENCE'
+ FROM sys.sequences
+);
+
+CREATE FUNCTION new_comments()
+RETURNS TABLE (name VARCHAR(80), source VARCHAR(20), remark CLOB)
+RETURN TABLE (
+ SELECT o.name, o.type, c.remark
+ FROM sys.comments AS c LEFT JOIN all_kinds_of_object() AS o ON c.id =
o.id
+ WHERE c.id NOT IN (SELECT id FROM origs)
+);
+
+------------------------------------------------------------------------
+
+-- create a sequence and comment on it
+CREATE SEQUENCE seq AS INT;
+COMMENT ON SEQUENCE seq IS 'a few numbers';
+SELECT * FROM new_comments();
+
+-- explicit schema
+COMMENT ON SEQUENCE sch.seq IS 'a few more numbers';
+SELECT * FROM new_comments();
+
+-- check that deletes cascade
+DROP SEQUENCE seq;
+SELECT * FROM new_comments();
diff --git a/sql/test/Tests/comment-on-sequence.stable.err
b/sql/test/Tests/comment-on-sequence.stable.err
new file mode 100644
--- /dev/null
+++ b/sql/test/Tests/comment-on-sequence.stable.err
@@ -0,0 +1,35 @@
+stderr of test 'comment-on-sequence` in directory 'sql/test` itself:
+
+
+# 10:43:02 >
+# 10:43:02 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=30332" "--set"
"mapi_usock=/var/tmp/mtest-7368/.s.monetdb.30332" "--set" "monet_prompt="
"--forcemito"
"--dbpath=/Users/joeri/monets/default/var/MonetDB/mTests_sql_test" "--set"
"embedded_r=yes"
+# 10:43:02 >
+
+# builtin opt gdk_dbpath =
/Users/joeri/monets/default/var/monetdb5/dbfarm/demo
+# builtin opt gdk_debug = 0
+# builtin opt gdk_vmtrim = no
+# builtin opt monet_prompt = >
+# builtin opt monet_daemon = no
+# builtin opt mapi_port = 50000
+# builtin opt mapi_open = false
+# builtin opt mapi_autosense = false
+# builtin opt sql_optimizer = default_pipe
+# builtin opt sql_debug = 0
+# cmdline opt gdk_nr_threads = 0
+# cmdline opt mapi_open = true
+# cmdline opt mapi_port = 30332
+# cmdline opt mapi_usock = /var/tmp/mtest-7368/.s.monetdb.30332
+# cmdline opt monet_prompt =
+# cmdline opt gdk_dbpath =
/Users/joeri/monets/default/var/MonetDB/mTests_sql_test
+# cmdline opt embedded_r = yes
+# cmdline opt gdk_debug = 536870922
+
+# 10:43:02 >
+# 10:43:02 > "mclient" "-lsql" "-ftest" "-Eutf-8" "-i" "-e"
"--host=/var/tmp/mtest-7368" "--port=30332"
+# 10:43:02 >
+
+
+# 10:43:03 >
+# 10:43:03 > "Done."
+# 10:43:03 >
+
diff --git a/sql/test/Tests/comment-on-sequence.stable.out
b/sql/test/Tests/comment-on-sequence.stable.out
new file mode 100644
--- /dev/null
+++ b/sql/test/Tests/comment-on-sequence.stable.out
@@ -0,0 +1,114 @@
+stdout of test 'comment-on-sequence` in directory 'sql/test` itself:
+
+
+# 10:43:02 >
+# 10:43:02 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=30332" "--set"
"mapi_usock=/var/tmp/mtest-7368/.s.monetdb.30332" "--set" "monet_prompt="
"--forcemito"
"--dbpath=/Users/joeri/monets/default/var/MonetDB/mTests_sql_test" "--set"
"embedded_r=yes"
+# 10:43:02 >
+
+# MonetDB 5 server v11.28.0
+# This is an unreleased version
+# Serving database 'mTests_sql_test', using 8 threads
+# Compiled for x86_64-apple-darwin16.7.0/64bit with 128bit integers
+# Found 16.000 GiB available main-memory.
+# Copyright (c) 1993-July 2008 CWI.
+# Copyright (c) August 2008-2017 MonetDB B.V., all rights reserved
+# Visit https://www.monetdb.org/ for further information
+# Listening for connection requests on
mapi:monetdb://dhcp-62.eduroam.cwi.nl:30332/
+# Listening for UNIX domain connection requests on
mapi:monetdb:///var/tmp/mtest-7368/.s.monetdb.30332
+# MonetDB/GIS module loaded
+# MonetDB/SQL module loaded
+# MonetDB/R module loaded
+
+Ready.
+# SQL catalog created, loading sql scripts once
+# loading sql script: 09_like.sql
+# loading sql script: 10_math.sql
+# loading sql script: 11_times.sql
+# loading sql script: 12_url.sql
+# loading sql script: 13_date.sql
+# loading sql script: 14_inet.sql
+# loading sql script: 15_querylog.sql
+# loading sql script: 16_tracelog.sql
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
