From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Fri, 7 Jun 2024 14:04:36 +0000 (+0200)
Subject: sql vertica reserved words
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=cd8f8859624b981ac19dfba10902edb2daaf030a;p=emacsconfig.git

sql vertica reserved words

* lisp/sql.el: sql--vertica-show-reserved-words draft.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/lisp/sql.el b/lisp/sql.el
index 185d83eb..cb65449c 100644
--- a/lisp/sql.el
+++ b/lisp/sql.el
@@ -2666,6 +2666,33 @@ regular expressions are created during compilation by calling the
 function `regexp-opt'.  Therefore, take a look at the source before
 you define your own `sql-mode-db2-font-lock-keywords'.")
 
+(defun sql--vertica-show-reserved-words ()
+  ;; This function is for use by the maintainer of SQL.EL only.
+  (if (or (and (not (derived-mode-p 'sql-mode))
+               (not (derived-mode-p 'sql-interactive-mode)))
+          (not sql-buffer)
+          (not (eq sql-product 'oracle)))
+      (user-error "Not an Oracle buffer")
+
+    (let ((b "*RESERVED WORDS*"))
+      (sql-execute sql-buffer b
+                   (concat "SELECT "
+                           "  keyword "
+                           ", reserved AS \"Res\" "
+                           ", res_type AS \"Type\" "
+                           ", res_attr AS \"Attr\" "
+                           ", res_semi AS \"Semi\" "
+                           ", duplicate AS \"Dup\" "
+                           "FROM v_catalog.standard_keywords"
+			   "WHERE reserved = 'R'"
+                           "AND SUBSTR(keyword, 1, 1) BETWEEN 'A' AND 'Z' "
+                           "ORDER BY 2 DESC, 3 DESC, 4 DESC, 5 DESC, 6 DESC, 1;")
+                   nil nil)
+      (with-current-buffer b
+        (setq-local sql-product 'oracle)
+        (sql-product-font-lock t nil)
+        (font-lock-mode +1)))))
+
 (defvar sql-mode-vertica-font-lock-keywords
   (eval-when-compile
     (list