Lines Matching +refs:custom +refs:mode +refs:map
40 ;; This file provides a sql-mode and a sql-interactive-mode. The
42 ;; highlighting. The interactive mode had to provide a command-line
43 ;; history; the other mode had to provide "send region/buffer to SQL
46 ;; has changed somewhat as experience with the mode has accumulated.
56 ;; If anybody feels like extending this sql mode, take a look at the
57 ;; above mentioned modes and write a sqlx-mode on top of this one. If
62 ;; sql-interactive-mode is used to interact with a SQL interpreter
65 ;; sql-product-interactive. Do *not* call sql-interactive-mode by
72 ;; Since sql-interactive-mode is built on top of the general
73 ;; command-interpreter-in-a-buffer mode (comint mode), it shares a
75 ;; modes derived from comint mode. This makes these modes easier to
78 ;; sql-mode can be used to keep editing SQL statements. The SQL
81 ;; For documentation on the functionality provided by comint mode, and
84 ;; Hint for newbies: take a look at `dabbrev-expand', `abbrev-mode', and
92 ;; and the custom package
93 ;; <URL:http://www.dina.kvl.dk/~abraham/custom/>.
123 ;; :font-lock sql-mode-xyz-font-lock-keywords
152 ;; using ANSI keywords. See sql-mode-oracle-font-lock-keywords for
155 ;; (defvar sql-mode-xyz-font-lock-keywords nil
233 (require 'custom)
293 "Product under `sql-interactive-mode'.")
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
375 SQL products handled by `sql-mode'. Without an entry in this list a
377 `sql-interactive-mode'.
441 ;; imenu support for sql-mode.
455 This is used to set `imenu-generic-expression' when SQL mode is
497 (defcustom sql-interactive-mode-hook '()
498 "*Hook for customizing `sql-interactive-mode'."
502 (defcustom sql-mode-hook '()
503 "*Hook for customizing `sql-mode'."
520 Starts `sql-interactive-mode' after doing some setup.
541 Starts `sql-interactive-mode' after doing some setup.
560 Starts `sql-interactive-mode' after doing some setup.
579 Starts `sql-interactive-mode' after doing some setup.
590 Starts `sql-interactive-mode' after doing some setup.
608 Starts `sql-interactive-mode' after doing some setup.
619 Starts `sql-interactive-mode' after doing some setup.
630 Starts `sql-interactive-mode' after doing some setup.
648 Starts `sql-interactive-mode' after doing some setup.
671 Starts `sql-interactive-mode' after doing some setup.
688 Starts `sql-interactive-mode' after doing some setup.
705 Starts `sql-interactive-mode' after doing some setup."
736 See `sql-interactive-mode' for more on multiple sessions. If you want
737 to change the SQLi buffer a SQL mode sends its SQL strings to, change
743 You can change `sql-prompt-regexp' on `sql-interactive-mode-hook'.")
746 "Prompt used to set `left-margin' in `sql-interactive-mode'.
748 You can change `sql-prompt-length' on `sql-interactive-mode-hook'.")
755 ;; Keymap for sql-interactive-mode.
757 (defvar sql-interactive-mode-map
758 (let ((map (make-sparse-keymap)))
760 (set-keymap-parent map comint-mode-map); Emacs
762 (set-keymap-parents map (list comint-mode-map)))); XEmacs
764 (set-keymap-name map 'sql-interactive-mode-map)); XEmacs
765 (define-key map (kbd "C-j") 'sql-accumulate-and-indent)
766 (define-key map (kbd "C-c C-w") 'sql-copy-column)
767 (define-key map (kbd "O") 'sql-magic-go)
768 (define-key map (kbd "o") 'sql-magic-go)
769 (define-key map (kbd ";") 'sql-magic-semicolon)
770 map)
771 "Mode map used for `sql-interactive-mode'.
772 Based on `comint-mode-map'.")
774 ;; Keymap for sql-mode.
776 (defvar sql-mode-map
777 (let ((map (make-sparse-keymap)))
778 (define-key map (kbd "C-c C-c") 'sql-send-paragraph)
779 (define-key map (kbd "C-c C-r") 'sql-send-region)
780 (define-key map (kbd "C-c C-s") 'sql-send-string)
781 (define-key map (kbd "C-c C-b") 'sql-send-buffer)
782 map)
783 "Mode map used for `sql-mode'.")
785 ;; easy menu for sql-mode.
788 sql-mode-menu sql-mode-map
789 "Menu for `sql-mode'."
852 ;; easy menu for sql-interactive-mode.
855 sql-interactive-mode-menu sql-interactive-mode-map
856 "Menu for `sql-interactive-mode'."
863 (defvar sql-mode-abbrev-table nil
864 "Abbrev table used in `sql-mode' and `sql-interactive-mode'.")
865 (unless sql-mode-abbrev-table
866 (define-abbrev-table 'sql-mode-abbrev-table nil))
874 (define-abbrev sql-mode-abbrev-table name expansion nil 0 t)
876 (define-abbrev sql-mode-abbrev-table name expansion)))))
887 (defvar sql-mode-syntax-table
904 "Syntax table used in `sql-mode' and `sql-interactive-mode'.")
908 (defvar sql-mode-font-lock-object-name
930 (defvar sql-mode-ansi-font-lock-keywords
990 "local" "locator" "map" "match" "minute" "modifies" "modify" "module"
1024 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1027 you define your own sql-mode-ansi-font-lock-keywords. You may want to
1030 (defvar sql-mode-oracle-font-lock-keywords
1102 "logical_reads_per_session" "managed" "management" "manual" "map"
1107 "mode" "modify" "monitoring" "month" "mount" "move" "movement" "name"
1218 "shift\\(inout\\)?\\|show\\(mode\\)?\\|"
1240 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1243 you define your own sql-mode-oracle-font-lock-keywords. You may want
1246 (defvar sql-mode-postgres-font-lock-keywords
1293 "maxvalue" "merges" "minvalue" "mode" "move" "natural" "negator"
1328 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1331 you define your own sql-mode-postgres-font-lock-keywords.")
1333 (defvar sql-mode-linter-font-lock-keywords
1372 "like" "lock" "mode" "modify" "not" "nowait" "null" "of" "on" "open"
1408 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1412 (defvar sql-mode-ms-font-lock-keywords
1514 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1517 you define your own sql-mode-ms-font-lock-keywords.")
1519 (defvar sql-mode-sybase-font-lock-keywords nil
1522 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1525 you define your own sql-mode-sybase-font-lock-keywords.")
1527 (defvar sql-mode-informix-font-lock-keywords nil
1530 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1533 you define your own sql-mode-informix-font-lock-keywords.")
1535 (defvar sql-mode-interbase-font-lock-keywords nil
1538 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1541 you define your own sql-mode-interbase-font-lock-keywords.")
1543 (defvar sql-mode-ingres-font-lock-keywords nil
1546 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1549 you define your own sql-mode-interbase-font-lock-keywords.")
1551 (defvar sql-mode-solid-font-lock-keywords nil
1554 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1557 you define your own sql-mode-solid-font-lock-keywords.")
1559 (defvar sql-mode-mysql-font-lock-keywords
1599 "mode" "modify" "mrg_myisam" "myisam" "natural" "next" "no" "not"
1631 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1634 you define your own sql-mode-mysql-font-lock-keywords.")
1636 (defvar sql-mode-sqlite-font-lock-keywords nil
1639 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1642 you define your own sql-mode-sqlite-font-lock-keywords.")
1644 (defvar sql-mode-db2-font-lock-keywords nil
1647 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1650 you define your own sql-mode-db2-font-lock-keywords.")
1652 (defvar sql-mode-font-lock-keywords nil
1657 highlighting rules in sql-mode.")
1685 (setq sql-mode-font-lock-keywords
1693 (list sql-mode-font-lock-object-name)))
1697 (setq font-lock-defaults (list 'sql-mode-font-lock-keywords
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
1760 (when (eq major-mode 'sql-mode)
1764 ;; Set the mode name to include the product.
1765 (setq mode-name (concat "SQL[" (prin1-to-string sql-product) "]"))))
1887 (indent-according-to-mode))
1894 usually named `*SQL*'. The name of the major mode is SQLi.
1923 `sql-mode' by calling \\[sql-mode]. The name of this buffer can be
1924 anything. The name of the major mode is SQL.
1926 In this SQL buffer (SQL mode), you can send the region or the entire
1927 buffer to the interactive SQL buffer (SQLi mode). The results are
1977 be in `sql-interactive-mode' and have a process."
1989 (if (and (equal major-mode 'sql-interactive-mode)
2010 (if (and (equal major-mode 'sql-mode)
2040 (equal major-mode 'sql-interactive-mode)))
2063 `sql-interactive-mode'."
2217 ;;; SQL mode -- uses SQL interactive mode
2220 (defun sql-mode ()
2221 "Major mode to edit SQL.
2227 \\{sql-mode-map}
2228 Customization: Entry to this mode runs the `sql-mode-hook'.
2230 When you put a buffer in SQL mode, the buffer stores the last SQLi
2238 `sql-interactive-mode'.
2244 \(add-hook 'sql-mode-hook
2246 (modify-syntax-entry ?\\\\ \".\" sql-mode-syntax-table)))"
2249 (setq major-mode 'sql-mode)
2250 (setq mode-name "SQL")
2251 (use-local-map sql-mode-map)
2252 (if sql-mode-menu
2253 (easy-menu-add sql-mode-menu)); XEmacs
2254 (set-syntax-table sql-mode-syntax-table)
2256 (make-local-variable 'sql-mode-font-lock-keywords)
2259 ;; Make each buffer in sql-mode remember the "current" SQLi buffer.
2261 ;; Add imenu support for sql-mode. Note that imenu-generic-expression
2273 (setq local-abbrev-table sql-mode-abbrev-table)
2276 (run-mode-hooks 'sql-mode-hook)
2284 ;;; SQL interactive mode
2286 (put 'sql-interactive-mode 'mode-class 'special)
2288 (defun sql-interactive-mode ()
2289 "Major mode to use a SQL interpreter interactively.
2307 their creation. See `sql-mode' for details.
2326 \\{sql-interactive-mode-map}
2327 Customization: Entry to this mode runs the hooks on `comint-mode-hook'
2328 and `sql-interactive-mode-hook' (in that order). Before each input, the
2347 \(add-hook 'sql-interactive-mode-hook
2356 (delay-mode-hooks (comint-mode))
2361 ;; Setup the mode.
2362 (setq major-mode 'sql-interactive-mode)
2363 (setq mode-name (concat "SQLi[" (prin1-to-string sql-product) "]"))
2364 (use-local-map sql-interactive-mode-map)
2365 (if sql-interactive-mode-menu
2366 (easy-menu-add sql-interactive-mode-menu)) ; XEmacs
2367 (set-syntax-table sql-mode-syntax-table)
2368 (make-local-variable 'sql-mode-font-lock-keywords)
2380 (setq local-abbrev-table sql-mode-abbrev-table)
2395 (run-mode-hooks 'sql-interactive-mode-hook)
2401 ;; on the sql-interactive-mode-hook.
2405 ;; to set comint-input-ring-file-name in sql-interactive-mode-hook.
2435 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2446 ;; Set SQLi mode.
2449 (sql-interactive-mode)
2467 The buffer is put in sql-interactive-mode, giving commands for sending
2468 input. See `sql-interactive-mode'.
2477 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2522 The buffer is put in sql-interactive-mode, giving commands for sending
2523 input. See `sql-interactive-mode'.
2532 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2567 The buffer is put in sql-interactive-mode, giving commands for sending
2568 input. See `sql-interactive-mode'.
2577 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2607 The buffer is put in sql-interactive-mode, giving commands for sending
2608 input. See `sql-interactive-mode'.
2617 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2658 The buffer is put in sql-interactive-mode, giving commands for sending
2659 input. See `sql-interactive-mode'.
2668 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2706 The buffer is put in sql-interactive-mode, giving commands for sending
2707 input. See `sql-interactive-mode'.
2716 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2749 The buffer is put in sql-interactive-mode, giving commands for sending
2750 input. See `sql-interactive-mode'.
2759 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2787 The buffer is put in sql-interactive-mode, giving commands for sending
2788 input. See `sql-interactive-mode'.
2797 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2841 The buffer is put in sql-interactive-mode, giving commands for sending
2842 input. See `sql-interactive-mode'.
2856 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2893 The buffer is put in sql-interactive-mode, giving commands for sending
2894 input. See `sql-interactive-mode'.
2903 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2936 The buffer is put in sql-interactive-mode, giving commands for sending
2937 input. See `sql-interactive-mode'.
2951 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2985 The buffer is put in sql-interactive-mode, giving commands for sending
2986 input. See `sql-interactive-mode'.
2988 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"