Mercurial > emacs
annotate lisp/emacs-lisp/authors.el @ 32832:1ce7dce8710b
(authors-aliases): Add some more aliases.
(authors): Set file coding system to iso-2022-7bit. Add
file-local variables to output buffer.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 24 Oct 2000 20:41:46 +0000 |
parents | efaa4e4c5fef |
children | c5fc43371c70 |
rev | line source |
---|---|
30790 | 1 ;;; authors.el --- utility for maintaining Emacs' AUTHORS file |
2 | |
3 ;; Copyright (C) 2000 Free Software Foundation, Inc. | |
4 | |
5 ;; This file is part of GNU Emacs. | |
6 | |
7 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
8 ;; it under the terms of the GNU General Public License as published by | |
9 ;; the Free Software Foundation; either version 2, or (at your option) | |
10 ;; any later version. | |
11 | |
12 ;; GNU Emacs is distributed in the hope that it will be useful, | |
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 ;; GNU General Public License for more details. | |
16 | |
17 ;; You should have received a copy of the GNU General Public License | |
18 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
20 ;; Boston, MA 02111-1307, USA. | |
21 | |
22 ;;; Commentary: | |
23 | |
24 ;; Use M-x authors RET to create an *Authors* buffer that can used as | |
25 ;; or merged with Emacs' AUTHORS file. | |
26 | |
27 ;;; Code: | |
28 | |
29 (defconst authors-many-files 20 | |
30 "Maximum number of files for which to print individual information. | |
31 If an author has modified more files, only a single entry is | |
32 printed telling how many files he changed, instead of listing each | |
33 file individually.") | |
34 | |
35 (defconst authors-aliases | |
36 '(("eliz" . "Eli Zaretskii") | |
37 ("Richard Stallman" . "Richard M. Stallman") | |
38 ("Richard M. Stallman,,," . "Richard M. Stallman") | |
39 ("Richard Stallmao" . "Richard M. Stallman") | |
40 ("rms@gnu.org" . "Richard M. Stallman") | |
41 ("NIIBE Yutaka" . "Yutaka NIIBE") | |
42 ("(saw@cebaf.gov)" . "Stephen A. Wood") | |
43 ("(pmr@legacy.pajato.com)" . "Paul Reilly") | |
44 ("(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)" . "Eric Youngdale") | |
45 ("<Daniel.Pfeiffer@Informatik.START.db.de>" . "Daniel Pfeiffer") | |
46 ("<Daniel.Pfeiffer@Informatik.START.dbp.de>" . "Daniel Pfeiffer") | |
47 ("(afs@hplb.hpl.hp.com)" . "ignore") | |
48 ("<Use-Author-Address-Header@\\[127.1\\]>" . "ignore") | |
49 ("Code Extracted" . "ignore") | |
50 ("Fsf" . "ignore") | |
51 ("David M. Koppelman, Koppel@Ee.Lsu.Edu" . "David M. Koppelman") | |
52 ("jka@ece.cmu.edu" . "Jay K. Adams") | |
53 ("Per Abhiddenware; you can redistribute it and/or modify" . "Per Abrahamsen") | |
54 ("Andrw Innes" . "Andrew Innes") | |
55 ("Barry Warsaw" . "Barry A. Warsaw") | |
56 ("Barry A. Warsaw, Century Computing, Inc." . "Barry A. Warsaw") | |
57 ("Barry A. Warsaw, ITB" . "Barry A. Warsaw") | |
58 ("Ken'ichi Handa" . "Kenichi Handa") | |
59 ("Bob Chassell" . "Robert J. Chassell") | |
60 ("SL Baur" . "Steven L. Baur") | |
61 ("Steven L Baur" . "Steven L. Baur") | |
62 ("eggert" . "Paul Eggert") | |
63 ("voelker" . "Geoff Voelker") | |
64 ("rms" . "Richard M. Stallman") | |
65 ("Edward M Reingold" . "Edward M. Reingold") | |
66 ("Eric Ludlam" . "Eric M. Ludlam") | |
67 ("Eric Raymond" . "Eric S. Raymond") | |
68 ("Francois Pinard" . "François Pinard") | |
69 ("Fred Pierresteguy" . "Frederic Pierresteguy") | |
70 ("Hallvard B Furuseth" . "Hallvard B. Furuseth") | |
71 ("ISO-2022-JP" . "ignore") | |
72 ("Jens-Ulrik Petersen" . "Jens-Ulrik Holger Petersen") | |
73 ("Christoph.Wedler@sap.com" . "Christoph Wedler") | |
74 ("Jonathan Kamens" . "Jonathan I. Kamens") | |
75 ("Kim Storm" . "Kim F. Storm") | |
76 ("Marcus Daniels" . "Marcus G. Daniels") | |
77 ("Michael I Bushnell" . "Michael I. Bushnell") | |
78 ("Michael I. Bushnell, P/Bsg" . "Michael I. Bushnell") | |
79 ("Reingold Edward M" . "Edward M. Reingold") | |
80 ("Roland B Roberts" . "Roland B. Roberts") | |
81 ("Sam Shteingold" . "Sam Steingold") | |
32832
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
82 ("W{\L}Odek Bzyl" . "Wlodzimierz Bzyl") |
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
83 ("Kenneth Manheimer" . "Ken Manheimer") |
30790 | 84 ("Kenichi HANDA" . "Kenichi Handa")) |
85 "Alist of author aliases. | |
86 | |
87 Each entry is of the form (REGEXP . ALIAS). If an author's name | |
88 matches REGEXP, use ALIAS instead. The special alias \"ignore\" means | |
89 ignore that author.") | |
90 | |
91 | |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
92 (defvar authors-obsolete-files-regexps |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
93 '("vc-\\*\\.el$" |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
94 "spec.txt$" |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
95 "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$") |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
96 "List of regexps matching obsolete files. |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
97 Changes to files matching one of the regexps in this list are not |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
98 listed.") |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
99 |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
100 |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
101 (defun authors-obsolete-file-p (file) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
102 "Return non-nil if FILE is obsolete. |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
103 FILE is considered obsolete if it matches on of the regular expressions |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
104 from `authors-obsolete-files-regexps'." |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
105 (let (obsolete-p |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
106 (regexps authors-obsolete-files-regexps)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
107 (while (and regexps (not obsolete-p)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
108 (setq obsolete-p (string-match (car regexps) file) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
109 regexps (cdr regexps))) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
110 obsolete-p)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
111 |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
112 |
30790 | 113 (defun authors-add (author file action table) |
114 "Record that AUTHOR worked on FILE. | |
115 ACTION is a keyword symbol describing what he did. Record file, | |
116 author and what he did in hash table TABLE. See the description of | |
117 `authors-scan-change-log' for the structure of the hash table." | |
32529
efaa4e4c5fef
(authors-add): Don't add an entry if
Gerd Moellmann <gerd@gnu.org>
parents:
32028
diff
changeset
|
118 (unless (or (authors-obsolete-file-p file) |
efaa4e4c5fef
(authors-add): Don't add an entry if
Gerd Moellmann <gerd@gnu.org>
parents:
32028
diff
changeset
|
119 (equal author "")) |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
120 (let* ((value (gethash author table)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
121 (entry (assoc file value))) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
122 (if (null entry) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
123 (puthash author (cons (list file action) value) table) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
124 (unless (memq action entry) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
125 (nconc entry (list action))))))) |
30790 | 126 |
127 | |
128 (defun authors-process-lines (program &rest args) | |
129 "Execute PROGRAM with ARGS, returning its output as a list of lines. | |
130 Signal an error if the program returns with a non-zero exit status." | |
131 (with-temp-buffer | |
132 (let ((status (apply 'call-process program nil (current-buffer) nil args))) | |
133 (unless (eq status 0) | |
134 (error "%s exited with status %s" program status)) | |
135 (goto-char (point-min)) | |
136 (let (lines) | |
137 (while (not (eobp)) | |
138 (setq lines (cons (buffer-substring-no-properties | |
139 (line-beginning-position) | |
140 (line-end-position)) | |
141 lines)) | |
142 (forward-line 1)) | |
143 (nreverse lines))))) | |
144 | |
145 | |
146 (defun authors-canonical-author-name (author) | |
147 "Return a canonicalized form of AUTHOR, an author name. | |
148 If AUTHOR has an alias, use that. Remove email addresses. Capitalize | |
149 words in the author's name." | |
150 (let ((aliases authors-aliases)) | |
151 (while aliases | |
152 (when (string-match (car (car aliases)) author) | |
153 (setq author (cdr (car aliases)) | |
154 aliases nil)) | |
155 (setq aliases (cdr aliases)))) | |
156 (setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author)) | |
157 (setq author (replace-regexp-in-string "^[ \t]+" "" author)) | |
158 (setq author (replace-regexp-in-string "[ \t]+$" "" author)) | |
159 (capitalize author)) | |
160 | |
161 | |
162 (defun authors-scan-change-log (file table) | |
163 "Scan change log FILE for author information. | |
164 | |
165 For each change mentioned in the log, add an entry to hash table TABLE | |
166 under the author's canonical name. | |
167 | |
168 Keys of TABLE are author names. Values are alists of entries (FILE | |
169 ACTION...). FILE is one file the author worked on. The rest of the | |
170 entry is a list of keyword symbols describing what he did with the | |
171 file. | |
172 | |
173 :wrote means the author wrote the file | |
174 :changed means he changed the file." | |
175 | |
176 (let* ((enable-local-variables t) | |
177 (enable-local-eval t) | |
178 (existing-buffer (get-file-buffer file)) | |
179 (buffer (find-file-noselect file)) | |
180 author) | |
181 (save-excursion | |
182 (set-buffer buffer) | |
183 (save-restriction | |
184 (widen) | |
185 (goto-char (point-min)) | |
186 (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t) | |
187 (beginning-of-line) | |
188 (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+") | |
189 (skip-chars-forward " \t+:0-9-") | |
190 (setq author (buffer-substring-no-properties | |
191 (point) (line-end-position))) | |
192 (setq author (authors-canonical-author-name author)) | |
193 (forward-line 1)) | |
194 ((looking-at "^[ \t]+\\*") | |
195 (let ((line (buffer-substring-no-properties | |
196 (match-end 0) (line-end-position)))) | |
197 (while (and (not (string-match ":" line)) | |
198 (forward-line 1) | |
199 (not (looking-at ":\\|^[ \t]*$"))) | |
200 (setq line (concat line | |
201 (buffer-substring-no-properties | |
202 (line-beginning-position) | |
203 (line-end-position))))) | |
204 (when (string-match ":" line) | |
205 (setq line (substring line 0 (match-beginning 0))) | |
206 (setq line (replace-regexp-in-string "[[(<{].*$" "" line)) | |
207 (setq line (replace-regexp-in-string "," "" line)) | |
208 (dolist (file (split-string line)) | |
209 (setq file (file-name-nondirectory file)) | |
210 ;(message "%s changed %s" author file) | |
211 (authors-add author file :changed table))) | |
212 (forward-line 1))))))) | |
213 (unless existing-buffer | |
214 (kill-buffer buffer)))) | |
215 | |
216 | |
217 (defun authors-scan-el (file table) | |
218 "Scan Lisp file FILE for author information. | |
219 TABLE is a hash table to add author information to." | |
220 (let* ((existing-buffer (get-file-buffer file)) | |
221 (enable-local-variables t) | |
222 (enable-local-eval t) | |
223 (buffer (find-file-noselect file))) | |
224 (save-excursion | |
225 (set-buffer buffer) | |
226 (save-restriction | |
227 (widen) | |
228 (goto-char (point-min)) | |
229 (while (and (re-search-forward | |
230 "^;+[ \t]*\\(Author\\|Commentary\\):[ \t]*" nil t) | |
231 (not (string= (match-string 1) "Commentary"))) | |
232 ;; Some entries contain a year range in front of the | |
233 ;; author's name. | |
234 (skip-chars-forward "-0-9 \t") | |
235 (let ((author (buffer-substring-no-properties | |
236 (point) (line-end-position)))) | |
237 (setq author (authors-canonical-author-name author)) | |
238 (setq file (file-name-nondirectory file)) | |
239 (authors-add author file :wrote table))))) | |
240 (unless existing-buffer | |
241 (kill-buffer buffer)))) | |
242 | |
243 | |
244 (defun authors-print (author changes) | |
245 "Insert information about AUTHOR's work on Emacs into the current buffer. | |
246 CHANGES is an alist of entries (FILE ACTION...), as produced by | |
247 `authors-scan-change-log'." | |
248 (unless (equal author "Ignore") | |
249 (let ((nchanged 0)) | |
250 (dolist (change changes) | |
251 (let ((actions (cdr change)) | |
252 (file (car change))) | |
253 (if (memq :wrote actions) | |
254 (insert author " (wrote) " file "\n") | |
255 (setq nchanged (1+ nchanged))))) | |
256 (if (> nchanged authors-many-files) | |
32005
01a7fea88dc1
(authors-print): Rephrase many-files string.
Miles Bader <miles@gnu.org>
parents:
31957
diff
changeset
|
257 (insert author " (changed) [more than " |
30790 | 258 (int-to-string authors-many-files) " files]\n") |
259 (dolist (change changes) | |
260 (let ((actions (cdr change)) | |
261 (file (car change))) | |
262 (unless (memq :wrote actions) | |
263 (insert author " (changed) " file "\n")))))))) | |
264 | |
265 | |
266 ;;;###autoload | |
267 (defun authors (root) | |
268 "Extract author information from change logs and Lisp source files. | |
269 ROOT is the root directory under which to find the files. If called | |
270 interactively, ROOT is read from the minibuffer. Result is a | |
271 buffer *Authors* containing authorship information." | |
272 (interactive "DEmacs source directory: ") | |
273 (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*")) | |
274 (table (make-hash-table :test 'equal)) | |
275 (buffer-name "*Authors*")) | |
276 (setq root (expand-file-name root)) | |
277 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) | |
278 (error "Not the root directory of Emacs: %s" root)) | |
279 (dolist (log logs) | |
280 (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) | |
281 (message "Scanning %s..." log) | |
282 (authors-scan-change-log log table))) | |
283 (let ((els (authors-process-lines "find" root "-name" "*.el"))) | |
284 (dolist (file els) | |
285 (message "Scanning %s..." file) | |
286 (authors-scan-el file table))) | |
287 (set-buffer (get-buffer-create buffer-name)) | |
288 (erase-buffer) | |
32832
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
289 (set-buffer-file-coding-system 'iso-2022-7bit) |
30790 | 290 (maphash #'authors-print table) |
291 (sort-lines nil (point-min) (point-max)) | |
32832
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
292 (insert "\nLocal" " Variables:\ncoding: iso-2022-7bit\nEnd:\n") |
30790 | 293 (pop-to-buffer buffer-name))) |
294 | |
295 | |
296 ;; authors.el ends here |