Mercurial > emacs
annotate lisp/progmodes/sql.el @ 25181:847441efad8d
(switch_to_buffer_1): New subroutine, taken out from Fswitch_to_buffer.
(no_switch_buffer): New function.
(Fswitch_to_buffer): Call them. Don't get confused
by "same-window" buffers in a dedicated frame.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 05 Aug 1999 19:38:34 +0000 |
parents | 0d593aa15c0f |
children | 16937a774275 |
rev | line source |
---|---|
24050 | 1 ;;; sql.el --- specialized comint.el for SQL interpreters |
2 | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
3 ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc. |
24050 | 4 |
24861
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
5 ;; Author: Alex Schroeder <a.schroeder@bsiag.ch> |
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
6 ;; Maintainer: Alex Schroeder <a.schroeder@bsiag.ch> |
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
7 ;; Version: 1.4.5 |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
8 ;; Keywords: comm languages processes |
24050 | 9 |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
26 | |
27 ;;; Commentary: | |
28 | |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
29 ;; Please send bug reports and bug fixes to the mailing list at |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
30 ;; sql.el@gnu.org so that I can merge them into the master source. If |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
31 ;; you want to subscribe to the mailing list, send mail to |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
32 ;; sql.el-request@gnu.org with 'subscribe' in the subject line. |
24050 | 33 |
34 ;; You can get the latest version of this file from my homepage | |
35 ;; <URL:http://www.geocities.com/TimesSquare/6120/emacs.html>. | |
36 | |
37 ;; This file provides a sql-mode and a sql-interactive-mode. My goals | |
38 ;; were two simple modes providing syntactic hilighting. The | |
39 ;; interactive mode had to provide a command-line history; the other | |
40 ;; mode had to provide "send region/buffer to SQL interpreter" | |
41 ;; functions. "simple" in this context means easy to use, easy to | |
42 ;; maintain and little or no bells and whistles. | |
43 | |
44 ;; If anybody feels like extending this sql mode, take a look at the | |
45 ;; above mentioned modes and write a sqlx-mode on top of this one. If | |
46 ;; this proves to be difficult, please suggest changes that will | |
47 ;; facilitate your plans. | |
48 | |
49 ;; sql-interactive-mode is used to interact with a SQL interpreter | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
50 ;; process in a SQLi buffer (usually called `*SQL*'). The SQLi buffer |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
51 ;; is created by calling a SQL interpreter-specific entry function. Do |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
52 ;; *not* call sql-interactive-mode by itself. |
24050 | 53 |
54 ;; The list of currently supported interpreters and the corresponding | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
55 ;; entry function used to create the SQLi buffers is shown with |
24050 | 56 ;; `sql-help' (M-x sql-help). |
57 | |
58 ;; Since sql-interactive-mode is built on top of the general | |
59 ;; command-interpreter-in-a-buffer mode (comint mode), it shares a | |
60 ;; common base functionality, and a common set of bindings, with all | |
61 ;; modes derived from comint mode. This makes these modes easier to | |
62 ;; use. | |
63 | |
64 ;; sql-mode can be used to enable syntactic hilighting for SQL | |
65 ;; statements in another buffer. SQL statements can then be sent to | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
66 ;; the SQL process in the SQLi buffer. sql-mode has already been |
24050 | 67 ;; used as a template to a simple PL/SQL mode. |
68 | |
69 ;; For documentation on the functionality provided by comint mode, and | |
70 ;; the hooks available for customising it, see the file `comint.el'. | |
71 | |
72 ;; Hint for newbies: take a look at `dabbrev-expand' and `abbrev-mode'. | |
73 | |
74 ;;; Requirements for Emacs 19.34: | |
75 | |
76 ;; If you are using Emacs 19.34, you will have to get and install | |
77 ;; the file regexp-opt.el | |
78 ;; <URL:ftp://ftp.ifi.uio.no/pub/emacs/emacs-20.3/lisp/emacs-lisp/regexp-opt.el> | |
79 ;; and the custom package | |
80 ;; <URL:http://www.dina.kvl.dk/~abraham/custom/>. | |
81 | |
82 ;;; Bugs: | |
83 | |
84 ;; Using sql-ms (isql by Microsoft): When commands with syntax errors | |
85 ;; or execution errors are executed, there is no server feedback. | |
86 ;; This happens in stored procedures for example. The server messages | |
87 ;; only appear after the process is exited. This makes things | |
88 ;; somewhat unreliable. | |
89 | |
90 ;;; To Do: | |
91 | |
92 ;; Add better hilight support for other brands; there is a bias towards | |
93 ;; Oracle because that's what I use at work. Anybody else just send in | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
94 ;; your lists of reserved words, keywords and builtin functions! As |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
95 ;; long as I don't receive any feedback, everything is hilighted with |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
96 ;; ANSI keywords only. I received the list of ANSI keywords from a |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
97 ;; user; if you know of any changes, let me know. |
24050 | 98 |
99 ;; Add different hilighting levels. | |
100 | |
101 ;;; Thanks to all the people who helped me out: | |
102 | |
103 ;; Kai Blauberg <kai.blauberg@metla.fi> | |
104 ;; <ibalaban@dalet.com> | |
105 ;; Yair Friedman <yfriedma@JohnBryce.Co.Il> | |
106 ;; Gregor Zych <zych@pool.informatik.rwth-aachen.de> | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
107 ;; nino <nino@inform.dk> |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
108 |
24050 | 109 |
110 | |
111 ;;; Code: | |
112 | |
113 (require 'comint) | |
114 ;; Need the following to allow GNU Emacs 19 to compile the file. | |
115 (require 'regexp-opt) | |
116 (require 'custom) | |
117 | |
118 ;;; Allow customization | |
119 | |
120 (defgroup SQL nil | |
121 "Running a SQL interpreter from within Emacs buffers" | |
24556 | 122 :version "20.4" |
24050 | 123 :group 'processes) |
124 | |
125 ;; These three variables will be used as defaults, if set. | |
126 | |
127 (defcustom sql-user "" | |
128 "*Default username." | |
129 :type 'string | |
130 :group 'SQL) | |
131 | |
132 (defcustom sql-password "" | |
133 "*Default password. | |
134 | |
135 Storing your password in a textfile such as ~/.emacs could be dangerous. | |
136 Customizing your password will store it in your ~/.emacs file." | |
137 :type 'string | |
138 :group 'SQL) | |
139 | |
140 (defcustom sql-database "" | |
141 "*Default database." | |
142 :type 'string | |
143 :group 'SQL) | |
144 | |
145 (defcustom sql-server "" | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
146 "*Default server or host." |
24050 | 147 :type 'string |
148 :group 'SQL) | |
149 | |
150 (defcustom sql-pop-to-buffer-after-send-region nil | |
151 "*If t, pop to the buffer SQL statements are sent to. | |
152 | |
153 After a call to `sql-send-region' or `sql-send-buffer', | |
154 the window is split and the SQLi buffer is shown. If this | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
155 variable is not nil, that buffer's window will be selected |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
156 by calling `pop-to-buffer'. If this variable is nil, that |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
157 buffer is shown using `display-buffer'." |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
158 :type 'boolean |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
159 :group 'SQL) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
160 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
161 (defcustom sql-input-ring-file-name nil |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
162 "*If non-nil, name of the file to read/write input history. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
163 |
24861
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
164 You have to set this variable if you want the history of your commands |
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
165 saved from one Emacs session to the next. If this variable is set, |
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
166 exiting the SQL interpreter in an SQLi buffer will write the input |
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
167 history to the specified file. Starting a new process in a SQLi buffer |
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
168 will read the input history from the specified file. |
0d593aa15c0f
(sql-input-ring-file-name): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
24591
diff
changeset
|
169 |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
170 This is used to locally set `comint-input-ring-file-name' when reading |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
171 or writing the input history." |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
172 :type '(choice (const :tag "none" nil) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
173 (file)) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
174 :group 'SQL) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
175 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
176 (defcustom sql-input-ring-separator "\n--\n" |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
177 "*Separator between commands in the history file. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
178 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
179 If set to \"\\n\", each line in the history file will be interpreted as |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
180 one command. Multi-line commands are split into several commands when |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
181 the input ring is initialized from a history file. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
182 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
183 This variable used to locally set `comint-input-ring-separator' when |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
184 reading or writing the history file. `comint-input-ring-separator' is |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
185 not yet part of Emacs; if your Emacs does not have it, setting |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
186 `sql-input-ring-separator' will have no effect. In that case multiline |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
187 commands will be split into several commands when the input history is |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
188 read, as if you had set `sql-input-ring-separator' to \"\\n\". |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
189 |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
190 The source code contains a link to a homepage that might have a patch |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
191 for comint.el to download." |
24050 | 192 :type 'string |
193 :group 'SQL) | |
194 | |
195 ;; The usual hooks | |
196 | |
197 (defcustom sql-interactive-mode-hook '() | |
198 "*Hook for customising `sql-interactive-mode'." | |
199 :type 'hook | |
200 :group 'SQL) | |
201 | |
202 (defcustom sql-mode-hook '() | |
203 "*Hook for customising `sql-mode'." | |
204 :type 'hook | |
205 :group 'SQL) | |
206 | |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
207 (defcustom sql-set-sqli-hook '() |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
208 "*Hook for reacting to changes of `sql-buffer'. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
209 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
210 This is called by `sql-set-sqli-buffer' when the value of `sql-buffer' |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
211 is changed." |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
212 :type 'hook |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
213 :group 'SQL) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
214 |
24050 | 215 ;; Customisation for Oracle |
216 | |
217 (defcustom sql-oracle-program "sqlplus" | |
218 "*Command to start sqlplus by Oracle. | |
219 | |
220 Starts `sql-interactive-mode' after doing some setup. | |
221 | |
222 Under NT, \"sqlplus\" usually starts the sqlplus \"GUI\". In order to | |
223 start the sqlplus console, use \"plus33\" or something similar. You | |
224 will find the file in your Orant\\bin directory. | |
225 | |
226 The program can also specify a TCP connection. See `make-comint'." | |
227 :type 'file | |
228 :group 'SQL) | |
229 | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
230 ;; Customisation for MySql |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
231 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
232 (defcustom sql-mysql-program "mysql" |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
233 "*Command to start mysql by TcX. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
234 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
235 Starts `sql-interactive-mode' after doing some setup. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
236 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
237 The program can also specify a TCP connection. See `make-comint'." |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
238 :type 'file |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
239 :group 'SQL) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
240 |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
241 ;; Customisation for Solid |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
242 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
243 (defcustom sql-solid-program "solsql" |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
244 "*Command to start SOLID SQL Editor. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
245 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
246 Starts `sql-interactive-mode' after doing some setup. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
247 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
248 The program can also specify a TCP connection. See `make-comint'." |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
249 :type 'file |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
250 :group 'SQL) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
251 |
24050 | 252 ;; Customisation for SyBase |
253 | |
254 (defcustom sql-sybase-program "isql" | |
255 "*Command to start isql by SyBase. | |
256 | |
257 Starts `sql-interactive-mode' after doing some setup. | |
258 | |
259 The program can also specify a TCP connection. See `make-comint'." | |
260 :type 'file | |
261 :group 'SQL) | |
262 | |
263 ;; Customisation for Informix | |
264 | |
265 (defcustom sql-informix-program "dbaccess" | |
266 "*Command to start dbaccess by Informix. | |
267 | |
268 Starts `sql-interactive-mode' after doing some setup. | |
269 | |
270 The program can also specify a TCP connection. See `make-comint'." | |
271 :type 'file | |
272 :group 'SQL) | |
273 | |
274 ;; Customisation for Ingres | |
275 | |
276 (defcustom sql-ingres-program "sql" | |
277 "*Command to start sql by Ingres. | |
278 | |
279 Starts `sql-interactive-mode' after doing some setup. | |
280 | |
281 The program can also specify a TCP connection. See `make-comint'." | |
282 :type 'file | |
283 :group 'SQL) | |
284 | |
285 ;; Customisation for Microsoft | |
286 | |
287 (defcustom sql-ms-program "isql" | |
288 "*Command to start isql by Microsoft. | |
289 | |
290 Starts `sql-interactive-mode' after doing some setup. | |
291 | |
292 The program can also specify a TCP connection. See `make-comint'." | |
293 :type 'file | |
294 :group 'SQL) | |
295 | |
296 ;; Customisation for Postgres | |
297 | |
298 (defcustom sql-postgres-program "psql" | |
299 "Command to start psql by Postgres. | |
300 | |
301 Starts `sql-interactive-mode' after doing some setup. | |
302 | |
303 The program can also specify a TCP connection. See `make-comint'." | |
304 :type 'file | |
305 :group 'SQL) | |
306 | |
307 | |
308 | |
309 ;;; Variables which do not need customization | |
310 | |
311 (defvar sql-user-history nil | |
312 "History of usernames used.") | |
313 | |
314 (defvar sql-database-history nil | |
315 "History of databases used.") | |
316 | |
317 (defvar sql-server-history nil | |
318 "History of servers used.") | |
319 | |
320 ;; Passwords are not kept in a history. | |
321 | |
322 (defvar sql-buffer nil | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
323 "Current SQLi buffer. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
324 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
325 The global value of sql-buffer is the name of the latest SQLi buffer |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
326 created. Any SQL buffer created will make a local copy of this value. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
327 See `sql-interactive-mode' for more on multiple sessions. If you want |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
328 to change the SQLi buffer a SQL mode sends its SQL strings to, change |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
329 the local value of `sql-buffer' using \\[sql-set-sqli-buffer].") |
24050 | 330 |
331 (defvar sql-prompt-regexp nil | |
332 "Prompt used to initialize `comint-prompt-regexp'. | |
333 | |
334 You can change `comint-prompt-regexp' on `sql-interactive-mode-hook'.") | |
335 | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
336 (defvar sql-prompt-length 0 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
337 "Prompt used to set `left-margin' in `sql-interactive-mode'. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
338 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
339 You can change it on `sql-interactive-mode-hook'.") |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
340 |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
341 (defvar sql-alternate-buffer-name nil |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
342 "Buffer-local string used to possibly rename the SQLi buffer. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
343 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
344 Used by `sql-rename-buffer'.") |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
345 |
24050 | 346 ;; Keymap for sql-interactive-mode, based on comint-mode-map. |
347 | |
348 (if (not (string-match "XEmacs\\|Lucid" emacs-version)) | |
349 (defvar sql-interactive-mode-map | |
350 (let ((map (nconc (make-sparse-keymap) comint-mode-map))) | |
351 (define-key map "\C-j" 'sql-accumulate-and-indent) | |
352 (define-key map "\C-c\C-w" 'sql-copy-column) | |
353 map) | |
354 "Mode map used for `sql-interactive-mode'.") | |
355 ;; XEmacs | |
356 (defvar sql-interactive-mode-map nil) | |
357 (if (not sql-interactive-mode-map) | |
358 (let ((map (make-keymap))) | |
359 (set-keymap-parents map (list comint-mode-map)) | |
360 (set-keymap-name map 'sql-interactive-mode-map) | |
361 (define-key map "\C-j" 'sql-accumulate-and-indent) | |
362 (define-key map "\C-c\C-w" 'sql-copy-column) | |
363 (setq sql-interactive-mode-map map)))) | |
364 | |
365 ;; Keymap for sql-mode. | |
366 | |
367 (defvar sql-mode-map | |
368 (let ((map (make-sparse-keymap))) | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
369 (define-key map "\C-c\C-c" 'sql-send-paragraph) |
24050 | 370 (define-key map "\C-c\C-r" 'sql-send-region) |
371 (define-key map "\C-c\C-b" 'sql-send-buffer) | |
372 (define-key map "\t" 'indent-relative) | |
373 map) | |
374 "Mode map used for `sql-mode'.") | |
375 | |
376 ;; easy menu for sql-mode. | |
377 | |
378 (easy-menu-define | |
379 sql-mode-menu sql-mode-map | |
380 "Menu for `sql-mode'." | |
381 '("SQL" | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
382 ["Send Paragraph" sql-send-paragraph (and (buffer-live-p sql-buffer) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
383 (get-buffer-process sql-buffer))] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
384 ["Send Region" sql-send-region (and mark-active |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
385 (buffer-live-p sql-buffer) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
386 (get-buffer-process sql-buffer))] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
387 ["Send Buffer" sql-send-buffer (and (buffer-live-p sql-buffer) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
388 (get-buffer-process sql-buffer))] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
389 ["Show SQLi buffer" sql-show-sqli-buffer t] |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
390 ["Set SQLi buffer" sql-set-sqli-buffer t] |
24050 | 391 ["Pop to SQLi buffer after send" |
392 sql-toggle-pop-to-buffer-after-send-region | |
393 :style toggle | |
394 :selected sql-pop-to-buffer-after-send-region])) | |
395 | |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
396 ;; easy menu for sql-interactive-mode. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
397 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
398 (easy-menu-define |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
399 sql-interactive-mode-menu sql-interactive-mode-map |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
400 "Menu for `sql-interactive-mode'." |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
401 '("SQL" |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
402 ["Rename Buffer" sql-rename-buffer t])) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
403 |
24050 | 404 ;; Abbreviations -- if you want more of them, define them in your |
405 ;; ~/.emacs file. Abbrevs have to be enabled in your ~/.emacs, too. | |
406 | |
407 (defvar sql-mode-abbrev-table nil | |
408 "Abbrev table used in `sql-mode' and `sql-interactive-mode'.") | |
409 (if sql-mode-abbrev-table | |
410 () | |
411 (let ((wrapper)) | |
412 (define-abbrev-table 'sql-mode-abbrev-table ()) | |
413 (define-abbrev sql-mode-abbrev-table "ins" "insert" nil) | |
414 (define-abbrev sql-mode-abbrev-table "upd" "update" nil) | |
415 (define-abbrev sql-mode-abbrev-table "del" "delete" nil) | |
416 (define-abbrev sql-mode-abbrev-table "sel" "select" nil))) | |
417 | |
418 ;; Syntax Table | |
419 | |
420 (defvar sql-mode-syntax-table | |
421 (let ((table (make-syntax-table))) | |
422 ;; C-style comments /**/ (see elisp manual "Syntax Flags")) | |
423 (modify-syntax-entry ?/ ". 14" table) | |
424 (modify-syntax-entry ?* ". 23" table) | |
425 ;; double-dash starts comment | |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
426 (if (string-match "XEmacs\\|Lucid" emacs-version) |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
427 (modify-syntax-entry ?- ". 56" table) |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
428 (modify-syntax-entry ?- ". 12b" table)) |
24050 | 429 ;; newline and formfeed end coments |
430 (modify-syntax-entry ?\n "> b" table) | |
431 (modify-syntax-entry ?\f "> b" table) | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
432 ;; single quotes (') quotes delimit strings |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
433 (modify-syntax-entry ?' "\"" table) |
24050 | 434 table) |
435 "Syntax table used in `sql-mode' and `sql-interactive-mode'.") | |
436 | |
437 ;; Font lock support | |
438 | |
439 (defvar sql-mode-ansi-font-lock-keywords nil | |
440 "ANSI SQL keywords used by font-lock. | |
441 | |
442 This variable is used by `sql-mode' and `sql-interactive-mode'. The | |
443 regular expressions are created during compilation by calling the | |
444 function `regexp-opt'. Therefore, take a look at the source before | |
445 you define your own sql-mode-ansi-font-lock-keywords. You may want to | |
446 add functions and PL/SQL keywords.") | |
447 (if sql-mode-ansi-font-lock-keywords | |
448 () | |
449 (let ((ansi-keywords (eval-when-compile | |
450 (concat "\\b" | |
451 (regexp-opt '( | |
452 "authorization" "avg" "begin" "close" "cobol" "commit" | |
453 "continue" "count" "declare" "double" "end" "escape" | |
454 "exec" "fetch" "foreign" "fortran" "found" "go" "goto" "indicator" | |
455 "key" "language" "max" "min" "module" "numeric" "open" "pascal" "pli" | |
456 "precision" "primary" "procedure" "references" "rollback" | |
457 "schema" "section" "some" "sqlcode" "sqlerror" "sum" "work") t) "\\b"))) | |
458 (ansi-reserved-words (eval-when-compile | |
459 (concat "\\b" | |
460 (regexp-opt '( | |
461 "all" "and" "any" "as" "asc" "between" "by" "check" "create" | |
462 "current" "default" "delete" "desc" "distinct" "exists" "float" "for" | |
463 "from" "grant" "group" "having" "in" "insert" "into" "is" | |
464 "like" "not" "null" "of" "on" "option" "or" "order" "privileges" | |
465 "public" "select" "set" "table" "to" "union" "unique" | |
466 "update" "user" "values" "view" "where" "with") t) "\\b"))) | |
467 (ansi-types (eval-when-compile | |
468 (concat "\\b" | |
469 (regexp-opt '( | |
470 ;; ANSI Keywords that look like types | |
471 "character" "cursor" "dec" "int" "real" | |
472 ;; ANSI Reserved Word that look like types | |
473 "char" "integer" "smallint" ) t) "\\b")))) | |
474 (setq sql-mode-ansi-font-lock-keywords | |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
475 (list (cons ansi-keywords 'font-lock-function-name-face) |
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
476 (cons ansi-reserved-words 'font-lock-keyword-face) |
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
477 (cons ansi-types 'font-lock-type-face))))) |
24050 | 478 |
479 (defvar sql-mode-oracle-font-lock-keywords nil | |
480 "Oracle SQL keywords used by font-lock. | |
481 | |
482 This variable is used by `sql-mode' and `sql-interactive-mode'. The | |
483 regular expressions are created during compilation by calling the | |
484 function `regexp-opt'. Therefore, take a look at the source before | |
485 you define your own sql-mode-oracle-font-lock-keywords. You may want | |
486 to add functions and PL/SQL keywords.") | |
487 (if sql-mode-oracle-font-lock-keywords | |
488 () | |
489 (let ((oracle-keywords (eval-when-compile | |
490 (concat "\\b" | |
491 (regexp-opt '( | |
492 "admin" "after" "allocate" "analyze" "archive" "archivelog" "backup" | |
493 "become" "before" "block" "body" "cache" "cancel" "cascade" "change" | |
494 "checkpoint" "compile" "constraint" "constraints" "contents" | |
495 "controlfile" "cycle" "database" "datafile" "dba" "disable" "dismount" | |
496 "dump" "each" "enable" "events" "except" "exceptions" "execute" | |
497 "explain" "extent" "externally" "flush" "force" "freelist" "freelists" | |
498 "function" "groups" "including" "initrans" "instance" "layer" "link" | |
499 "lists" "logfile" "manage" "manual" "maxdatafiles" "maxinistances" | |
500 "maxlogfiles" "maxloghistory" "maxlogmembers" "maxtrans" "maxvalue" | |
501 "minextents" "minvalue" "mount" "new" "next" "noarchivelog" "nocache" | |
502 "nocycle" "nomaxvalue" "nominvalue" "none" "noorder" "noresetlogs" | |
503 "normal" "nosort" "off" "old" "only" "optimal" "own" "package" | |
504 "parallel" "pctincrease" "pctused" "plan" "private" "profile" "quota" | |
505 "read" "recover" "referencing" "resetlogs" "restricted" "reuse" "role" | |
506 "roles" "savepoint" "scn" "segment" "sequence" "shared" "snapshot" | |
507 "sort" "statement_id" "statistics" "stop" "storage" "switch" "system" | |
508 "tables" "tablespace" "temporary" "thread" "time" "tracing" | |
509 "transaction" "triggers" "truncate" "under" "unlimited" "until" "use" | |
510 "using" "when" "write") t) "\\b"))) | |
511 (oracle-reserved-words (eval-when-compile | |
512 (concat "\\b" | |
513 (regexp-opt '( | |
514 "access" "add" "alter" "audit" "cluster" "column" "comment" "compress" | |
515 "connect" "drop" "else" "exclusive" "file" "grant" | |
516 "identified" "immediate" "increment" "index" "initial" "intersect" | |
517 "level" "lock" "long" "maxextents" "minus" "mode" "modify" "noaudit" | |
518 "nocompress" "nowait" "number" "offline" "online" "pctfree" "prior" | |
519 "raw" "rename" "resource" "revoke" "row" "rowlabel" "rownum" | |
520 "rows" "session" "share" "size" "start" "successful" "synonym" "sysdate" | |
521 "then" "trigger" "uid" "validate" "whenever") t) "\\b"))) | |
522 (oracle-types (eval-when-compile | |
523 (concat "\\b" | |
524 (regexp-opt '( | |
525 ;; Oracle Keywords that look like types | |
526 ;; Oracle Reserved Words that look like types | |
527 "date" "decimal" "rowid" "varchar" "varchar2") t) "\\b"))) | |
528 (oracle-builtin-functions (eval-when-compile | |
529 (concat "\\b" | |
530 (regexp-opt '( | |
531 ;; Misc Oracle builtin functions | |
532 "abs" "add_months" "ascii" "avg" "ceil" "chartorowid" "chr" "concat" | |
533 "convert" "cos" "cosh" "count" "currval" "decode" "dump" "exp" "floor" | |
534 "glb" "greatest" "greatest_lb" "hextoraw" "initcap" "instr" "instrb" | |
535 "last_day" "least" "least_ub" "length" "lengthb" "ln" "log" "lower" | |
536 "lpad" "ltrim" "lub" "max" "min" "mod" "months_between" "new_time" | |
537 "next_day" "nextval" "nls_initcap" "nls_lower" "nls_upper" "nlssort" | |
538 "nvl" "power" "rawtohex" "replace" "round" "rowidtochar" "rpad" | |
539 "rtrim" "sign" "sin" "sinh" "soundex" "sqlcode" "sqlerrm" "sqrt" | |
540 "stddev" "sum" "substr" "substrb" "tan" "tanh" "to_char" | |
541 "to_date" "to_label" "to_multi_byte" "to_number" "to_single_byte" | |
542 "translate" "trunc" "uid" "upper" "userenv" "variance" "vsize") t) "\\b")))) | |
543 (setq sql-mode-oracle-font-lock-keywords | |
544 (append sql-mode-ansi-font-lock-keywords | |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
545 (list (cons oracle-keywords 'font-lock-function-name-face) |
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
546 (cons oracle-reserved-words 'font-lock-keyword-face) |
24050 | 547 ;; XEmacs doesn't have font-lock-builtin-face |
548 (if (string-match "XEmacs\\|Lucid" emacs-version) | |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
549 (cons oracle-builtin-functions 'font-lock-preprocessor-face) |
24050 | 550 ;; GNU Emacs 19 doesn't have it either |
551 (if (string-match "GNU Emacs 19" emacs-version) | |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
552 (cons oracle-builtin-functions 'font-lock-function-name-face) |
24050 | 553 ;; Emacs |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
554 (cons oracle-builtin-functions 'font-lock-builtin-face))) |
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
555 (cons oracle-types 'font-lock-type-face)))))) |
24050 | 556 |
557 (defvar sql-mode-postgres-font-lock-keywords nil | |
558 "Postgres SQL keywords used by font-lock. | |
559 | |
560 This variable is used by `sql-mode' and `sql-interactive-mode'. The | |
561 regular expressions are created during compilation by calling the | |
562 function `regexp-opt'. Therefore, take a look at the source before | |
563 you define your own sql-mode-postgres-font-lock-keywords.") | |
564 | |
565 (if sql-mode-postgres-font-lock-keywords | |
566 () | |
567 (let ((postgres-reserved-words (eval-when-compile | |
568 (concat "\\b" | |
569 (regexp-opt '( | |
570 "language" | |
571 ) t) "\\b"))) | |
572 (postgres-types (eval-when-compile | |
573 (concat "\\b" | |
574 (regexp-opt '( | |
575 "bool" "box" "circle" "char" "char2" "char4" "char8" "char16" "date" | |
576 "float4" "float8" "int2" "int4" "int8" "line" "lseg" "money" "path" | |
577 "point" "polygon" "serial" "text" "time" "timespan" "timestamp" "varchar" | |
578 ) t)"\\b"))) | |
579 (postgres-builtin-functions (eval-when-compile | |
580 (concat "\\b" | |
581 (regexp-opt '( | |
582 ;; Misc Postgres builtin functions | |
583 "abstime" "age" "area" "box" "center" "date_part" "date_trunc" | |
584 "datetime" "dexp" "diameter" "dpow" "float" "float4" "height" | |
585 "initcap" "integer" "isclosed" "isfinite" "isoldpath" "isopen" | |
586 "length" "lower" "lpad" "ltrim" "pclose" "point" "points" "popen" | |
587 "position" "radius" "reltime" "revertpoly" "rpad" "rtrim" "substr" | |
588 "substring" "text" "timespan" "translate" "trim" "upgradepath" | |
589 "upgradepoly" "upper" "varchar" "width" | |
590 ) t) "\\b")))) | |
591 (setq sql-mode-postgres-font-lock-keywords | |
592 (append sql-mode-ansi-font-lock-keywords | |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
593 (list (cons postgres-reserved-words 'font-lock-keyword-face) |
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
594 ;; XEmacs doesn't have 'font-lock-builtin-face |
24050 | 595 (if (string-match "XEmacs\\|Lucid" emacs-version) |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
596 (cons postgres-builtin-functions 'font-lock-preprocessor-face) |
24050 | 597 ;; Emacs |
24058
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
598 (cons postgres-builtin-functions 'font-lock-builtin-face)) |
85622273d1e8
(sql-mode-ansi-font-lock-keywords): Quote font-lock
Karl Heuer <kwzh@gnu.org>
parents:
24050
diff
changeset
|
599 (cons postgres-types 'font-lock-type-face)))))) |
24050 | 600 |
601 | |
602 (defvar sql-mode-font-lock-keywords sql-mode-ansi-font-lock-keywords | |
603 "SQL keywords used by font-lock. | |
604 | |
605 This variable defaults to `sql-mode-ansi-font-lock-keywords'. This is | |
606 used for the default `font-lock-defaults' value in `sql-mode'. This | |
607 can be changed by some entry functions to provide more hilighting.") | |
608 | |
609 | |
610 | |
611 ;;; Small functions | |
612 | |
613 (defun sql-accumulate-and-indent () | |
614 "Continue SQL statement on the next line." | |
615 (interactive) | |
616 ;; comint-accumulate is a Emacs 20.X thingie | |
617 (if (not (string-match "XEmacs\\|Lucid\\|GNU Emacs 19" emacs-version)) | |
618 (comint-accumulate)) | |
619 (indent-according-to-mode)) | |
620 | |
621 ;;;###autoload | |
622 (defun sql-help () | |
623 "Shows short help for the SQL modes. | |
624 | |
625 Use an entry function to open an interactive SQL buffer. This buffer is | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
626 usually named `*SQL*'. The name of the major mode is SQLi. |
24050 | 627 |
628 Use the following commands to start a specific SQL interpreter: | |
629 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
630 PostGres: \\[sql-postgres] |
24268 | 631 |
632 Other non-free SQL implementations are also supported: | |
633 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
634 MySQL: \\[sql-mysql] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
635 Solid: \\[sql-solid] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
636 Oracle: \\[sql-oracle] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
637 Informix: \\[sql-informix] |
24268 | 638 Sybase: \\[sql-sybase] |
639 Ingres: \\[sql-ingres] | |
640 Microsoft: \\[sql-ms] | |
641 | |
642 But we urge you to choose a free implementation instead of these. | |
24050 | 643 |
644 Once you have the SQLi buffer, you can enter SQL statements in the | |
645 buffer. The output generated is appended to the buffer and a new prompt | |
646 is generated. See the In/Out menu in the SQLi buffer for some functions | |
647 that help you navigate through the buffer, the input history, etc. | |
648 | |
649 Put a line with a call to autoload into your `~/.emacs' file for each | |
650 entry function you want to use regularly: | |
651 | |
652 \(autoload 'sql-postgres \"sql\" \"Interactive SQL mode.\" t) | |
653 | |
654 If you have a really complex SQL statement or if you are writing a | |
655 procedure, you can do this in a separate buffer. Put the new buffer in | |
656 `sql-mode' by calling \\[sql-mode]. The name of this buffer can be | |
657 anything. The name of the major mode is SQL. | |
658 | |
659 In this SQL buffer (SQL mode), you can send the region or the entire | |
660 buffer to the interactive SQL buffer (SQLi mode). The results are | |
661 appended to the SQLi buffer without disturbing your SQL buffer." | |
662 (interactive) | |
663 (describe-function 'sql-help)) | |
664 | |
665 (defun sql-read-passwd (prompt &optional default) | |
666 "Read a password using PROMPT. | |
667 Optional DEFAULT is password to start with. This function calls | |
668 `read-passwd' if it is available. If not, function | |
669 `ange-ftp-read-passwd' is called. This should always be available, | |
670 even in old versions of Emacs." | |
671 (if (fboundp 'read-passwd) | |
672 (read-passwd prompt nil default) | |
673 (unless (fboundp 'ange-ftp-read-passwd) | |
674 (autoload 'ange-ftp-read-passwd "ange-ftp")) | |
675 (ange-ftp-read-passwd prompt default))) | |
676 | |
677 (defun sql-get-login (&rest what) | |
678 "Get username, password and database from the user. | |
679 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
680 The variables `sql-user', `sql-password', `sql-server', and |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
681 `sql-database' can be customised. They are used as the default values. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
682 Usernames, servers and databases are stored in `sql-user-history', |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
683 `sql-server-history' and `database-history'. Passwords are not stored |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
684 in a history. |
24050 | 685 |
686 Parameter WHAT is a list of the arguments passed to this function. | |
687 The function asks for the username if WHAT contains symbol `user', for | |
688 the password if it contains symbol `password', for the server if it | |
689 contains symbol `server', and for the database if it contains symbol | |
690 `database'. | |
691 | |
692 In order to ask the user for username, password and database, call the | |
693 function like this: (sql-get-login 'user 'password 'database)." | |
694 (interactive) | |
695 (if (memq 'user what) | |
696 (setq sql-user | |
697 (read-from-minibuffer "User: " sql-user nil nil | |
698 sql-user-history))) | |
699 (if (memq 'password what) | |
700 (setq sql-password | |
701 (sql-read-passwd "Password: " sql-password))) | |
702 (if (memq 'server what) | |
703 (setq sql-server | |
704 (read-from-minibuffer "Server: " sql-server nil nil | |
705 sql-server-history))) | |
706 (if (memq 'database what) | |
707 (setq sql-database | |
708 (read-from-minibuffer "Database: " sql-database nil nil | |
709 sql-database-history)))) | |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
710 (defun sql-set-sqli-buffer () |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
711 "Set the SQLi buffer SQL strings are sent to. |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
712 |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
713 Call this function in a SQL buffer in order to set the SQLi buffer SQL |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
714 strings are sent to. Calling this function sets `sql-buffer' and runs |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
715 `sql-set-sqli-hook'. |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
716 |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
717 If you call it from a SQL buffer, this sets the local copy of |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
718 `sql-buffer'. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
719 |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
720 If you call it from anywhere else, it sets the global copy of |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
721 `sql-buffer'." |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
722 (interactive) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
723 (let ((new-buffer (get-buffer (read-buffer "New SQLi buffer: " nil t)))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
724 (if new-buffer |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
725 (progn |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
726 (setq sql-buffer new-buffer) |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
727 (run-hooks 'sql-set-sqli-hook))))) |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
728 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
729 (defun sql-show-sqli-buffer () |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
730 "Show the name of current SQLi buffer. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
731 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
732 This is the buffer SQL strings are sent to. It is stored in the |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
733 variable `sql-buffer'. See `sql-help' on how to create such a buffer." |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
734 (interactive) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
735 (if (null (buffer-live-p sql-buffer)) |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
736 (message "%s has no SQLi buffer set." (buffer-name (current-buffer))) |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
737 (if (null (get-buffer-process sql-buffer)) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
738 (message "Buffer %s has no process." (buffer-name sql-buffer)) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
739 (message "Current SQLi buffer is %s." (buffer-name sql-buffer))))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
740 |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
741 (defun sql-make-alternate-buffer-name () |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
742 "Return a string that can be used to rename a SQLi buffer. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
743 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
744 This is used to set `sql-alternate-buffer-name' within |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
745 `sql-interactive-mode'." |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
746 (concat (if (string= "" sql-user) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
747 (if (string= "" user-login-name) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
748 () |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
749 (concat user-login-name "/")) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
750 (concat sql-user "/")) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
751 (if (string= "" sql-database) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
752 (if (string= "" sql-server) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
753 system-name |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
754 sql-server) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
755 sql-database))) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
756 |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
757 (defun sql-rename-buffer () |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
758 "Renames a SQLi buffer." |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
759 (interactive) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
760 (rename-buffer (format "*SQL: %s*" sql-alternate-buffer-name) t)) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
761 |
24050 | 762 (defun sql-copy-column () |
763 "Copy current column to the end of buffer. | |
764 Inserts SELECT or commas if appropriate." | |
765 (interactive) | |
766 (let ((column)) | |
767 (save-excursion | |
768 (setq column (buffer-substring | |
769 (progn (forward-char 1) (backward-sexp 1) (point)) | |
770 (progn (forward-sexp 1) (point)))) | |
771 (goto-char (point-max)) | |
772 (cond | |
773 ;; if empty command line, insert SELECT | |
774 ((save-excursion (beginning-of-line) | |
775 (looking-at (concat comint-prompt-regexp "$"))) | |
776 (insert "SELECT ")) | |
777 ;; else if appending to SELECT or ORDER BY, insert a comma | |
778 ((save-excursion | |
779 (re-search-backward "\\b\\(select\\|order by\\) .+" | |
780 (save-excursion (beginning-of-line) (point)) t)) | |
781 (insert ", ")) | |
782 ;; else insert a space | |
783 (t | |
784 (if (eq (preceding-char) ? ) | |
785 nil | |
786 (insert " ")))) | |
787 ;; in any case, insert the column | |
788 (insert column) | |
789 (message "%s" column)))) | |
790 | |
791 | |
792 | |
793 ;;; Sending the region to the SQLi buffer. | |
794 | |
795 (defun sql-send-region (start end) | |
796 "Send a region to the SQL process." | |
797 (interactive "r") | |
798 (if (buffer-live-p sql-buffer) | |
799 (save-excursion | |
800 (comint-send-region sql-buffer start end) | |
801 (if (string-match "\n$" (buffer-substring start end)) | |
802 () | |
803 (comint-send-string sql-buffer "\n")) | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
804 (message "Sent string to buffer %s." (buffer-name sql-buffer)) |
24050 | 805 (if sql-pop-to-buffer-after-send-region |
806 (pop-to-buffer sql-buffer) | |
807 (display-buffer sql-buffer))) | |
808 (message "No SQL process started."))) | |
809 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
810 (defun sql-send-paragraph () |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
811 "Send the current paragraph to the SQL process." |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
812 (interactive) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
813 (let ((start (save-excursion |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
814 (backward-paragraph) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
815 (point))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
816 (end (save-excursion |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
817 (forward-paragraph) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
818 (point)))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
819 (sql-send-region start end))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
820 |
24050 | 821 (defun sql-send-buffer () |
822 "Send the buffer contents to the SQL process." | |
823 (interactive) | |
824 (sql-send-region (point-min) (point-max))) | |
825 | |
826 (defun sql-toggle-pop-to-buffer-after-send-region (&optional value) | |
827 "Toggle `sql-pop-to-buffer-after-send-region'. | |
828 | |
829 If given the optional parameter VALUE, sets | |
830 sql-toggle-pop-to-buffer-after-send-region to VALUE." | |
831 (interactive "P") | |
832 (if value | |
833 (setq sql-pop-to-buffer-after-send-region value) | |
834 (setq sql-pop-to-buffer-after-send-region | |
835 (null sql-pop-to-buffer-after-send-region )))) | |
836 | |
837 | |
838 | |
839 ;;; SQL mode -- uses SQL interactive mode | |
840 | |
841 ;;;###autoload | |
842 (defun sql-mode () | |
843 "Major mode to edit SQL. | |
844 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
845 You can send SQL statements to the SQLi buffer using |
24050 | 846 \\[sql-send-region]. Such a buffer must exist before you can do this. |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
847 See `sql-help' on how to create SQLi buffers. |
24050 | 848 |
849 \\{sql-mode-map} | |
850 Customization: Entry to this mode runs the `sql-mode-hook'. | |
851 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
852 When you put a buffer in SQL mode, the buffer stores the last SQLi |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
853 buffer created as its destination in the variable `sql-buffer'. This |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
854 will be the buffer \\[sql-send-region] sends the region to. If this |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
855 SQLi buffer is killed, \\[sql-send-region] is no longer able to |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
856 determine where the strings should be sent to. You can set the |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
857 value of `sql-buffer' using \\[sql-set-sqli-buffer]. |
24050 | 858 |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
859 For information on how to create multiple SQLi buffers, see |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
860 `sql-interactive-mode'." |
24050 | 861 (interactive) |
862 (kill-all-local-variables) | |
863 (setq major-mode 'sql-mode) | |
864 (setq mode-name "SQL") | |
865 (use-local-map sql-mode-map) | |
866 (set-syntax-table sql-mode-syntax-table) | |
867 (make-local-variable 'font-lock-defaults) | |
868 (setq font-lock-defaults '(sql-mode-font-lock-keywords | |
869 nil t ((95 . "w") (46 . "w")))) | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
870 (make-local-variable 'comment-start) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
871 (setq comment-start "--") |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
872 ;; Make each buffer in sql-mode remeber the "current" SQLi buffer. |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
873 (make-local-variable 'sql-buffer) |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
874 ;; Make `sql-send-paragraph' work on paragraphs that contain indented |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
875 ;; lines. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
876 (make-local-variable 'paragraph-separate) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
877 (make-local-variable 'paragraph-start) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
878 (setq paragraph-separate "[\f]*$" |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
879 paragraph-start "[\n\f]") |
24050 | 880 (setq local-abbrev-table sql-mode-abbrev-table) |
881 (setq abbrev-all-caps 1) | |
882 (run-hooks 'sql-mode-hook)) | |
883 | |
884 | |
885 | |
886 ;;; SQL interactive mode | |
887 | |
888 (put 'sql-interactive-mode 'mode-class 'special) | |
889 | |
890 (defun sql-interactive-mode () | |
891 "Major mode to use a SQL interpreter interactively. | |
892 | |
893 Do not call this function by yourself. The environment must be | |
894 initialized by an entry function specific for the SQL interpreter. See | |
895 `sql-help' for a list of available entry functions. | |
896 | |
897 \\[comint-send-input] after the end of the process' output sends the | |
898 text from the end of process to the end of the current line. | |
899 \\[comint-send-input] before end of process output copies the current | |
900 line minus the prompt to the end of the buffer and sends it. | |
901 \\[comint-copy-old-input] just copies the current line. | |
902 Use \\[sql-accumulate-and-indent] to enter multi-line statements. | |
903 | |
904 If you want to make multiple SQL buffers, rename the `*SQL*' buffer | |
905 using \\[rename-buffer] or \\[rename-uniquely] and start a new process. | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
906 See `sql-help' for a list of available entry functions. The last buffer |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
907 created by such an entry function is the current SQLi buffer. SQL |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
908 buffers will send strings to the SQLi buffer current at the time of |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
909 their creation. See `sql-mode' for details. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
910 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
911 Sample session using two connections: |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
912 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
913 1. Create first SQLi buffer by calling an entry function. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
914 2. Rename buffer \"*SQL*\" to \"*Connection 1*\". |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
915 3. Create a SQL buffer \"test1.sql\". |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
916 4. Create second SQLi buffer by calling an entry function. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
917 5. Rename buffer \"*SQL*\" to \"*Connection 2*\". |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
918 6. Create a SQL buffer \"test2.sql\". |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
919 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
920 Now \\[sql-send-region] in buffer \"test1.sql\" will send the region to |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
921 buffer \"*Connection 1*\", \\[sql-send-region] in buffer \"test2.sql\" |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
922 will send the region to buffer \"*Connection 2*\". |
24050 | 923 |
924 If you accidentally suspend your process, use \\[comint-continue-subjob] | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
925 to continue it. On some operating systems, this will not work because |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
926 the signals are not supported. |
24050 | 927 |
928 \\{sql-interactive-mode-map} | |
929 Customization: Entry to this mode runs the hooks on `comint-mode-hook' | |
930 and `sql-interactive-mode-hook' (in that order). Before each input, the | |
931 hooks on `comint-input-filter-functions' are run. After each SQL | |
932 interpreter output, the hooks on `comint-output-filter-functions' are | |
933 run. | |
934 | |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
935 Variable `sql-input-ring-file-name' controls the initialisation of the |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
936 input ring history. `comint-input-ring-file-name' is temporarily bound |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
937 to `sql-input-ring-file-name' when reading the input history. |
24050 | 938 |
939 Variables `comint-output-filter-functions', a hook, and | |
940 `comint-scroll-to-bottom-on-input' and | |
941 `comint-scroll-to-bottom-on-output' control whether input and output | |
942 cause the window to scroll to the end of the buffer. | |
943 | |
944 If you want to make SQL buffers limited in length, add the function | |
945 `comint-truncate-buffer' to `comint-output-filter-functions'. | |
946 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
947 Here is an example for your .emacs file. It keeps the SQLi buffer a |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
948 certain length. |
24050 | 949 |
950 \(add-hook 'sql-interactive-mode-hook | |
951 \(function (lambda () | |
952 \(setq comint-output-filter-functions 'comint-truncate-buffer)))) | |
953 | |
954 Here is another example. It will always put point back to the statement | |
955 you entered, right above the output it created. | |
956 | |
957 \(setq comint-output-filter-functions | |
958 \(function (lambda (STR) (comint-show-output))))" | |
959 (comint-mode) | |
960 (setq comint-prompt-regexp sql-prompt-regexp) | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
961 (setq left-margin sql-prompt-length) |
24050 | 962 (setq major-mode 'sql-interactive-mode) |
963 (setq mode-name "SQLi") | |
964 (use-local-map sql-interactive-mode-map) | |
965 (set-syntax-table sql-mode-syntax-table) | |
966 (make-local-variable 'font-lock-defaults) | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
967 ;; Note that making KEYWORDS-ONLY nil will cause havoc if you try |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
968 ;; SELECT 'x' FROM DUAL with SQL*Plus, because the title of the |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
969 ;; column will have just one quote. Therefore syntactic hilighting |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
970 ;; is disabled for interactive buffers. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
971 (setq font-lock-defaults '(sql-mode-font-lock-keywords |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
972 t t ((95 . "w") (46 . "w")))) |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
973 ;; Enable commenting and uncommenting of the region. |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
974 (make-local-variable 'comment-start) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
975 (setq comment-start "--") |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
976 ;; Abbreviation table init and case-insensitive. It is not activatet |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
977 ;; by default. |
24050 | 978 (setq local-abbrev-table sql-mode-abbrev-table) |
979 (setq abbrev-all-caps 1) | |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
980 ;; Exiting the process will call sql-stop. |
24050 | 981 (set-process-sentinel (get-buffer-process sql-buffer) 'sql-stop) |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
982 ;; Make input-ring stuff buffer local so that people who want a |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
983 ;; different history file for each buffer/process/client/whatever can |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
984 ;; change separator and file-name on the sql-interactive-mode-hook. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
985 (make-local-variable 'sql-input-ring-separator) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
986 (make-local-variable 'sql-input-ring-file-name) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
987 ;; Create a usefull name for renaming this buffer later. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
988 (make-local-variable 'sql-alternate-buffer-name) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
989 (setq sql-alternate-buffer-name (sql-make-alternate-buffer-name)) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
990 ;; User stuff. |
24050 | 991 (run-hooks 'sql-interactive-mode-hook) |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
992 ;; Calling the hook before calling comint-read-input-ring allows users |
24050 | 993 ;; to set comint-input-ring-file-name in sql-interactive-mode-hook. |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
994 ;; While reading the history, file-name and history are rebound... |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
995 (let ((comint-input-ring-file-name sql-input-ring-file-name) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
996 (comint-input-ring-separator sql-input-ring-separator)) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
997 (comint-read-input-ring t))) |
24050 | 998 |
999 (defun sql-stop (process event) | |
1000 "Called when the SQL process is stopped. | |
1001 | |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1002 Writes the input history to a history file using |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1003 `comint-write-input-ring' and inserts a short message in the SQL buffer. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1004 `comint-comint-input-ring-file-name' is temporarily bound to |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1005 `sql-input-ring-file-name'. |
24050 | 1006 |
1007 This function is a sentinel watching the SQL interpreter process. | |
1008 Sentinels will always get the two parameters PROCESS and EVENT." | |
24353
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1009 ;; Write history. |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1010 ;; While reading the history, file-name and history are rebound... |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1011 (let ((comint-input-ring-file-name sql-input-ring-file-name) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1012 (comint-input-ring-separator sql-input-ring-separator)) |
1ae2a12a85ee
(sql-set-sqli-hook): A hook run when sql-buffer is
Richard M. Stallman <rms@gnu.org>
parents:
24310
diff
changeset
|
1013 (comint-write-input-ring)) |
24050 | 1014 (if (buffer-live-p sql-buffer) |
1015 (insert (format "\nProcess %s %s\n" process event)))) | |
1016 | |
1017 | |
1018 | |
1019 ;;; Entry functions for different SQL interpreters. | |
1020 | |
1021 (defun sql-oracle () | |
1022 "Run sqlplus by Oracle as an inferior process. | |
1023 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1024 If buffer `*SQL*' exists but no process is running, make a new process. |
24050 | 1025 If buffer exists and a process is running, just switch to buffer |
1026 `*SQL*'. | |
1027 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1028 Interpreter used comes from variable `sql-oracle-program'. Login uses |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1029 the variables `sql-user', `sql-password', and `sql-database' as |
24050 | 1030 defaults, if set. |
1031 | |
1032 The buffer is put in sql-interactive-mode, giving commands for sending | |
1033 input. See `sql-interactive-mode'. | |
1034 | |
1035 To specify a coding system for converting non-ASCII characters | |
1036 in the input and output to the process, use \\[universal-coding-system-argument] | |
1037 before \\[sql-oracle]. You can also specify this with \\[set-buffer-process-coding-system] | |
1038 in the SQL buffer, after you start the process. | |
1039 The default comes from `process-coding-system-alist' and | |
1040 `default-process-coding-system'. | |
1041 | |
1042 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" | |
1043 (interactive) | |
1044 (if (comint-check-proc "*SQL*") | |
1045 (pop-to-buffer "*SQL*") | |
1046 (sql-get-login 'user 'password 'database) | |
1047 (message "Login...") | |
1048 ;; Produce user/password@database construct. Password without user | |
1049 ;; is meaningless; database without user/password is meaningless, | |
1050 ;; because "@param" will ask sqlplus to interpret the script | |
1051 ;; "param". | |
1052 (let ((parameter nil)) | |
1053 (if (not (string= "" sql-user)) | |
1054 (if (not (string= "" sql-password)) | |
1055 (setq parameter (concat sql-user "/" sql-password)) | |
1056 (setq parameter sql-user))) | |
1057 (if (and parameter (not (string= "" sql-database))) | |
1058 (setq parameter (concat parameter "@" sql-database))) | |
1059 (if parameter | |
1060 (set-buffer (make-comint "SQL" sql-oracle-program nil parameter)) | |
1061 (set-buffer (make-comint "SQL" sql-oracle-program nil)))) | |
1062 (setq sql-prompt-regexp "^SQL> ") | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1063 (setq sql-prompt-length 5) |
24050 | 1064 (setq sql-buffer (current-buffer)) |
1065 ;; set sql-mode-font-lock-keywords to something different before | |
1066 ;; calling sql-interactive-mode. | |
1067 (setq sql-mode-font-lock-keywords sql-mode-oracle-font-lock-keywords) | |
1068 (sql-interactive-mode) | |
1069 (message "Login...done") | |
1070 (pop-to-buffer sql-buffer))) | |
1071 | |
1072 | |
1073 | |
1074 (defun sql-sybase () | |
1075 "Run isql by SyBase as an inferior process. | |
1076 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1077 If buffer `*SQL*' exists but no process is running, make a new process. |
24050 | 1078 If buffer exists and a process is running, just switch to buffer |
1079 `*SQL*'. | |
1080 | |
1081 Interpreter used comes from variable `sql-sybase-program'. Login uses | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1082 the variables `sql-user', `sql-password', and `sql-database' as |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1083 defaults, if set. |
24050 | 1084 |
1085 The buffer is put in sql-interactive-mode, giving commands for sending | |
1086 input. See `sql-interactive-mode'. | |
1087 | |
1088 To specify a coding system for converting non-ASCII characters | |
1089 in the input and output to the process, use \\[universal-coding-system-argument] | |
1090 before \\[sql-sybase]. You can also specify this with \\[set-buffer-process-coding-system] | |
1091 in the SQL buffer, after you start the process. | |
1092 The default comes from `process-coding-system-alist' and | |
1093 `default-process-coding-system'. | |
1094 | |
1095 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" | |
1096 (interactive) | |
1097 (if (comint-check-proc "*SQL*") | |
1098 (pop-to-buffer "*SQL*") | |
1099 (sql-get-login 'user 'password 'database) | |
1100 (message "Login...") | |
1101 ;; Put all parameters to the program (if defined) in a list and call | |
1102 ;; make-comint. | |
1103 (let ((params '("-w" "2048" "-n"))) | |
1104 ;; I had a zillion versions of this using nconc and mapcar, | |
1105 ;; mixtures of eval, list and quotes -- you have been warned. | |
1106 (if (not (string= "" sql-database)) | |
1107 (setq params (append (list "-S" sql-database) params))) | |
1108 (if (not (string= "" sql-password)) | |
1109 (setq params (append (list "-P" sql-password) params))) | |
1110 (if (not (string= "" sql-user)) | |
1111 (setq params (append (list "-U" sql-user) params))) | |
1112 (set-buffer (apply 'make-comint "SQL" sql-sybase-program | |
1113 nil params))) | |
1114 (setq sql-prompt-regexp "^SQL> ") | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1115 (setq sql-prompt-length 5) |
24050 | 1116 (setq sql-buffer (current-buffer)) |
1117 (sql-interactive-mode) | |
1118 (message "Login...done") | |
1119 (pop-to-buffer sql-buffer))) | |
1120 | |
1121 | |
1122 | |
1123 (defun sql-informix () | |
1124 "Run dbaccess by Informix as an inferior process. | |
1125 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1126 If buffer `*SQL*' exists but no process is running, make a new process. |
24050 | 1127 If buffer exists and a process is running, just switch to buffer |
1128 `*SQL*'. | |
1129 | |
1130 Interpreter used comes from variable `sql-informix-program'. Login uses | |
1131 the variable `sql-database' as default, if set. | |
1132 | |
1133 The buffer is put in sql-interactive-mode, giving commands for sending | |
1134 input. See `sql-interactive-mode'. | |
1135 | |
1136 To specify a coding system for converting non-ASCII characters | |
1137 in the input and output to the process, use \\[universal-coding-system-argument] | |
1138 before \\[sql-informix]. You can also specify this with \\[set-buffer-process-coding-system] | |
1139 in the SQL buffer, after you start the process. | |
1140 The default comes from `process-coding-system-alist' and | |
1141 `default-process-coding-system'. | |
1142 | |
1143 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" | |
1144 (interactive) | |
1145 (if (comint-check-proc "*SQL*") | |
1146 (pop-to-buffer "*SQL*") | |
1147 (sql-get-login 'database) | |
1148 (message "Login...") | |
1149 ;; username and password are ignored. | |
1150 (if (string= "" sql-database) | |
1151 (set-buffer (make-comint "SQL" sql-informix-program nil)) | |
1152 (set-buffer (make-comint "SQL" sql-informix-program nil sql-database))) | |
1153 (setq sql-prompt-regexp "^SQL> ") | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1154 (setq sql-prompt-length 5) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1155 (setq sql-buffer (current-buffer)) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1156 (sql-interactive-mode) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1157 (message "Login...done") |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1158 (pop-to-buffer sql-buffer))) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1159 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1160 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1161 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1162 (defun sql-mysql () |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1163 "Run mysql by TcX as an inferior process. |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1164 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1165 Note that the widespread idea that mysql is free software is inaccurate; |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1166 its license is too restrictive. We urge you to use PostGres instead. |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1167 |
24268 | 1168 If buffer `*SQL*' exists but no process is running, make a new process. |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1169 If buffer exists and a process is running, just switch to buffer |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1170 `*SQL*'. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1171 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1172 Interpreter used comes from variable `sql-mysql-program'. Login uses |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1173 the variables `sql-user', `sql-password', `sql-database', and |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1174 `sql-server' as defaults, if set. |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1175 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1176 The buffer is put in sql-interactive-mode, giving commands for sending |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1177 input. See `sql-interactive-mode'. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1178 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1179 To specify a coding system for converting non-ASCII characters |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1180 in the input and output to the process, use \\[universal-coding-system-argument] |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1181 before \\[sql-mysql]. You can also specify this with \\[set-buffer-process-coding-system] |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1182 in the SQL buffer, after you start the process. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1183 The default comes from `process-coding-system-alist' and |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1184 `default-process-coding-system'. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1185 |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1186 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1187 (interactive) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1188 (if (comint-check-proc "*SQL*") |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1189 (pop-to-buffer "*SQL*") |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1190 (sql-get-login 'user 'password 'database 'server) |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1191 (message "Login...") |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1192 ;; Put all parameters to the program (if defined) in a list and call |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1193 ;; make-comint. |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1194 (let ((params)) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1195 (if (not (string= "" sql-database)) |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1196 (setq params (append (list sql-database) params))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1197 (if (not (string= "" sql-server)) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1198 (setq params (append (list (concat "--host=" sql-server)) params))) |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1199 (if (not (string= "" sql-password)) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1200 (setq params (append (list (concat "--password=" sql-password)) params))) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1201 (if (not (string= "" sql-user)) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1202 (setq params (append (list (concat "--user=" sql-user)) params))) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1203 (set-buffer (apply 'make-comint "SQL" sql-mysql-program |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1204 nil params))) |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1205 (setq sql-prompt-regexp "^mysql>") |
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1206 (setq sql-prompt-length 6) |
24050 | 1207 (setq sql-buffer (current-buffer)) |
1208 (sql-interactive-mode) | |
1209 (message "Login...done") | |
1210 (pop-to-buffer sql-buffer))) | |
1211 | |
1212 | |
1213 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1214 (defun sql-solid () |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1215 "Run solsql by Solid as an inferior process. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1216 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1217 If buffer `*SQL*' exists but no process is running, make a new process. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1218 If buffer exists and a process is running, just switch to buffer |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1219 `*SQL*'. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1220 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1221 Interpreter used comes from variable `sql-solid-program'. Login uses |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1222 the variables `sql-user', `sql-password', and `sql-server' as |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1223 defaults, if set. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1224 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1225 The buffer is put in sql-interactive-mode, giving commands for sending |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1226 input. See `sql-interactive-mode'. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1227 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1228 To specify a coding system for converting non-ASCII characters |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1229 in the input and output to the process, use \\[universal-coding-system-argument] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1230 before \\[sql-solid]. You can also specify this with \\[set-buffer-process-coding-system] |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1231 in the SQL buffer, after you start the process. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1232 The default comes from `process-coding-system-alist' and |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1233 `default-process-coding-system'. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1234 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1235 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1236 (interactive) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1237 (if (comint-check-proc "*SQL*") |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1238 (pop-to-buffer "*SQL*") |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1239 (sql-get-login 'user 'password 'server) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1240 (message "Login...") |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1241 ;; Put all parameters to the program (if defined) in a list and call |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1242 ;; make-comint. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1243 (let ((params)) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1244 ;; It only makes sense if both username and password are there. |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1245 (if (not (or (string= "" sql-user) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1246 (string= "" sql-password))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1247 (setq params (append (list sql-user sql-password) params))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1248 (if (not (string= "" sql-server)) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1249 (setq params (append (list sql-server) params))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1250 (set-buffer (apply 'make-comint "SQL" sql-solid-program |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1251 nil params))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1252 (setq sql-prompt-regexp "^") |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1253 (setq sql-prompt-length 0) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1254 (setq sql-buffer (current-buffer)) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1255 (sql-interactive-mode) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1256 (message "Login...done") |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1257 (pop-to-buffer sql-buffer))) |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1258 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1259 |
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1260 |
24050 | 1261 (defun sql-ingres () |
1262 "Run sql by Ingres as an inferior process. | |
1263 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1264 If buffer `*SQL*' exists but no process is running, make a new process. |
24050 | 1265 If buffer exists and a process is running, just switch to buffer |
1266 `*SQL*'. | |
1267 | |
1268 Interpreter used comes from variable `sql-ingres-program'. Login uses | |
1269 the variable `sql-database' as default, if set. | |
1270 | |
1271 The buffer is put in sql-interactive-mode, giving commands for sending | |
1272 input. See `sql-interactive-mode'. | |
1273 | |
1274 To specify a coding system for converting non-ASCII characters | |
1275 in the input and output to the process, use \\[universal-coding-system-argument] | |
1276 before \\[sql-ingres]. You can also specify this with \\[set-buffer-process-coding-system] | |
1277 in the SQL buffer, after you start the process. | |
1278 The default comes from `process-coding-system-alist' and | |
1279 `default-process-coding-system'. | |
1280 | |
1281 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" | |
1282 (interactive) | |
1283 (if (comint-check-proc "*SQL*") | |
1284 (pop-to-buffer "*SQL*") | |
1285 (sql-get-login 'database) | |
1286 (message "Login...") | |
1287 ;; username and password are ignored. | |
1288 (if (string= "" sql-database) | |
1289 (set-buffer (make-comint "SQL" sql-ingres-program nil)) | |
1290 (set-buffer (make-comint "SQL" sql-ingres-program nil sql-database))) | |
1291 (setq sql-prompt-regexp "^\* ") | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1292 (setq sql-prompt-length 2) |
24050 | 1293 (setq sql-buffer (current-buffer)) |
1294 (sql-interactive-mode) | |
1295 (message "Login...done") | |
1296 (pop-to-buffer sql-buffer))) | |
1297 | |
1298 | |
1299 | |
1300 (defun sql-ms () | |
1301 "Run isql by Microsoft as an inferior process. | |
1302 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1303 If buffer `*SQL*' exists but no process is running, make a new process. |
24050 | 1304 If buffer exists and a process is running, just switch to buffer |
1305 `*SQL*'. | |
1306 | |
1307 Interpreter used comes from variable `sql-ms-program'. Login uses the | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1308 variables `sql-user', `sql-password', `sql-database', and `sql-server' |
24050 | 1309 as defaults, if set. |
1310 | |
1311 The buffer is put in sql-interactive-mode, giving commands for sending | |
1312 input. See `sql-interactive-mode'. | |
1313 | |
1314 To specify a coding system for converting non-ASCII characters | |
1315 in the input and output to the process, use \\[universal-coding-system-argument] | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1316 before \\[sql-ms]. You can also specify this with \\[set-buffer-process-coding-system] |
24050 | 1317 in the SQL buffer, after you start the process. |
1318 The default comes from `process-coding-system-alist' and | |
1319 `default-process-coding-system'. | |
1320 | |
1321 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" | |
1322 (interactive) | |
1323 (if (comint-check-proc "*SQL*") | |
1324 (pop-to-buffer "*SQL*") | |
1325 (sql-get-login 'user 'password 'database 'server) | |
1326 (message "Login...") | |
1327 ;; Put all parameters to the program (if defined) in a list and call | |
1328 ;; make-comint. | |
1329 (let ((params '("-w 300"))) | |
1330 (if (not (string= "" sql-server)) | |
1331 (setq params (append (list "-S" sql-server) params))) | |
1332 (if (not (string= "" sql-database)) | |
1333 (setq params (append (list "-d" sql-database) params))) | |
1334 (if (not (string= "" sql-user)) | |
1335 (setq params (append (list "-U" sql-user) params))) | |
1336 (if (not (string= "" sql-password)) | |
1337 (setq params (append (list "-P" sql-password) params)) | |
1338 ;; If -P is passed to ISQL as the last argument without a password, | |
1339 ;; it's considered null. | |
1340 (setq params (append params (list "-P")))) | |
1341 (set-buffer (apply 'make-comint "SQL" sql-ms-program | |
1342 nil params))) | |
1343 (setq sql-prompt-regexp "^[0-9]*>") | |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1344 (setq sql-prompt-length 5) |
24050 | 1345 (setq sql-buffer (current-buffer)) |
1346 (sql-interactive-mode) | |
1347 (message "Login...done") | |
1348 (pop-to-buffer sql-buffer))) | |
1349 | |
1350 | |
1351 | |
1352 | |
1353 ;;;###autoload | |
1354 (defun sql-postgres () | |
1355 "Run psql by Postgres as an inferior process. | |
1356 | |
24310
e76bade08723
Added keywords from `finder-by-keyword'.
Richard M. Stallman <rms@gnu.org>
parents:
24268
diff
changeset
|
1357 If buffer `*SQL*' exists but no process is running, make a new process. |
24050 | 1358 If buffer exists and a process is running, just switch to buffer |
1359 `*SQL*'. | |
1360 | |
1361 Interpreter used comes from variable `sql-postgres-program'. Login uses | |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1362 the variables `sql-database' and `sql-server' as default, if set. |
24050 | 1363 |
1364 The buffer is put in sql-interactive-mode, giving commands for sending | |
1365 input. See `sql-interactive-mode'. | |
1366 | |
1367 To specify a coding system for converting non-ASCII characters | |
1368 in the input and output to the process, use \\[universal-coding-system-argument] | |
1369 before \\[sql-postgres]. You can also specify this with \\[set-buffer-process-coding-system] | |
1370 in the SQL buffer, after you start the process. | |
1371 The default comes from `process-coding-system-alist' and | |
1372 `default-process-coding-system'. If your output lines end with ^M, | |
1373 your might try undecided-dos as a coding system. If this doesn't help, | |
1374 Try to set `comint-output-filter-functions' like this: | |
1375 | |
1376 \(setq comint-output-filter-functions (append comint-output-filter-functions | |
1377 '(comint-strip-ctrl-m))) | |
1378 | |
1379 \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" | |
1380 (interactive) | |
1381 (if (comint-check-proc "*SQL*") | |
1382 (pop-to-buffer "*SQL*") | |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1383 (sql-get-login 'database 'server) |
24050 | 1384 (message "Login...") |
1385 ;; username and password are ignored. | |
24354
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1386 (let ((params)) |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1387 (if (not (string= "" sql-database)) |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1388 (setq params (append (list sql-database) params))) |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1389 (if (not (string= "" sql-server)) |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1390 (setq params (append (list "-h" sql-server) params))) |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1391 (set-buffer (apply 'make-comint "SQL" sql-postgres-program |
6a438ef0b573
Set version to 1.4.1. Changed mail address to
Richard M. Stallman <rms@gnu.org>
parents:
24353
diff
changeset
|
1392 nil params))) |
24050 | 1393 (setq sql-prompt-regexp "^.*> *") |
24267
f40837b25999
Changed version to 1.2.1.
Richard M. Stallman <rms@gnu.org>
parents:
24058
diff
changeset
|
1394 (setq sql-prompt-length 5) |
24050 | 1395 ;; This is a lousy hack to prevent psql from truncating it's output |
1396 ;; and giving stupid warnings. If s.o. knows a way to prevent psql | |
1397 ;; from acting this way, then I would be very thankful to | |
1398 ;; incorporate this (Gregor Zych <zych@pool.informatik.rwth-aachen.de>) | |
1399 (comint-send-string "*SQL*" "\\o \| cat\n") | |
1400 (setq sql-mode-font-lock-keywords sql-mode-postgres-font-lock-keywords) | |
1401 (setq sql-buffer (current-buffer)) | |
1402 (sql-interactive-mode) | |
1403 (message "Login...done") | |
1404 (pop-to-buffer sql-buffer))) | |
1405 | |
1406 (provide 'sql) | |
1407 | |
1408 ;;; sql.el ends here |