1 ;;; autoload.el --- maintain autoloads in loaddefs.el.
3 ;;; Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
8 ;;; This program is free software; you can redistribute it and/or modify
9 ;;; it under the terms of the GNU General Public License as published by
10 ;;; the Free Software Foundation; either version 2, or (at your option)
11 ;;; any later version.
13 ;;; This program is distributed in the hope that it will be useful,
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;;; GNU General Public License for more details.
18 ;;; A copy of the GNU General Public License can be obtained from this
19 ;;; program's author (send electronic mail to roland@ai.mit.edu) or from
20 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
26 ;; This code helps GNU Emacs maintainers keep the autoload.el file up to
27 ;; date. It interprets magic cookies of the form ";;;###autoload" in
28 ;; lisp source files in various useful ways. To learn more, read the
29 ;; source; if you're going to use this, you'd better be able to.
33 (defun make-autoload (form file)
34 "Turn FORM, a defun or defmacro, into an autoload for source file FILE.
35 Returns nil if FORM is not a defun or defmacro."
36 (let ((car (car-safe form)))
37 (if (memq car '(defun defmacro))
38 (let ((macrop (eq car 'defmacro))
40 (setq form (cdr form))
41 (setq name (car form))
42 ;; Ignore the arguments.
43 (setq form (cdr (cdr form)))
46 (setq form (cdr form))
48 (list 'autoload (list 'quote name) file doc
49 (eq (car-safe (car form)) 'interactive)
50 (if macrop (list 'quote 'macro) nil)))
53 (defconst generate-autoload-cookie ";;;###autoload"
54 "Magic comment indicating the following form should be autoloaded.
55 Used by \\[update-file-autoloads]. This string should be
56 meaningless to Lisp (e.g., a comment).
61 \(defun function-to-be-autoloaded () ...)
63 If this string appears alone on a line, the following form will be
64 read and an autoload made for it. If there is further text on the line,
65 that text will be copied verbatim to `generated-autoload-file'.")
67 (defconst generate-autoload-section-header "\f\n;;;### "
68 "String inserted before the form identifying
69 the section of autoloads for a file.")
71 (defconst generate-autoload-section-trailer "\n;;;***\n"
72 "String which indicates the end of the section of autoloads for a file.")
74 ;;; Forms which have doc-strings which should be printed specially.
75 ;;; A doc-string-elt property of ELT says that (nth ELT FORM) is
76 ;;; the doc-string in FORM.
78 ;;; There used to be the following note here:
79 ;;; ;;; Note: defconst and defvar should NOT be marked in this way.
80 ;;; ;;; We don't want to produce defconsts and defvars that
81 ;;; ;;; make-docfile can grok, because then it would grok them twice,
82 ;;; ;;; once in foo.el (where they are given with ;;;###autoload) and
83 ;;; ;;; once in loaddefs.el.
85 ;;; Counter-note: Yes, they should be marked in this way.
86 ;;; make-docfile only processes those files that are loaded into the
87 ;;; dumped Emacs, and those files should never have anything
88 ;;; autoloaded here. The above-feared problem only occurs with files
89 ;;; which have autoloaded entries *and* are processed by make-docfile;
90 ;;; there should be no such files.
92 (put 'autoload 'doc-string-elt 3)
93 (put 'defun 'doc-string-elt 3)
94 (put 'defvar 'doc-string-elt 3)
95 (put 'defconst 'doc-string-elt 3)
96 (put 'defmacro 'doc-string-elt 3)
98 (defun generate-file-autoloads (file)
99 "Insert at point a loaddefs autoload section for FILE.
100 autoloads are generated for defuns and defmacros in FILE
101 marked by `generate-autoload-cookie' (which see).
102 If FILE is being visited in a buffer, the contents of the buffer
104 (interactive "fGenerate autoloads for file: ")
105 (let ((outbuf (current-buffer))
107 (load-name (let ((name (file-name-nondirectory file)))
108 (if (string-match "\\.elc?$" name)
109 (substring name 0 (match-beginning 0))
112 (floating-output-format "%20e")
114 (visited (get-file-buffer file))
117 ;; If the autoload section we create here uses an absolute
118 ;; pathname for FILE in its header, and then Emacs is installed
119 ;; under a different path on another system,
120 ;; `update-autoloads-here' won't be able to find the files to be
121 ;; autoloaded. So, if FILE is in the same directory or a
122 ;; subdirectory of the current buffer's directory, we'll make it
123 ;; relative to the current buffer's directory.
124 (setq file (expand-file-name file))
125 (let* ((source-truename (file-truename file))
126 (dir-truename (file-name-as-directory
127 (file-truename default-directory)))
128 (len (length dir-truename)))
129 (if (and (< len (length source-truename))
130 (string= dir-truename (substring source-truename 0 len)))
131 (setq file (substring source-truename len))))
133 (message "Generating autoloads for %s..." file)
137 (set-buffer (find-file-noselect file))
141 (goto-char (point-min))
143 (skip-chars-forward " \t\n\f")
145 ((looking-at (regexp-quote generate-autoload-cookie))
146 (search-forward generate-autoload-cookie)
147 (skip-chars-forward " \t")
150 ;; Read the next form and make an autoload.
151 (let* ((form (prog1 (read (current-buffer))
153 (autoload (make-autoload form load-name))
154 (doc-string-elt (get (car-safe form)
157 (setq autoloads-done (cons (nth 1 form)
159 (setq autoload form))
160 (if (and doc-string-elt
161 (stringp (nth doc-string-elt autoload)))
162 ;; We need to hack the printing because the
163 ;; doc-string must be printed specially for
164 ;; make-docfile (sigh).
165 (let* ((p (nthcdr (1- doc-string-elt)
170 (mapcar (function (lambda (elt)
174 (princ "\"\\\n" outbuf)
176 (prin1-to-string (car elt)) 1)
182 (prin1-to-string (cdr elt))
186 (print autoload outbuf)))
187 ;; Copy the rest of the line to the output.
188 (let ((begin (point)))
190 (princ (buffer-substring begin (point)) outbuf))))
192 ;; Don't read the comment.
196 (forward-line 1)))))))
198 ;; We created this buffer, so we should kill it.
199 (kill-buffer (current-buffer)))
201 (setq output-end (point-marker))))
204 (insert generate-autoload-section-header)
205 (prin1 (list 'autoloads autoloads-done load-name file
206 (nth 5 (file-attributes file)))
209 (insert ";;; Generated autoloads from " file "\n")
210 (goto-char output-end)
211 (insert generate-autoload-section-trailer)))
212 (message "Generating autoloads for %s...done" file)))
214 (defconst generated-autoload-file "loaddefs.el"
215 "*File \\[update-file-autoloads] puts autoloads into.
216 A .el file can set this in its local variables section to make its
217 autoloads go somewhere else.")
220 (defun update-file-autoloads (file)
221 "Update the autoloads for FILE in `generated-autoload-file'
222 \(which FILE might bind in its local variables)."
223 (interactive "fUpdate autoloads for file: ")
224 (let ((load-name (let ((name (file-name-nondirectory file)))
225 (if (string-match "\\.elc?$" name)
226 (substring name 0 (match-beginning 0))
229 (existing-buffer (get-file-buffer file)))
231 ;; We want to get a value for generated-autoload-file from
232 ;; the local variables section if it's there.
233 (set-buffer (find-file-noselect file))
234 (set-buffer (find-file-noselect generated-autoload-file))
238 (goto-char (point-min))
239 (while (search-forward generate-autoload-section-header nil t)
240 (let ((form (condition-case ()
241 (read (current-buffer))
243 (if (string= (nth 2 form) load-name)
244 (let ((begin (match-beginning 0))
245 (last-time (nth 4 form))
246 (file-time (nth 5 (file-attributes file))))
247 (if (and (or (null existing-buffer)
248 (not (buffer-modified-p existing-buffer)))
249 (listp last-time) (= (length last-time) 2)
250 (or (> (car last-time) (car file-time))
251 (and (= (car last-time) (car file-time))
252 (>= (nth 1 last-time)
253 (nth 1 file-time)))))
254 (message "Autoload section for %s is up to date."
256 (search-forward generate-autoload-section-trailer)
257 (delete-region begin (point))
258 (generate-file-autoloads file))
261 ;; There was an existing section and we have updated it.
264 (set-buffer (find-file-noselect file))
268 (goto-char (point-min))
269 (search-forward generate-autoload-cookie nil t))))
270 ;; There are autoload cookies in FILE.
271 ;; Have the user tell us where to put the new section.
273 (save-window-excursion
274 (switch-to-buffer (current-buffer))
275 (with-output-to-temp-buffer "*Help*"
276 (princ (substitute-command-keys
278 Move point to where the autoload section
279 for %s should be inserted.
280 Then do \\[exit-recursive-edit]."
284 (generate-file-autoloads file)))))
285 (if (interactive-p) (save-buffer))
286 (if (and (null existing-buffer)
287 (setq existing-buffer (get-file-buffer file)))
288 (kill-buffer existing-buffer)))))
291 (defun update-autoloads-here ()
293 Update sections of the current buffer generated by \\[update-file-autoloads]."
295 (let ((generated-autoload-file (buffer-file-name)))
297 (goto-char (point-min))
298 (while (search-forward generate-autoload-section-header nil t)
299 (let* ((form (condition-case ()
300 (read (current-buffer))
303 (if (and (stringp file)
304 (or (get-file-buffer file)
305 (file-exists-p file)))
307 (setq file (if (y-or-n-p (format "Library \"%s\" (load \
308 file \"%s\") doesn't exist. Remove its autoload section? "
312 (read-file-name (format "Find \"%s\" load file: "
317 (let ((begin (match-beginning 0)))
318 (search-forward generate-autoload-section-trailer)
319 (delete-region begin (point))))
321 (generate-file-autoloads file)))))))
324 (defun update-directory-autoloads (dir)
325 "Run \\[update-file-autoloads] on each .el file in DIR."
326 (interactive "DUpdate autoloads for directory: ")
327 (mapcar 'update-file-autoloads
328 (directory-files dir nil "\\.el$"))
331 (set-buffer (find-file-noselect generated-autoload-file))
335 (defun batch-update-autoloads ()
336 "Update the autoloads for the files or directories on the command line.
337 Runs \\[update-file-autoloads] on files and \\[update-directory-autoloads]
338 on directories. Must be used only with -batch, and kills Emacs on completion.
339 Each file will be processed even if an error occurred previously.
340 For example, invoke \"emacs -batch -f batch-update-autoloads *.el\""
341 (if (not noninteractive)
342 (error "batch-update-autoloads is to be used only with -batch"))
344 (args command-line-args-left))
347 (condition-case lossage
348 (if (file-directory-p (expand-file-name (car args)))
349 (update-directory-autoloads (car args))
350 (update-file-autoloads (car args)))
351 (error (progn (message ">>Error processing %s: %s"
354 (throw 'file nil)))))
355 (setq args (cdr args)))
356 (save-some-buffers t)
358 (kill-emacs (if lost 1 0))))
362 ;;; autoload.el ends here