Mercurial > emacs
annotate lisp/progmodes/etags.el @ 449:4a1a5ad2d9d0
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sun, 08 Dec 1991 09:58:46 +0000 |
parents | 066d9d0dd901 |
children | 0bac8c701777 |
rev | line source |
---|---|
342 | 1 ;; Tags facility for Emacs. |
2 ;; Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc. | |
3 | |
4 ;; This file is part of GNU Emacs. | |
5 | |
6 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
7 ;; it under the terms of the GNU General Public License as published by | |
8 ;; the Free Software Foundation; either version 1, or (at your option) | |
9 ;; any later version. | |
10 | |
11 ;; GNU Emacs is distributed in the hope that it will be useful, | |
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 ;; GNU General Public License for more details. | |
15 | |
16 ;; You should have received a copy of the GNU General Public License | |
17 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
19 | |
20 | |
360 | 21 (provide 'etags) |
22 | |
23 ;;;###autoload | |
24 (defvar tags-file-name nil "\ | |
25 *File name of tag table. | |
26 To switch to a new tag table, setting this variable is sufficient. | |
27 Use the `etags' program to make a tag table file.") | |
342 | 28 |
29 (defvar tag-table-files nil | |
30 "List of file names covered by current tag table. | |
31 nil means it has not been computed yet; do (tag-table-files) to compute it.") | |
32 | |
33 (defvar last-tag nil | |
34 "Tag found by the last find-tag.") | |
35 | |
360 | 36 ;;;###autoload |
342 | 37 (defun visit-tags-table (file) |
38 "Tell tags commands to use tag table file FILE. | |
39 FILE should be the name of a file created with the `etags' program. | |
40 A directory name is ok too; it means file TAGS in that directory." | |
41 (interactive (list (read-file-name "Visit tags table: (default TAGS) " | |
42 default-directory | |
43 (concat default-directory "TAGS") | |
44 t))) | |
45 (setq file (expand-file-name file)) | |
46 (if (file-directory-p file) | |
47 (setq file (concat file "TAGS"))) | |
48 (setq tag-table-files nil | |
49 tags-file-name file)) | |
50 | |
51 (defun visit-tags-table-buffer () | |
52 "Select the buffer containing the current tag table. | |
53 This is a file whose name is in the variable tags-file-name." | |
54 (or tags-file-name | |
55 (call-interactively 'visit-tags-table)) | |
56 (set-buffer (or (get-file-buffer tags-file-name) | |
57 (progn | |
58 (setq tag-table-files nil) | |
59 (find-file-noselect tags-file-name)))) | |
60 (or (verify-visited-file-modtime (get-file-buffer tags-file-name)) | |
61 (cond ((yes-or-no-p "Tags file has changed, read new contents? ") | |
62 (revert-buffer t t) | |
63 (setq tag-table-files nil)))) | |
64 (or (eq (char-after 1) ?\^L) | |
65 (error "File %s not a valid tag table" tags-file-name))) | |
66 | |
67 (defun file-of-tag () | |
68 "Return the file name of the file whose tags point is within. | |
69 Assumes the tag table is the current buffer. | |
70 File name returned is relative to tag table file's directory." | |
71 (let ((opoint (point)) | |
72 prev size) | |
73 (save-excursion | |
74 (goto-char (point-min)) | |
75 (while (< (point) opoint) | |
76 (forward-line 1) | |
77 (end-of-line) | |
78 (skip-chars-backward "^,\n") | |
79 (setq prev (point)) | |
80 (setq size (read (current-buffer))) | |
81 (goto-char prev) | |
82 (forward-line 1) | |
83 (forward-char size)) | |
84 (goto-char (1- prev)) | |
85 (buffer-substring (point) | |
86 (progn (beginning-of-line) (point)))))) | |
87 | |
360 | 88 ;;;###autoload |
342 | 89 (defun tag-table-files () |
90 "Return a list of files in the current tag table. | |
91 File names returned are absolute." | |
92 (save-excursion | |
93 (visit-tags-table-buffer) | |
94 (or tag-table-files | |
95 (let (files) | |
96 (goto-char (point-min)) | |
97 (while (not (eobp)) | |
98 (forward-line 1) | |
99 (end-of-line) | |
100 (skip-chars-backward "^,\n") | |
101 (setq prev (point)) | |
102 (setq size (read (current-buffer))) | |
103 (goto-char prev) | |
104 (setq files (cons (expand-file-name | |
105 (buffer-substring (1- (point)) | |
106 (save-excursion | |
107 (beginning-of-line) | |
108 (point))) | |
109 (file-name-directory tags-file-name)) | |
110 files)) | |
111 (forward-line 1) | |
112 (forward-char size)) | |
113 (setq tag-table-files (nreverse files)))))) | |
114 | |
115 ;; Return a default tag to search for, based on the text at point. | |
116 (defun find-tag-default () | |
117 (save-excursion | |
118 (while (looking-at "\\sw\\|\\s_") | |
119 (forward-char 1)) | |
120 (if (re-search-backward "\\sw\\|\\s_" nil t) | |
121 (progn (forward-char 1) | |
122 (buffer-substring (point) | |
123 (progn (forward-sexp -1) | |
124 (while (looking-at "\\s'") | |
125 (forward-char 1)) | |
126 (point)))) | |
127 nil))) | |
128 | |
129 (defun find-tag-tag (string) | |
130 (let* ((default (find-tag-default)) | |
131 (spec (read-string | |
132 (if default | |
133 (format "%s(default %s) " string default) | |
134 string)))) | |
135 (list (if (equal spec "") | |
136 default | |
137 spec)))) | |
138 | |
360 | 139 ;;;###autoload |
342 | 140 (defun find-tag (tagname &optional next other-window) |
141 "Find tag (in current tag table) whose name contains TAGNAME. | |
142 Selects the buffer that the tag is contained in | |
143 and puts point at its definition. | |
144 If TAGNAME is a null string, the expression in the buffer | |
145 around or before point is used as the tag name. | |
146 If second arg NEXT is non-nil (interactively, with prefix arg), | |
147 searches for the next tag in the tag table | |
148 that matches the tagname used in the previous find-tag. | |
149 | |
150 See documentation of variable tags-file-name." | |
151 (interactive (if current-prefix-arg | |
152 '(nil t) | |
153 (find-tag-tag "Find tag: "))) | |
449
4a1a5ad2d9d0
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
360
diff
changeset
|
154 (let ((tagbuf (find-tag-noselect tagname nil next))) |
342 | 155 (if other-window |
449
4a1a5ad2d9d0
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
360
diff
changeset
|
156 (switch-to-buffer-other-window tagbuf) |
4a1a5ad2d9d0
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
360
diff
changeset
|
157 (switch-to-buffer tagbuf)) |
4a1a5ad2d9d0
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
360
diff
changeset
|
158 ) |
342 | 159 (setq tags-loop-form '(find-tag nil t)) |
160 ;; Return t in case used as the tags-loop-form. | |
161 t) | |
162 | |
360 | 163 ;;;###autoload |
164 (define-key esc-map "." 'find-tag) | |
165 | |
166 ;;;###autoload | |
342 | 167 (defun find-tag-other-window (tagname &optional next) |
168 "Find tag (in current tag table) whose name contains TAGNAME. | |
169 Selects the buffer that the tag is contained in in another window | |
170 and puts point at its definition. | |
171 If TAGNAME is a null string, the expression in the buffer | |
172 around or before point is used as the tag name. | |
173 If second arg NEXT is non-nil (interactively, with prefix arg), | |
174 searches for the next tag in the tag table | |
175 that matches the tagname used in the previous find-tag. | |
176 | |
177 See documentation of variable tags-file-name." | |
178 (interactive (if current-prefix-arg | |
179 '(nil t) | |
180 (find-tag-tag "Find tag other window: "))) | |
181 (find-tag tagname next t)) | |
360 | 182 ;;;###autoload |
183 (define-key ctl-x-4-map "." 'find-tag-other-window) | |
342 | 184 |
185 (defvar next-file-list nil | |
186 "List of files for next-file to process.") | |
187 | |
360 | 188 ;;;###autoload |
342 | 189 (defun next-file (&optional initialize) |
190 "Select next file among files in current tag table. | |
191 Non-nil argument (prefix arg, if interactive) | |
192 initializes to the beginning of the list of files in the tag table." | |
193 (interactive "P") | |
194 (if initialize | |
195 (setq next-file-list (tag-table-files))) | |
196 (or next-file-list | |
197 (error "All files processed.")) | |
198 (find-file (car next-file-list)) | |
199 (setq next-file-list (cdr next-file-list))) | |
200 | |
201 (defvar tags-loop-form nil | |
202 "Form for tags-loop-continue to eval to process one file. | |
203 If it returns nil, it is through with one file; move on to next.") | |
204 | |
360 | 205 ;;;###autoload |
342 | 206 (defun tags-loop-continue (&optional first-time) |
207 "Continue last \\[tags-search] or \\[tags-query-replace] command. | |
208 Used noninteractively with non-nil argument | |
209 to begin such a command. See variable tags-loop-form." | |
210 (interactive) | |
211 (if first-time | |
212 (progn (next-file t) | |
213 (goto-char (point-min)))) | |
214 (while (not (eval tags-loop-form)) | |
215 (next-file) | |
216 (message "Scanning file %s..." buffer-file-name) | |
217 (goto-char (point-min)))) | |
360 | 218 ;;;###autoload |
219 (define-key esc-map "," 'tags-loop-continue) | |
342 | 220 |
360 | 221 ;;;###autoload |
342 | 222 (defun tags-search (regexp) |
223 "Search through all files listed in tag table for match for REGEXP. | |
224 Stops when a match is found. | |
225 To continue searching for next match, use command \\[tags-loop-continue]. | |
226 | |
227 See documentation of variable tags-file-name." | |
228 (interactive "sTags search (regexp): ") | |
229 (if (and (equal regexp "") | |
230 (eq (car tags-loop-form) 're-search-forward)) | |
231 (tags-loop-continue nil) | |
232 (setq tags-loop-form | |
233 (list 're-search-forward regexp nil t)) | |
234 (tags-loop-continue t))) | |
235 | |
360 | 236 ;;;###autoload |
342 | 237 (defun tags-query-replace (from to &optional delimited) |
238 "Query-replace-regexp FROM with TO through all files listed in tag table. | |
239 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. | |
240 If you exit (C-G or ESC), you can resume the query-replace | |
241 with the command \\[tags-loop-continue]. | |
242 | |
243 See documentation of variable tags-file-name." | |
244 (interactive "sTags query replace (regexp): \nsTags query replace %s by: \nP") | |
245 (setq tags-loop-form | |
246 (list 'and (list 'save-excursion | |
247 (list 're-search-forward from nil t)) | |
248 (list 'not (list 'perform-replace from to t t | |
249 (not (null delimited)))))) | |
250 (tags-loop-continue t)) | |
251 | |
360 | 252 ;;;###autoload |
342 | 253 (defun list-tags (string) |
254 "Display list of tags in file FILE. | |
255 FILE should not contain a directory spec | |
256 unless it has one in the tag table." | |
257 (interactive "sList tags (in file): ") | |
258 (with-output-to-temp-buffer "*Tags List*" | |
259 (princ "Tags in file ") | |
260 (princ string) | |
261 (terpri) | |
262 (save-excursion | |
263 (visit-tags-table-buffer) | |
264 (goto-char 1) | |
265 (search-forward (concat "\f\n" string ",")) | |
266 (forward-line 1) | |
267 (while (not (or (eobp) (looking-at "\f"))) | |
268 (princ (buffer-substring (point) | |
269 (progn (skip-chars-forward "^\177") | |
270 (point)))) | |
271 (terpri) | |
272 (forward-line 1))))) | |
273 | |
360 | 274 ;;;###autoload |
342 | 275 (defun tags-apropos (string) |
276 "Display list of all tags in tag table REGEXP matches." | |
277 (interactive "sTag apropos (regexp): ") | |
278 (with-output-to-temp-buffer "*Tags List*" | |
279 (princ "Tags matching regexp ") | |
280 (prin1 string) | |
281 (terpri) | |
282 (save-excursion | |
283 (visit-tags-table-buffer) | |
284 (goto-char 1) | |
285 (while (re-search-forward string nil t) | |
286 (beginning-of-line) | |
287 (princ (buffer-substring (point) | |
288 (progn (skip-chars-forward "^\177") | |
289 (point)))) | |
290 (terpri) | |
291 (forward-line 1))))) |