1 ;;; sql.el --- specialized comint.el for SQL interpreters
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
4 ;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
6 ;; Author: Alex Schroeder <alex@gnu.org>
7 ;; Maintainer: Michael Mauger <mmaug@yahoo.com>
9 ;; Keywords: comm languages processes
10 ;; URL: http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/progmodes/sql.el
11 ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?SqlMode
13 ;; This file is part of GNU Emacs.
15 ;; GNU Emacs is free software: you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by
17 ;; the Free Software Foundation, either version 3 of the License, or
18 ;; (at your option) any later version.
20 ;; GNU Emacs is distributed in the hope that it will be useful,
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 ;; GNU General Public License for more details.
25 ;; You should have received a copy of the GNU General Public License
26 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
30 ;; Please send bug reports and bug fixes to the mailing list at
31 ;; help-gnu-emacs@gnu.org. If you want to subscribe to the mailing
32 ;; list, see the web page at
33 ;; http://lists.gnu.org/mailman/listinfo/help-gnu-emacs for
34 ;; instructions. I monitor this list actively. If you send an e-mail
35 ;; to Alex Schroeder it usually makes it to me when Alex has a chance
36 ;; to forward them along (Thanks, Alex).
38 ;; This file provides a sql-mode and a sql-interactive-mode. The
39 ;; original goals were two simple modes providing syntactic
40 ;; highlighting. The interactive mode had to provide a command-line
41 ;; history; the other mode had to provide "send region/buffer to SQL
42 ;; interpreter" functions. "simple" in this context means easy to
43 ;; use, easy to maintain and little or no bells and whistles. This
44 ;; has changed somewhat as experience with the mode has accumulated.
46 ;; Support for different flavors of SQL and command interpreters was
47 ;; available in early versions of sql.el. This support has been
48 ;; extended and formalized in later versions. Part of the impetus for
49 ;; the improved support of SQL flavors was borne out of the current
50 ;; maintainer's consulting experience. In the past fifteen years, I
51 ;; have used Oracle, Sybase, Informix, MySQL, Postgres, and SQLServer.
52 ;; On some assignments, I have used two or more of these concurrently.
54 ;; If anybody feels like extending this sql mode, take a look at the
55 ;; above mentioned modes and write a sqlx-mode on top of this one. If
56 ;; this proves to be difficult, please suggest changes that will
57 ;; facilitate your plans. Facilities have been provided to add
58 ;; products and product-specific configuration.
60 ;; sql-interactive-mode is used to interact with a SQL interpreter
61 ;; process in a SQLi buffer (usually called `*SQL*'). The SQLi buffer
62 ;; is created by calling a SQL interpreter-specific entry function or
63 ;; sql-product-interactive. Do *not* call sql-interactive-mode by
66 ;; The list of currently supported interpreters and the corresponding
67 ;; entry function used to create the SQLi buffers is shown with
68 ;; `sql-help' (M-x sql-help).
70 ;; Since sql-interactive-mode is built on top of the general
71 ;; command-interpreter-in-a-buffer mode (comint mode), it shares a
72 ;; common base functionality, and a common set of bindings, with all
73 ;; modes derived from comint mode. This makes these modes easier to
76 ;; sql-mode can be used to keep editing SQL statements. The SQL
77 ;; statements can be sent to the SQL process in the SQLi buffer.
79 ;; For documentation on the functionality provided by comint mode, and
80 ;; the hooks available for customizing it, see the file `comint.el'.
82 ;; Hint for newbies: take a look at `dabbrev-expand', `abbrev-mode', and
83 ;; `imenu-add-menubar-index'.
85 ;;; Requirements for Emacs 19.34:
87 ;; If you are using Emacs 19.34, you will have to get and install
88 ;; the file regexp-opt.el
89 ;; <URL:ftp://ftp.ifi.uio.no/pub/emacs/emacs-20.3/lisp/emacs-lisp/regexp-opt.el>
90 ;; and the custom package
91 ;; <URL:http://www.dina.kvl.dk/~abraham/custom/>.
95 ;; sql-ms now uses osql instead of isql. Osql flushes its error
96 ;; stream more frequently than isql so that error messages are
97 ;; available. There is no prompt and some output still is buffered.
98 ;; This improves the interaction under Emacs but it still is somewhat
101 ;; Quoted identifiers are not supported for hilighting. Most
102 ;; databases support the use of double quoted strings in place of
103 ;; identifiers; ms (Microsoft SQLServer) also supports identifiers
104 ;; enclosed within brackets [].
108 ;; To add support for additional SQL products the following steps
109 ;; must be followed ("xyz" is the name of the product in the examples
112 ;; 1) Add the product to the list of known products.
114 ;; (sql-add-product 'xyz "XyzDB"
115 ;; '(:free-software t))
117 ;; 2) Define font lock settings. All ANSI keywords will be
118 ;; highlighted automatically, so only product specific keywords
119 ;; need to be defined here.
121 ;; (defvar my-sql-mode-xyz-font-lock-keywords
122 ;; '(("\\b\\(red\\|orange\\|yellow\\)\\b"
123 ;; . font-lock-keyword-face))
124 ;; "XyzDB SQL keywords used by font-lock.")
126 ;; (sql-set-product-feature 'xyz
128 ;; 'my-sql-mode-xyz-font-lock-keywords)
130 ;; 3) Define any special syntax characters including comments and
131 ;; identifier characters.
133 ;; (sql-set-product-feature 'xyz
134 ;; :syntax-alist ((?# . "w")))
136 ;; 4) Define the interactive command interpreter for the database
139 ;; (defcustom my-sql-xyz-program "ixyz"
140 ;; "Command to start ixyz by XyzDB."
144 ;; (sql-set-product-feature 'xyz
145 ;; :sqli-program 'my-sql-xyz-program)
146 ;; (sql-set-product-feature 'xyz
147 ;; :prompt-regexp "^xyzdb> ")
148 ;; (sql-set-product-feature 'xyz
151 ;; 5) Define login parameters and command line formatting.
153 ;; (defcustom my-sql-xyz-login-params '(user password server database)
154 ;; "Login parameters to needed to connect to XyzDB."
155 ;; :type '(repeat (choice
159 ;; (const database)))
162 ;; (sql-set-product-feature 'xyz
163 ;; :sqli-login 'my-sql-xyz-login-params)
165 ;; (defcustom my-sql-xyz-options '("-X" "-Y" "-Z")
166 ;; "List of additional options for `sql-xyz-program'."
167 ;; :type '(repeat string)
170 ;; (sql-set-product-feature 'xyz
171 ;; :sqli-options 'my-sql-xyz-options))
173 ;; (defun my-sql-connect-xyz (product options)
174 ;; "Connect ti XyzDB in a comint buffer."
176 ;; ;; Do something with `sql-user', `sql-password',
177 ;; ;; `sql-database', and `sql-server'.
178 ;; (let ((params options))
179 ;; (if (not (string= "" sql-server))
180 ;; (setq params (append (list "-S" sql-server) params)))
181 ;; (if (not (string= "" sql-database))
182 ;; (setq params (append (list "-D" sql-database) params)))
183 ;; (if (not (string= "" sql-password))
184 ;; (setq params (append (list "-P" sql-password) params)))
185 ;; (if (not (string= "" sql-user))
186 ;; (setq params (append (list "-U" sql-user) params)))
187 ;; (sql-connect product params)))
189 ;; (sql-set-product-feature 'xyz
190 ;; :sqli-connect-func 'my-sql-connect-xyz)
192 ;; 6) Define a convienence function to invoke the SQL interpreter.
194 ;; (defun my-sql-xyz ()
195 ;; "Run ixyz by XyzDB as an inferior process."
197 ;; (sql-product-interactive 'xyz))
201 ;; Improve keyword highlighting for individual products. I have tried
202 ;; to update those database that I use. Feel free to send me updates,
203 ;; or direct me to the reference manuals for your favorite database.
205 ;; When there are no keywords defined, the ANSI keywords are
206 ;; highlighted. ANSI keywords are highlighted even if the keyword is
207 ;; not used for your current product. This should help identify
208 ;; portability concerns.
210 ;; Add different highlighting levels.
212 ;; Add support for listing available tables or the columns in a table.
214 ;;; Thanks to all the people who helped me out:
216 ;; Alex Schroeder <alex@gnu.org> -- the original author
217 ;; Kai Blauberg <kai.blauberg@metla.fi>
218 ;; <ibalaban@dalet.com>
219 ;; Yair Friedman <yfriedma@JohnBryce.Co.Il>
220 ;; Gregor Zych <zych@pool.informatik.rwth-aachen.de>
221 ;; nino <nino@inform.dk>
222 ;; Berend de Boer <berend@pobox.com>
223 ;; Adam Jenkins <adam@thejenkins.org>
224 ;; Michael Mauger <mmaug@yahoo.com> -- improved product support
225 ;; Drew Adams <drew.adams@oracle.com> -- Emacs 20 support
226 ;; Harald Maier <maierh@myself.com> -- sql-send-string
227 ;; Stefan Monnier <monnier@iro.umontreal.ca> -- font-lock corrections; code polish
234 ;; Need the following to allow GNU Emacs 19 to compile the file.
236 (require 'regexp-opt))
238 (eval-when-compile ;; needed in Emacs 19, 20
239 (setq max-specpdl-size 2000))
241 (defvar font-lock-keyword-face)
242 (defvar font-lock-set-defaults)
243 (defvar font-lock-string-face)
245 ;;; Allow customization
248 "Running a SQL interpreter from within Emacs buffers."
253 ;; These four variables will be used as defaults, if set.
255 (defcustom sql-user ""
259 (put 'sql-user 'safe-local-variable 'stringp)
261 (defcustom sql-password ""
264 Storing your password in a textfile such as ~/.emacs could be dangerous.
265 Customizing your password will store it in your ~/.emacs file."
268 (put 'sql-password 'risky-local-variable t)
270 (defcustom sql-database ""
274 (put 'sql-database 'safe-local-variable 'stringp)
276 (defcustom sql-server ""
277 "Default server or host."
280 (put 'sql-server 'safe-local-variable 'stringp)
282 (defcustom sql-port nil
283 "Default server or host."
286 (put 'sql-port 'safe-local-variable 'numberp)
288 ;; SQL Product support
290 (defvar sql-interactive-product nil
291 "Product under `sql-interactive-mode'.")
293 (defvar sql-product-alist
296 :font-lock sql-mode-ansi-font-lock-keywords)
300 :font-lock sql-mode-db2-font-lock-keywords
301 :sqli-program sql-db2-program
302 :sqli-options sql-db2-options
303 :sqli-login sql-db2-login-params
304 :sqli-connect-func sql-connect-db2
305 :prompt-regexp "^db2 => "
307 :input-filter sql-escape-newlines-filter)
311 :font-lock sql-mode-informix-font-lock-keywords
312 :sqli-program sql-informix-program
313 :sqli-options sql-informix-options
314 :sqli-login sql-informix-login-params
315 :sqli-connect-func sql-connect-informix
318 :syntax-alist ((?{ . "<") (?} . ">")))
322 :font-lock sql-mode-ingres-font-lock-keywords
323 :sqli-program sql-ingres-program
324 :sqli-options sql-ingres-options
325 :sqli-login sql-ingres-login-params
326 :sqli-connect-func sql-connect-ingres
327 :prompt-regexp "^\* "
332 :font-lock sql-mode-interbase-font-lock-keywords
333 :sqli-program sql-interbase-program
334 :sqli-options sql-interbase-options
335 :sqli-login sql-interbase-login-params
336 :sqli-connect-func sql-connect-interbase
337 :prompt-regexp "^SQL> "
342 :font-lock sql-mode-linter-font-lock-keywords
343 :sqli-program sql-linter-program
344 :sqli-options sql-linter-options
345 :sqli-login sql-linter-login-params
346 :sqli-connect-func sql-connect-linter
347 :prompt-regexp "^SQL>"
352 :font-lock sql-mode-ms-font-lock-keywords
353 :sqli-program sql-ms-program
354 :sqli-options sql-ms-options
355 :sqli-login sql-ms-login-params
356 :sqli-connect-func sql-connect-ms
357 :prompt-regexp "^[0-9]*>"
359 :syntax-alist ((?@ . "w"))
360 :terminator ("^go" . "go"))
365 :font-lock sql-mode-mysql-font-lock-keywords
366 :sqli-program sql-mysql-program
367 :sqli-options sql-mysql-options
368 :sqli-login sql-mysql-login-params
369 :sqli-connect-func sql-connect-mysql
370 :prompt-regexp "^mysql> "
372 :input-filter sql-remove-tabs-filter)
376 :font-lock sql-mode-oracle-font-lock-keywords
377 :sqli-program sql-oracle-program
378 :sqli-options sql-oracle-options
379 :sqli-login sql-oracle-login-params
380 :sqli-connect-func sql-connect-oracle
381 :prompt-regexp "^SQL> "
383 :syntax-alist ((?$ . "w") (?# . "w"))
384 :terminator ("\\(^/\\|;\\)" . "/")
385 :input-filter sql-placeholders-filter)
390 :font-lock sql-mode-postgres-font-lock-keywords
391 :sqli-program sql-postgres-program
392 :sqli-options sql-postgres-options
393 :sqli-login sql-postgres-login-params
394 :sqli-connect-func sql-connect-postgres
395 :prompt-regexp "^.*[#>] *"
397 :input-filter sql-remove-tabs-filter
398 :terminator ("\\(^[\\]g\\|;\\)" . ";"))
402 :font-lock sql-mode-solid-font-lock-keywords
403 :sqli-program sql-solid-program
404 :sqli-options sql-solid-options
405 :sqli-login sql-solid-login-params
406 :sqli-connect-func sql-connect-solid
413 :font-lock sql-mode-sqlite-font-lock-keywords
414 :sqli-program sql-sqlite-program
415 :sqli-options sql-sqlite-options
416 :sqli-login sql-sqlite-login-params
417 :sqli-connect-func sql-connect-sqlite
418 :prompt-regexp "^sqlite> "
423 :font-lock sql-mode-sybase-font-lock-keywords
424 :sqli-program sql-sybase-program
425 :sqli-options sql-sybase-options
426 :sqli-login sql-sybase-login-params
427 :sqli-connect-func sql-connect-sybase
428 :prompt-regexp "^SQL> "
430 :syntax-alist ((?@ . "w"))
431 :terminator ("^go" . "go"))
433 "An alist of product specific configuration settings.
435 Without an entry in this list a product will not be properly
436 highlighted and will not support `sql-interactive-mode'.
438 Each element in the list is in the following format:
440 \(PRODUCT FEATURE VALUE ...)
442 where PRODUCT is the appropriate value of `sql-product'. The
443 product name is then followed by FEATURE-VALUE pairs. If a
444 FEATURE is not specified, its VALUE is treated as nil. FEATURE
445 may be any one of the following:
447 :name string containing the displayable name of
450 :free-software is the product Free (as in Freedom) software?
452 :font-lock name of the variable containing the product
453 specific font lock highlighting patterns.
455 :sqli-program name of the variable containing the product
456 specific interactive program name.
458 :sqli-options name of the variable containing the list
459 of product specific options.
461 :sqli-login name of the variable containing the list of
462 login parameters (i.e., user, password,
463 database and server) needed to connect to
466 :sqli-connect-func name of a function which accepts no
467 parameters that will use the values of
468 `sql-user', `sql-password',
469 `sql-database' and `sql-server' to open a
470 comint buffer and connect to the
471 database. Do product specific
472 configuration of comint in this function.
474 :prompt-regexp regular expression string that matches
475 the prompt issued by the product
478 :prompt-length length of the prompt on the line.
480 :input-filter function which can filter strings sent to
481 the command interpreter. It is also used
482 by the `sql-send-string',
483 `sql-send-region', `sql-send-paragraph'
484 and `sql-send-buffer' functions. The
485 function is passed the string sent to the
486 command interpreter and must return the
489 :terminator the terminator to be sent after a
490 `sql-send-string', `sql-send-region',
491 `sql-send-paragraph' and
492 `sql-send-buffer' command. May be the
493 literal string or a cons of a regexp to
494 match an existing terminator in the
495 string and the terminator to be used if
496 its absent. By default \";\".
498 :syntax-alist alist of syntax table entries to enable
499 special character treatment by font-lock
502 Other features can be stored but they will be ignored. However,
503 you can develop new functionality which is product independent by
504 using `sql-get-product-feature' to lookup the product specific
507 (defvar sql-indirect-features
508 '(:font-lock :sqli-program :sqli-options :sqli-login))
511 (defcustom sql-product 'ansi
512 "Select the SQL database product used so that buffers can be
513 highlighted properly when you open them."
515 ,@(mapcar (lambda (prod-info)
517 ,(or (plist-get (cdr prod-info) :name)
518 (capitalize (symbol-name (car prod-info))))
522 (put 'sql-product 'safe-local-variable 'symbolp)
524 (defvar sql-interactive-product nil
525 "Product under `sql-interactive-mode'.")
527 ;; misc customization of sql.el behaviour
529 (defcustom sql-electric-stuff nil
530 "Treat some input as electric.
531 If set to the symbol `semicolon', then hitting `;' will send current
532 input in the SQLi buffer to the process.
533 If set to the symbol `go', then hitting `go' on a line by itself will
534 send current input in the SQLi buffer to the process.
535 If set to nil, then you must use \\[comint-send-input] in order to send
536 current input in the SQLi buffer to the process."
537 :type '(choice (const :tag "Nothing" nil)
538 (const :tag "The semicolon `;'" semicolon)
539 (const :tag "The string `go' by itself" go))
543 (defcustom sql-send-terminator nil
544 "When non-nil, add a terminator to text sent to the SQL interpreter.
546 When text is sent to the SQL interpreter (via `sql-send-string',
547 `sql-send-region', `sql-send-paragraph' or `sql-send-buffer'), a
548 command terminator can be automatically sent as well. The
549 terminator is not sent, if the string sent already ends with the
552 If this value is t, then the default command terminator for the
553 SQL interpreter is sent. If this value is a string, then the
556 If the value is a cons cell of the form (PAT . TERM), then PAT is
557 a regexp used to match the terminator in the string and TERM is
558 the terminator to be sent. This form is useful if the SQL
559 interpreter has more than one way of submitting a SQL command.
560 The PAT regexp can match any of them, and TERM is the way we do
563 :type '(choice (const :tag "No Terminator" nil)
564 (const :tag "Default Terminator" t)
565 (string :tag "Terminator String")
566 (cons :tag "Terminator Pattern and String"
567 (string :tag "Terminator Pattern")
568 (string :tag "Terminator String")))
572 (defcustom sql-pop-to-buffer-after-send-region nil
573 "When non-nil, pop to the buffer SQL statements are sent to.
575 After a call to `sql-sent-string', `sql-send-region',
576 `sql-send-paragraph' or `sql-send-buffer', the window is split
577 and the SQLi buffer is shown. If this variable is not nil, that
578 buffer's window will be selected by calling `pop-to-buffer'. If
579 this variable is nil, that buffer is shown using
584 ;; imenu support for sql-mode.
586 (defvar sql-imenu-generic-expression
587 ;; Items are in reverse order because they are rendered in reverse.
588 '(("Rules/Defaults" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*\\(rule\\|default\\)\\s-+\\(\\w+\\)" 3)
589 ("Sequences" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*sequence\\s-+\\(\\w+\\)" 2)
590 ("Triggers" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*trigger\\s-+\\(\\w+\\)" 2)
591 ("Functions" "^\\s-*\\(create\\s-+\\(\\w+\\s-+\\)*\\)?function\\s-+\\(\\w+\\)" 3)
592 ("Procedures" "^\\s-*\\(create\\s-+\\(\\w+\\s-+\\)*\\)?proc\\(edure\\)?\\s-+\\(\\w+\\)" 4)
593 ("Packages" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*package\\s-+\\(body\\s-+\\)?\\(\\w+\\)" 3)
594 ("Types" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*type\\s-+\\(body\\s-+\\)?\\(\\w+\\)" 3)
595 ("Indexes" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*index\\s-+\\(\\w+\\)" 2)
596 ("Tables/Views" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*\\(table\\|view\\)\\s-+\\(\\w+\\)" 3))
597 "Define interesting points in the SQL buffer for `imenu'.
599 This is used to set `imenu-generic-expression' when SQL mode is
600 entered. Subsequent changes to `sql-imenu-generic-expression' will
601 not affect existing SQL buffers because imenu-generic-expression is
606 (defcustom sql-input-ring-file-name nil
607 "If non-nil, name of the file to read/write input history.
609 You have to set this variable if you want the history of your commands
610 saved from one Emacs session to the next. If this variable is set,
611 exiting the SQL interpreter in an SQLi buffer will write the input
612 history to the specified file. Starting a new process in a SQLi buffer
613 will read the input history from the specified file.
615 This is used to initialize `comint-input-ring-file-name'.
617 Note that the size of the input history is determined by the variable
618 `comint-input-ring-size'."
619 :type '(choice (const :tag "none" nil)
623 (defcustom sql-input-ring-separator "\n--\n"
624 "Separator between commands in the history file.
626 If set to \"\\n\", each line in the history file will be interpreted as
627 one command. Multi-line commands are split into several commands when
628 the input ring is initialized from a history file.
630 This variable used to initialize `comint-input-ring-separator'.
631 `comint-input-ring-separator' is part of Emacs 21; if your Emacs
632 does not have it, setting `sql-input-ring-separator' will have no
633 effect. In that case multiline commands will be split into several
634 commands when the input history is read, as if you had set
635 `sql-input-ring-separator' to \"\\n\"."
641 (defcustom sql-interactive-mode-hook '()
642 "Hook for customizing `sql-interactive-mode'."
646 (defcustom sql-mode-hook '()
647 "Hook for customizing `sql-mode'."
651 (defcustom sql-set-sqli-hook '()
652 "Hook for reacting to changes of `sql-buffer'.
654 This is called by `sql-set-sqli-buffer' when the value of `sql-buffer'
659 ;; Customization for Oracle
661 (defcustom sql-oracle-program "sqlplus"
662 "Command to start sqlplus by Oracle.
664 Starts `sql-interactive-mode' after doing some setup.
666 On Windows, \"sqlplus\" usually starts the sqlplus \"GUI\". In order
667 to start the sqlplus console, use \"plus33\" or something similar.
668 You will find the file in your Orant\\bin directory."
672 (defcustom sql-oracle-options nil
673 "List of additional options for `sql-oracle-program'."
674 :type '(repeat string)
678 (defcustom sql-oracle-login-params '(user password database)
679 "List of login parameters needed to connect to Oracle."
680 :type '(repeat (choice
688 (defcustom sql-oracle-scan-on t
689 "Non-nil if placeholders should be replaced in Oracle SQLi.
691 When non-nil, Emacs will scan text sent to sqlplus and prompt
692 for replacement text for & placeholders as sqlplus does. This
693 is needed on Windows where sqlplus output is buffered and the
694 prompts are not shown until after the text is entered.
696 You will probably want to issue the following command in sqlplus
703 ;; Customization for SQLite
705 (defcustom sql-sqlite-program "sqlite"
706 "Command to start SQLite.
708 Starts `sql-interactive-mode' after doing some setup."
712 (defcustom sql-sqlite-options nil
713 "List of additional options for `sql-sqlite-program'."
714 :type '(repeat string)
718 (defcustom sql-sqlite-login-params '(database)
719 "List of login parameters needed to connect to SQLite."
720 :type '(repeat (choice
728 ;; Customization for MySql
730 (defcustom sql-mysql-program "mysql"
731 "Command to start mysql by TcX.
733 Starts `sql-interactive-mode' after doing some setup."
737 (defcustom sql-mysql-options nil
738 "List of additional options for `sql-mysql-program'.
739 The following list of options is reported to make things work
740 on Windows: \"-C\" \"-t\" \"-f\" \"-n\"."
741 :type '(repeat string)
745 (defcustom sql-mysql-login-params '(user password database server)
746 "List of login parameters needed to connect to MySql."
747 :type '(repeat (choice
756 ;; Customization for Solid
758 (defcustom sql-solid-program "solsql"
759 "Command to start SOLID SQL Editor.
761 Starts `sql-interactive-mode' after doing some setup."
765 (defcustom sql-solid-login-params '(user password server)
766 "List of login parameters needed to connect to Solid."
767 :type '(repeat (choice
775 ;; Customization for Sybase
777 (defcustom sql-sybase-program "isql"
778 "Command to start isql by Sybase.
780 Starts `sql-interactive-mode' after doing some setup."
784 (defcustom sql-sybase-options nil
785 "List of additional options for `sql-sybase-program'.
786 Some versions of isql might require the -n option in order to work."
787 :type '(repeat string)
791 (defcustom sql-sybase-login-params '(server user password database)
792 "List of login parameters needed to connect to Sybase."
793 :type '(repeat (choice
801 ;; Customization for Informix
803 (defcustom sql-informix-program "dbaccess"
804 "Command to start dbaccess by Informix.
806 Starts `sql-interactive-mode' after doing some setup."
810 (defcustom sql-informix-login-params '(database)
811 "List of login parameters needed to connect to Informix."
812 :type '(repeat (choice
820 ;; Customization for Ingres
822 (defcustom sql-ingres-program "sql"
823 "Command to start sql by Ingres.
825 Starts `sql-interactive-mode' after doing some setup."
829 (defcustom sql-ingres-login-params '(database)
830 "List of login parameters needed to connect to Ingres."
831 :type '(repeat (choice
839 ;; Customization for Microsoft
841 (defcustom sql-ms-program "osql"
842 "Command to start osql by Microsoft.
844 Starts `sql-interactive-mode' after doing some setup."
848 (defcustom sql-ms-options '("-w" "300" "-n")
849 ;; -w is the linesize
850 "List of additional options for `sql-ms-program'."
851 :type '(repeat string)
855 (defcustom sql-ms-login-params '(user password server database)
856 "List of login parameters needed to connect to Microsoft."
857 :type '(repeat (choice
865 ;; Customization for Postgres
867 (defcustom sql-postgres-program "psql"
868 "Command to start psql by Postgres.
870 Starts `sql-interactive-mode' after doing some setup."
874 (defcustom sql-postgres-options '("-P" "pager=off")
875 "List of additional options for `sql-postgres-program'.
876 The default setting includes the -P option which breaks older versions
877 of the psql client (such as version 6.5.3). The -P option is equivalent
878 to the --pset option. If you want the psql to prompt you for a user
879 name, add the string \"-u\" to the list of options. If you want to
880 provide a user name on the command line (newer versions such as 7.1),
881 add your name with a \"-U\" prefix (such as \"-Umark\") to the list."
882 :type '(repeat string)
886 (defcustom sql-postgres-login-params '(user database server)
887 "List of login parameters needed to connect to Postgres."
888 :type '(repeat (choice
896 ;; Customization for Interbase
898 (defcustom sql-interbase-program "isql"
899 "Command to start isql by Interbase.
901 Starts `sql-interactive-mode' after doing some setup."
905 (defcustom sql-interbase-options nil
906 "List of additional options for `sql-interbase-program'."
907 :type '(repeat string)
911 (defcustom sql-interbase-login-params '(user password database)
912 "List of login parameters needed to connect to Interbase."
913 :type '(repeat (choice
921 ;; Customization for DB2
923 (defcustom sql-db2-program "db2"
924 "Command to start db2 by IBM.
926 Starts `sql-interactive-mode' after doing some setup."
930 (defcustom sql-db2-options nil
931 "List of additional options for `sql-db2-program'."
932 :type '(repeat string)
936 (defcustom sql-db2-login-params nil
937 "List of login parameters needed to connect to DB2."
938 :type '(repeat (choice
946 ;; Customization for Linter
948 (defcustom sql-linter-program "inl"
949 "Command to start inl by RELEX.
951 Starts `sql-interactive-mode' after doing some setup."
955 (defcustom sql-linter-options nil
956 "List of additional options for `sql-linter-program'."
957 :type '(repeat string)
961 (defcustom sql-linter-login-params '(user password database server)
962 "Login parameters to needed to connect to Linter."
963 :type '(repeat (choice
973 ;;; Variables which do not need customization
975 (defvar sql-user-history nil
976 "History of usernames used.")
978 (defvar sql-database-history nil
979 "History of databases used.")
981 (defvar sql-server-history nil
982 "History of servers used.")
984 (defvar sql-port-history nil
985 "History of ports used.")
987 ;; Passwords are not kept in a history.
989 (defvar sql-buffer nil
990 "Current SQLi buffer.
992 The global value of `sql-buffer' is the name of the latest SQLi buffer
993 created. Any SQL buffer created will make a local copy of this value.
994 See `sql-interactive-mode' for more on multiple sessions. If you want
995 to change the SQLi buffer a SQL mode sends its SQL strings to, change
996 the local value of `sql-buffer' using \\[sql-set-sqli-buffer].")
998 (defvar sql-prompt-regexp nil
999 "Prompt used to initialize `comint-prompt-regexp'.
1001 You can change `sql-prompt-regexp' on `sql-interactive-mode-hook'.")
1003 (defvar sql-prompt-length 0
1004 "Prompt used to set `left-margin' in `sql-interactive-mode'.
1006 You can change `sql-prompt-length' on `sql-interactive-mode-hook'.")
1008 (defvar sql-alternate-buffer-name nil
1009 "Buffer-local string used to possibly rename the SQLi buffer.
1011 Used by `sql-rename-buffer'.")
1013 ;; Keymap for sql-interactive-mode.
1015 (defvar sql-interactive-mode-map
1016 (let ((map (make-sparse-keymap)))
1017 (if (fboundp 'set-keymap-parent)
1018 (set-keymap-parent map comint-mode-map); Emacs
1019 (if (fboundp 'set-keymap-parents)
1020 (set-keymap-parents map (list comint-mode-map)))); XEmacs
1021 (if (fboundp 'set-keymap-name)
1022 (set-keymap-name map 'sql-interactive-mode-map)); XEmacs
1023 (define-key map (kbd "C-j") 'sql-accumulate-and-indent)
1024 (define-key map (kbd "C-c C-w") 'sql-copy-column)
1025 (define-key map (kbd "O") 'sql-magic-go)
1026 (define-key map (kbd "o") 'sql-magic-go)
1027 (define-key map (kbd ";") 'sql-magic-semicolon)
1029 "Mode map used for `sql-interactive-mode'.
1030 Based on `comint-mode-map'.")
1032 ;; Keymap for sql-mode.
1034 (defvar sql-mode-map
1035 (let ((map (make-sparse-keymap)))
1036 (define-key map (kbd "C-c C-c") 'sql-send-paragraph)
1037 (define-key map (kbd "C-c C-r") 'sql-send-region)
1038 (define-key map (kbd "C-c C-s") 'sql-send-string)
1039 (define-key map (kbd "C-c C-b") 'sql-send-buffer)
1040 (define-key map (kbd "C-c C-i") 'sql-product-interactive)
1042 "Mode map used for `sql-mode'.")
1044 ;; easy menu for sql-mode.
1047 sql-mode-menu sql-mode-map
1048 "Menu for `sql-mode'."
1050 ["Send Paragraph" sql-send-paragraph (and (buffer-live-p sql-buffer)
1051 (get-buffer-process sql-buffer))]
1052 ["Send Region" sql-send-region (and mark-active
1053 (buffer-live-p sql-buffer)
1054 (get-buffer-process sql-buffer))]
1055 ["Send Buffer" sql-send-buffer (and (buffer-live-p sql-buffer)
1056 (get-buffer-process sql-buffer))]
1057 ["Send String" sql-send-string (and (buffer-live-p sql-buffer)
1058 (get-buffer-process sql-buffer))]
1060 ["Start SQLi session" sql-product-interactive (sql-get-product-feature sql-product :sqli-connect-func)]
1061 ["Show SQLi buffer" sql-show-sqli-buffer t]
1062 ["Set SQLi buffer" sql-set-sqli-buffer t]
1063 ["Pop to SQLi buffer after send"
1064 sql-toggle-pop-to-buffer-after-send-region
1066 :selected sql-pop-to-buffer-after-send-region]
1069 ,@(mapcar (lambda (prod-info)
1070 (let* ((prod (pop prod-info))
1071 (name (or (plist-get prod-info :name)
1072 (capitalize (symbol-name prod))))
1073 (cmd (intern (format "sql-highlight-%s-keywords" prod))))
1074 (fset cmd `(lambda () ,(format "Highlight %s SQL keywords." name)
1076 (sql-set-product ',prod)))
1079 :selected `(eq sql-product ',prod))))
1080 sql-product-alist))))
1082 ;; easy menu for sql-interactive-mode.
1085 sql-interactive-mode-menu sql-interactive-mode-map
1086 "Menu for `sql-interactive-mode'."
1088 ["Rename Buffer" sql-rename-buffer t]))
1090 ;; Abbreviations -- if you want more of them, define them in your
1091 ;; ~/.emacs file. Abbrevs have to be enabled in your ~/.emacs, too.
1093 (defvar sql-mode-abbrev-table nil
1094 "Abbrev table used in `sql-mode' and `sql-interactive-mode'.")
1095 (unless sql-mode-abbrev-table
1096 (define-abbrev-table 'sql-mode-abbrev-table nil))
1099 ;; In Emacs 22+, provide SYSTEM-FLAG to define-abbrev.
1101 (let ((name (car abbrev))
1102 (expansion (cdr abbrev)))
1104 (define-abbrev sql-mode-abbrev-table name expansion nil 0 t)
1106 (define-abbrev sql-mode-abbrev-table name expansion)))))
1107 '(("ins" . "insert")
1111 ("proc" . "procedure")
1112 ("func" . "function")
1117 (defvar sql-mode-syntax-table
1118 (let ((table (make-syntax-table)))
1119 ;; C-style comments /**/ (see elisp manual "Syntax Flags"))
1120 (modify-syntax-entry ?/ ". 14" table)
1121 (modify-syntax-entry ?* ". 23" table)
1122 ;; double-dash starts comments
1123 (modify-syntax-entry ?- ". 12b" table)
1124 ;; newline and formfeed end comments
1125 (modify-syntax-entry ?\n "> b" table)
1126 (modify-syntax-entry ?\f "> b" table)
1127 ;; single quotes (') delimit strings
1128 (modify-syntax-entry ?' "\"" table)
1129 ;; double quotes (") don't delimit strings
1130 (modify-syntax-entry ?\" "." table)
1131 ;; backslash is no escape character
1132 (modify-syntax-entry ?\\ "." table)
1134 "Syntax table used in `sql-mode' and `sql-interactive-mode'.")
1136 ;; Font lock support
1138 (defvar sql-mode-font-lock-object-name
1140 (list (concat "^\\s-*\\(?:create\\|drop\\|alter\\)\\s-+" ;; lead off with CREATE, DROP or ALTER
1141 "\\(?:\\w+\\s-+\\)*" ;; optional intervening keywords
1142 "\\(?:table\\|view\\|\\(?:package\\|type\\)\\(?:\\s-+body\\)?\\|proc\\(?:edure\\)?"
1143 "\\|function\\|trigger\\|sequence\\|rule\\|default\\)\\s-+"
1145 1 'font-lock-function-name-face))
1147 "Pattern to match the names of top-level objects.
1149 The pattern matches the name in a CREATE, DROP or ALTER
1150 statement. The format of variable should be a valid
1151 `font-lock-keywords' entry.")
1153 ;; While there are international and American standards for SQL, they
1154 ;; are not followed closely, and most vendors offer significant
1155 ;; capabilities beyond those defined in the standard specifications.
1157 ;; SQL mode provides support for hilighting based on the product. In
1158 ;; addition to hilighting the product keywords, any ANSI keywords not
1159 ;; used by the product are also hilighted. This will help identify
1160 ;; keywords that could be restricted in future versions of the product
1161 ;; or might be a problem if ported to another product.
1163 ;; To reduce the complexity and size of the regular expressions
1164 ;; generated to match keywords, ANSI keywords are filtered out of
1165 ;; product keywords if they are equivalent. To do this, we define a
1166 ;; function `sql-font-lock-keywords-builder' that removes any keywords
1167 ;; that are matched by the ANSI patterns and results in the same face
1168 ;; being applied. For this to work properly, we must play some games
1169 ;; with the execution and compile time behavior. This code is a
1170 ;; little tricky but works properly.
1172 ;; When defining the keywords for individual products you should
1173 ;; include all of the keywords that you want matched. The filtering
1174 ;; against the ANSI keywords will be automatic if you use the
1175 ;; `sql-font-lock-keywords-builder' function and follow the
1176 ;; implementation pattern used for the other products in this file.
1179 (defvar sql-mode-ansi-font-lock-keywords)
1180 (setq sql-mode-ansi-font-lock-keywords nil))
1183 (defun sql-font-lock-keywords-builder (face boundaries &rest keywords)
1184 "Generation of regexp matching any one of KEYWORDS."
1186 (let ((bdy (or boundaries '("\\b" . "\\b")))
1189 ;; Remove keywords that are defined in ANSI
1191 (dolist (k keywords)
1193 (dolist (a sql-mode-ansi-font-lock-keywords)
1194 (when (and (eq face (cdr a))
1195 (eq (string-match (car a) k 0) 0)
1196 (eq (match-end 0) (length k)))
1197 (setq kwd (delq k kwd))
1198 (throw 'next nil)))))
1200 ;; Create a properly formed font-lock-keywords item
1201 (cons (concat (car bdy)
1207 (setq sql-mode-ansi-font-lock-keywords
1209 ;; ANSI Non Reserved keywords
1210 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1211 "ada" "asensitive" "assignment" "asymmetric" "atomic" "between"
1212 "bitvar" "called" "catalog_name" "chain" "character_set_catalog"
1213 "character_set_name" "character_set_schema" "checked" "class_origin"
1214 "cobol" "collation_catalog" "collation_name" "collation_schema"
1215 "column_name" "command_function" "command_function_code" "committed"
1216 "condition_number" "connection_name" "constraint_catalog"
1217 "constraint_name" "constraint_schema" "contains" "cursor_name"
1218 "datetime_interval_code" "datetime_interval_precision" "defined"
1219 "definer" "dispatch" "dynamic_function" "dynamic_function_code"
1220 "existing" "exists" "final" "fortran" "generated" "granted"
1221 "hierarchy" "hold" "implementation" "infix" "insensitive" "instance"
1222 "instantiable" "invoker" "key_member" "key_type" "length" "m"
1223 "message_length" "message_octet_length" "message_text" "method" "more"
1224 "mumps" "name" "nullable" "number" "options" "overlaps" "overriding"
1225 "parameter_mode" "parameter_name" "parameter_ordinal_position"
1226 "parameter_specific_catalog" "parameter_specific_name"
1227 "parameter_specific_schema" "pascal" "pli" "position" "repeatable"
1228 "returned_length" "returned_octet_length" "returned_sqlstate"
1229 "routine_catalog" "routine_name" "routine_schema" "row_count" "scale"
1230 "schema_name" "security" "self" "sensitive" "serializable"
1231 "server_name" "similar" "simple" "source" "specific_name" "style"
1232 "subclass_origin" "sublist" "symmetric" "system" "table_name"
1233 "transaction_active" "transactions_committed"
1234 "transactions_rolled_back" "transform" "transforms" "trigger_catalog"
1235 "trigger_name" "trigger_schema" "type" "uncommitted" "unnamed"
1236 "user_defined_type_catalog" "user_defined_type_name"
1237 "user_defined_type_schema"
1239 ;; ANSI Reserved keywords
1240 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1241 "absolute" "action" "add" "admin" "after" "aggregate" "alias" "all"
1242 "allocate" "alter" "and" "any" "are" "as" "asc" "assertion" "at"
1243 "authorization" "before" "begin" "both" "breadth" "by" "call"
1244 "cascade" "cascaded" "case" "catalog" "check" "class" "close"
1245 "collate" "collation" "column" "commit" "completion" "connect"
1246 "connection" "constraint" "constraints" "constructor" "continue"
1247 "corresponding" "create" "cross" "cube" "current" "cursor" "cycle"
1248 "data" "day" "deallocate" "declare" "default" "deferrable" "deferred"
1249 "delete" "depth" "deref" "desc" "describe" "descriptor" "destroy"
1250 "destructor" "deterministic" "diagnostics" "dictionary" "disconnect"
1251 "distinct" "domain" "drop" "dynamic" "each" "else" "end" "equals"
1252 "escape" "every" "except" "exception" "exec" "execute" "external"
1253 "false" "fetch" "first" "for" "foreign" "found" "free" "from" "full"
1254 "function" "general" "get" "global" "go" "goto" "grant" "group"
1255 "grouping" "having" "host" "hour" "identity" "ignore" "immediate" "in"
1256 "indicator" "initialize" "initially" "inner" "inout" "input" "insert"
1257 "intersect" "into" "is" "isolation" "iterate" "join" "key" "language"
1258 "last" "lateral" "leading" "left" "less" "level" "like" "limit"
1259 "local" "locator" "map" "match" "minute" "modifies" "modify" "module"
1260 "month" "names" "natural" "new" "next" "no" "none" "not" "null" "of"
1261 "off" "old" "on" "only" "open" "operation" "option" "or" "order"
1262 "ordinality" "out" "outer" "output" "pad" "parameter" "parameters"
1263 "partial" "path" "postfix" "prefix" "preorder" "prepare" "preserve"
1264 "primary" "prior" "privileges" "procedure" "public" "read" "reads"
1265 "recursive" "references" "referencing" "relative" "restrict" "result"
1266 "return" "returns" "revoke" "right" "role" "rollback" "rollup"
1267 "routine" "rows" "savepoint" "schema" "scroll" "search" "second"
1268 "section" "select" "sequence" "session" "set" "sets" "size" "some"
1269 "space" "specific" "specifictype" "sql" "sqlexception" "sqlstate"
1270 "sqlwarning" "start" "state" "statement" "static" "structure" "table"
1271 "temporary" "terminate" "than" "then" "timezone_hour"
1272 "timezone_minute" "to" "trailing" "transaction" "translation"
1273 "trigger" "true" "under" "union" "unique" "unknown" "unnest" "update"
1274 "usage" "using" "value" "values" "variable" "view" "when" "whenever"
1275 "where" "with" "without" "work" "write" "year"
1279 (sql-font-lock-keywords-builder 'font-lock-builtin-face nil
1280 "abs" "avg" "bit_length" "cardinality" "cast" "char_length"
1281 "character_length" "coalesce" "convert" "count" "current_date"
1282 "current_path" "current_role" "current_time" "current_timestamp"
1283 "current_user" "extract" "localtime" "localtimestamp" "lower" "max"
1284 "min" "mod" "nullif" "octet_length" "overlay" "placing" "session_user"
1285 "substring" "sum" "system_user" "translate" "treat" "trim" "upper"
1289 (sql-font-lock-keywords-builder 'font-lock-type-face nil
1290 "array" "binary" "bit" "blob" "boolean" "char" "character" "clob"
1291 "date" "dec" "decimal" "double" "float" "int" "integer" "interval"
1292 "large" "national" "nchar" "nclob" "numeric" "object" "precision"
1293 "real" "ref" "row" "scope" "smallint" "time" "timestamp" "varchar"
1297 (defvar sql-mode-ansi-font-lock-keywords
1298 (eval-when-compile sql-mode-ansi-font-lock-keywords)
1299 "ANSI SQL keywords used by font-lock.
1301 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1302 regular expressions are created during compilation by calling the
1303 function `regexp-opt'. Therefore, take a look at the source before
1304 you define your own `sql-mode-ansi-font-lock-keywords'. You may want
1305 to add functions and PL/SQL keywords.")
1307 (defvar sql-mode-oracle-font-lock-keywords
1310 ;; Oracle SQL*Plus Commands
1313 "^\\(?:\\(?:" (regexp-opt '(
1314 "@" "@@" "accept" "append" "archive" "attribute" "break"
1315 "btitle" "change" "clear" "column" "connect" "copy" "define"
1316 "del" "describe" "disconnect" "edit" "execute" "exit" "get" "help"
1317 "host" "input" "list" "password" "pause" "print" "prompt" "recover"
1318 "remark" "repfooter" "repheader" "run" "save" "show" "shutdown"
1319 "spool" "start" "startup" "store" "timing" "ttitle" "undefine"
1320 "variable" "whenever"
1324 "\\(?:compute\\s-+\\(?:avg\\|cou\\|min\\|max\\|num\\|sum\\|std\\|var\\)\\)\\|"
1328 '("appi" "appinfo" "array" "arraysize" "auto" "autocommit"
1329 "autop" "autoprint" "autorecovery" "autot" "autotrace" "blo"
1330 "blockterminator" "buffer" "closecursor" "cmds" "cmdsep"
1331 "colsep" "com" "compatibility" "con" "concat" "constraint"
1332 "constraints" "copyc" "copycommit" "copytypecheck" "database"
1333 "def" "define" "document" "echo" "editf" "editfile" "emb"
1334 "embedded" "esc" "escape" "feed" "feedback" "flagger" "flu"
1335 "flush" "hea" "heading" "heads" "headsep" "instance" "lin"
1336 "linesize" "lobof" "loboffset" "logsource" "long" "longc"
1337 "longchunksize" "maxdata" "newp" "newpage" "null" "num"
1338 "numf" "numformat" "numwidth" "pages" "pagesize" "pau"
1339 "pause" "recsep" "recsepchar" "role" "scan" "serveroutput"
1340 "shift" "shiftinout" "show" "showmode" "space" "sqlbl"
1341 "sqlblanklines" "sqlc" "sqlcase" "sqlco" "sqlcontinue" "sqln"
1342 "sqlnumber" "sqlp" "sqlpluscompat" "sqlpluscompatibility"
1343 "sqlpre" "sqlprefix" "sqlprompt" "sqlt" "sqlterminator"
1344 "statement_id" "suf" "suffix" "tab" "term" "termout" "ti"
1345 "time" "timi" "timing" "transaction" "trim" "trimout" "trims"
1346 "trimspool" "truncate" "und" "underline" "ver" "verify" "wra"
1351 'font-lock-doc-face)
1352 '("^[ \t]*rem\\(?:ark\\)?.*" . font-lock-comment-face)
1355 (sql-font-lock-keywords-builder 'font-lock-builtin-face nil
1356 "abs" "acos" "add_months" "ascii" "asciistr" "asin" "atan" "atan2"
1357 "avg" "bfilename" "bin_to_num" "bitand" "cast" "ceil" "chartorowid"
1358 "chr" "coalesce" "compose" "concat" "convert" "corr" "cos" "cosh"
1359 "count" "covar_pop" "covar_samp" "cume_dist" "current_date"
1360 "current_timestamp" "current_user" "dbtimezone" "decode" "decompose"
1361 "dense_rank" "depth" "deref" "dump" "empty_clob" "existsnode" "exp"
1362 "extract" "extractvalue" "first" "first_value" "floor" "following"
1363 "from_tz" "greatest" "group_id" "grouping_id" "hextoraw" "initcap"
1364 "instr" "lag" "last" "last_day" "last_value" "lead" "least" "length"
1365 "ln" "localtimestamp" "lower" "lpad" "ltrim" "make_ref" "max" "min"
1366 "mod" "months_between" "new_time" "next_day" "nls_charset_decl_len"
1367 "nls_charset_id" "nls_charset_name" "nls_initcap" "nls_lower"
1368 "nls_upper" "nlssort" "ntile" "nullif" "numtodsinterval"
1369 "numtoyminterval" "nvl" "nvl2" "over" "path" "percent_rank"
1370 "percentile_cont" "percentile_disc" "power" "preceding" "rank"
1371 "ratio_to_report" "rawtohex" "rawtonhex" "reftohex" "regr_"
1372 "regr_avgx" "regr_avgy" "regr_count" "regr_intercept" "regr_r2"
1373 "regr_slope" "regr_sxx" "regr_sxy" "regr_syy" "replace" "round"
1374 "row_number" "rowidtochar" "rowidtonchar" "rpad" "rtrim"
1375 "sessiontimezone" "sign" "sin" "sinh" "soundex" "sqrt" "stddev"
1376 "stddev_pop" "stddev_samp" "substr" "sum" "sys_connect_by_path"
1377 "sys_context" "sys_dburigen" "sys_extract_utc" "sys_guid" "sys_typeid"
1378 "sys_xmlagg" "sys_xmlgen" "sysdate" "systimestamp" "tan" "tanh"
1379 "to_char" "to_clob" "to_date" "to_dsinterval" "to_lob" "to_multi_byte"
1380 "to_nchar" "to_nclob" "to_number" "to_single_byte" "to_timestamp"
1381 "to_timestamp_tz" "to_yminterval" "translate" "treat" "trim" "trunc"
1382 "tz_offset" "uid" "unbounded" "unistr" "updatexml" "upper" "user"
1383 "userenv" "var_pop" "var_samp" "variance" "vsize" "width_bucket" "xml"
1384 "xmlagg" "xmlattribute" "xmlcolattval" "xmlconcat" "xmlelement"
1385 "xmlforest" "xmlsequence" "xmltransform"
1388 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1389 "abort" "access" "accessed" "account" "activate" "add" "admin"
1390 "advise" "after" "agent" "aggregate" "all" "allocate" "allow" "alter"
1391 "always" "analyze" "ancillary" "and" "any" "apply" "archive"
1392 "archivelog" "array" "as" "asc" "associate" "at" "attribute"
1393 "attributes" "audit" "authenticated" "authid" "authorization" "auto"
1394 "autoallocate" "automatic" "availability" "backup" "before" "begin"
1395 "behalf" "between" "binding" "bitmap" "block" "blocksize" "body"
1396 "both" "buffer_pool" "build" "by" "cache" "call" "cancel"
1397 "cascade" "case" "category" "certificate" "chained" "change" "check"
1398 "checkpoint" "child" "chunk" "class" "clear" "clone" "close" "cluster"
1399 "column" "column_value" "columns" "comment" "commit" "committed"
1400 "compatibility" "compile" "complete" "composite_limit" "compress"
1401 "compute" "connect" "connect_time" "consider" "consistent"
1402 "constraint" "constraints" "constructor" "contents" "context"
1403 "continue" "controlfile" "corruption" "cost" "cpu_per_call"
1404 "cpu_per_session" "create" "cross" "cube" "current" "currval" "cycle"
1405 "dangling" "data" "database" "datafile" "datafiles" "day" "ddl"
1406 "deallocate" "debug" "default" "deferrable" "deferred" "definer"
1407 "delay" "delete" "demand" "desc" "determines" "deterministic"
1408 "dictionary" "dimension" "directory" "disable" "disassociate"
1409 "disconnect" "distinct" "distinguished" "distributed" "dml" "drop"
1410 "each" "element" "else" "enable" "end" "equals_path" "escape"
1411 "estimate" "except" "exceptions" "exchange" "excluding" "exists"
1412 "expire" "explain" "extent" "external" "externally"
1413 "failed_login_attempts" "fast" "file" "final" "finish" "flush" "for"
1414 "force" "foreign" "freelist" "freelists" "freepools" "fresh" "from"
1415 "full" "function" "functions" "generated" "global" "global_name"
1416 "globally" "grant" "group" "grouping" "groups" "guard" "hash"
1417 "hashkeys" "having" "heap" "hierarchy" "id" "identified" "identifier"
1418 "idle_time" "immediate" "in" "including" "increment" "index" "indexed"
1419 "indexes" "indextype" "indextypes" "indicator" "initial" "initialized"
1420 "initially" "initrans" "inner" "insert" "instance" "instantiable"
1421 "instead" "intersect" "into" "invalidate" "is" "isolation" "java"
1422 "join" "keep" "key" "kill" "language" "left" "less" "level"
1423 "levels" "library" "like" "like2" "like4" "likec" "limit" "link"
1424 "list" "lob" "local" "location" "locator" "lock" "log" "logfile"
1425 "logging" "logical" "logical_reads_per_call"
1426 "logical_reads_per_session" "managed" "management" "manual" "map"
1427 "mapping" "master" "matched" "materialized" "maxdatafiles"
1428 "maxextents" "maximize" "maxinstances" "maxlogfiles" "maxloghistory"
1429 "maxlogmembers" "maxsize" "maxtrans" "maxvalue" "member" "memory"
1430 "merge" "migrate" "minextents" "minimize" "minimum" "minus" "minvalue"
1431 "mode" "modify" "monitoring" "month" "mount" "move" "movement" "name"
1432 "named" "natural" "nested" "never" "new" "next" "nextval" "no"
1433 "noarchivelog" "noaudit" "nocache" "nocompress" "nocopy" "nocycle"
1434 "nodelay" "noforce" "nologging" "nomapping" "nomaxvalue" "nominimize"
1435 "nominvalue" "nomonitoring" "none" "noorder" "noparallel" "norely"
1436 "noresetlogs" "noreverse" "normal" "norowdependencies" "nosort"
1437 "noswitch" "not" "nothing" "notimeout" "novalidate" "nowait" "null"
1438 "nulls" "object" "of" "off" "offline" "oidindex" "old" "on" "online"
1439 "only" "open" "operator" "optimal" "option" "or" "order"
1440 "organization" "out" "outer" "outline" "overflow" "overriding"
1441 "package" "packages" "parallel" "parallel_enable" "parameters"
1442 "parent" "partition" "partitions" "password" "password_grace_time"
1443 "password_life_time" "password_lock_time" "password_reuse_max"
1444 "password_reuse_time" "password_verify_function" "pctfree"
1445 "pctincrease" "pctthreshold" "pctused" "pctversion" "percent"
1446 "performance" "permanent" "pfile" "physical" "pipelined" "plan"
1447 "post_transaction" "pragma" "prebuilt" "preserve" "primary" "private"
1448 "private_sga" "privileges" "procedure" "profile" "protection" "public"
1449 "purge" "query" "quiesce" "quota" "range" "read" "reads" "rebuild"
1450 "records_per_block" "recover" "recovery" "recycle" "reduced" "ref"
1451 "references" "referencing" "refresh" "register" "reject" "relational"
1452 "rely" "rename" "reset" "resetlogs" "resize" "resolve" "resolver"
1453 "resource" "restrict" "restrict_references" "restricted" "result"
1454 "resumable" "resume" "retention" "return" "returning" "reuse"
1455 "reverse" "revoke" "rewrite" "right" "rnds" "rnps" "role" "roles"
1456 "rollback" "rollup" "row" "rowdependencies" "rownum" "rows" "sample"
1457 "savepoint" "scan" "schema" "scn" "scope" "segment" "select"
1458 "selectivity" "self" "sequence" "serializable" "session"
1459 "sessions_per_user" "set" "sets" "settings" "shared" "shared_pool"
1460 "shrink" "shutdown" "siblings" "sid" "single" "size" "skip" "some"
1461 "sort" "source" "space" "specification" "spfile" "split" "standby"
1462 "start" "statement_id" "static" "statistics" "stop" "storage" "store"
1463 "structure" "subpartition" "subpartitions" "substitutable"
1464 "successful" "supplemental" "suspend" "switch" "switchover" "synonym"
1465 "sys" "system" "table" "tables" "tablespace" "tempfile" "template"
1466 "temporary" "test" "than" "then" "thread" "through" "time_zone"
1467 "timeout" "to" "trace" "transaction" "trigger" "triggers" "truncate"
1468 "trust" "type" "types" "unarchived" "under" "under_path" "undo"
1469 "uniform" "union" "unique" "unlimited" "unlock" "unquiesce"
1470 "unrecoverable" "until" "unusable" "unused" "update" "upgrade" "usage"
1471 "use" "using" "validate" "validation" "value" "values" "variable"
1472 "varray" "version" "view" "wait" "when" "whenever" "where" "with"
1473 "without" "wnds" "wnps" "work" "write" "xmldata" "xmlschema" "xmltype"
1475 ;; Oracle Data Types
1476 (sql-font-lock-keywords-builder 'font-lock-type-face nil
1477 "bfile" "blob" "byte" "char" "character" "clob" "date" "dec" "decimal"
1478 "double" "float" "int" "integer" "interval" "long" "national" "nchar"
1479 "nclob" "number" "numeric" "nvarchar2" "precision" "raw" "real"
1480 "rowid" "second" "smallint" "time" "timestamp" "urowid" "varchar"
1481 "varchar2" "varying" "year" "zone"
1484 ;; Oracle PL/SQL Attributes
1485 (sql-font-lock-keywords-builder 'font-lock-builtin-face '("" . "\\b")
1486 "%bulk_rowcount" "%found" "%isopen" "%notfound" "%rowcount" "%rowtype"
1490 ;; Oracle PL/SQL Functions
1491 (sql-font-lock-keywords-builder 'font-lock-builtin-face nil
1495 ;; Oracle PL/SQL Keywords
1496 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1497 "autonomous_transaction" "bulk" "char_base" "collect" "constant"
1498 "cursor" "declare" "do" "elsif" "exception_init" "execute" "exit"
1499 "extends" "false" "fetch" "forall" "goto" "hour" "if" "interface"
1500 "loop" "minute" "number_base" "ocirowid" "opaque" "others" "rowtype"
1501 "separate" "serially_reusable" "sql" "sqlcode" "sqlerrm" "subtype"
1502 "the" "timezone_abbr" "timezone_hour" "timezone_minute"
1503 "timezone_region" "true" "varrying" "while"
1506 ;; Oracle PL/SQL Data Types
1507 (sql-font-lock-keywords-builder 'font-lock-type-face nil
1508 "binary_integer" "boolean" "naturaln" "pls_integer" "positive"
1509 "positiven" "record" "signtype" "string"
1512 ;; Oracle PL/SQL Exceptions
1513 (sql-font-lock-keywords-builder 'font-lock-warning-face nil
1514 "access_into_null" "case_not_found" "collection_is_null"
1515 "cursor_already_open" "dup_val_on_index" "invalid_cursor"
1516 "invalid_number" "login_denied" "no_data_found" "not_logged_on"
1517 "program_error" "rowtype_mismatch" "self_is_null" "storage_error"
1518 "subscript_beyond_count" "subscript_outside_limit" "sys_invalid_rowid"
1519 "timeout_on_resource" "too_many_rows" "value_error" "zero_divide"
1520 "exception" "notfound"
1523 "Oracle SQL keywords used by font-lock.
1525 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1526 regular expressions are created during compilation by calling the
1527 function `regexp-opt'. Therefore, take a look at the source before
1528 you define your own `sql-mode-oracle-font-lock-keywords'. You may want
1529 to add functions and PL/SQL keywords.")
1531 (defvar sql-mode-postgres-font-lock-keywords
1534 ;; Postgres Functions
1535 (sql-font-lock-keywords-builder 'font-lock-builtin-face nil
1536 "abbrev" "abs" "acos" "age" "area" "ascii" "asin" "atab2" "atan"
1537 "atan2" "avg" "bit_length" "both" "broadcast" "btrim" "cbrt" "ceil"
1538 "center" "char_length" "chr" "coalesce" "col_description" "convert"
1539 "cos" "cot" "count" "current_database" "current_date" "current_schema"
1540 "current_schemas" "current_setting" "current_time" "current_timestamp"
1541 "current_user" "currval" "date_part" "date_trunc" "decode" "degrees"
1542 "diameter" "encode" "exp" "extract" "floor" "get_bit" "get_byte"
1543 "has_database_privilege" "has_function_privilege"
1544 "has_language_privilege" "has_schema_privilege" "has_table_privilege"
1545 "height" "host" "initcap" "isclosed" "isfinite" "isopen" "leading"
1546 "length" "ln" "localtime" "localtimestamp" "log" "lower" "lpad"
1547 "ltrim" "masklen" "max" "min" "mod" "netmask" "network" "nextval"
1548 "now" "npoints" "nullif" "obj_description" "octet_length" "overlay"
1549 "pclose" "pg_client_encoding" "pg_function_is_visible"
1550 "pg_get_constraintdef" "pg_get_indexdef" "pg_get_ruledef"
1551 "pg_get_userbyid" "pg_get_viewdef" "pg_opclass_is_visible"
1552 "pg_operator_is_visible" "pg_table_is_visible" "pg_type_is_visible"
1553 "pi" "popen" "position" "pow" "quote_ident" "quote_literal" "radians"
1554 "radius" "random" "repeat" "replace" "round" "rpad" "rtrim"
1555 "session_user" "set_bit" "set_byte" "set_config" "set_masklen"
1556 "setval" "sign" "sin" "split_part" "sqrt" "stddev" "strpos" "substr"
1557 "substring" "sum" "tan" "timeofday" "to_ascii" "to_char" "to_date"
1558 "to_hex" "to_number" "to_timestamp" "trailing" "translate" "trim"
1559 "trunc" "upper" "variance" "version" "width"
1561 ;; Postgres Reserved
1562 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1563 "abort" "access" "add" "after" "aggregate" "alignment" "all" "alter"
1564 "analyze" "and" "any" "as" "asc" "assignment" "authorization"
1565 "backward" "basetype" "before" "begin" "between" "binary" "by" "cache"
1566 "called" "cascade" "case" "cast" "characteristics" "check"
1567 "checkpoint" "class" "close" "cluster" "column" "comment" "commit"
1568 "committed" "commutator" "constraint" "constraints" "conversion"
1569 "copy" "create" "createdb" "createuser" "cursor" "cycle" "database"
1570 "deallocate" "declare" "default" "deferrable" "deferred" "definer"
1571 "delete" "delimiter" "desc" "distinct" "do" "domain" "drop" "each"
1572 "element" "else" "encoding" "encrypted" "end" "escape" "except"
1573 "exclusive" "execute" "exists" "explain" "extended" "external" "false"
1574 "fetch" "finalfunc" "for" "force" "foreign" "forward" "freeze" "from"
1575 "full" "function" "grant" "group" "gtcmp" "handler" "hashes" "having"
1576 "immediate" "immutable" "implicit" "in" "increment" "index" "inherits"
1577 "initcond" "initially" "input" "insensitive" "insert" "instead"
1578 "internallength" "intersect" "into" "invoker" "is" "isnull"
1579 "isolation" "join" "key" "language" "leftarg" "level" "like" "limit"
1580 "listen" "load" "local" "location" "lock" "ltcmp" "main" "match"
1581 "maxvalue" "merges" "minvalue" "mode" "move" "natural" "negator"
1582 "next" "nocreatedb" "nocreateuser" "none" "not" "nothing" "notify"
1583 "notnull" "null" "of" "offset" "oids" "on" "only" "operator" "or"
1584 "order" "output" "owner" "partial" "passedbyvalue" "password" "plain"
1585 "prepare" "primary" "prior" "privileges" "procedural" "procedure"
1586 "public" "read" "recheck" "references" "reindex" "relative" "rename"
1587 "reset" "restrict" "returns" "revoke" "rightarg" "rollback" "row"
1588 "rule" "schema" "scroll" "security" "select" "sequence" "serializable"
1589 "session" "set" "sfunc" "share" "show" "similar" "some" "sort1"
1590 "sort2" "stable" "start" "statement" "statistics" "storage" "strict"
1591 "stype" "sysid" "table" "temp" "template" "temporary" "then" "to"
1592 "transaction" "trigger" "true" "truncate" "trusted" "type"
1593 "unencrypted" "union" "unique" "unknown" "unlisten" "until" "update"
1594 "usage" "user" "using" "vacuum" "valid" "validator" "values"
1595 "variable" "verbose" "view" "volatile" "when" "where" "with" "without"
1599 ;; Postgres Data Types
1600 (sql-font-lock-keywords-builder 'font-lock-type-face nil
1601 "anyarray" "bigint" "bigserial" "bit" "boolean" "box" "bytea" "char"
1602 "character" "cidr" "circle" "cstring" "date" "decimal" "double"
1603 "float4" "float8" "inet" "int2" "int4" "int8" "integer" "internal"
1604 "interval" "language_handler" "line" "lseg" "macaddr" "money"
1605 "numeric" "oid" "opaque" "path" "point" "polygon" "precision" "real"
1606 "record" "regclass" "regoper" "regoperator" "regproc" "regprocedure"
1607 "regtype" "serial" "serial4" "serial8" "smallint" "text" "time"
1608 "timestamp" "varchar" "varying" "void" "zone"
1611 "Postgres SQL keywords used by font-lock.
1613 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1614 regular expressions are created during compilation by calling the
1615 function `regexp-opt'. Therefore, take a look at the source before
1616 you define your own `sql-mode-postgres-font-lock-keywords'.")
1618 (defvar sql-mode-linter-font-lock-keywords
1622 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1623 "autocommit" "autoinc" "autorowid" "cancel" "cascade" "channel"
1624 "committed" "count" "countblob" "cross" "current" "data" "database"
1625 "datafile" "datafiles" "datesplit" "dba" "dbname" "default" "deferred"
1626 "denied" "description" "device" "difference" "directory" "error"
1627 "escape" "euc" "exclusive" "external" "extfile" "false" "file"
1628 "filename" "filesize" "filetime" "filter" "findblob" "first" "foreign"
1629 "full" "fuzzy" "global" "granted" "ignore" "immediate" "increment"
1630 "indexes" "indexfile" "indexfiles" "indextime" "initial" "integrity"
1631 "internal" "key" "last_autoinc" "last_rowid" "limit" "linter"
1632 "linter_file_device" "linter_file_size" "linter_name_length" "ln"
1633 "local" "login" "maxisn" "maxrow" "maxrowid" "maxvalue" "message"
1634 "minvalue" "module" "names" "national" "natural" "new" "new_table"
1635 "no" "node" "noneuc" "nulliferror" "numbers" "off" "old" "old_table"
1636 "only" "operation" "optimistic" "option" "page" "partially" "password"
1637 "phrase" "plan" "precision" "primary" "priority" "privileges"
1638 "proc_info_size" "proc_par_name_len" "protocol" "quant" "range" "raw"
1639 "read" "record" "records" "references" "remote" "rename" "replication"
1640 "restart" "rewrite" "root" "row" "rule" "savepoint" "security"
1641 "sensitive" "sequence" "serializable" "server" "since" "size" "some"
1642 "startup" "statement" "station" "success" "sys_guid" "tables" "test"
1643 "timeout" "trace" "transaction" "translation" "trigger"
1644 "trigger_info_size" "true" "trunc" "uncommitted" "unicode" "unknown"
1645 "unlimited" "unlisted" "user" "utf8" "value" "varying" "volumes"
1646 "wait" "windows_code" "workspace" "write" "xml"
1650 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1651 "access" "action" "add" "address" "after" "all" "alter" "always" "and"
1652 "any" "append" "as" "asc" "ascic" "async" "at_begin" "at_end" "audit"
1653 "aud_obj_name_len" "backup" "base" "before" "between" "blobfile"
1654 "blobfiles" "blobpct" "brief" "browse" "by" "case" "cast" "check"
1655 "clear" "close" "column" "comment" "commit" "connect" "contains"
1656 "correct" "create" "delete" "desc" "disable" "disconnect" "distinct"
1657 "drop" "each" "ef" "else" "enable" "end" "event" "except" "exclude"
1658 "execute" "exists" "extract" "fetch" "finish" "for" "from" "get"
1659 "grant" "group" "having" "identified" "in" "index" "inner" "insert"
1660 "instead" "intersect" "into" "is" "isolation" "join" "left" "level"
1661 "like" "lock" "mode" "modify" "not" "nowait" "null" "of" "on" "open"
1662 "or" "order" "outer" "owner" "press" "prior" "procedure" "public"
1663 "purge" "rebuild" "resource" "restrict" "revoke" "right" "role"
1664 "rollback" "rownum" "select" "session" "set" "share" "shutdown"
1665 "start" "stop" "sync" "synchronize" "synonym" "sysdate" "table" "then"
1666 "to" "union" "unique" "unlock" "until" "update" "using" "values"
1667 "view" "when" "where" "with" "without"
1671 (sql-font-lock-keywords-builder 'font-lock-builtin-face nil
1672 "abs" "acos" "asin" "atan" "atan2" "avg" "ceil" "cos" "cosh" "divtime"
1673 "exp" "floor" "getbits" "getblob" "getbyte" "getlong" "getraw"
1674 "getstr" "gettext" "getword" "hextoraw" "lenblob" "length" "log"
1675 "lower" "lpad" "ltrim" "max" "min" "mod" "monthname" "nvl"
1676 "octet_length" "power" "rand" "rawtohex" "repeat_string"
1677 "right_substr" "round" "rpad" "rtrim" "sign" "sin" "sinh" "soundex"
1678 "sqrt" "sum" "tan" "tanh" "timeint_to_days" "to_char" "to_date"
1679 "to_gmtime" "to_localtime" "to_number" "trim" "upper" "decode"
1680 "substr" "substring" "chr" "dayname" "days" "greatest" "hex" "initcap"
1681 "instr" "least" "multime" "replace" "width"
1684 ;; Linter Data Types
1685 (sql-font-lock-keywords-builder 'font-lock-type-face nil
1686 "bigint" "bitmap" "blob" "boolean" "char" "character" "date"
1687 "datetime" "dec" "decimal" "double" "float" "int" "integer" "nchar"
1688 "number" "numeric" "real" "smallint" "varbyte" "varchar" "byte"
1692 "Linter SQL keywords used by font-lock.
1694 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1695 regular expressions are created during compilation by calling the
1696 function `regexp-opt'.")
1698 (defvar sql-mode-ms-font-lock-keywords
1701 ;; MS isql/osql Commands
1704 "^\\(?:\\(?:set\\s-+\\(?:"
1706 "datefirst" "dateformat" "deadlock_priority" "lock_timeout"
1707 "concat_null_yields_null" "cursor_close_on_commit"
1708 "disable_def_cnst_chk" "fips_flagger" "identity_insert" "language"
1709 "offsets" "quoted_identifier" "arithabort" "arithignore" "fmtonly"
1710 "nocount" "noexec" "numeric_roundabort" "parseonly"
1711 "query_governor_cost_limit" "rowcount" "textsize" "ansi_defaults"
1712 "ansi_null_dflt_off" "ansi_null_dflt_on" "ansi_nulls" "ansi_padding"
1713 "ansi_warnings" "forceplan" "showplan_all" "showplan_text"
1714 "statistics" "implicit_transactions" "remote_proc_transactions"
1715 "transaction" "xact_abort"
1717 "\\)\\)\\|go\\s-*\\|use\\s-+\\|setuser\\s-+\\|dbcc\\s-+\\).*$")
1718 'font-lock-doc-face)
1721 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1722 "absolute" "add" "all" "alter" "and" "any" "as" "asc" "authorization"
1723 "avg" "backup" "begin" "between" "break" "browse" "bulk" "by"
1724 "cascade" "case" "check" "checkpoint" "close" "clustered" "coalesce"
1725 "column" "commit" "committed" "compute" "confirm" "constraint"
1726 "contains" "containstable" "continue" "controlrow" "convert" "count"
1727 "create" "cross" "current" "current_date" "current_time"
1728 "current_timestamp" "current_user" "database" "deallocate" "declare"
1729 "default" "delete" "deny" "desc" "disk" "distinct" "distributed"
1730 "double" "drop" "dummy" "dump" "else" "end" "errlvl" "errorexit"
1731 "escape" "except" "exec" "execute" "exists" "exit" "fetch" "file"
1732 "fillfactor" "first" "floppy" "for" "foreign" "freetext"
1733 "freetexttable" "from" "full" "goto" "grant" "group" "having"
1734 "holdlock" "identity" "identity_insert" "identitycol" "if" "in"
1735 "index" "inner" "insert" "intersect" "into" "is" "isolation" "join"
1736 "key" "kill" "last" "left" "level" "like" "lineno" "load" "max" "min"
1737 "mirrorexit" "national" "next" "nocheck" "nolock" "nonclustered" "not"
1738 "null" "nullif" "of" "off" "offsets" "on" "once" "only" "open"
1739 "opendatasource" "openquery" "openrowset" "option" "or" "order"
1740 "outer" "output" "over" "paglock" "percent" "perm" "permanent" "pipe"
1741 "plan" "precision" "prepare" "primary" "print" "prior" "privileges"
1742 "proc" "procedure" "processexit" "public" "raiserror" "read"
1743 "readcommitted" "readpast" "readtext" "readuncommitted" "reconfigure"
1744 "references" "relative" "repeatable" "repeatableread" "replication"
1745 "restore" "restrict" "return" "revoke" "right" "rollback" "rowcount"
1746 "rowguidcol" "rowlock" "rule" "save" "schema" "select" "serializable"
1747 "session_user" "set" "shutdown" "some" "statistics" "sum"
1748 "system_user" "table" "tablock" "tablockx" "tape" "temp" "temporary"
1749 "textsize" "then" "to" "top" "tran" "transaction" "trigger" "truncate"
1750 "tsequal" "uncommitted" "union" "unique" "update" "updatetext"
1751 "updlock" "use" "user" "values" "view" "waitfor" "when" "where"
1752 "while" "with" "work" "writetext" "collate" "function" "openxml"
1757 (sql-font-lock-keywords-builder 'font-lock-builtin-face nil
1758 "@@connections" "@@cpu_busy" "@@cursor_rows" "@@datefirst" "@@dbts"
1759 "@@error" "@@fetch_status" "@@identity" "@@idle" "@@io_busy"
1760 "@@langid" "@@language" "@@lock_timeout" "@@max_connections"
1761 "@@max_precision" "@@nestlevel" "@@options" "@@pack_received"
1762 "@@pack_sent" "@@packet_errors" "@@procid" "@@remserver" "@@rowcount"
1763 "@@servername" "@@servicename" "@@spid" "@@textsize" "@@timeticks"
1764 "@@total_errors" "@@total_read" "@@total_write" "@@trancount"
1765 "@@version" "abs" "acos" "and" "app_name" "ascii" "asin" "atan" "atn2"
1766 "avg" "case" "cast" "ceiling" "char" "charindex" "coalesce"
1767 "col_length" "col_name" "columnproperty" "containstable" "convert"
1768 "cos" "cot" "count" "current_timestamp" "current_user" "cursor_status"
1769 "databaseproperty" "datalength" "dateadd" "datediff" "datename"
1770 "datepart" "day" "db_id" "db_name" "degrees" "difference" "exp"
1771 "file_id" "file_name" "filegroup_id" "filegroup_name"
1772 "filegroupproperty" "fileproperty" "floor" "formatmessage"
1773 "freetexttable" "fulltextcatalogproperty" "fulltextserviceproperty"
1774 "getansinull" "getdate" "grouping" "host_id" "host_name" "ident_incr"
1775 "ident_seed" "identity" "index_col" "indexproperty" "is_member"
1776 "is_srvrolemember" "isdate" "isnull" "isnumeric" "left" "len" "log"
1777 "log10" "lower" "ltrim" "max" "min" "month" "nchar" "newid" "nullif"
1778 "object_id" "object_name" "objectproperty" "openquery" "openrowset"
1779 "parsename" "patindex" "patindex" "permissions" "pi" "power"
1780 "quotename" "radians" "rand" "replace" "replicate" "reverse" "right"
1781 "round" "rtrim" "session_user" "sign" "sin" "soundex" "space" "sqrt"
1782 "square" "stats_date" "stdev" "stdevp" "str" "stuff" "substring" "sum"
1783 "suser_id" "suser_name" "suser_sid" "suser_sname" "system_user" "tan"
1784 "textptr" "textvalid" "typeproperty" "unicode" "upper" "user"
1785 "user_id" "user_name" "var" "varp" "year"
1789 '("\\b@[a-zA-Z0-9_]*\\b" . font-lock-variable-name-face)
1792 (sql-font-lock-keywords-builder 'font-lock-type-face nil
1793 "binary" "bit" "char" "character" "cursor" "datetime" "dec" "decimal"
1794 "double" "float" "image" "int" "integer" "money" "national" "nchar"
1795 "ntext" "numeric" "numeric" "nvarchar" "precision" "real"
1796 "smalldatetime" "smallint" "smallmoney" "text" "timestamp" "tinyint"
1797 "uniqueidentifier" "varbinary" "varchar" "varying"
1800 "Microsoft SQLServer SQL keywords used by font-lock.
1802 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1803 regular expressions are created during compilation by calling the
1804 function `regexp-opt'. Therefore, take a look at the source before
1805 you define your own `sql-mode-ms-font-lock-keywords'.")
1807 (defvar sql-mode-sybase-font-lock-keywords nil
1808 "Sybase SQL keywords used by font-lock.
1810 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1811 regular expressions are created during compilation by calling the
1812 function `regexp-opt'. Therefore, take a look at the source before
1813 you define your own `sql-mode-sybase-font-lock-keywords'.")
1815 (defvar sql-mode-informix-font-lock-keywords nil
1816 "Informix SQL keywords used by font-lock.
1818 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1819 regular expressions are created during compilation by calling the
1820 function `regexp-opt'. Therefore, take a look at the source before
1821 you define your own `sql-mode-informix-font-lock-keywords'.")
1823 (defvar sql-mode-interbase-font-lock-keywords nil
1824 "Interbase SQL keywords used by font-lock.
1826 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1827 regular expressions are created during compilation by calling the
1828 function `regexp-opt'. Therefore, take a look at the source before
1829 you define your own `sql-mode-interbase-font-lock-keywords'.")
1831 (defvar sql-mode-ingres-font-lock-keywords nil
1832 "Ingres SQL keywords used by font-lock.
1834 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1835 regular expressions are created during compilation by calling the
1836 function `regexp-opt'. Therefore, take a look at the source before
1837 you define your own `sql-mode-interbase-font-lock-keywords'.")
1839 (defvar sql-mode-solid-font-lock-keywords nil
1840 "Solid SQL keywords used by font-lock.
1842 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1843 regular expressions are created during compilation by calling the
1844 function `regexp-opt'. Therefore, take a look at the source before
1845 you define your own `sql-mode-solid-font-lock-keywords'.")
1847 (defvar sql-mode-mysql-font-lock-keywords
1851 (sql-font-lock-keywords-builder 'font-lock-builtin-face nil
1852 "ascii" "avg" "bdmpolyfromtext" "bdmpolyfromwkb" "bdpolyfromtext"
1853 "bdpolyfromwkb" "benchmark" "bin" "bit_and" "bit_length" "bit_or"
1854 "bit_xor" "both" "cast" "char_length" "character_length" "coalesce"
1855 "concat" "concat_ws" "connection_id" "conv" "convert" "count"
1856 "curdate" "current_date" "current_time" "current_timestamp" "curtime"
1857 "elt" "encrypt" "export_set" "field" "find_in_set" "found_rows" "from"
1858 "geomcollfromtext" "geomcollfromwkb" "geometrycollectionfromtext"
1859 "geometrycollectionfromwkb" "geometryfromtext" "geometryfromwkb"
1860 "geomfromtext" "geomfromwkb" "get_lock" "group_concat" "hex" "ifnull"
1861 "instr" "interval" "isnull" "last_insert_id" "lcase" "leading"
1862 "length" "linefromtext" "linefromwkb" "linestringfromtext"
1863 "linestringfromwkb" "load_file" "locate" "lower" "lpad" "ltrim"
1864 "make_set" "master_pos_wait" "max" "mid" "min" "mlinefromtext"
1865 "mlinefromwkb" "mpointfromtext" "mpointfromwkb" "mpolyfromtext"
1866 "mpolyfromwkb" "multilinestringfromtext" "multilinestringfromwkb"
1867 "multipointfromtext" "multipointfromwkb" "multipolygonfromtext"
1868 "multipolygonfromwkb" "now" "nullif" "oct" "octet_length" "ord"
1869 "pointfromtext" "pointfromwkb" "polyfromtext" "polyfromwkb"
1870 "polygonfromtext" "polygonfromwkb" "position" "quote" "rand"
1871 "release_lock" "repeat" "replace" "reverse" "rpad" "rtrim" "soundex"
1872 "space" "std" "stddev" "substring" "substring_index" "sum" "sysdate"
1873 "trailing" "trim" "ucase" "unix_timestamp" "upper" "user" "variance"
1877 (sql-font-lock-keywords-builder 'font-lock-keyword-face nil
1878 "action" "add" "after" "against" "all" "alter" "and" "as" "asc"
1879 "auto_increment" "avg_row_length" "bdb" "between" "by" "cascade"
1880 "case" "change" "character" "check" "checksum" "close" "collate"
1881 "collation" "column" "columns" "comment" "committed" "concurrent"
1882 "constraint" "create" "cross" "data" "database" "default"
1883 "delay_key_write" "delayed" "delete" "desc" "directory" "disable"
1884 "distinct" "distinctrow" "do" "drop" "dumpfile" "duplicate" "else"
1885 "enable" "enclosed" "end" "escaped" "exists" "fields" "first" "for"
1886 "force" "foreign" "from" "full" "fulltext" "global" "group" "handler"
1887 "having" "heap" "high_priority" "if" "ignore" "in" "index" "infile"
1888 "inner" "insert" "insert_method" "into" "is" "isam" "isolation" "join"
1889 "key" "keys" "last" "left" "level" "like" "limit" "lines" "load"
1890 "local" "lock" "low_priority" "match" "max_rows" "merge" "min_rows"
1891 "mode" "modify" "mrg_myisam" "myisam" "natural" "next" "no" "not"
1892 "null" "offset" "oj" "on" "open" "optionally" "or" "order" "outer"
1893 "outfile" "pack_keys" "partial" "password" "prev" "primary"
1894 "procedure" "quick" "raid0" "raid_type" "read" "references" "rename"
1895 "repeatable" "restrict" "right" "rollback" "rollup" "row_format"
1896 "savepoint" "select" "separator" "serializable" "session" "set"
1897 "share" "show" "sql_big_result" "sql_buffer_result" "sql_cache"
1898 "sql_calc_found_rows" "sql_no_cache" "sql_small_result" "starting"
1899 "straight_join" "striped" "table" "tables" "temporary" "terminated"
1900 "then" "to" "transaction" "truncate" "type" "uncommitted" "union"
1901 "unique" "unlock" "update" "use" "using" "values" "when" "where"
1902 "with" "write" "xor"
1906 (sql-font-lock-keywords-builder 'font-lock-type-face nil
1907 "bigint" "binary" "bit" "blob" "bool" "boolean" "char" "curve" "date"
1908 "datetime" "dec" "decimal" "double" "enum" "fixed" "float" "geometry"
1909 "geometrycollection" "int" "integer" "line" "linearring" "linestring"
1910 "longblob" "longtext" "mediumblob" "mediumint" "mediumtext"
1911 "multicurve" "multilinestring" "multipoint" "multipolygon"
1912 "multisurface" "national" "numeric" "point" "polygon" "precision"
1913 "real" "smallint" "surface" "text" "time" "timestamp" "tinyblob"
1914 "tinyint" "tinytext" "unsigned" "varchar" "year" "year2" "year4"
1918 "MySQL SQL keywords used by font-lock.
1920 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1921 regular expressions are created during compilation by calling the
1922 function `regexp-opt'. Therefore, take a look at the source before
1923 you define your own `sql-mode-mysql-font-lock-keywords'.")
1925 (defvar sql-mode-sqlite-font-lock-keywords nil
1926 "SQLite SQL keywords used by font-lock.
1928 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1929 regular expressions are created during compilation by calling the
1930 function `regexp-opt'. Therefore, take a look at the source before
1931 you define your own `sql-mode-sqlite-font-lock-keywords'.")
1933 (defvar sql-mode-db2-font-lock-keywords nil
1934 "DB2 SQL keywords used by font-lock.
1936 This variable is used by `sql-mode' and `sql-interactive-mode'. The
1937 regular expressions are created during compilation by calling the
1938 function `regexp-opt'. Therefore, take a look at the source before
1939 you define your own `sql-mode-db2-font-lock-keywords'.")
1941 (defvar sql-mode-font-lock-keywords nil
1942 "SQL keywords used by font-lock.
1944 Setting this variable directly no longer has any affect. Use
1945 `sql-product' and `sql-add-product-keywords' to control the
1946 highlighting rules in SQL mode.")
1950 ;;; SQL Product support functions
1952 (defun sql-add-product (product display &rest plist)
1953 "Add support for a database product in `sql-mode'.
1955 Add PRODUCT to `sql-product-alist' which enables `sql-mode' to
1956 properly support syntax highlighting and interactive interaction.
1957 DISPLAY is the name of the SQL product that will appear in the
1958 menu bar and in messages. PLIST initializes the product
1961 ;; Don't do anything if the product is already supported
1962 (if (assoc product sql-product-alist)
1963 (message "Product `%s' is already defined" product)
1965 ;; Add product to the alist
1966 (add-to-list 'sql-product-alist `((,product :name ,display . ,plist)))
1967 ;; Add a menu item to the SQL->Product menu
1968 (easy-menu-add-item sql-mode-menu '("Product")
1969 ;; Each product is represented by a radio
1970 ;; button with it's display name.
1972 (lambda () (interactive) (sql-set-product ',product))
1974 :selected (eq sql-product ',product)]
1975 ;; Maintain the product list in
1976 ;; (case-insensitive) alphabetic order of the
1977 ;; display names. Loop thru each keymap item
1978 ;; looking for an item whose display name is
1979 ;; after this product's name.
1981 (down-display (downcase display)))
1982 (map-keymap (lambda (k b)
1983 (when (and (not next-item)
1984 (string-lessp down-display
1985 (downcase (cadr b))))
1986 (setq next-item k)))
1987 (easy-menu-get-map sql-mode-menu '("Product")))
1991 (defun sql-del-product (product)
1992 "Remove support for PRODUCT in `sql-mode'."
1994 ;; Remove the menu item based on the display name
1995 (easy-menu-remove-item sql-mode-menu '("Product") (sql-get-product-feature product :name))
1996 ;; Remove the product alist item
1997 (setq sql-product-alist (assq-delete-all product sql-product-alist))
2000 (defun sql-set-product-feature (product feature newvalue)
2001 "Set FEATURE of database PRODUCT to NEWVALUE.
2003 The PRODUCT must be a symbol which identifies the database
2004 product. The product must have already exist on the product
2005 list. See `sql-add-product' to add new products. The FEATURE
2006 argument must be a plist keyword accepted by
2007 `sql-product-alist'."
2009 (let* ((p (assoc product sql-product-alist))
2010 (v (plist-get (cdr p) feature)))
2013 (member feature sql-indirect-features)
2016 (setcdr p (plist-put (cdr p) feature newvalue)))
2017 (message "`%s' is not a known product; use `sql-add-product' to add it first." product))))
2019 (defun sql-get-product-feature (product feature &optional fallback)
2020 "Lookup FEATURE associated with a SQL PRODUCT.
2022 If the FEATURE is nil for PRODUCT, and FALLBACK is specified,
2023 then the FEATURE associated with the FALLBACK product is
2026 See `sql-product-alist' for a list of products and supported features."
2027 (let* ((p (assoc product sql-product-alist))
2028 (v (plist-get (cdr p) feature)))
2031 ;; If no value and fallback, lookup feature for fallback
2034 (not (eq product fallback)))
2035 (sql-get-product-feature fallback feature)
2038 (member feature sql-indirect-features)
2042 (message "`%s' is not a known product; use `sql-add-product' to add it first." product))))
2044 (defun sql-product-font-lock (keywords-only imenu)
2045 "Configure font-lock and imenu with product-specific settings.
2047 The KEYWORDS-ONLY flag is passed to font-lock to specify whether
2048 only keywords should be hilighted and syntactic hilighting
2049 skipped. The IMENU flag indicates whether `imenu-mode' should
2050 also be configured."
2053 ;; Get the product-specific syntax-alist.
2056 (sql-get-product-feature sql-product :syntax-alist)
2057 '((?_ . "w") (?. . "w")))))
2059 ;; Get the product-specific keywords.
2060 (setq sql-mode-font-lock-keywords
2062 (unless (eq sql-product 'ansi)
2063 (sql-get-product-feature sql-product :font-lock))
2064 ;; Always highlight ANSI keywords
2065 (sql-get-product-feature 'ansi :font-lock)
2066 ;; Fontify object names in CREATE, DROP and ALTER DDL
2068 (list sql-mode-font-lock-object-name)))
2070 ;; Setup font-lock. Force re-parsing of `font-lock-defaults'.
2071 (kill-local-variable 'font-lock-set-defaults)
2072 (setq font-lock-defaults (list 'sql-mode-font-lock-keywords
2073 keywords-only t syntax-alist))
2075 ;; Force font lock to reinitialize if it is already on
2076 ;; Otherwise, we can wait until it can be started.
2077 (when (and (fboundp 'font-lock-mode)
2078 (boundp 'font-lock-mode)
2080 (font-lock-mode-internal nil)
2081 (font-lock-mode-internal t))
2083 (add-hook 'font-lock-mode-hook
2085 ;; Provide defaults for new font-lock faces.
2086 (defvar font-lock-builtin-face
2087 (if (boundp 'font-lock-preprocessor-face)
2088 font-lock-preprocessor-face
2089 font-lock-keyword-face))
2090 (defvar font-lock-doc-face font-lock-string-face))
2093 ;; Setup imenu; it needs the same syntax-alist.
2095 (setq imenu-syntax-alist syntax-alist))))
2098 (defun sql-add-product-keywords (product keywords &optional append)
2099 "Add highlighting KEYWORDS for SQL PRODUCT.
2101 PRODUCT should be a symbol, the name of a SQL product, such as
2102 `oracle'. KEYWORDS should be a list; see the variable
2103 `font-lock-keywords'. By default they are added at the beginning
2104 of the current highlighting list. If optional argument APPEND is
2105 `set', they are used to replace the current highlighting list.
2106 If APPEND is any other non-nil value, they are added at the end
2107 of the current highlighting list.
2111 (sql-add-product-keywords 'ms
2112 '((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face)))
2114 adds a fontification pattern to fontify identifiers ending in
2115 `_t' as data types."
2117 (let* ((sql-indirect-features nil)
2118 (font-lock-var (sql-get-product-feature product :font-lock))
2121 (setq old-val (symbol-value font-lock-var))
2123 (if (eq append 'set)
2126 (append old-val keywords)
2127 (append keywords old-val))))))
2131 ;;; Functions to switch highlighting
2133 (defun sql-highlight-product ()
2134 "Turn on the font highlighting for the SQL product selected."
2135 (when (derived-mode-p 'sql-mode)
2137 (sql-product-font-lock nil t)
2139 ;; Set the mode name to include the product.
2140 (setq mode-name (concat "SQL[" (or (sql-get-product-feature sql-product :name)
2141 (symbol-name sql-product)) "]"))))
2143 (defun sql-set-product (product)
2144 "Set `sql-product' to PRODUCT and enable appropriate highlighting."
2146 (list (completing-read "SQL product: "
2147 (mapcar (lambda (info) (symbol-name (car info)))
2150 (or (and sql-product (symbol-name sql-product)) "ansi"))))
2151 (if (stringp product) (setq product (intern product)))
2152 (when (not (assoc product sql-product-alist))
2153 (error "SQL product %s is not supported; treated as ANSI" product)
2154 (setq product 'ansi))
2156 ;; Save product setting and fontify.
2157 (setq sql-product product)
2158 (sql-highlight-product))
2161 ;;; Compatibility functions
2163 (if (not (fboundp 'comint-line-beginning-position))
2164 ;; comint-line-beginning-position is defined in Emacs 21
2165 (defun comint-line-beginning-position ()
2166 "Return the buffer position of the beginning of the line, after any prompt.
2167 The prompt is assumed to be any text at the beginning of the line matching
2168 the regular expression `comint-prompt-regexp', a buffer local variable."
2169 (save-excursion (comint-bol nil) (point))))
2175 (defun sql-magic-go (arg)
2176 "Insert \"o\" and call `comint-send-input'.
2177 `sql-electric-stuff' must be the symbol `go'."
2179 (self-insert-command (prefix-numeric-value arg))
2180 (if (and (equal sql-electric-stuff 'go)
2183 (looking-at "go\\b")))
2184 (comint-send-input)))
2186 (defun sql-magic-semicolon (arg)
2187 "Insert semicolon and call `comint-send-input'.
2188 `sql-electric-stuff' must be the symbol `semicolon'."
2190 (self-insert-command (prefix-numeric-value arg))
2191 (if (equal sql-electric-stuff 'semicolon)
2192 (comint-send-input)))
2194 (defun sql-accumulate-and-indent ()
2195 "Continue SQL statement on the next line."
2197 (if (fboundp 'comint-accumulate)
2200 (indent-according-to-mode))
2202 (defun sql-help-list-products (indent freep)
2203 "Generate listing of products available for use under SQLi.
2205 List products with :free-softare attribute set to FREEP. Indent
2206 each line with INDENT."
2208 (let (sqli-func doc)
2210 (dolist (p sql-product-alist)
2211 (setq sqli-func (intern (concat "sql-" (symbol-name (car p)))))
2213 (if (and (fboundp sqli-func)
2214 (eq (sql-get-product-feature (car p) :free-software) freep))
2218 (or (sql-get-product-feature (car p) :name)
2219 (symbol-name (car p)))
2222 (symbol-name sqli-func)
2228 "Show short help for the SQL modes.
2230 Use an entry function to open an interactive SQL buffer. This buffer is
2231 usually named `*SQL*'. The name of the major mode is SQLi.
2233 Use the following commands to start a specific SQL interpreter:
2237 Other non-free SQL implementations are also supported:
2241 But we urge you to choose a free implementation instead of these.
2243 You can also use \\[sql-product-interactive] to invoke the
2244 interpreter for the current `sql-product'.
2246 Once you have the SQLi buffer, you can enter SQL statements in the
2247 buffer. The output generated is appended to the buffer and a new prompt
2248 is generated. See the In/Out menu in the SQLi buffer for some functions
2249 that help you navigate through the buffer, the input history, etc.
2251 If you have a really complex SQL statement or if you are writing a
2252 procedure, you can do this in a separate buffer. Put the new buffer in
2253 `sql-mode' by calling \\[sql-mode]. The name of this buffer can be
2254 anything. The name of the major mode is SQL.
2256 In this SQL buffer (SQL mode), you can send the region or the entire
2257 buffer to the interactive SQL buffer (SQLi mode). The results are
2258 appended to the SQLi buffer without disturbing your SQL buffer."
2261 ;; Insert references to loaded products into the help buffer string
2262 (let ((doc (documentation 'sql-help t))
2266 ;; Insert FREE software list
2267 (when (string-match "^\\(\\s-*\\)[\\\\][\\\\]FREE\\s-*\n" doc 0)
2268 (setq doc (replace-match (sql-help-list-products (match-string 1 doc) t)
2272 ;; Insert non-FREE software list
2273 (when (string-match "^\\(\\s-*\\)[\\\\][\\\\]NONFREE\\s-*\n" doc 0)
2274 (setq doc (replace-match (sql-help-list-products (match-string 1 doc) nil)
2278 ;; If we changed the help text, save the change so that the help
2279 ;; sub-system will see it
2281 (put 'sql-help 'function-documentation doc)))
2283 ;; Call help on this function
2284 (describe-function 'sql-help))
2286 (defun sql-read-passwd (prompt &optional default)
2287 "Read a password using PROMPT. Optional DEFAULT is password to start with."
2288 (read-passwd prompt nil default))
2290 (defun sql-get-login (&rest what)
2291 "Get username, password and database from the user.
2293 The variables `sql-user', `sql-password', `sql-server', and
2294 `sql-database' can be customized. They are used as the default values.
2295 Usernames, servers and databases are stored in `sql-user-history',
2296 `sql-server-history' and `database-history'. Passwords are not stored
2299 Parameter WHAT is a list of tokens passed as arguments in the
2300 function call. The function asks for the username if WHAT
2301 contains the symbol `user', for the password if it contains the
2302 symbol `password', for the server if it contains the symbol
2303 `server', and for the database if it contains the symbol
2304 `database'. The members of WHAT are processed in the order in
2305 which they are provided.
2307 In order to ask the user for username, password and database, call the
2308 function like this: (sql-get-login 'user 'password 'database)."
2312 ((eq (car what) 'user) ; user
2314 (read-from-minibuffer "User: " sql-user nil nil
2315 'sql-user-history)))
2316 ((eq (car what) 'password) ; password
2318 (sql-read-passwd "Password: " sql-password)))
2320 ((eq (car what) 'server) ; server
2322 (read-from-minibuffer "Server: " sql-server nil nil
2323 'sql-server-history)))
2324 ((eq (car what) 'port) ; port
2326 (read-from-minibuffer "Port: " sql-port nil nil
2327 'sql-port-history)))
2328 ((eq (car what) 'database) ; database
2330 (read-from-minibuffer "Database: " sql-database nil nil
2331 'sql-database-history))))
2332 (setq what (cdr what))))
2334 (defun sql-find-sqli-buffer ()
2335 "Returns the current default SQLi buffer or nil.
2336 In order to qualify, the SQLi buffer must be alive,
2337 be in `sql-interactive-mode' and have a process."
2338 (let ((default-buffer (default-value 'sql-buffer)))
2339 (if (and (buffer-live-p default-buffer)
2340 (get-buffer-process default-buffer))
2342 (save-current-buffer
2343 (let ((buflist (buffer-list))
2345 (while (not (or (null buflist)
2347 (let ((candidate (car buflist)))
2348 (set-buffer candidate)
2349 (if (and (derived-mode-p 'sql-interactive-mode)
2350 (get-buffer-process candidate))
2351 (setq found candidate))
2352 (setq buflist (cdr buflist))))
2355 (defun sql-set-sqli-buffer-generally ()
2356 "Set SQLi buffer for all SQL buffers that have none.
2357 This function checks all SQL buffers for their SQLi buffer. If their
2358 SQLi buffer is nonexistent or has no process, it is set to the current
2359 default SQLi buffer. The current default SQLi buffer is determined
2360 using `sql-find-sqli-buffer'. If `sql-buffer' is set,
2361 `sql-set-sqli-hook' is run."
2364 (let ((buflist (buffer-list))
2365 (default-sqli-buffer (sql-find-sqli-buffer)))
2366 (setq-default sql-buffer default-sqli-buffer)
2367 (while (not (null buflist))
2368 (let ((candidate (car buflist)))
2369 (set-buffer candidate)
2370 (if (and (derived-mode-p 'sql-mode)
2371 (not (buffer-live-p sql-buffer)))
2373 (setq sql-buffer default-sqli-buffer)
2374 (run-hooks 'sql-set-sqli-hook))))
2375 (setq buflist (cdr buflist))))))
2377 (defun sql-set-sqli-buffer ()
2378 "Set the SQLi buffer SQL strings are sent to.
2380 Call this function in a SQL buffer in order to set the SQLi buffer SQL
2381 strings are sent to. Calling this function sets `sql-buffer' and runs
2382 `sql-set-sqli-hook'.
2384 If you call it from a SQL buffer, this sets the local copy of
2387 If you call it from anywhere else, it sets the global copy of
2390 (let ((default-buffer (sql-find-sqli-buffer)))
2391 (if (null default-buffer)
2392 (error "There is no suitable SQLi buffer"))
2395 (read-buffer "New SQLi buffer: " default-buffer t))))
2396 (if (null (get-buffer-process new-buffer))
2397 (error "Buffer %s has no process" (buffer-name new-buffer)))
2398 (if (null (with-current-buffer new-buffer
2399 (equal major-mode 'sql-interactive-mode)))
2400 (error "Buffer %s is no SQLi buffer" (buffer-name new-buffer)))
2403 (setq sql-buffer new-buffer)
2404 (run-hooks 'sql-set-sqli-hook))))))
2406 (defun sql-show-sqli-buffer ()
2407 "Show the name of current SQLi buffer.
2409 This is the buffer SQL strings are sent to. It is stored in the
2410 variable `sql-buffer'. See `sql-help' on how to create such a buffer."
2412 (if (null (buffer-live-p sql-buffer))
2413 (message "%s has no SQLi buffer set." (buffer-name (current-buffer)))
2414 (if (null (get-buffer-process sql-buffer))
2415 (message "Buffer %s has no process." (buffer-name sql-buffer))
2416 (message "Current SQLi buffer is %s." (buffer-name sql-buffer)))))
2418 (defun sql-make-alternate-buffer-name ()
2419 "Return a string that can be used to rename a SQLi buffer.
2421 This is used to set `sql-alternate-buffer-name' within
2422 `sql-interactive-mode'."
2423 (concat (if (string= "" sql-user)
2424 (if (string= "" (user-login-name))
2426 (concat (user-login-name) "/"))
2427 (concat sql-user "/"))
2428 (if (string= "" sql-database)
2429 (if (string= "" sql-server)
2434 (defun sql-rename-buffer ()
2435 "Rename a SQLi buffer."
2437 (rename-buffer (format "*SQL: %s*" sql-alternate-buffer-name) t))
2439 (defun sql-copy-column ()
2440 "Copy current column to the end of buffer.
2441 Inserts SELECT or commas if appropriate."
2445 (setq column (buffer-substring-no-properties
2446 (progn (forward-char 1) (backward-sexp 1) (point))
2447 (progn (forward-sexp 1) (point))))
2448 (goto-char (point-max))
2449 (let ((bol (comint-line-beginning-position)))
2451 ;; if empty command line, insert SELECT
2454 ;; else if appending to INTO .* (, SELECT or ORDER BY, insert a comma
2456 (re-search-backward "\\b\\(\\(into\\s-+\\S-+\\s-+(\\)\\|select\\|order by\\) .+"
2459 ;; else insert a space
2461 (if (eq (preceding-char) ?\s)
2464 ;; in any case, insert the column
2466 (message "%s" column))))
2468 ;; On Windows, SQL*Plus for Oracle turns on full buffering for stdout
2469 ;; if it is not attached to a character device; therefore placeholder
2470 ;; replacement by SQL*Plus is fully buffered. The workaround lets
2471 ;; Emacs query for the placeholders.
2473 (defvar sql-placeholder-history nil
2474 "History of placeholder values used.")
2476 (defun sql-placeholders-filter (string)
2477 "Replace placeholders in STRING.
2478 Placeholders are words starting with an ampersand like &this."
2480 (when sql-oracle-scan-on
2481 (while (string-match "&\\(\\sw+\\)" string)
2482 (setq string (replace-match
2483 (read-from-minibuffer
2484 (format "Enter value for %s: " (match-string 1 string))
2485 nil nil nil 'sql-placeholder-history)
2489 ;; Using DB2 interactively, newlines must be escaped with " \".
2490 ;; The space before the backslash is relevant.
2491 (defun sql-escape-newlines-filter (string)
2492 "Escape newlines in STRING.
2493 Every newline in STRING will be preceded with a space and a backslash."
2494 (let ((result "") (start 0) mb me)
2495 (while (string-match "\n" string start)
2496 (setq mb (match-beginning 0)
2498 result (concat result
2499 (substring string start mb)
2501 (string-equal " \\" (substring string (- mb 2) mb)))
2504 (concat result (substring string start))))
2508 ;;; Input sender for SQLi buffers
2510 (defun sql-input-sender (proc string)
2511 "Send STRING to PROC after applying filters."
2513 (let* ((product (with-current-buffer (process-buffer proc) sql-product))
2514 (filter (sql-get-product-feature product :input-filter)))
2517 (comint-simple-send proc (if filter (funcall filter string) string))))
2519 ;;; Sending the region to the SQLi buffer.
2521 (defun sql-send-string (str)
2522 "Send the string STR to the SQL process."
2523 (interactive "sSQL Text: ")
2525 (let (comint-input-sender-no-newline proc)
2526 (if (buffer-live-p sql-buffer)
2528 ;; Ignore the hoping around...
2531 (setq proc (get-buffer-process sql-buffer))
2533 ;; Set product context
2534 (with-current-buffer sql-buffer
2536 (sql-input-sender proc str)
2538 ;; Send a newline if there wasn't one on the end of the string
2539 (unless (string-equal "\n" (substring str (1- (length str))))
2540 (comint-send-string proc "\n"))
2542 ;; Send a command terminator if we must
2543 (if sql-send-terminator
2544 (sql-send-magic-terminator sql-buffer str sql-send-terminator))
2546 (message "Sent string to buffer %s." (buffer-name sql-buffer))))
2548 ;; Display the sql buffer
2549 (if sql-pop-to-buffer-after-send-region
2550 (pop-to-buffer sql-buffer)
2551 (display-buffer sql-buffer)))
2553 ;; We don't have no stinkin' sql
2554 (message "No SQL process started."))))
2556 (defun sql-send-region (start end)
2557 "Send a region to the SQL process."
2559 (sql-send-string (buffer-substring-no-properties start end)))
2561 (defun sql-send-paragraph ()
2562 "Send the current paragraph to the SQL process."
2564 (let ((start (save-excursion
2565 (backward-paragraph)
2567 (end (save-excursion
2570 (sql-send-region start end)))
2572 (defun sql-send-buffer ()
2573 "Send the buffer contents to the SQL process."
2575 (sql-send-region (point-min) (point-max)))
2577 (defun sql-send-magic-terminator (buf str terminator)
2578 "Send TERMINATOR to buffer BUF if its not present in STR."
2580 ;; If flag is merely on(t), get product-specific terminator
2581 (if (eq terminator t)
2582 (setq terminator (sql-get-product-feature sql-product :terminator)))
2584 ;; If there is no terminator specified, use default ";"
2586 (setq terminator ";"))
2588 ;; Parse the setting into the pattern and the terminator string
2589 (cond ((stringp terminator)
2590 (setq pat (regexp-quote terminator)
2593 (setq pat (car terminator)
2594 term (cdr terminator)))
2598 ;; Check to see if the pattern is present in the str already sent
2599 (unless (and pat term
2600 (string-match (concat pat "\n?\\'") str))
2601 (comint-send-string buf (concat term "\n")))))
2603 (defun sql-remove-tabs-filter (str)
2604 "Replace tab characters with spaces."
2605 (replace-regexp-in-string "\t" " " str nil t))
2607 (defun sql-toggle-pop-to-buffer-after-send-region (&optional value)
2608 "Toggle `sql-pop-to-buffer-after-send-region'.
2610 If given the optional parameter VALUE, sets
2611 `sql-toggle-pop-to-buffer-after-send-region' to VALUE."
2614 (setq sql-pop-to-buffer-after-send-region value)
2615 (setq sql-pop-to-buffer-after-send-region
2616 (null sql-pop-to-buffer-after-send-region))))
2620 ;;; SQL mode -- uses SQL interactive mode
2624 "Major mode to edit SQL.
2626 You can send SQL statements to the SQLi buffer using
2627 \\[sql-send-region]. Such a buffer must exist before you can do this.
2628 See `sql-help' on how to create SQLi buffers.
2631 Customization: Entry to this mode runs the `sql-mode-hook'.
2633 When you put a buffer in SQL mode, the buffer stores the last SQLi
2634 buffer created as its destination in the variable `sql-buffer'. This
2635 will be the buffer \\[sql-send-region] sends the region to. If this
2636 SQLi buffer is killed, \\[sql-send-region] is no longer able to
2637 determine where the strings should be sent to. You can set the
2638 value of `sql-buffer' using \\[sql-set-sqli-buffer].
2640 For information on how to create multiple SQLi buffers, see
2641 `sql-interactive-mode'.
2643 Note that SQL doesn't have an escape character unless you specify
2644 one. If you specify backslash as escape character in SQL,
2645 you must tell Emacs. Here's how to do that in your `~/.emacs' file:
2647 \(add-hook 'sql-mode-hook
2649 (modify-syntax-entry ?\\\\ \".\" sql-mode-syntax-table)))"
2651 (kill-all-local-variables)
2652 (setq major-mode 'sql-mode)
2653 (setq mode-name "SQL")
2654 (use-local-map sql-mode-map)
2656 (easy-menu-add sql-mode-menu)); XEmacs
2657 (set-syntax-table sql-mode-syntax-table)
2658 (make-local-variable 'font-lock-defaults)
2659 (make-local-variable 'sql-mode-font-lock-keywords)
2660 (make-local-variable 'comment-start)
2661 (setq comment-start "--")
2662 ;; Make each buffer in sql-mode remember the "current" SQLi buffer.
2663 (make-local-variable 'sql-buffer)
2664 ;; Add imenu support for sql-mode. Note that imenu-generic-expression
2665 ;; is buffer-local, so we don't need a local-variable for it. SQL is
2666 ;; case-insensitive, that's why we have to set imenu-case-fold-search.
2667 (setq imenu-generic-expression sql-imenu-generic-expression
2668 imenu-case-fold-search t)
2669 ;; Make `sql-send-paragraph' work on paragraphs that contain indented
2671 (make-local-variable 'paragraph-separate)
2672 (make-local-variable 'paragraph-start)
2673 (setq paragraph-separate "[\f]*$"
2674 paragraph-start "[\n\f]")
2676 (setq local-abbrev-table sql-mode-abbrev-table)
2677 (setq abbrev-all-caps 1)
2679 (run-mode-hooks 'sql-mode-hook)
2680 ;; Catch changes to sql-product and highlight accordingly
2681 (sql-highlight-product)
2682 (add-hook 'hack-local-variables-hook 'sql-highlight-product t t))
2686 ;;; SQL interactive mode
2688 (put 'sql-interactive-mode 'mode-class 'special)
2690 (defun sql-interactive-mode ()
2691 "Major mode to use a SQL interpreter interactively.
2693 Do not call this function by yourself. The environment must be
2694 initialized by an entry function specific for the SQL interpreter.
2695 See `sql-help' for a list of available entry functions.
2697 \\[comint-send-input] after the end of the process' output sends the
2698 text from the end of process to the end of the current line.
2699 \\[comint-send-input] before end of process output copies the current
2700 line minus the prompt to the end of the buffer and sends it.
2701 \\[comint-copy-old-input] just copies the current line.
2702 Use \\[sql-accumulate-and-indent] to enter multi-line statements.
2704 If you want to make multiple SQL buffers, rename the `*SQL*' buffer
2705 using \\[rename-buffer] or \\[rename-uniquely] and start a new process.
2706 See `sql-help' for a list of available entry functions. The last buffer
2707 created by such an entry function is the current SQLi buffer. SQL
2708 buffers will send strings to the SQLi buffer current at the time of
2709 their creation. See `sql-mode' for details.
2711 Sample session using two connections:
2713 1. Create first SQLi buffer by calling an entry function.
2714 2. Rename buffer \"*SQL*\" to \"*Connection 1*\".
2715 3. Create a SQL buffer \"test1.sql\".
2716 4. Create second SQLi buffer by calling an entry function.
2717 5. Rename buffer \"*SQL*\" to \"*Connection 2*\".
2718 6. Create a SQL buffer \"test2.sql\".
2720 Now \\[sql-send-region] in buffer \"test1.sql\" will send the region to
2721 buffer \"*Connection 1*\", \\[sql-send-region] in buffer \"test2.sql\"
2722 will send the region to buffer \"*Connection 2*\".
2724 If you accidentally suspend your process, use \\[comint-continue-subjob]
2725 to continue it. On some operating systems, this will not work because
2726 the signals are not supported.
2728 \\{sql-interactive-mode-map}
2729 Customization: Entry to this mode runs the hooks on `comint-mode-hook'
2730 and `sql-interactive-mode-hook' (in that order). Before each input, the
2731 hooks on `comint-input-filter-functions' are run. After each SQL
2732 interpreter output, the hooks on `comint-output-filter-functions' are
2735 Variable `sql-input-ring-file-name' controls the initialization of the
2738 Variables `comint-output-filter-functions', a hook, and
2739 `comint-scroll-to-bottom-on-input' and
2740 `comint-scroll-to-bottom-on-output' control whether input and output
2741 cause the window to scroll to the end of the buffer.
2743 If you want to make SQL buffers limited in length, add the function
2744 `comint-truncate-buffer' to `comint-output-filter-functions'.
2746 Here is an example for your .emacs file. It keeps the SQLi buffer a
2749 \(add-hook 'sql-interactive-mode-hook
2750 \(function (lambda ()
2751 \(setq comint-output-filter-functions 'comint-truncate-buffer))))
2753 Here is another example. It will always put point back to the statement
2754 you entered, right above the output it created.
2756 \(setq comint-output-filter-functions
2757 \(function (lambda (STR) (comint-show-output))))"
2758 (delay-mode-hooks (comint-mode))
2760 ;; Get the `sql-product' for this interactive session.
2761 (set (make-local-variable 'sql-product)
2762 (or sql-interactive-product
2766 (setq major-mode 'sql-interactive-mode)
2767 (setq mode-name (concat "SQLi[" (or (sql-get-product-feature sql-product :name)
2768 (symbol-name sql-product)) "]"))
2769 (use-local-map sql-interactive-mode-map)
2770 (if sql-interactive-mode-menu
2771 (easy-menu-add sql-interactive-mode-menu)) ; XEmacs
2772 (set-syntax-table sql-mode-syntax-table)
2773 (make-local-variable 'sql-mode-font-lock-keywords)
2774 (make-local-variable 'font-lock-defaults)
2776 ;; Note that making KEYWORDS-ONLY nil will cause havoc if you try
2777 ;; SELECT 'x' FROM DUAL with SQL*Plus, because the title of the column
2778 ;; will have just one quote. Therefore syntactic hilighting is
2779 ;; disabled for interactive buffers. No imenu support.
2780 (sql-product-font-lock t nil)
2782 ;; Enable commenting and uncommenting of the region.
2783 (make-local-variable 'comment-start)
2784 (setq comment-start "--")
2785 ;; Abbreviation table init and case-insensitive. It is not activated
2787 (setq local-abbrev-table sql-mode-abbrev-table)
2788 (setq abbrev-all-caps 1)
2789 ;; Exiting the process will call sql-stop.
2790 (set-process-sentinel (get-buffer-process sql-buffer) 'sql-stop)
2791 ;; Create a usefull name for renaming this buffer later.
2792 (make-local-variable 'sql-alternate-buffer-name)
2793 (setq sql-alternate-buffer-name (sql-make-alternate-buffer-name))
2794 ;; User stuff. Initialize before the hook.
2795 (set (make-local-variable 'sql-prompt-regexp)
2796 (sql-get-product-feature sql-product :prompt-regexp))
2797 (set (make-local-variable 'sql-prompt-length)
2798 (sql-get-product-feature sql-product :prompt-length))
2799 (make-local-variable 'sql-input-ring-separator)
2800 (make-local-variable 'sql-input-ring-file-name)
2801 (setq comint-process-echoes t)
2802 ;; Run the mode hook (along with comint's hooks).
2803 (run-mode-hooks 'sql-interactive-mode-hook)
2804 ;; Set comint based on user overrides.
2805 (setq comint-prompt-regexp sql-prompt-regexp)
2806 (setq left-margin sql-prompt-length)
2807 ;; Install input sender
2808 (set (make-local-variable 'comint-input-sender) 'sql-input-sender)
2809 ;; People wanting a different history file for each
2810 ;; buffer/process/client/whatever can change separator and file-name
2811 ;; on the sql-interactive-mode-hook.
2812 (setq comint-input-ring-separator sql-input-ring-separator
2813 comint-input-ring-file-name sql-input-ring-file-name)
2814 ;; Calling the hook before calling comint-read-input-ring allows users
2815 ;; to set comint-input-ring-file-name in sql-interactive-mode-hook.
2816 (comint-read-input-ring t))
2818 (defun sql-stop (process event)
2819 "Called when the SQL process is stopped.
2821 Writes the input history to a history file using
2822 `comint-write-input-ring' and inserts a short message in the SQL buffer.
2824 This function is a sentinel watching the SQL interpreter process.
2825 Sentinels will always get the two parameters PROCESS and EVENT."
2826 (comint-write-input-ring)
2827 (if (and (eq (current-buffer) sql-buffer)
2828 (not buffer-read-only))
2829 (insert (format "\nProcess %s %s\n" process event))
2830 (message "Process %s %s" process event)))
2834 ;;; Entry functions for different SQL interpreters.
2837 (defun sql-product-interactive (&optional product)
2838 "Run PRODUCT interpreter as an inferior process.
2840 If buffer `*SQL*' exists but no process is running, make a new process.
2841 If buffer exists and a process is running, just switch to buffer `*SQL*'.
2843 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2848 ((equal product '(4)) ; Universal arg, prompt for product
2849 (intern (completing-read "SQL product: "
2850 (mapcar (lambda (info) (symbol-name (car info)))
2853 (or (and sql-product (symbol-name sql-product)) "ansi"))))
2854 ((symbolp product) product) ; Product specified
2855 (t sql-product))) ; Default to sql-product
2857 (when (sql-get-product-feature product :sqli-connect-func)
2859 (buffer-live-p sql-buffer)
2860 (comint-check-proc sql-buffer))
2861 (pop-to-buffer sql-buffer)
2863 ;; Is the current buffer in sql-mode and
2864 ;; there is a buffer local setting of sql-buffer
2865 (let* ((start-buffer
2866 (and (derived-mode-p 'sql-mode)
2871 (dolist (var (buffer-local-variables))
2873 (eq (car var) 'sql-buffer)
2874 (buffer-live-p (cdr var))
2875 (get-buffer-process (cdr var))
2876 (setq found (cdr var))))
2881 (apply 'sql-get-login (sql-get-product-feature product :sqli-login))
2883 ;; Connect to database.
2884 (message "Login...")
2885 (funcall (sql-get-product-feature product :sqli-connect-func)
2887 (sql-get-product-feature product :sqli-options))
2890 (setq sql-interactive-product product
2891 new-sqli-buffer (current-buffer)
2892 sql-buffer new-sqli-buffer)
2893 (sql-interactive-mode)
2895 ;; Set `sql-buffer' in the start buffer
2896 (when (and start-buffer (not start-sql-buffer))
2897 (with-current-buffer start-buffer
2898 (setq sql-buffer new-sqli-buffer)))
2901 (message "Login...done")
2902 (pop-to-buffer sql-buffer)))))
2904 (defun sql-connect (product params)
2905 "Set up a comint buffer to connect to the SQL processor.
2907 PRODUCT is the SQL product. PARAMS is a list of strings which are
2908 passed as command line arguments."
2909 (let ((program (sql-get-product-feature product :sqli-program)))
2912 (apply 'make-comint "SQL" program nil params)
2913 (make-comint "SQL" program nil)))))
2916 (defun sql-oracle ()
2917 "Run sqlplus by Oracle as an inferior process.
2919 If buffer `*SQL*' exists but no process is running, make a new process.
2920 If buffer exists and a process is running, just switch to buffer
2923 Interpreter used comes from variable `sql-oracle-program'. Login uses
2924 the variables `sql-user', `sql-password', and `sql-database' as
2925 defaults, if set. Additional command line parameters can be stored in
2926 the list `sql-oracle-options'.
2928 The buffer is put in SQL interactive mode, giving commands for sending
2929 input. See `sql-interactive-mode'.
2931 To specify a coding system for converting non-ASCII characters
2932 in the input and output to the process, use \\[universal-coding-system-argument]
2933 before \\[sql-oracle]. You can also specify this with \\[set-buffer-process-coding-system]
2934 in the SQL buffer, after you start the process.
2935 The default comes from `process-coding-system-alist' and
2936 `default-process-coding-system'.
2938 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2940 (sql-product-interactive 'oracle))
2942 (defun sql-connect-oracle (product options)
2943 "Create comint buffer and connect to Oracle."
2944 ;; Produce user/password@database construct. Password without user
2945 ;; is meaningless; database without user/password is meaningless,
2946 ;; because "@param" will ask sqlplus to interpret the script
2948 (let ((parameter nil))
2949 (if (not (string= "" sql-user))
2950 (if (not (string= "" sql-password))
2951 (setq parameter (concat sql-user "/" sql-password))
2952 (setq parameter sql-user)))
2953 (if (and parameter (not (string= "" sql-database)))
2954 (setq parameter (concat parameter "@" sql-database)))
2956 (setq parameter (nconc (list parameter) options))
2957 (setq parameter options))
2958 (sql-connect product parameter)))
2963 (defun sql-sybase ()
2964 "Run isql by Sybase as an inferior process.
2966 If buffer `*SQL*' exists but no process is running, make a new process.
2967 If buffer exists and a process is running, just switch to buffer
2970 Interpreter used comes from variable `sql-sybase-program'. Login uses
2971 the variables `sql-server', `sql-user', `sql-password', and
2972 `sql-database' as defaults, if set. Additional command line parameters
2973 can be stored in the list `sql-sybase-options'.
2975 The buffer is put in SQL interactive mode, giving commands for sending
2976 input. See `sql-interactive-mode'.
2978 To specify a coding system for converting non-ASCII characters
2979 in the input and output to the process, use \\[universal-coding-system-argument]
2980 before \\[sql-sybase]. You can also specify this with \\[set-buffer-process-coding-system]
2981 in the SQL buffer, after you start the process.
2982 The default comes from `process-coding-system-alist' and
2983 `default-process-coding-system'.
2985 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
2987 (sql-product-interactive 'sybase))
2989 (defun sql-connect-sybase (product options)
2990 "Create comint buffer and connect to Sybase."
2991 ;; Put all parameters to the program (if defined) in a list and call
2993 (let ((params options))
2994 (if (not (string= "" sql-server))
2995 (setq params (append (list "-S" sql-server) params)))
2996 (if (not (string= "" sql-database))
2997 (setq params (append (list "-D" sql-database) params)))
2998 (if (not (string= "" sql-password))
2999 (setq params (append (list "-P" sql-password) params)))
3000 (if (not (string= "" sql-user))
3001 (setq params (append (list "-U" sql-user) params)))
3002 (sql-connect product params)))
3007 (defun sql-informix ()
3008 "Run dbaccess by Informix as an inferior process.
3010 If buffer `*SQL*' exists but no process is running, make a new process.
3011 If buffer exists and a process is running, just switch to buffer
3014 Interpreter used comes from variable `sql-informix-program'. Login uses
3015 the variable `sql-database' as default, if set.
3017 The buffer is put in SQL interactive mode, giving commands for sending
3018 input. See `sql-interactive-mode'.
3020 To specify a coding system for converting non-ASCII characters
3021 in the input and output to the process, use \\[universal-coding-system-argument]
3022 before \\[sql-informix]. You can also specify this with \\[set-buffer-process-coding-system]
3023 in the SQL buffer, after you start the process.
3024 The default comes from `process-coding-system-alist' and
3025 `default-process-coding-system'.
3027 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3029 (sql-product-interactive 'informix))
3031 (defun sql-connect-informix (product options)
3032 "Create comint buffer and connect to Informix."
3033 ;; username and password are ignored.
3034 (let ((db (if (string= "" sql-database)
3036 (if (string= "" sql-server)
3038 (concat sql-database "@" sql-server)))))
3039 (sql-connect product (append `(,db "-") options))))
3044 (defun sql-sqlite ()
3045 "Run sqlite as an inferior process.
3047 SQLite is free software.
3049 If buffer `*SQL*' exists but no process is running, make a new process.
3050 If buffer exists and a process is running, just switch to buffer
3053 Interpreter used comes from variable `sql-sqlite-program'. Login uses
3054 the variables `sql-user', `sql-password', `sql-database', and
3055 `sql-server' as defaults, if set. Additional command line parameters
3056 can be stored in the list `sql-sqlite-options'.
3058 The buffer is put in SQL interactive mode, giving commands for sending
3059 input. See `sql-interactive-mode'.
3061 To specify a coding system for converting non-ASCII characters
3062 in the input and output to the process, use \\[universal-coding-system-argument]
3063 before \\[sql-sqlite]. You can also specify this with \\[set-buffer-process-coding-system]
3064 in the SQL buffer, after you start the process.
3065 The default comes from `process-coding-system-alist' and
3066 `default-process-coding-system'.
3068 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3070 (sql-product-interactive 'sqlite))
3072 (defun sql-connect-sqlite (product options)
3073 "Create comint buffer and connect to SQLite."
3074 ;; Put all parameters to the program (if defined) in a list and call
3077 (if (not (string= "" sql-database))
3078 (setq params (append (list sql-database) params)))
3079 (setq params (append options params))
3080 (sql-connect product params)))
3086 "Run mysql by TcX as an inferior process.
3088 Mysql versions 3.23 and up are free software.
3090 If buffer `*SQL*' exists but no process is running, make a new process.
3091 If buffer exists and a process is running, just switch to buffer
3094 Interpreter used comes from variable `sql-mysql-program'. Login uses
3095 the variables `sql-user', `sql-password', `sql-database', and
3096 `sql-server' as defaults, if set. Additional command line parameters
3097 can be stored in the list `sql-mysql-options'.
3099 The buffer is put in SQL interactive mode, giving commands for sending
3100 input. See `sql-interactive-mode'.
3102 To specify a coding system for converting non-ASCII characters
3103 in the input and output to the process, use \\[universal-coding-system-argument]
3104 before \\[sql-mysql]. You can also specify this with \\[set-buffer-process-coding-system]
3105 in the SQL buffer, after you start the process.
3106 The default comes from `process-coding-system-alist' and
3107 `default-process-coding-system'.
3109 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3111 (sql-product-interactive 'mysql))
3113 (defun sql-connect-mysql (product options)
3114 "Create comint buffer and connect to MySQL."
3115 ;; Put all parameters to the program (if defined) in a list and call
3118 (if (not (string= "" sql-database))
3119 (setq params (append (list sql-database) params)))
3120 (if (not (string= "" sql-server))
3121 (setq params (append (list (concat "--host=" sql-server)) params)))
3122 (if (not (and sql-port (numberp sql-port)))
3123 (setq params (append (list (concat "--port=" (number-to-string sql-port))) params)))
3124 (if (not (string= "" sql-password))
3125 (setq params (append (list (concat "--password=" sql-password)) params)))
3126 (if (not (string= "" sql-user))
3127 (setq params (append (list (concat "--user=" sql-user)) params)))
3128 (setq params (append options params))
3129 (sql-connect product params)))
3135 "Run solsql by Solid as an inferior process.
3137 If buffer `*SQL*' exists but no process is running, make a new process.
3138 If buffer exists and a process is running, just switch to buffer
3141 Interpreter used comes from variable `sql-solid-program'. Login uses
3142 the variables `sql-user', `sql-password', and `sql-server' as
3145 The buffer is put in SQL interactive mode, giving commands for sending
3146 input. See `sql-interactive-mode'.
3148 To specify a coding system for converting non-ASCII characters
3149 in the input and output to the process, use \\[universal-coding-system-argument]
3150 before \\[sql-solid]. You can also specify this with \\[set-buffer-process-coding-system]
3151 in the SQL buffer, after you start the process.
3152 The default comes from `process-coding-system-alist' and
3153 `default-process-coding-system'.
3155 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3157 (sql-product-interactive 'solid))
3159 (defun sql-connect-solid (product options)
3160 "Create comint buffer and connect to Solid."
3161 ;; Put all parameters to the program (if defined) in a list and call
3163 (let ((params options))
3164 ;; It only makes sense if both username and password are there.
3165 (if (not (or (string= "" sql-user)
3166 (string= "" sql-password)))
3167 (setq params (append (list sql-user sql-password) params)))
3168 (if (not (string= "" sql-server))
3169 (setq params (append (list sql-server) params)))
3170 (sql-connect product params)))
3175 (defun sql-ingres ()
3176 "Run sql by Ingres as an inferior process.
3178 If buffer `*SQL*' exists but no process is running, make a new process.
3179 If buffer exists and a process is running, just switch to buffer
3182 Interpreter used comes from variable `sql-ingres-program'. Login uses
3183 the variable `sql-database' as default, if set.
3185 The buffer is put in SQL interactive mode, giving commands for sending
3186 input. See `sql-interactive-mode'.
3188 To specify a coding system for converting non-ASCII characters
3189 in the input and output to the process, use \\[universal-coding-system-argument]
3190 before \\[sql-ingres]. You can also specify this with \\[set-buffer-process-coding-system]
3191 in the SQL buffer, after you start the process.
3192 The default comes from `process-coding-system-alist' and
3193 `default-process-coding-system'.
3195 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3197 (sql-product-interactive 'ingres))
3199 (defun sql-connect-ingres (product options)
3200 "Create comint buffer and connect to Ingres."
3201 ;; username and password are ignored.
3202 (sql-connect product
3203 (append (if (string= "" sql-database)
3205 (list sql-database))
3212 "Run osql by Microsoft as an inferior process.
3214 If buffer `*SQL*' exists but no process is running, make a new process.
3215 If buffer exists and a process is running, just switch to buffer
3218 Interpreter used comes from variable `sql-ms-program'. Login uses the
3219 variables `sql-user', `sql-password', `sql-database', and `sql-server'
3220 as defaults, if set. Additional command line parameters can be stored
3221 in the list `sql-ms-options'.
3223 The buffer is put in SQL interactive mode, giving commands for sending
3224 input. See `sql-interactive-mode'.
3226 To specify a coding system for converting non-ASCII characters
3227 in the input and output to the process, use \\[universal-coding-system-argument]
3228 before \\[sql-ms]. You can also specify this with \\[set-buffer-process-coding-system]
3229 in the SQL buffer, after you start the process.
3230 The default comes from `process-coding-system-alist' and
3231 `default-process-coding-system'.
3233 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3235 (sql-product-interactive 'ms))
3237 (defun sql-connect-ms (product options)
3238 "Create comint buffer and connect to Microsoft SQL Server."
3239 ;; Put all parameters to the program (if defined) in a list and call
3241 (let ((params options))
3242 (if (not (string= "" sql-server))
3243 (setq params (append (list "-S" sql-server) params)))
3244 (if (not (string= "" sql-database))
3245 (setq params (append (list "-d" sql-database) params)))
3246 (if (not (string= "" sql-user))
3247 (setq params (append (list "-U" sql-user) params)))
3248 (if (not (string= "" sql-password))
3249 (setq params (append (list "-P" sql-password) params))
3250 (if (string= "" sql-user)
3251 ;; if neither user nor password is provided, use system
3253 (setq params (append (list "-E") params))
3254 ;; If -P is passed to ISQL as the last argument without a
3255 ;; password, it's considered null.
3256 (setq params (append params (list "-P")))))
3257 (sql-connect product params)))
3262 (defun sql-postgres ()
3263 "Run psql by Postgres as an inferior process.
3265 If buffer `*SQL*' exists but no process is running, make a new process.
3266 If buffer exists and a process is running, just switch to buffer
3269 Interpreter used comes from variable `sql-postgres-program'. Login uses
3270 the variables `sql-database' and `sql-server' as default, if set.
3271 Additional command line parameters can be stored in the list
3272 `sql-postgres-options'.
3274 The buffer is put in SQL interactive mode, giving commands for sending
3275 input. See `sql-interactive-mode'.
3277 To specify a coding system for converting non-ASCII characters
3278 in the input and output to the process, use \\[universal-coding-system-argument]
3279 before \\[sql-postgres]. You can also specify this with \\[set-buffer-process-coding-system]
3280 in the SQL buffer, after you start the process.
3281 The default comes from `process-coding-system-alist' and
3282 `default-process-coding-system'. If your output lines end with ^M,
3283 your might try undecided-dos as a coding system. If this doesn't help,
3284 Try to set `comint-output-filter-functions' like this:
3286 \(setq comint-output-filter-functions (append comint-output-filter-functions
3287 '(comint-strip-ctrl-m)))
3289 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3291 (sql-product-interactive 'postgres))
3293 (defun sql-connect-postgres (product options)
3294 "Create comint buffer and connect to Postgres."
3295 ;; username and password are ignored. Mark Stosberg suggest to add
3296 ;; the database at the end. Jason Beegan suggest using --pset and
3297 ;; pager=off instead of \\o|cat. The later was the solution by
3298 ;; Gregor Zych. Jason's suggestion is the default value for
3299 ;; sql-postgres-options.
3300 (let ((params options))
3301 (if (not (string= "" sql-database))
3302 (setq params (append params (list sql-database))))
3303 (if (not (string= "" sql-server))
3304 (setq params (append (list "-h" sql-server) params)))
3305 (if (not (string= "" sql-user))
3306 (setq params (append (list "-U" sql-user) params)))
3307 (sql-connect product params)))
3312 (defun sql-interbase ()
3313 "Run isql by Interbase as an inferior process.
3315 If buffer `*SQL*' exists but no process is running, make a new process.
3316 If buffer exists and a process is running, just switch to buffer
3319 Interpreter used comes from variable `sql-interbase-program'. Login
3320 uses the variables `sql-user', `sql-password', and `sql-database' as
3323 The buffer is put in SQL interactive mode, giving commands for sending
3324 input. See `sql-interactive-mode'.
3326 To specify a coding system for converting non-ASCII characters
3327 in the input and output to the process, use \\[universal-coding-system-argument]
3328 before \\[sql-interbase]. You can also specify this with \\[set-buffer-process-coding-system]
3329 in the SQL buffer, after you start the process.
3330 The default comes from `process-coding-system-alist' and
3331 `default-process-coding-system'.
3333 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3335 (sql-product-interactive 'interbase))
3337 (defun sql-connect-interbase (product options)
3338 "Create comint buffer and connect to Interbase."
3339 ;; Put all parameters to the program (if defined) in a list and call
3341 (let ((params options))
3342 (if (not (string= "" sql-user))
3343 (setq params (append (list "-u" sql-user) params)))
3344 (if (not (string= "" sql-password))
3345 (setq params (append (list "-p" sql-password) params)))
3346 (if (not (string= "" sql-database))
3347 (setq params (cons sql-database params))) ; add to the front!
3348 (sql-connect product params)))
3354 "Run db2 by IBM as an inferior process.
3356 If buffer `*SQL*' exists but no process is running, make a new process.
3357 If buffer exists and a process is running, just switch to buffer
3360 Interpreter used comes from variable `sql-db2-program'. There is not
3363 The buffer is put in SQL interactive mode, giving commands for sending
3364 input. See `sql-interactive-mode'.
3366 If you use \\[sql-accumulate-and-indent] to send multiline commands to
3367 db2, newlines will be escaped if necessary. If you don't want that, set
3368 `comint-input-sender' back to `comint-simple-send' by writing an after
3369 advice. See the elisp manual for more information.
3371 To specify a coding system for converting non-ASCII characters
3372 in the input and output to the process, use \\[universal-coding-system-argument]
3373 before \\[sql-db2]. You can also specify this with \\[set-buffer-process-coding-system]
3374 in the SQL buffer, after you start the process.
3375 The default comes from `process-coding-system-alist' and
3376 `default-process-coding-system'.
3378 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3380 (sql-product-interactive 'db2))
3382 (defun sql-connect-db2 (product options)
3383 "Create comint buffer and connect to DB2."
3384 ;; Put all parameters to the program (if defined) in a list and call
3386 (sql-connect product options)
3388 ;; ;; Properly escape newlines when DB2 is interactive.
3389 ;; (setq comint-input-sender 'sql-escape-newlines-and-send))
3392 (defun sql-linter ()
3393 "Run inl by RELEX as an inferior process.
3395 If buffer `*SQL*' exists but no process is running, make a new process.
3396 If buffer exists and a process is running, just switch to buffer
3399 Interpreter used comes from variable `sql-linter-program' - usually `inl'.
3400 Login uses the variables `sql-user', `sql-password', `sql-database' and
3401 `sql-server' as defaults, if set. Additional command line parameters
3402 can be stored in the list `sql-linter-options'. Run inl -h to get help on
3405 `sql-database' is used to set the LINTER_MBX environment variable for
3406 local connections, `sql-server' refers to the server name from the
3407 `nodetab' file for the network connection (dbc_tcp or friends must run
3408 for this to work). If `sql-password' is an empty string, inl will use
3411 The buffer is put in SQL interactive mode, giving commands for sending
3412 input. See `sql-interactive-mode'.
3414 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)"
3416 (sql-product-interactive 'linter))
3418 (defun sql-connect-linter (product options)
3419 "Create comint buffer and connect to Linter."
3420 ;; Put all parameters to the program (if defined) in a list and call
3422 (let ((params options)
3424 (old-mbx (getenv "LINTER_MBX")))
3425 (if (not (string= "" sql-user))
3426 (setq login (concat sql-user "/" sql-password)))
3427 (setq params (append (list "-u" login) params))
3428 (if (not (string= "" sql-server))
3429 (setq params (append (list "-n" sql-server) params)))
3430 (if (string= "" sql-database)
3431 (setenv "LINTER_MBX" nil)
3432 (setenv "LINTER_MBX" sql-database))
3433 (sql-connect product params)
3434 (setenv "LINTER_MBX" old-mbx)))
3440 ;; arch-tag: 7e1fa1c4-9ca2-402e-87d2-83a5eccb7ac3
3441 ;;; sql.el ends here