|
442
|
1 ;;; update-elc-2.el --- Recompile remaining .el files, post-dumping
|
|
|
2
|
|
|
3 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
|
|
1261
|
4 ;; Copyright (C) 2000, 2003 Ben Wing.
|
|
442
|
5
|
|
|
6 ;; Author: Ben Wing <ben@xemacs.org>, based on cleantree.el by
|
|
|
7 ;; Steven L Baur <steve@xemacs.org>
|
|
|
8 ;; Maintainer: XEmacs Development Team
|
|
|
9 ;; Keywords: internal
|
|
|
10
|
|
|
11 ;; This file is part of XEmacs.
|
|
|
12
|
|
|
13 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
14 ;; under the terms of the GNU General Public License as published by
|
|
|
15 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
16 ;; any later version.
|
|
|
17
|
|
|
18 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
21 ;; General Public License for more details.
|
|
|
22
|
|
|
23 ;; You should have received a copy of the GNU General Public License
|
|
|
24 ;; along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
26 ;; 02111-1307, USA.
|
|
|
27
|
|
|
28 ;;; Synched up with: Not in FSF
|
|
|
29
|
|
|
30 ;;; Commentary:
|
|
|
31
|
|
|
32 ;; This file should be used after XEmacs has been dumped, to recompile
|
|
|
33 ;; all remaining out-of-date .els and clean up orphaned .elcs. It should
|
|
|
34 ;; be called as
|
|
|
35 ;;
|
|
|
36 ;; xemacs -batch -vanilla -l update-elc-2.el -f batch-update-elc-2 ${dirname}
|
|
|
37 ;;
|
|
|
38 ;; where ${dirname} is the directory tree to recompile, usually `lisp'.
|
|
|
39 ;;
|
|
|
40 ;; Note that this is very different from update-elc.el, which is called
|
|
|
41 ;; BEFORE dumping, handles only the files needed to dump, and is called
|
|
|
42 ;; from temacs instead of xemacs.
|
|
|
43 ;;
|
|
|
44 ;; The original cleantree.el had the comment: This code is derived
|
|
|
45 ;; from Gnus based on a suggestion by David Moore <dmoore@ucsd.edu>
|
|
|
46
|
|
|
47 ;;; Code:
|
|
|
48
|
|
1261
|
49 ;; Help debug problems.
|
|
|
50 (setq stack-trace-on-error t
|
|
|
51 load-always-display-messages t)
|
|
|
52
|
|
442
|
53 (defvar update-elc-ignored-dirs
|
|
|
54 `("." ".." "CVS" "SCCS" "RCS" ,@(unless (featurep 'mule) '("mule"))))
|
|
|
55
|
|
|
56 (defvar update-elc-ignored-files
|
|
|
57 ;; note: entries here are regexps
|
|
|
58 '("^," ;; #### huh?
|
|
444
|
59 "^paths\\.el$"
|
|
|
60 "^loadup\\.el$"
|
|
|
61 "^loadup-el\\.el$"
|
|
|
62 "^update-elc\\.el$"
|
|
|
63 "^update-elc-2\\.el$"
|
|
|
64 "^dumped-lisp\\.el$"
|
|
|
65 "^make-docfile\\.el$"
|
|
|
66 "^site-start\\.el$"
|
|
|
67 "^site-load\\.el$"
|
|
|
68 "^site-init\\.el$"
|
|
1315
|
69 "^version\\.el$"))
|
|
442
|
70
|
|
1298
|
71 (defvar dirfiles-table (make-hash-table :test 'equal))
|
|
|
72
|
|
442
|
73 ;; SEEN accumulates the list of already-handled dirs.
|
|
|
74 (defun do-update-elc-2 (dir compile-stage-p seen)
|
|
|
75 (setq dir (file-name-as-directory dir))
|
|
|
76 ;; Only scan this sub-tree if we haven't been here yet.
|
|
|
77 (unless (member (file-truename dir) seen)
|
|
|
78 (push (file-truename dir) seen)
|
|
|
79
|
|
1298
|
80 (let ((files (or (gethash dir dirfiles-table)
|
|
|
81 (directory-files dir t nil t))))
|
|
|
82
|
|
|
83 ;; Do this directory.
|
|
|
84 (if compile-stage-p
|
|
|
85 ;; Stage 2: Recompile necessary .els
|
|
|
86 (dolist (file files)
|
|
|
87 (when (string-match "\\.el$" file)
|
|
|
88 (let ((file-c (concat file "c")))
|
|
|
89 (when (and (not (member file-c files))
|
|
|
90 ;; no need to check for out-of-date-ness because
|
|
|
91 ;; that was already done, and .elc removed.
|
|
|
92 (let (ignore)
|
|
|
93 (mapcar
|
|
|
94 #'(lambda (regexp)
|
|
|
95 (if (string-match
|
|
|
96 regexp
|
|
|
97 (file-name-nondirectory file))
|
|
|
98 (setq ignore t)))
|
|
|
99 update-elc-ignored-files)
|
|
|
100 (not ignore)))
|
|
|
101 (byte-compile-file file)))))
|
|
442
|
102
|
|
1298
|
103 ;; Stage 1.
|
|
|
104 ;; Remove out-of-date elcs
|
|
|
105 (let (deleted)
|
|
|
106 (dolist (file files)
|
|
|
107 (when (string-match "\\.el$" file)
|
|
|
108 (let ((file-c (concat file "c")))
|
|
|
109 (when (and (member file-c files)
|
|
|
110 (file-newer-than-file-p file file-c))
|
|
|
111 (message "Removing out-of-date %s" file-c)
|
|
|
112 (delete-file file-c)
|
|
|
113 (push file-c deleted)))))
|
|
442
|
114
|
|
1298
|
115 ;; Remove elcs without corresponding el
|
|
|
116 (dolist (file-c files)
|
|
|
117 (when (string-match "\\.elc$" file-c)
|
|
|
118 (let ((file (replace-in-string file-c "c$" "")))
|
|
|
119 (when (not (member file files))
|
|
|
120 (message "Removing %s; no corresponding .el" file-c)
|
|
|
121 (delete-file file-c)
|
|
|
122 (push file-c deleted)))))
|
|
442
|
123
|
|
1303
|
124 (setq files (set-difference files deleted :test 'equal))))
|
|
1298
|
125
|
|
|
126 (puthash dir files dirfiles-table)
|
|
|
127
|
|
|
128 ;; We descend recursively. On my Windows machine, it is much faster
|
|
|
129 ;; to call directory-files again to recompute than to call
|
|
|
130 ;; file-directory-p on each member of the files list.
|
|
|
131 (dolist (dir (directory-files dir t nil t 'dir))
|
|
|
132 (when (not (member (file-name-nondirectory dir)
|
|
|
133 update-elc-ignored-dirs))
|
|
|
134 (do-update-elc-2 dir compile-stage-p seen))))))
|
|
442
|
135
|
|
|
136 (defun batch-update-elc-2 ()
|
|
|
137 (defvar command-line-args-left)
|
|
|
138 (unless noninteractive
|
|
|
139 (error "`batch-update-elc-2' is to be used only with -batch"))
|
|
|
140 (let ((dir (car command-line-args-left)))
|
|
1298
|
141 ;; don't depend on being able to autoload `update-autoload-files'!
|
|
|
142 (load "autoload")
|
|
|
143 (load "bytecomp")
|
|
|
144 (load "byte-optimize")
|
|
|
145 ;; #### the API used here is deprecated, convert to one with explicit
|
|
|
146 ;; arguments when it is available
|
|
|
147 ;; update-elc.el signals us to rebuild the autoloads when necessary.
|
|
|
148 ;; in some cases it will rebuild the autoloads itself, but doing it this
|
|
|
149 ;; way is slow, so we avoid it when possible.
|
|
1330
|
150 (when (file-exists-p (expand-file-name "REBUILD_AUTOLOADS"
|
|
|
151 invocation-directory))
|
|
2548
|
152 ;; if we were instructed to rebuild the autoloads, force the file
|
|
|
153 ;; to be touched even w/o changes; otherwise, we won't ever stop
|
|
|
154 ;; being told to rebuild them.
|
|
|
155 (update-autoload-files dir "auto" nil t)
|
|
|
156 (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0)
|
|
1298
|
157 (when (featurep 'mule)
|
|
2548
|
158 (let ((muledir (expand-file-name "../lisp/mule" (file-truename dir))))
|
|
1330
|
159 ;; force here just like above.
|
|
2548
|
160 (update-autoload-files muledir "mule" nil t)
|
|
|
161 (byte-recompile-file (expand-file-name "auto-autoloads.el" dir) 0))))
|
|
1298
|
162 (when (featurep 'modules)
|
|
|
163 (let* ((moddir (expand-file-name "../modules" (file-truename dir)))
|
|
2548
|
164 (autofile (expand-file-name "auto-autoloads.el" moddir)))
|
|
|
165 (update-autoload-files
|
|
1298
|
166 (delete (concat (file-name-as-directory moddir) ".")
|
|
|
167 (delete (concat (file-name-as-directory moddir) "..")
|
|
|
168 (directory-files moddir t nil nil 0)))
|
|
2548
|
169 "modules" autofile)
|
|
|
170 (byte-recompile-file autofile 0)))
|
|
1298
|
171 ;; now load the (perhaps newly rebuilt) autoloads; we were called with
|
|
|
172 ;; -no-autoloads so they're not already loaded.
|
|
1330
|
173 (load (expand-file-name "auto-autoloads" lisp-directory))
|
|
1298
|
174 (when (featurep 'mule)
|
|
1330
|
175 (load (expand-file-name "mule/auto-autoloads" lisp-directory)))
|
|
442
|
176 ;; We remove all the bad .elcs before any byte-compilation, because
|
|
|
177 ;; there may be dependencies between one .el and another (even across
|
|
|
178 ;; directories), and we don't want to load an out-of-date .elc while
|
|
|
179 ;; byte-compiling a file.
|
|
|
180 (message "Removing old or spurious .elcs in directory tree `%s'..." dir)
|
|
|
181 (do-update-elc-2 dir nil nil)
|
|
|
182 (message "Removing old or spurious .elcs in directory tree `%s'...done"
|
|
|
183 dir)
|
|
|
184 (message "Recompiling updated .els in directory tree `%s'..." dir)
|
|
|
185 (do-update-elc-2 dir t nil)
|
|
528
|
186 (message "Recompiling updated .els in directory tree `%s'...done" dir)
|
|
|
187 ;; likewise here.
|
|
|
188 (load "cus-dep")
|
|
|
189 (Custom-make-dependencies dir)
|
|
|
190 (byte-recompile-file (expand-file-name "custom-load.el" dir) 0)
|
|
|
191 (when (featurep 'mule)
|
|
|
192 (Custom-make-dependencies (expand-file-name "mule" dir))
|
|
|
193 (byte-recompile-file (expand-file-name "mule/custom-load.el" dir) 0))
|
|
|
194 )
|
|
442
|
195 (setq command-line-args-left nil))
|
|
|
196
|
|
444
|
197 ;;; update-elc-2.el ends here
|
