|
0
|
1 ;;; -*- Mode: Emacs-Lisp -*-
|
|
|
2
|
|
|
3 ;;; ilisp-def.el --
|
|
|
4
|
|
|
5 ;;; This file is part of ILISP.
|
|
|
6 ;;; Version: 5.7
|
|
|
7 ;;;
|
|
|
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
|
|
|
9 ;;; 1993, 1994 Ivan Vasquez
|
|
|
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker
|
|
|
11 ;;;
|
|
|
12 ;;; Other authors' names for which this Copyright notice also holds
|
|
|
13 ;;; may appear later in this file.
|
|
|
14 ;;;
|
|
|
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
|
|
|
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
|
|
|
17 ;;; mailing list were bugs and improvements are discussed.
|
|
|
18 ;;;
|
|
|
19 ;;; ILISP is freely redistributable under the terms found in the file
|
|
|
20 ;;; COPYING.
|
|
|
21
|
|
|
22
|
|
|
23
|
|
|
24 ;;;
|
|
|
25 ;;; ILISP defvar's
|
|
|
26 ;;;
|
|
|
27
|
|
|
28 ;;;%Variables
|
|
|
29 ;;;%%Deflocal
|
|
|
30 (defvar ilisp-locals '(comint-prompt-regexp
|
|
|
31 input-ring-size
|
|
|
32 comint-get-old-input
|
|
|
33 comint-input-sentinel
|
|
|
34 comint-input-filter
|
|
|
35 comint-input-sender
|
|
|
36 comint-eol-on-send
|
|
|
37 comint-send-newline
|
|
|
38 comint-always-scroll
|
|
|
39 comint-fix-error
|
|
|
40 comint-continue
|
|
|
41 comint-interrupt-regexp
|
|
|
42 comint-error-regexp
|
|
|
43 comint-output-filter
|
|
|
44 comint-interrupt-start
|
|
|
45 comint-handler
|
|
|
46 comint-update-status
|
|
|
47 comint-prompt-status
|
|
|
48 comint-abort-hook)
|
|
|
49 "List of ilisp local variables.")
|
|
|
50 (defun lisp-deflocal (local)
|
|
|
51 (if (not (memq local ilisp-locals))
|
|
|
52 (setq ilisp-locals (cons local ilisp-locals))))
|
|
|
53
|
|
|
54
|
|
|
55 ;;;
|
|
|
56 (defmacro deflocal (variable default &optional documentation)
|
|
|
57 "Define an ilisp local variable."
|
|
|
58 (` (progn (lisp-deflocal '(, variable))
|
|
|
59 (defvar (, variable) (, default) (, documentation)))))
|
|
|
60
|
|
|
61 ;;;%%Simple customization
|
|
|
62 (defvar ilisp-prefix "\C-z" "Prefix sequence for ilisp commands.")
|
|
|
63
|
|
|
64 (deflocal ilisp-program nil
|
|
|
65 "*Program and arguments for invoking an inferior LISP. The program
|
|
|
66 can be an rsh to run on a remote machine. If there is not a common
|
|
|
67 file system, the interface files will be sent down the pipe instead.
|
|
|
68 The value of this variable is set from DIALECT-program, or inherited
|
|
|
69 from a less specific dialect if DIALECT-program is nil.")
|
|
|
70
|
|
|
71 (defvar ilisp-motd
|
|
|
72 "ILISP V%s Use M-x ilisp-bug for problems and suggestions."
|
|
|
73 "*Message of the day format string for ILISP given VERSION. To
|
|
|
74 prevent any message from being printed, set this to nil.")
|
|
|
75
|
|
|
76 (defvar lisp-wait-p nil
|
|
|
77 "*T if LISP eval/compile commands should wait for the result. A
|
|
|
78 minus prefix to the command will change the sense of this switch for
|
|
|
79 just the next command.")
|
|
|
80
|
|
|
81 (defvar lisp-no-popper 'message
|
|
|
82 "*T if you want all output in the inferior LISP rather than in a
|
|
|
83 pop-up window. 'message if you want output of one line to go to the
|
|
|
84 message window (or to the inferior LISP if more). You should probably
|
|
|
85 also set comint-always-scroll to T as well so that output is always visible.")
|
|
|
86
|
|
|
87 (defvar lisp-show-status t
|
|
|
88 "*Set to nil to stop showing process status in lisp-mode buffers.")
|
|
|
89
|
|
|
90 (defvar ilisp-prefix-match nil
|
|
|
91 "*Set to T to match only as a prefix when completing through the
|
|
|
92 inferior LISP. This will speed up completion, but you no longer get
|
|
|
93 partial completion.")
|
|
|
94
|
|
|
95 (deflocal ilisp-filter-regexp nil
|
|
|
96 "*What not to save on an inferior LISP's input history.
|
|
|
97 Input matching this regexp is not saved on the input history in ilisp
|
|
|
98 mode.")
|
|
|
99
|
|
|
100 (deflocal ilisp-filter-length 3
|
|
|
101 "*Do not save strings less than this in the command history.")
|
|
|
102
|
|
|
103 (deflocal ilisp-other-prompt nil
|
|
|
104 "*Regexp to recognise prompts in the inferior LISP that are prompts
|
|
|
105 of non-(read/eval/print) top-levels so that bol-ilisp skips them.")
|
|
|
106
|
|
|
107 (deflocal ilisp-raw-echo nil
|
|
|
108 "*Set this to T to cause echoing in raw keyboard mode.")
|
|
|
109
|
|
|
110 (deflocal ilisp-load-no-compile-query nil
|
|
|
111 "*Set this to T to stop load querying about compile.")
|
|
|
112
|
|
|
113 ;;;%%%Hooks
|
|
|
114 (defvar ilisp-site-hook nil
|
|
|
115 "Hook for site customization of ilisp mode when it is loaded.")
|
|
|
116
|
|
|
117 (defvar ilisp-load-hook '()
|
|
|
118 "Hook for customizing ilisp mode when it is loaded.")
|
|
|
119
|
|
|
120 (defvar ilisp-mode-hook '()
|
|
|
121 "Hook for customizing ilisp mode.")
|
|
|
122
|
|
|
123 (deflocal ilisp-init-hook nil
|
|
|
124 "Hook of functions to call on first prompt in inferior LISP.")
|
|
|
125
|
|
|
126 ;;;%%Advanced customization
|
|
|
127 ;;;%%%Commands
|
|
|
128 (deflocal ilisp-reset nil
|
|
|
129 "String for resetting the top-level of the inferior LISP.")
|
|
|
130
|
|
|
131 (deflocal ilisp-load-or-send-command nil
|
|
|
132 "Format string for loading BINARY if possible otherwise loading
|
|
|
133 FILE. If you can't load either, return NIL.")
|
|
|
134
|
|
|
135 (deflocal ilisp-package-regexp nil
|
|
|
136 "Regular expression for finding a package specification in a buffer.
|
|
|
137 The entire sexp starting with this pattern will be passed to
|
|
|
138 ilisp-package-command to find the package.")
|
|
|
139
|
|
|
140 (deflocal ilisp-package-command nil
|
|
|
141 "Format string to find the package given PACKAGE.")
|
|
|
142
|
|
|
143 (deflocal ilisp-package-name-command nil
|
|
|
144 "Format string to return the name of the current package.")
|
|
|
145
|
|
|
146 (deflocal ilisp-in-package-command nil
|
|
|
147 "Format string to set the package given PACKAGE.")
|
|
|
148
|
|
|
149 (deflocal ilisp-last-command nil
|
|
|
150 "Format string for getting the last returned value.")
|
|
|
151
|
|
|
152 (deflocal ilisp-save-command nil
|
|
|
153 "Format string for saving result history given FORM.")
|
|
|
154
|
|
|
155 (deflocal ilisp-restore-command nil
|
|
|
156 "Format string for restoring result history.")
|
|
|
157
|
|
|
158 (deflocal ilisp-block-command nil
|
|
|
159 "Format string for grouping FORMS into one.")
|
|
|
160
|
|
|
161 (deflocal ilisp-eval-command nil
|
|
|
162 "Format string for evaluating FORM in PACKAGE from FILE.")
|
|
|
163
|
|
|
164 (deflocal ilisp-defvar-regexp nil
|
|
|
165 "Regular expression for identifying a defvar form.")
|
|
|
166
|
|
|
167 (deflocal ilisp-defvar-command nil
|
|
|
168 "Format string for re-evaluating DEFVAR in PACKAGE from FILE.")
|
|
|
169
|
|
|
170 (deflocal ilisp-describe-command nil
|
|
|
171 "Format string for describing FORM in PACKAGE.")
|
|
|
172
|
|
|
173 (deflocal ilisp-compile-command nil
|
|
|
174 "Format string for compiling FORM in PACKAGE.")
|
|
|
175
|
|
|
176 (deflocal ilisp-inspect-command nil
|
|
|
177 "Format string for inspecting FORM in PACKAGE.")
|
|
|
178
|
|
|
179 (deflocal ilisp-arglist-command nil
|
|
|
180 "Format string for arglist of SYMBOL in PACKAGE.")
|
|
|
181
|
|
|
182 (deflocal ilisp-documentation-types nil
|
|
|
183 "((\"type\") ...) possible LISP documentation types.")
|
|
|
184
|
|
|
185 (deflocal ilisp-documentation-command nil
|
|
|
186 "Format string for documentation given SYMBOL in PACKAGE and TYPE.")
|
|
|
187
|
|
|
188 (deflocal ilisp-macroexpand-1-command nil
|
|
|
189 "Format string for top-level macroexpand given FORM and PACKAGE.")
|
|
|
190
|
|
|
191 (deflocal ilisp-macroexpand-command nil
|
|
|
192 "Format string for macroexpand given FORM and PACKAGE.")
|
|
|
193
|
|
|
194 (deflocal ilisp-complete-command nil
|
|
|
195 "Format string for finding possibly matching symbols given SYMBOL,
|
|
|
196 PACKAGE, FUNCTIONP, EXTERNALP and PARTIAL-MATCHP. It should print
|
|
|
197 ((string) (string) ...).")
|
|
|
198
|
|
|
199 (deflocal ilisp-callers-command nil
|
|
|
200 "Format for finding the callers of SYMBOL in PACKAGE. The function
|
|
|
201 should print out callers with one per line.")
|
|
|
202
|
|
|
203 (deflocal ilisp-trace-command nil
|
|
|
204 "Format for tracing SYMBOL in PACKAGE.")
|
|
|
205 (deflocal ilisp-untrace-command nil
|
|
|
206 "Format for untracing SYMBOL in PACKAGE.")
|
|
|
207
|
|
|
208 (deflocal ilisp-directory-command nil
|
|
|
209 "Format for getting default DIRECTORY.")
|
|
|
210 (deflocal ilisp-set-directory-command nil
|
|
|
211 "Format for setting default DIRECTORY.")
|
|
|
212
|
|
|
213 (deflocal ilisp-binary-command nil
|
|
|
214 "Command to return the extension for binary files.")
|
|
|
215
|
|
|
216 (deflocal ilisp-binary-extension nil
|
|
|
217 "*The extension to use for LISP binaries. If there is an
|
|
|
218 ilisp-binary-command, this string will be determined at initilization time.")
|
|
|
219
|
|
|
220 (deflocal ilisp-init-binary-command nil
|
|
|
221 "Command to return the extension for initialization binary files.")
|
|
|
222
|
|
|
223 (deflocal ilisp-init-binary-extension nil
|
|
|
224 "The extension for initialization binary files. If there is an
|
|
|
225 ilisp-init-binary-command, this string will be determined at
|
|
|
226 initilization time.")
|
|
|
227
|
|
|
228 (deflocal ilisp-load-command nil
|
|
|
229 "Format string for loading a file in LISP given FILE.")
|
|
|
230
|
|
|
231 (deflocal ilisp-compile-file-command nil
|
|
|
232 "Format string for compiling a file in LISP given FILE and EXTENSION.")
|
|
|
233
|
|
|
234 ;;;%%%%Source
|
|
|
235 (deflocal ilisp-source-types nil
|
|
|
236 "Alist of strings for source types. The strings can be either
|
|
|
237 symbols or list expressions since the input accepts symbols or open
|
|
|
238 ended lists as type specifiers.")
|
|
|
239
|
|
|
240 (deflocal ilisp-find-source-command nil
|
|
|
241 "Format string for finding the source file that defined SYMBOL in
|
|
|
242 PACKAGE. It should return NIL if no source is found.")
|
|
|
243
|
|
|
244 (deflocal ilisp-locator nil
|
|
|
245 "Function \(SYMBOL TYPE FIRST-P BACK-P) that finds the next SYMBOL TYPE
|
|
|
246 definition in the current buffer. FIRST-P is T the first time it is
|
|
|
247 called in a buffer. BACK-P is T to move backwards.")
|
|
|
248
|
|
|
249 (deflocal ilisp-calls-locator nil
|
|
|
250 "Function \(SYMBOL TYPE FIRST-P BACK-P ) that finds calls to SYMBOL
|
|
|
251 in the current buffer. FIRST-P is T the first time it is called in a
|
|
|
252 buffer. BACK-P is T to move backwards.")
|
|
|
253
|
|
|
254 (deflocal ilisp-source-directory-fixup-alist
|
|
|
255 nil
|
|
|
256 "*An alist of (REGEXP . FIXUP-FUNCTION) which will be applied to
|
|
|
257 lists of source filenames to be used with edit-definitions-list.
|
|
|
258 FIXUP-FUNCTION takes no arguments and should use replace-match to fix
|
|
|
259 the filenames.")
|
|
|
260
|
|
|
261
|
|
|
262 ;;;%%%Misc
|
|
|
263 (deflocal ilisp-use-map nil "Keymap to use in ILISP mode.")
|
|
|
264
|
|
|
265 (defvar ilisp-bugs-to "ilisp@lehman.com" "Who to send bug reports to.")
|
|
|
266
|
|
|
267 (defvar ilisp-modes '(ilisp-mode) "List of all inferior ilisp modes.")
|
|
|
268 (defvar lisp-source-modes '(lisp-mode scheme-mode)
|
|
|
269 "Used to determine if a buffer contains Lisp source code.
|
|
|
270 If it's loaded into a buffer that is in one of these major modes, it's
|
|
|
271 considered a lisp source file by find-file-lisp, load-file-lisp and
|
|
|
272 compile-file-lisp. Used by these commands to determine defaults.")
|
|
|
273
|
|
|
274 (deflocal ilisp-no-newline nil
|
|
|
275 "Set to T to stop ilisp from inserting a newline after a command.")
|
|
|
276
|
|
|
277 (deflocal ilisp-error-filter nil "Function to filter error output.")
|
|
|
278 (deflocal ilisp-error-regexp nil "Regular expression to match error.")
|
|
|
279
|
|
|
280 (deflocal ilisp-symbol-delimiters nil
|
|
|
281 "Delimiters found around symbols.")
|
|
|
282
|
|
|
283 ;;;%%Program
|
|
|
284 (defvar ilisp-completion-map nil "Keymap for reading ilisp readers.")
|
|
|
285 (defvar ilisp-epoch-running (and (boundp 'epoch::version) epoch::version)
|
|
|
286 "Non-nil if epoch is running.")
|
|
|
287 (defvar ilisp-version
|
|
|
288 "5.7" ;; ILISP-VERSION marker
|
|
|
289 "Interface version.")
|
|
|
290 (defvar ilisp-directory nil "The directory that ilisp is found in.")
|
|
|
291 (defvar ilisp-mode-map nil "Key map for ILISP.")
|
|
|
292 (defvar ilisp-raw-map nil
|
|
|
293 "Keyboard map for sending characters directly to the inferior LISP.")
|
|
|
294 (defvar ilisp-raw-message "Raw keyboard mode until C-g"
|
|
|
295 "Message for how to stop raw mode.")
|
|
|
296 (defvar ilisp-buffer nil "Name of selected ilisp buffer.")
|
|
|
297 (defvar ilisp-status nil "Status string for selected ilisp buffer.")
|
|
|
298 (defvar ilisp-buffers nil "List of ILISP buffers.")
|
|
|
299 (defvar ilisp-dialects nil "List of ILISP dialects.")
|
|
|
300
|
|
|
301 (deflocal ilisp-load-inits nil
|
|
|
302 "Alist of dialect files to load when initializing an inferior LISP.
|
|
|
303 By default the file will be loaded from the ilisp-directory.")
|
|
|
304
|
|
|
305 ;;; This is useful to have a clause in ilisp code like:
|
|
|
306 ;;; (if (memq 'allegro (ilisp-value 'ilisp-dialect))
|
|
|
307 ;;; allegro-code
|
|
|
308 ;;; normal-code)
|
|
|
309 (deflocal ilisp-dialect nil
|
|
|
310 "List of the dialects that defined the current inferior LISP.")
|
|
|
311
|
|
|
312 (defvar ilisp-initialized nil
|
|
|
313 "List of buffer names that have been initialized.")
|
|
|
314 (deflocal ilisp-initializing nil
|
|
|
315 "Set to T while waiting for inferior LISP to get initialized.")
|
|
|
316
|
|
|
317 (deflocal ilisp-load-files nil "List of files being loaded.")
|
|
|
318
|
|
|
319 (defvar lisp-changes nil
|
|
|
320 "List of markers for changed forms.")
|
|
|
321 (deflocal ilisp-pending-changes nil
|
|
|
322 "List of changes that are pending, but have not been confirmed yet.")
|
|
|
323
|
|
|
324 ;;;%%%Completion
|
|
|
325 ;;; Dynamically bound variables for controlling reading
|
|
|
326 (defvar ilisp-complete nil "T if in minibuffer completion mode.")
|
|
|
327 (defvar ilisp-no-complete nil "T if incomplete symbols are allowed.")
|
|
|
328 (defvar ilisp-table nil "Completion table for ilisp readers.")
|
|
|
329 (defvar ilisp-paren nil "T if paren is allowed in ilisp readers.")
|
|
|
330 (defvar ilisp-completion-package nil
|
|
|
331 "Package of buffer requesting completion.")
|
|
|
332 (defvar ilisp-completion-function-p nil
|
|
|
333 "T if only symbols with function values are allowed.")
|
|
|
334
|
|
|
335 ;;; State variables for ilisp reading
|
|
|
336 (defvar ilisp-mini-prefix nil "Package and qualification from minibuffer.")
|
|
|
337 (defvar ilisp-original nil "Original string for ilisp completion.")
|
|
|
338 (defvar ilisp-original-function-p nil "Function-p for ilisp completion.")
|
|
|
339 (defvar ilisp-original-table nil "Completion table for ilisp-original.")
|
|
|
340
|
|
|
341 ;;;%Buffer
|
|
|
342 ;;;%Packages
|
|
|
343 (defvar buffer-package 'not-yet-computed "Cached package name.")
|
|
|
344 (defvar buffer-mode-name nil "Original mode name.")
|
|
|
345 (defvar lisp-buffer-package nil "T if in lisp-buffer-package.")
|
|
|
346 (defvar lisp-dont-cache-package nil
|
|
|
347 "If Non-Nil then refind the most recent in-package each time.")
|
|
|
348
|
|
|
349 ;;;%Globals from ilisp-ext.el
|
|
|
350 ;;;
|
|
|
351 (defvar ilisp-ext-load-hook nil "Hook to run when extensions are loaded.")
|
|
|
352 (defvar left-delimiter "\(" "*Left delimiter for find-unbalanced.")
|
|
|
353 (defvar right-delimiter "\)" "*Right delimiter for find-unbalanced.")
|
|
|
354
|
|
|
355 ;;; Copies of ilisp var definitions
|
|
|
356 (defvar ilisp-complete nil "T when ilisp is in completion mode.")
|
|
|
357 (defvar ilisp-modes '(ilisp-mode) "List of all inferior ilisp modes.")
|
|
|
358 (defvar lisp-fill-marker (make-marker)
|
|
|
359 "Keeps track of point so that it does not move during a reindent-lisp.")
|
|
|
360 (defvar ilisp-comment-marker (make-marker)
|
|
|
361 "Marker for end of a comment region.")
|
|
|
362
|
|
|
363
|
|
|
364 (defvar lisp-buffer-file nil
|
|
|
365 "Cons of buffer-file-name and the expanded name.")
|
|
|
366 (make-variable-buffer-local 'lisp-buffer-file)
|
|
|
367
|
|
|
368 (defvar ilisp-last-message nil)
|
|
|
369 (defvar ilisp-last-prompt nil)
|
|
|
370
|
|
|
371 (defvar lisp-prev-l/c-dir/file nil
|
|
|
372 "Saves the (directory . file) pair used in the last find-file-lisp,
|
|
|
373 load-file-lisp or compile-file-lisp command. Used for determining the
|
|
|
374 default in the next one.")
|
|
|
375
|
|
|
376 (defvar ilisp-last-buffer nil
|
|
|
377 "The last used LISP buffer.")
|
