Lines Matching +defs:font +defs:lock +defs:keywords
123 ;; :font-lock sql-mode-xyz-font-lock-keywords
147 ;; ["XyzDB" sql-highlight-xyz-keywords
151 ;; 5) Add the font-lock specifications. At a minimum, default to
152 ;; using ANSI keywords. See sql-mode-oracle-font-lock-keywords for
155 ;; (defvar sql-mode-xyz-font-lock-keywords nil
156 ;; "XyzDB SQL keywords used by font-lock.")
160 ;; (defun sql-highlight-xyz-keywords ()
161 ;; "Highlight XyzDB keywords."
202 ;; your lists of reserved words, keywords and builtin functions! As
204 ;; ANSI keywords only. I received the list of ANSI keywords from a
222 ;; Stefan Monnier <monnier@iro.umontreal.ca> -- font-lock corrections
237 (defvar font-lock-keyword-face)
238 (defvar font-lock-set-defaults)
239 (defvar font-lock-string-face)
297 :font-lock sql-mode-ansi-font-lock-keywords)
299 :font-lock sql-mode-db2-font-lock-keywords
305 :font-lock sql-mode-informix-font-lock-keywords
311 :font-lock sql-mode-ingres-font-lock-keywords
317 :font-lock sql-mode-interbase-font-lock-keywords
323 :font-lock sql-mode-linter-font-lock-keywords
329 :font-lock sql-mode-ms-font-lock-keywords
336 :font-lock sql-mode-mysql-font-lock-keywords
342 :font-lock sql-mode-oracle-font-lock-keywords
349 :font-lock sql-mode-postgres-font-lock-keywords
355 :font-lock sql-mode-solid-font-lock-keywords
361 :font-lock sql-mode-sqlite-font-lock-keywords
367 :font-lock sql-mode-sybase-font-lock-keywords
388 :font-lock name of the variable containing the product
389 specific font lock highlighting patterns.
411 special character treatment by font-lock and
811 ["ANSI" sql-highlight-ansi-keywords
814 ["DB2" sql-highlight-db2-keywords
817 ["Informix" sql-highlight-informix-keywords
820 ["Ingres" sql-highlight-ingres-keywords
823 ["Interbase" sql-highlight-interbase-keywords
826 ["Linter" sql-highlight-linter-keywords
829 ["MS SQLServer" sql-highlight-ms-keywords
832 ["MySQL" sql-highlight-mysql-keywords
835 ["Oracle" sql-highlight-oracle-keywords
838 ["Postgres" sql-highlight-postgres-keywords
841 ["Solid" sql-highlight-solid-keywords
844 ["SQLite" sql-highlight-sqlite-keywords
847 ["Sybase" sql-highlight-sybase-keywords
906 ;; Font lock support
908 (defvar sql-mode-font-lock-object-name
911 "\\(?:\\w+\\s-+\\)*" ;; optional intervening keywords
915 1 'font-lock-function-name-face))
921 `font-lock-keywords' entry.")
923 (defmacro sql-keywords-re (&rest keywords)
927 (regexp-opt ',keywords t)
930 (defvar sql-mode-ansi-font-lock-keywords
931 (let ((ansi-funcs (sql-keywords-re
941 (ansi-non-reserved (sql-keywords-re
971 (ansi-reserved (sql-keywords-re
1009 (ansi-types (sql-keywords-re
1017 `((,ansi-non-reserved . font-lock-keyword-face)
1018 (,ansi-reserved . font-lock-keyword-face)
1019 (,ansi-funcs . font-lock-builtin-face)
1020 (,ansi-types . font-lock-type-face)))
1022 "ANSI SQL keywords used by font-lock.
1027 you define your own sql-mode-ansi-font-lock-keywords. You may want to
1028 add functions and PL/SQL keywords.")
1030 (defvar sql-mode-oracle-font-lock-keywords
1031 (let ((oracle-functions (sql-keywords-re
1064 (oracle-keywords (sql-keywords-re
1100 "list" "lob" "local" "location" "locator" "lock" "log" "logfile"
1152 (oracle-types (sql-keywords-re
1160 (plsql-functions (sql-keywords-re
1165 (plsql-keywords (sql-keywords-re
1175 (plsql-type (sql-keywords-re
1180 (plsql-warning (sql-keywords-re
1229 `((,sqlplus-commands . font-lock-doc-face)
1230 (,oracle-functions . font-lock-builtin-face)
1231 (,oracle-keywords . font-lock-keyword-face)
1232 (,oracle-types . font-lock-type-face)
1233 (,plsql-functions . font-lock-builtin-face)
1234 (,plsql-keywords . font-lock-keyword-face)
1235 (,plsql-type . font-lock-type-face)
1236 (,plsql-warning . font-lock-warning-face)))
1238 "Oracle SQL keywords used by font-lock.
1243 you define your own sql-mode-oracle-font-lock-keywords. You may want
1244 to add functions and PL/SQL keywords.")
1246 (defvar sql-mode-postgres-font-lock-keywords
1247 (let ((pg-funcs (sql-keywords-re
1274 (pg-reserved (sql-keywords-re
1292 "listen" "load" "local" "location" "lock" "ltcmp" "main" "match"
1311 (pg-types (sql-keywords-re
1322 `((,pg-funcs . font-lock-builtin-face)
1323 (,pg-reserved . font-lock-keyword-face)
1324 (,pg-types . font-lock-type-face)))
1326 "Postgres SQL keywords used by font-lock.
1331 you define your own sql-mode-postgres-font-lock-keywords.")
1333 (defvar sql-mode-linter-font-lock-keywords
1334 (let ((linter-keywords (sql-keywords-re
1361 (linter-reserved (sql-keywords-re
1372 "like" "lock" "mode" "modify" "not" "nowait" "null" "of" "on" "open"
1381 (linter-types (sql-keywords-re
1388 (linter-functions (sql-keywords-re
1401 `((,linter-keywords . font-lock-keyword-face)
1402 (,linter-reserved . font-lock-keyword-face)
1403 (,linter-functions . font-lock-builtin-face)
1404 (,linter-types . font-lock-type-face)))
1406 "Linter SQL keywords used by font-lock.
1412 (defvar sql-mode-ms-font-lock-keywords
1413 (let ((ms-reserved (sql-keywords-re
1448 (ms-types (sql-keywords-re
1458 (ms-functions (sql-keywords-re
1506 `((,ms-commands . font-lock-doc-face)
1507 (,ms-reserved . font-lock-keyword-face)
1508 (,ms-functions . font-lock-builtin-face)
1509 (,ms-vars . font-lock-variable-name-face)
1510 (,ms-types . font-lock-type-face)))
1512 "Microsoft SQLServer SQL keywords used by font-lock.
1517 you define your own sql-mode-ms-font-lock-keywords.")
1519 (defvar sql-mode-sybase-font-lock-keywords nil
1520 "Sybase SQL keywords used by font-lock.
1525 you define your own sql-mode-sybase-font-lock-keywords.")
1527 (defvar sql-mode-informix-font-lock-keywords nil
1528 "Informix SQL keywords used by font-lock.
1533 you define your own sql-mode-informix-font-lock-keywords.")
1535 (defvar sql-mode-interbase-font-lock-keywords nil
1536 "Interbase SQL keywords used by font-lock.
1541 you define your own sql-mode-interbase-font-lock-keywords.")
1543 (defvar sql-mode-ingres-font-lock-keywords nil
1544 "Ingres SQL keywords used by font-lock.
1549 you define your own sql-mode-interbase-font-lock-keywords.")
1551 (defvar sql-mode-solid-font-lock-keywords nil
1552 "Solid SQL keywords used by font-lock.
1557 you define your own sql-mode-solid-font-lock-keywords.")
1559 (defvar sql-mode-mysql-font-lock-keywords
1560 (let ((mysql-funcs (sql-keywords-re
1585 (mysql-keywords (sql-keywords-re
1598 "local" "lock" "low_priority" "match" "max_rows" "merge" "min_rows"
1613 (mysql-types (sql-keywords-re
1625 `((,mysql-funcs . font-lock-builtin-face)
1626 (,mysql-keywords . font-lock-keyword-face)
1627 (,mysql-types . font-lock-type-face)))
1629 "MySQL SQL keywords used by font-lock.
1634 you define your own sql-mode-mysql-font-lock-keywords.")
1636 (defvar sql-mode-sqlite-font-lock-keywords nil
1637 "SQLite SQL keywords used by font-lock.
1642 you define your own sql-mode-sqlite-font-lock-keywords.")
1644 (defvar sql-mode-db2-font-lock-keywords nil
1645 "DB2 SQL keywords used by font-lock.
1650 you define your own sql-mode-db2-font-lock-keywords.")
1652 (defvar sql-mode-font-lock-keywords nil
1653 "SQL keywords used by font-lock.
1656 `sql-product' and `sql-add-product-keywords' to control the
1673 (defun sql-product-font-lock (keywords-only imenu)
1674 "Sets `font-lock-defaults' and `font-lock-keywords' based on
1675 the product-specific keywords and syntax-alists defined in
1684 ;; Get the product-specific keywords.
1685 (setq sql-mode-font-lock-keywords
1688 (eval (sql-product-feature :font-lock)))
1689 ;; Always highlight ANSI keywords
1690 (eval (sql-product-feature :font-lock 'ansi))
1693 (list sql-mode-font-lock-object-name)))
1695 ;; Setup font-lock. Force re-parsing of `font-lock-defaults'.
1696 (set (make-local-variable 'font-lock-set-defaults) nil)
1697 (setq font-lock-defaults (list 'sql-mode-font-lock-keywords
1698 keywords-only t syntax-alist))
1700 ;; Force font lock to reinitialize if it is already on
1702 (when (and (fboundp 'font-lock-mode)
1703 font-lock-mode)
1704 (font-lock-mode-internal nil)
1705 (font-lock-mode-internal t))
1707 (add-hook 'font-lock-mode-hook
1709 ;; Provide defaults for new font-lock faces.
1710 (defvar font-lock-builtin-face
1711 (if (boundp 'font-lock-preprocessor-face)
1712 font-lock-preprocessor-face
1713 font-lock-keyword-face))
1714 (defvar font-lock-doc-face font-lock-string-face))
1722 (defun sql-add-product-keywords (product keywords &optional append)
1727 `font-lock-keywords'. By default they are added at the beginning
1735 (sql-add-product-keywords 'ms
1736 '((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face)))
1741 (let ((font-lock (sql-product-feature :font-lock product))
1743 (setq old (eval font-lock))
1744 (set font-lock
1746 keywords
1748 (append old keywords)
1749 (append keywords old))))))
1757 "Turns on the appropriate font highlighting for the SQL product
1761 ;; Setup font-lock
1762 (sql-product-font-lock nil t)
1779 (defun sql-highlight-oracle-keywords ()
1780 "Highlight Oracle keywords."
1784 (defun sql-highlight-postgres-keywords ()
1785 "Highlight Postgres keywords."
1789 (defun sql-highlight-linter-keywords ()
1790 "Highlight LINTER keywords."
1794 (defun sql-highlight-ms-keywords ()
1795 "Highlight Microsoft SQLServer keywords."
1799 (defun sql-highlight-ansi-keywords ()
1800 "Highlight ANSI SQL keywords."
1804 (defun sql-highlight-sybase-keywords ()
1805 "Highlight Sybase SQL keywords."
1809 (defun sql-highlight-informix-keywords ()
1810 "Highlight Informix SQL keywords."
1814 (defun sql-highlight-interbase-keywords ()
1815 "Highlight Interbase SQL keywords."
1819 (defun sql-highlight-ingres-keywords ()
1820 "Highlight Ingres SQL keywords."
1824 (defun sql-highlight-solid-keywords ()
1825 "Highlight Solid SQL keywords."
1829 (defun sql-highlight-mysql-keywords ()
1830 "Highlight MySQL SQL keywords."
1834 (defun sql-highlight-sqlite-keywords ()
1835 "Highlight SQLite SQL keywords."
1839 (defun sql-highlight-db2-keywords ()
1840 "Highlight DB2 SQL keywords."
2255 (make-local-variable 'font-lock-defaults)
2256 (make-local-variable 'sql-mode-font-lock-keywords)
2368 (make-local-variable 'sql-mode-font-lock-keywords)
2369 (make-local-variable 'font-lock-defaults)
2374 (sql-product-font-lock t nil)