|
0
|
1 ;;; -*- Mode: Emacs-Lisp -*-
|
|
|
2
|
|
|
3 ;;; ilisp-dia.el --
|
|
|
4
|
|
|
5 ;;; This file is part of ILISP.
|
|
4
|
6 ;;; Version: 5.8
|
|
0
|
7 ;;;
|
|
|
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
|
|
|
9 ;;; 1993, 1994 Ivan Vasquez
|
|
4
|
10 ;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
|
|
|
11 ;;; 1996 Marco Antoniotti and Rick Campbell
|
|
0
|
12 ;;;
|
|
|
13 ;;; Other authors' names for which this Copyright notice also holds
|
|
|
14 ;;; may appear later in this file.
|
|
|
15 ;;;
|
|
4
|
16 ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
|
|
|
17 ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
|
|
0
|
18 ;;; mailing list were bugs and improvements are discussed.
|
|
|
19 ;;;
|
|
|
20 ;;; ILISP is freely redistributable under the terms found in the file
|
|
|
21 ;;; COPYING.
|
|
|
22
|
|
|
23
|
|
|
24 ;;;%%CUSTOMIZING DIALECTS
|
|
|
25 ;;;
|
|
|
26 ;;; ILISP is already set up with support for a number of dialects.
|
|
|
27 ;;; Each dialect has a command NAME that will start an inferior LISP
|
|
|
28 ;;; of that dialect. NAME-hook is a hook that will run after the
|
|
|
29 ;;; default settings for NAME are set up. NAME-program is the default
|
|
|
30 ;;; program for NAME. A prefix when starting a dialect will cause you
|
|
|
31 ;;; to be prompted for the buffer name and the program. When setting
|
|
|
32 ;;; something in a hook, you should use the most general dialect that
|
|
|
33 ;;; makes sense. Dialect definitions and their hooks are executed from
|
|
|
34 ;;; least specific to most specific. They will be executed before the
|
|
|
35 ;;; inferior LISP is started.
|
|
|
36 ;;;
|
|
|
37 ;;; These are the currently supported dialects. The dialects
|
|
|
38 ;;; are listed so that the indentation correponds to the hierarchical
|
|
|
39 ;;; relationship between dialects.
|
|
|
40 ;;; clisp
|
|
|
41 ;;; allegro
|
|
|
42 ;;; Clisp (Haible and Stoll)
|
|
|
43 ;;; lispworks (Harlequin)
|
|
|
44 ;;; lucid
|
|
|
45 ;;; cmulisp
|
|
|
46 ;;; kcl
|
|
|
47 ;;; akcl
|
|
|
48 ;;; ibcl
|
|
|
49 ;;; ecl
|
|
|
50 ;;; gcl
|
|
|
51 ;;; scheme
|
|
|
52 ;;; oaklisp
|
|
|
53 ;;; Scheme->C (still "in fieri")
|
|
|
54 ;;;
|
|
|
55 ;;; If anyone figures out support for other dialects I would be happy
|
|
|
56 ;;; to include it in future releases.
|
|
|
57 ;;;
|
|
|
58 ;;; ;;; Example of local changes and extensions to ilisp mode
|
|
|
59 ;;; (setq ilisp-load-hook
|
|
|
60 ;;; '(lambda ()
|
|
|
61 ;;; ;; Change the allegro lisp program
|
|
|
62 ;;; (setq allegro-program "/usr/misc/bin/lisp")
|
|
|
63 ;;; ;; Add a new key binding
|
|
|
64 ;;; (defkey-ilisp "\C-\M-a" 'arglist-lisp)
|
|
|
65 ;;; ;; Define a new subdialect to run on another machine.
|
|
|
66 ;;; (defdialect cmlisp "Connection Machine LISP."
|
|
|
67 ;;; lucid
|
|
|
68 ;;; (setq ilisp-program
|
|
|
69 ;;; "rsh power /usr/local/cm/bin/starlisp"))))
|
|
|
70 ;;;
|
|
|
71 ;;; ;;; Automatically load a new subdialect
|
|
|
72 ;;; (autoload 'cmlisp "ilisp" "Run an inferior CM lisp." t)
|
|
|
73 ;;;
|
|
|
74 ;;; To define a new dialect use the macro defdialect. For examples,
|
|
|
75 ;;; look at the dialect definitions in this file. There are hooks and
|
|
|
76 ;;; variables for almost anything that you are likely to need to
|
|
|
77 ;;; change. The relationship between dialects is hierarchical with
|
|
|
78 ;;; the root values being defined in setup-ilisp. For a new dialect,
|
|
|
79 ;;; you only need to change the variables that are different than in
|
|
|
80 ;;; the parent dialect.
|
|
|
81
|
|
|
82
|
|
|
83 ;;;
|
|
|
84 ;;; ILISP dialect definition code.
|
|
|
85 ;;;
|
|
|
86
|
|
|
87 ;;;%Dialects
|
|
|
88 (defun lisp-add-dialect (dialect)
|
|
|
89 "Add DIALECT as a supported ILISP dialect."
|
|
|
90 (if (not (lisp-memk dialect ilisp-dialects 'car))
|
|
|
91 (setq ilisp-dialects
|
|
|
92 (cons (list dialect) ilisp-dialects))))
|
|
|
93
|
|
|
94 ;;;
|
|
|
95 (defun ilisp-start-dialect (buffer program setup)
|
|
|
96 ;; Allow dialects to be started from command line
|
|
|
97 (if (eq current-prefix-arg 0) (setq current-prefix-arg nil))
|
|
|
98 (setq ilisp-last-buffer (current-buffer)
|
|
|
99 buffer (if current-prefix-arg
|
|
|
100 (read-from-minibuffer "Buffer: " buffer)
|
|
|
101 buffer))
|
|
|
102 (funcall setup buffer)
|
|
|
103 (setq ilisp-program
|
|
|
104 (or program
|
|
|
105 (if current-prefix-arg
|
|
|
106 (lisp-read-program "Program: " ilisp-program)
|
|
|
107 ilisp-program)))
|
|
|
108 (ilisp buffer setup))
|
|
|
109
|
|
|
110 ;;;
|
|
|
111 (defmacro defdialect (dialect full-name parent &rest body)
|
|
|
112 "Define a new ILISP dialect. DIALECT is the name of the function to
|
|
|
113 invoke the inferior LISP. The hook for that LISP will be called
|
|
|
114 DIALECT-hook. The default program will be DIALECT-program. FULL-NAME
|
|
|
115 is a string that describes the inferior LISP. PARENT is the name of
|
|
|
116 the parent dialect."
|
|
|
117 (let ((setup (read (format "setup-%s" dialect)))
|
|
|
118 (hook (read (format "%s-hook" dialect)))
|
|
|
119 (program (read (format "%s-program" dialect)))
|
|
|
120 (dialects (format "%s" dialect)))
|
|
|
121 (`
|
|
|
122 (progn
|
|
|
123 (defvar (, hook) nil (, (format "*Inferior %s hook." full-name)))
|
|
|
124 (defvar (, program) nil
|
|
|
125 (, (format "*Inferior %s default program." full-name)))
|
|
|
126 (defun (, setup) (buffer)
|
|
|
127 (, (format "Set up for interacting with %s." full-name))
|
|
|
128 (, (read (format "(setup-%s buffer)" parent)))
|
|
|
129 (,@ body)
|
|
|
130 (setq ilisp-program (or (, program) ilisp-program)
|
|
|
131 ilisp-dialect (cons '(, dialect) ilisp-dialect))
|
|
|
132 (run-hooks '(, (read (format "%s-hook" dialect)))))
|
|
|
133 (defun (, dialect) (&optional buffer program)
|
|
|
134 (, (format "Create an inferior %s. With prefix, prompt for buffer and program."
|
|
|
135 full-name))
|
|
|
136 (interactive (list nil nil))
|
|
|
137 (ilisp-start-dialect (or buffer (, dialects))
|
|
|
138 program
|
|
|
139 '(, setup))
|
|
|
140 (setq (, program) ilisp-program))
|
|
|
141 (lisp-add-dialect (, dialects))))))
|
|
|
142
|
|
|
143 ;;;%%ilisp
|
|
|
144 (defun setup-ilisp (buffer)
|
|
|
145 "Set up for interacting with an inferior LISP."
|
|
|
146 (set-buffer (get-buffer-create "*ilisp-send*"))
|
|
|
147 (kill-all-local-variables)
|
|
|
148 (lisp-mode)
|
|
|
149 (setq ilisp-buffer (format "*%s*" buffer))
|
|
|
150 (set-buffer (get-buffer-create ilisp-buffer))
|
|
|
151 (setq major-mode 'ilisp-mode
|
|
|
152 mode-name "ILISP")
|
|
|
153 (lisp-mode-variables t)
|
|
|
154 ;; Set variables to nil
|
|
|
155 (let ((binary ilisp-binary-extension)
|
|
|
156 (init ilisp-init-binary-extension)
|
|
|
157 (vars ilisp-locals))
|
|
|
158 (while (not (null vars))
|
|
|
159 (make-local-variable (car vars))
|
|
|
160 (set (car vars) nil)
|
|
|
161 (setq vars (cdr vars)))
|
|
|
162 ;; Preserve from initialization
|
|
|
163 (if binary (setq ilisp-binary-extension binary))
|
|
|
164 (if init (setq ilisp-init-binary-extension init)))
|
|
|
165 ;; Comint defaults
|
|
|
166 (set-ilisp-input-ring-size 200)
|
|
|
167 (setq comint-prompt-regexp "^[^<> ]*>+:? *"
|
|
|
168
|
|
|
169 comint-get-old-input 'ilisp-get-old-input
|
|
|
170 comint-input-sentinel (function ignore)
|
|
|
171 comint-input-filter 'ilisp-input-filter
|
|
|
172 comint-input-sender 'comint-default-send
|
|
|
173 comint-eol-on-send t)
|
|
|
174 ;; Comint-ipc defaults
|
|
|
175 (setq comint-send-newline t
|
|
|
176 comint-always-scroll nil
|
|
|
177 comint-output-buffer " *Output*"
|
|
|
178 comint-error-buffer " *Error Output*"
|
|
|
179 comint-error-regexp "^\"ILISP:"
|
|
|
180 comint-output-filter (function identity)
|
|
|
181 comint-interrupt-start 'comint-interrupt-start
|
|
|
182 comint-handler 'ilisp-handler
|
|
|
183 comint-update-status 'ilisp-update-status
|
|
|
184 comint-prompt-status 'comint-prompt-status
|
|
|
185 comint-abort-hook 'ilisp-abort-handler)
|
|
|
186 (setq ilisp-use-map ilisp-mode-map
|
|
|
187 ilisp-init-hook '((lambda () (ilisp-init nil nil t)))
|
|
|
188 ilisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)*\\)?\\s *\\'"
|
|
|
189 ilisp-filter-length 3
|
|
|
190 ilisp-error-filter 'ilisp-error-filter
|
|
|
191 ilisp-error-regexp ".*"
|
|
|
192 ilisp-symbol-delimiters "^ \t\n\('\"#.\)<>"
|
|
|
193 ilisp-program "lisp"
|
|
|
194 ilisp-locator 'lisp-locate-ilisp
|
|
|
195 ilisp-calls-locator 'lisp-locate-calls)
|
|
|
196 (run-hooks 'ilisp-mode-hook))
|
|
|
197
|
|
|
198 (defun run-ilisp ()
|
|
|
199 "Create an inferior LISP prompting for dialect. With prefix, prompt
|
|
|
200 for buffer name as well."
|
|
|
201 (interactive)
|
|
|
202 (let ((dialect (completing-read "Dialect: " ilisp-dialects nil t)))
|
|
|
203 (if (not (zerop (length dialect)))
|
|
|
204 (call-interactively (read dialect)))))
|
|
|
205
|
