Mercurial > emacs
annotate lisp/ledit.el @ 30408:e3e2c9051c5f
Got rid of all byte-compiler warnings on Emacs.
Add to the menu when the file is loaded, not in ada-mode-hook.
Add -toolbar to the default ddd command Switches moved from
ada-prj-default-comp-cmd and ada-prj-default-make-cmd to
ada-prj-default-comp-opt
(ada-add-ada-menu): Remove the map and name parameters Add the Ada
Reference Manual to the menu
(ada-check-current): rewritten as a call to ada-compile-current
(ada-compile): Removed.
(ada-compile-application, ada-compile-current, ada-check-current):
Set the compilation-search-path so that compile.el automatically
finds the sources in src_dir. Automatic scrollong of the
compilation buffer. C-uC-cC-c asks for confirmation before
compiling
(ada-compile-current): New parameter, prj-field
(ada-complete-identifier): Load the .ali file before doing
processing
(ada-find-ali-file-in-dir): prepend build_dir to obj_dir to
conform to gnatmake's behavior.
(ada-find-file-in-dir): New function
(ada-find-references): Set the environment variables for gnatfind
(ada-find-src-file-in-dir): New function.
(ada-first-non-nil): Removed
(ada-gdb-application): Add support for jdb, the java debugger.
(ada-get-ada-file-name): Load the original-file first if not done
yet.
(ada-get-all-references): Handles the new ali syntax (parent types
are found between <>).
(ada-initialize-runtime-library): New function
(ada-mode-hook): Always load a project file when a file is opened,
so that the casing exceptions are correctly read.
(ada-operator-re): Add all missing operators ("abs", "rem", "**").
(ada-parse-prj-file): Use find-file-noselect instead of find-file
to open the project file, since the latter does not work with
speedbar Get default values before loading the prj file, or the
default executable file name is wrong. Use the absolute value of
src_dir to initialize ada-search-directories and
compilation-search-path,... Add the standard runtime library to
the search path for find-file.
(ada-prj-default-debugger): Was missing an opening '{'
(ada-prj-default-bind-opt, ada-prj-default-link-opt): New
variables.
(ada-prj-default-gnatmake-opt): New variable
(ada-prj-find-prj-file): Handles non-file buffers For non-Ada
buffers, the project file is the default one Save the windows
configuration before displaying the menu.
(ada-prj-src-dir, ada-prj-obj-dir, ada-prj-comp-opt,...): Removed
(ada-read-identifier): Fix xrefs on operators (for "mod", "and",
...) regexp-quote identifiers names to support operators +,
-,... in regexps.
(ada-remote): New function.
(ada-run-application): Erase the output buffer before starting the
run Support remote execution of the application. Use
call-process, or the arguments are incorrectly parsed
(ada-set-default-project-file): Reread the content of the active
project file, not the one from the current buffer When a project
file is set as the default project, all directories are
automatically associated with it.
(ada-set-environment): New function
(ada-treat-cmd-string): New special variable ${current}
(ada-treat-cmd-string): Revised. The substitution is now done for
any ${...} substring
(ada-xref-current): If no body was found, compiles the spec
instead. Setup ADA_{SOURCE,OBJECTS}_PATH before running the
compiler to get rid of command line length limitations.
(ada-xref-get-project-field): New function
(ada-xref-project-files): New variable
(ada-xref-runtime-library-specs-path)
(ada-xref-runtime-library-ali-path): New variables
(ada-xref-set-default-prj-values): Default run command now does a
cd to the build directory. New field: main_unit Provide a default
file name even if the current buffer has no prj file.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 24 Jul 2000 11:13:11 +0000 |
parents | 851241b72ec9 |
children | 7c181d033dae |
rev | line source |
---|---|
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
1 ;;; ledit.el --- Emacs side of ledit interface |
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
2 |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
3 ;; Copyright (C) 1985 Free Software Foundation, Inc. |
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
5 ;; Maintainer: FSF |
14040 | 6 ;; Keyword: languages |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
7 |
36 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
36 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
14169 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
36 | 24 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
923
diff
changeset
|
25 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
923
diff
changeset
|
26 |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
923
diff
changeset
|
27 ;; This is a major mode for editing Liszt. See etc/LEDIT for details. |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
923
diff
changeset
|
28 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
29 ;;; Code: |
36 | 30 |
31 ;;; To do: | |
32 ;;; o lisp -> emacs side of things (grind-definition and find-definition) | |
33 | |
34 (defvar ledit-mode-map nil) | |
35 | |
25416
851241b72ec9
(ledit-zap-file, ledit-read-file, ledit-compile-file):
Richard M. Stallman <rms@gnu.org>
parents:
18383
diff
changeset
|
36 (defconst ledit-zap-file |
851241b72ec9
(ledit-zap-file, ledit-read-file, ledit-compile-file):
Richard M. Stallman <rms@gnu.org>
parents:
18383
diff
changeset
|
37 (expand-file-name (concat (user-login-name) ".l1") temporary-file-directory) |
36 | 38 "File name for data sent to Lisp by Ledit.") |
25416
851241b72ec9
(ledit-zap-file, ledit-read-file, ledit-compile-file):
Richard M. Stallman <rms@gnu.org>
parents:
18383
diff
changeset
|
39 (defconst ledit-read-file |
851241b72ec9
(ledit-zap-file, ledit-read-file, ledit-compile-file):
Richard M. Stallman <rms@gnu.org>
parents:
18383
diff
changeset
|
40 (expand-file-name (concat (user-login-name) ".l2") temporary-file-directory) |
36 | 41 "File name for data sent to Ledit by Lisp.") |
42 (defconst ledit-compile-file | |
25416
851241b72ec9
(ledit-zap-file, ledit-read-file, ledit-compile-file):
Richard M. Stallman <rms@gnu.org>
parents:
18383
diff
changeset
|
43 (expand-file-name (concat (user-login-name) ".l4") temporary-file-directory) |
36 | 44 "File name for data sent to Lisp compiler by Ledit.") |
45 (defconst ledit-buffer "*LEDIT*" | |
46 "Name of buffer in which Ledit accumulates data to send to Lisp.") | |
256 | 47 |
269 | 48 ;;;###autoload |
49 (defconst ledit-save-files t "\ | |
50 *Non-nil means Ledit should save files before transferring to Lisp.") | |
51 ;;;###autoload | |
52 (defconst ledit-go-to-lisp-string "%?lisp" "\ | |
53 *Shell commands to execute to resume Lisp job.") | |
54 ;;;###autoload | |
55 (defconst ledit-go-to-liszt-string "%?liszt" "\ | |
56 *Shell commands to execute to resume Lisp compiler job.") | |
36 | 57 |
58 (defun ledit-save-defun () | |
59 "Save the current defun in the ledit buffer" | |
60 (interactive) | |
61 (save-excursion | |
62 (end-of-defun) | |
63 (let ((end (point))) | |
64 (beginning-of-defun) | |
65 (append-to-buffer ledit-buffer (point) end)) | |
66 (message "Current defun saved for Lisp"))) | |
67 | |
68 (defun ledit-save-region (beg end) | |
69 "Save the current region in the ledit buffer" | |
70 (interactive "r") | |
71 (append-to-buffer ledit-buffer beg end) | |
72 (message "Region saved for Lisp")) | |
73 | |
74 (defun ledit-zap-defun-to-lisp () | |
214 | 75 "Carry the current defun to Lisp." |
36 | 76 (interactive) |
77 (ledit-save-defun) | |
78 (ledit-go-to-lisp)) | |
79 | |
80 (defun ledit-zap-defun-to-liszt () | |
214 | 81 "Carry the current defun to liszt." |
36 | 82 (interactive) |
83 (ledit-save-defun) | |
84 (ledit-go-to-liszt)) | |
85 | |
86 (defun ledit-zap-region-to-lisp (beg end) | |
214 | 87 "Carry the current region to Lisp." |
36 | 88 (interactive "r") |
89 (ledit-save-region beg end) | |
90 (ledit-go-to-lisp)) | |
91 | |
92 (defun ledit-go-to-lisp () | |
93 "Suspend Emacs and restart a waiting Lisp job." | |
94 (interactive) | |
95 (if ledit-save-files | |
96 (save-some-buffers)) | |
97 (if (get-buffer ledit-buffer) | |
98 (save-excursion | |
99 (set-buffer ledit-buffer) | |
100 (goto-char (point-min)) | |
101 (write-region (point-min) (point-max) ledit-zap-file) | |
102 (erase-buffer))) | |
103 (suspend-emacs ledit-go-to-lisp-string) | |
104 (load ledit-read-file t t)) | |
105 | |
106 (defun ledit-go-to-liszt () | |
107 "Suspend Emacs and restart a waiting Liszt job." | |
108 (interactive) | |
109 (if ledit-save-files | |
110 (save-some-buffers)) | |
111 (if (get-buffer ledit-buffer) | |
112 (save-excursion | |
113 (set-buffer ledit-buffer) | |
114 (goto-char (point-min)) | |
115 (insert "(declare (macros t))\n") | |
116 (write-region (point-min) (point-max) ledit-compile-file) | |
117 (erase-buffer))) | |
118 (suspend-emacs ledit-go-to-liszt-string) | |
119 (load ledit-read-file t t)) | |
120 | |
121 (defun ledit-setup () | |
214 | 122 "Set up key bindings for the Lisp/Emacs interface." |
36 | 123 (if (not ledit-mode-map) |
923 | 124 (progn (setq ledit-mode-map (nconc (make-sparse-keymap) |
125 shared-lisp-mode-map)))) | |
36 | 126 (define-key ledit-mode-map "\e\^d" 'ledit-save-defun) |
127 (define-key ledit-mode-map "\e\^r" 'ledit-save-region) | |
128 (define-key ledit-mode-map "\^xz" 'ledit-go-to-lisp) | |
129 (define-key ledit-mode-map "\e\^c" 'ledit-go-to-liszt)) | |
130 | |
131 (ledit-setup) | |
132 | |
256 | 133 ;;;###autoload |
36 | 134 (defun ledit-mode () |
214 | 135 "\\<ledit-mode-map>Major mode for editing text and stuffing it to a Lisp job. |
36 | 136 Like Lisp mode, plus these special commands: |
214 | 137 \\[ledit-save-defun] -- record defun at or after point |
36 | 138 for later transmission to Lisp job. |
214 | 139 \\[ledit-save-region] -- record region for later transmission to Lisp job. |
140 \\[ledit-go-to-lisp] -- transfer to Lisp job and transmit saved text. | |
141 \\[ledit-go-to-liszt] -- transfer to Liszt (Lisp compiler) job | |
36 | 142 and transmit saved text. |
143 \\{ledit-mode-map} | |
144 To make Lisp mode automatically change to Ledit mode, | |
145 do (setq lisp-mode-hook 'ledit-from-lisp-mode)" | |
146 (interactive) | |
147 (lisp-mode) | |
148 (ledit-from-lisp-mode)) | |
149 | |
256 | 150 ;;;###autoload |
36 | 151 (defun ledit-from-lisp-mode () |
152 (use-local-map ledit-mode-map) | |
153 (setq mode-name "Ledit") | |
154 (setq major-mode 'ledit-mode) | |
155 (run-hooks 'ledit-mode-hook)) | |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
156 |
18383 | 157 (provide 'ledit) |
158 | |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
159 ;;; ledit.el ends here |