Mercurial > emacs
annotate lisp/emacs-lisp/authors.el @ 44728:7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
version.
author | Martin Stjernholm <mast@lysator.liu.se> |
---|---|
date | Mon, 22 Apr 2002 00:35:36 +0000 |
parents | 8a9386a43e41 |
children | 0cd79941b83a |
rev | line source |
---|---|
30790 | 1 ;;; authors.el --- utility for maintaining Emacs' AUTHORS file |
2 | |
3 ;; Copyright (C) 2000 Free Software Foundation, Inc. | |
4 | |
33752
9ebf8de0e42c
Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents:
33151
diff
changeset
|
5 ;; Author: Gerd Moellmann <gerd@gnu.org> |
9ebf8de0e42c
Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents:
33151
diff
changeset
|
6 ;; Maintainer: FSF |
9ebf8de0e42c
Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents:
33151
diff
changeset
|
7 ;; Keywords: maint |
9ebf8de0e42c
Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents:
33151
diff
changeset
|
8 |
30790 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
25 | |
26 ;;; Commentary: | |
27 | |
28 ;; Use M-x authors RET to create an *Authors* buffer that can used as | |
29 ;; or merged with Emacs' AUTHORS file. | |
30 | |
31 ;;; Code: | |
32 | |
33 (defconst authors-many-files 20 | |
34 "Maximum number of files for which to print individual information. | |
35 If an author has modified more files, only a single entry is | |
36 printed telling how many files he changed, instead of listing each | |
37 file individually.") | |
38 | |
39 (defconst authors-aliases | |
40 '(("eliz" . "Eli Zaretskii") | |
41 ("Richard Stallman" . "Richard M. Stallman") | |
42 ("Richard M. Stallman,,," . "Richard M. Stallman") | |
43 ("rms@gnu.org" . "Richard M. Stallman") | |
44 ("NIIBE Yutaka" . "Yutaka NIIBE") | |
45 ("(saw@cebaf.gov)" . "Stephen A. Wood") | |
46 ("(pmr@legacy.pajato.com)" . "Paul Reilly") | |
47 ("(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)" . "Eric Youngdale") | |
48 ("<Daniel.Pfeiffer@Informatik.START.db.de>" . "Daniel Pfeiffer") | |
49 ("<Daniel.Pfeiffer@Informatik.START.dbp.de>" . "Daniel Pfeiffer") | |
50 ("(afs@hplb.hpl.hp.com)" . "ignore") | |
51 ("<Use-Author-Address-Header@\\[127.1\\]>" . "ignore") | |
52 ("Code Extracted" . "ignore") | |
53 ("Fsf" . "ignore") | |
54 ("David M. Koppelman, Koppel@Ee.Lsu.Edu" . "David M. Koppelman") | |
55 ("jka@ece.cmu.edu" . "Jay K. Adams") | |
56 ("Per Abhiddenware; you can redistribute it and/or modify" . "Per Abrahamsen") | |
57 ("Andrw Innes" . "Andrew Innes") | |
58 ("Barry Warsaw" . "Barry A. Warsaw") | |
59 ("Barry A. Warsaw, Century Computing, Inc." . "Barry A. Warsaw") | |
60 ("Barry A. Warsaw, ITB" . "Barry A. Warsaw") | |
61 ("Ken'ichi Handa" . "Kenichi Handa") | |
62 ("Bob Chassell" . "Robert J. Chassell") | |
63 ("SL Baur" . "Steven L. Baur") | |
64 ("Steven L Baur" . "Steven L. Baur") | |
65 ("eggert" . "Paul Eggert") | |
66 ("voelker" . "Geoff Voelker") | |
67 ("rms" . "Richard M. Stallman") | |
68 ("Edward M Reingold" . "Edward M. Reingold") | |
69 ("Eric Ludlam" . "Eric M. Ludlam") | |
70 ("Eric Raymond" . "Eric S. Raymond") | |
71 ("Francois Pinard" . "François Pinard") | |
72 ("Fred Pierresteguy" . "Frederic Pierresteguy") | |
73 ("Hallvard B Furuseth" . "Hallvard B. Furuseth") | |
74 ("ISO-2022-JP" . "ignore") | |
75 ("Jens-Ulrik Petersen" . "Jens-Ulrik Holger Petersen") | |
76 ("Christoph.Wedler@sap.com" . "Christoph Wedler") | |
77 ("Jonathan Kamens" . "Jonathan I. Kamens") | |
78 ("Kim Storm" . "Kim F. Storm") | |
79 ("Marcus Daniels" . "Marcus G. Daniels") | |
80 ("Michael I Bushnell" . "Michael I. Bushnell") | |
81 ("Michael I. Bushnell, P/Bsg" . "Michael I. Bushnell") | |
82 ("Reingold Edward M" . "Edward M. Reingold") | |
83 ("Roland B Roberts" . "Roland B. Roberts") | |
84 ("Sam Shteingold" . "Sam Steingold") | |
32832
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
85 ("W{\L}Odek Bzyl" . "Wlodzimierz Bzyl") |
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
86 ("Kenneth Manheimer" . "Ken Manheimer") |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
87 ("Kenichi HANDA" . "Kenichi Handa") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
88 ("Jay Adams" . "Jay R. Adams") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
89 ("Joe Arceneaux" . "Josef Arceneaux") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
90 ("K. Berry" . "Karl Berry") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
91 ("Michael Ernst" . "Michael D. Ernst") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
92 ("Dave Gillespie" . "David Gillespie") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
93 ("Shane Hartman" . "K. Shane Hartman") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
94 ("Francesco Potorti`" . "Francesco Potorti") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
95 ("Roland Roberts" . "Roland B. Roberts") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
96 ("David Smith" . "David M. Smith") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
97 ) |
30790 | 98 "Alist of author aliases. |
99 | |
100 Each entry is of the form (REGEXP . ALIAS). If an author's name | |
101 matches REGEXP, use ALIAS instead. The special alias \"ignore\" means | |
102 ignore that author.") | |
103 | |
104 | |
33151
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
105 (defvar authors-public-domain-files |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
106 '("auto-show\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
107 "form-d2\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
108 "emerge\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
109 "unused\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
110 "vi\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
111 "feedmail\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
112 "mailpost\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
113 "hanoi\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
114 "meese\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
115 "studly\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
116 "modula2\\.el") |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
117 "List of regexps matching files for which the FSF doesn't need papers.") |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
118 |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
119 |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
120 (defvar authors-obsolete-files-regexps |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
121 '("vc-\\*\\.el$" |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
122 "spec.txt$" |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
123 "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$") |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
124 "List of regexps matching obsolete files. |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
125 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
|
126 listed.") |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
127 |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
128 |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
129 (defconst authors-fixed-entries |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
130 '(("Joe Arceneax" :wrote "xrdb.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
131 ("Blitz Product Development Corporation" :wrote "ispell.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
132 ("Frank Bresz" :wrote "diff.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
133 ("David M. Brown" :wrote "array.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
134 ("Gary Byers" :changed "xenix.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
135 ("Shawn M. Carey" :wrote "freebsd.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
136 ("Eric Decker" :changed "hp9000s800.h" "hpux.h" "sysdep.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
137 ("Lawrence R. Dodd" :wrote "dired-x.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
138 ("Viktor Dukhovni" :wrote "unexsunos4.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
139 ("Paul Eggert" :wrote "rcs2log" "vcdiff") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
140 ("Fred Fish" :changed "unexec.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
141 ("Tim Fleehart" :wrote "makefile.nt") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
142 ("Keith Gabryelski" :wrote "hexl.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
143 ("Kevin Gallagher" :wrote "flow-ctrl.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
144 ("Howard Gayle" :wrote "disp-table.el" "iso-syntax.el" "casetab.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
145 ("Stephen Gildea" :wrote "refcard.tex" "mh-funcs.el" "mh-pick.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
146 ("David Gillespie" :wrote "cl.texinfo") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
147 ("Hewlett-Packard" :changed "emacsclient.c" "emacsserver.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
148 "server.el" "keyboard.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
149 ("Thomas Horsley" :wrote "cxux.h" "cxux7.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
150 ("Indiana University Foundation" :changed "buffer.c" "buffer.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
151 "indent.c" "search.c" "xdisp.c" "region-cache.c" "region-cache.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
152 ("International Business Machines" :changed "emacs.c" "fileio.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
153 "ibmrt.h" "process.c" "sysdep.c" "unexec.c" "ibmrt-aix.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
154 ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
155 ("Michael K. Johnson" :changed "configure.in" "emacs.c" "intel386.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
156 "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" "systty.h" "unexec.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
157 "ymakefile" "linux.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
158 ("Kyle E. Jones" :wrote "mldrag.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
159 ("Kenry Kautz" :wrote "bib-mode.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
160 ("Joseph M. Kelsey" :changed "fileio.c" "vms-pwd.h" "vmsfns.c" "dir.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
161 "uaf.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
162 ("Sam Kendall" :changed "etags.c" "etags.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
163 ("Richard King" :wrote "backquote.el" "userlock.el" "filelock.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
164 ("Larry Kolodney" :wrote "cvtmail.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
165 ("Sebastian Kremer" :changed "add-log.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
166 ("Mark Lambert" :changed "process.c" "process.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
167 ("Aaron Larson" :changed "bibtex.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
168 ("James R. Larus" :wrote "mh-e.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
169 ("Lars Lindberg" :changed "dabbrev.el" :wrote "imenu.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
170 ("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
171 "bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
172 "lmenu.el" "lselect.el" "mailabbrev.el" "select.el" "xfaces.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
173 "xselect.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
174 ("MCC" :changed "etags.c" "emacsclient.c" "emacsserver.c" "movemail.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
175 "rmail.el" "rmailedit.el" "rmailkwd.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
176 "rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
177 "server.el" "lisp.h" "sysdep.c" "unexec.c" :wrote "xmenu.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
178 ("Niall Mansfield" :changed "etags.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
179 ("Brian Marick" :wrote "hideif.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
180 ("Marko Kohtala" :changed "info.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
181 ("Sidney Markowitz" :changed "doctor.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
182 ("Richard Mlynarik" :wrote "env.c" "ehelp.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
183 ("Mosur Mohan" :changed "etags.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
184 ("Jeff Morgenthaler" :changed "flow-ctrl.el" "vt200.el" "vt201.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
185 "vt220.el" "vt240.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
186 ("Motorola" :changed "buff-menu.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
187 ("Hiroshi Nakano" :changed "ralloc.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
188 ("Sundar Narasimhan" :changed "rnewspost.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
189 ("NeXT, Inc." :wrote "unexnext.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
190 ("Mark Neale" :changed "fortran.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
191 ("Martin Neitzel" :changed "sc.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
192 ("Andrew Oram" :changed "miscellaneous changes to files in man/" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
193 "man/calendar.texi") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
194 ("Frederic Pierresteguy" :wrote "widget.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
195 ("Michael D. Prange" :changed "tex-mode.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
196 ("Paul Reilly" :wrote "gux5-4r2.h" "dgux5-4r3.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
197 ("Roland B Roberts" :changed "files.el" "sort.el" "vmsproc.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
198 "buffer.h" "callproc.c" "dired.c" "process.c" "sysdep.c" "systty.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
199 "vmspaths.h" "build.com" "compile.com" "kepteditor.com" "precomp.com" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
200 :wrote "logout.com" "mailemacs.com") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
201 ("Guillermo J. Rozas" :wrote "fakemail.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
202 ("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
203 "sort.el" "alloc.c" "callint.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
204 "config.h.in" "crt0.c" "data.c" "fns.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
205 "lisp.h" "lread.c" "sun3.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
206 "print.c" "ymakefile" :wrote "float-sup.el" "floatfns.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
207 ("Schlumberger Technology Corporation" :changed "gud.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
208 ("Gregor Schmid" :wrote "tcl-mode.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
209 ("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
210 ("William Sommerfeld" :wrote "emacsclient.c" "emacsserver.c" "scribe.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
211 ("Leigh Stoller" :changed "emacsclient.c" "emacsserver.c" "server.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
212 ("Steve Strassman" :wrote "spook.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
213 ("Shinichirou Sugou" :changed "etags.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
214 ("Sun Microsystems, Inc" :changed "emacsclient.c" "emacsserver.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
215 "server.el" :wrote "emacs.icon" "emacstool.1" "emacstool.c" "sun-curs.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
216 "sun-fns.el" "sun-mouse.el" "sun.el" "sunfns.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
217 ("Kayvan Sylvan" :changed "sc.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
218 ("Spencer Thomas" :changed "emacsclient.c" "emacsserver.c" "server.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
219 "dabbrev.el" "unexec.c" "tcp.c" "gnus.texi") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
220 ("Jonathan Vail" :changed "vc.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
221 ("James Van Artsdalen" :changed "usg5-4.h" "unexec.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
222 ("Geoff Voelker" :wrote "src/makefile.nt" "lisp/makefile.nt" "winnt.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
223 "nt.c" "nt.h" "ntheap.c" "ntheap.h" "ntinevt.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
224 "ntproc.c" "ntterm.c" "windowsnt.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
225 ("Morten Welinder" :wrote "dosfns.c" "[many MSDOS files]" "msdos.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
226 ("Pace Willisson" :wrote "ispell.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
227 ("Garrett Wollman" :changed "sendmail.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
228 ("Dale Worley" :changed "mail-extr.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
229 ("Jamie Zawinski" :changed "bytecode.c" :wrote "disass.el" "tar-mode.el")) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
230 "Actions taken from the original, manually (un)maintained AUTHORS file.") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
231 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
232 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
233 (defun authors-add-fixed-entries (table) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
234 "Add actions from `authors-fixed-entries' to TABLE." |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
235 (dolist (entry authors-fixed-entries) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
236 (let ((author (car entry)) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
237 action) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
238 (dolist (item (cdr entry)) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
239 (if (symbolp item) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
240 (setq action item) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
241 (authors-add author item action table)))))) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
242 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
243 |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
244 (defun authors-obsolete-file-p (file) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
245 "Return non-nil if FILE is obsolete. |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
246 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
|
247 from `authors-obsolete-files-regexps'." |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
248 (let (obsolete-p |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
249 (regexps authors-obsolete-files-regexps)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
250 (while (and regexps (not obsolete-p)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
251 (setq obsolete-p (string-match (car regexps) file) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
252 regexps (cdr regexps))) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
253 obsolete-p)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
254 |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
255 |
30790 | 256 (defun authors-add (author file action table) |
257 "Record that AUTHOR worked on FILE. | |
258 ACTION is a keyword symbol describing what he did. Record file, | |
259 author and what he did in hash table TABLE. See the description of | |
260 `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
|
261 (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
|
262 (equal author "")) |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
263 (let* ((value (gethash author table)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
264 (entry (assoc file value))) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
265 (if (null entry) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
266 (puthash author (cons (list file action) value) table) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
267 (unless (memq action entry) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
268 (nconc entry (list action))))))) |
30790 | 269 |
270 | |
271 (defun authors-process-lines (program &rest args) | |
272 "Execute PROGRAM with ARGS, returning its output as a list of lines. | |
273 Signal an error if the program returns with a non-zero exit status." | |
274 (with-temp-buffer | |
275 (let ((status (apply 'call-process program nil (current-buffer) nil args))) | |
276 (unless (eq status 0) | |
277 (error "%s exited with status %s" program status)) | |
278 (goto-char (point-min)) | |
279 (let (lines) | |
280 (while (not (eobp)) | |
281 (setq lines (cons (buffer-substring-no-properties | |
282 (line-beginning-position) | |
283 (line-end-position)) | |
284 lines)) | |
285 (forward-line 1)) | |
286 (nreverse lines))))) | |
287 | |
288 | |
289 (defun authors-canonical-author-name (author) | |
290 "Return a canonicalized form of AUTHOR, an author name. | |
291 If AUTHOR has an alias, use that. Remove email addresses. Capitalize | |
292 words in the author's name." | |
293 (let ((aliases authors-aliases)) | |
294 (while aliases | |
295 (when (string-match (car (car aliases)) author) | |
296 (setq author (cdr (car aliases)) | |
297 aliases nil)) | |
298 (setq aliases (cdr aliases)))) | |
299 (setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author)) | |
300 (setq author (replace-regexp-in-string "^[ \t]+" "" author)) | |
301 (setq author (replace-regexp-in-string "[ \t]+$" "" author)) | |
302 (capitalize author)) | |
303 | |
304 | |
305 (defun authors-scan-change-log (file table) | |
306 "Scan change log FILE for author information. | |
307 | |
308 For each change mentioned in the log, add an entry to hash table TABLE | |
309 under the author's canonical name. | |
310 | |
311 Keys of TABLE are author names. Values are alists of entries (FILE | |
312 ACTION...). FILE is one file the author worked on. The rest of the | |
313 entry is a list of keyword symbols describing what he did with the | |
314 file. | |
315 | |
316 :wrote means the author wrote the file | |
317 :changed means he changed the file." | |
318 | |
319 (let* ((enable-local-variables t) | |
320 (enable-local-eval t) | |
321 (existing-buffer (get-file-buffer file)) | |
322 (buffer (find-file-noselect file)) | |
323 author) | |
324 (save-excursion | |
325 (set-buffer buffer) | |
326 (save-restriction | |
327 (widen) | |
328 (goto-char (point-min)) | |
329 (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t) | |
330 (beginning-of-line) | |
331 (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+") | |
332 (skip-chars-forward " \t+:0-9-") | |
333 (setq author (buffer-substring-no-properties | |
334 (point) (line-end-position))) | |
335 (setq author (authors-canonical-author-name author)) | |
336 (forward-line 1)) | |
337 ((looking-at "^[ \t]+\\*") | |
338 (let ((line (buffer-substring-no-properties | |
339 (match-end 0) (line-end-position)))) | |
340 (while (and (not (string-match ":" line)) | |
341 (forward-line 1) | |
342 (not (looking-at ":\\|^[ \t]*$"))) | |
343 (setq line (concat line | |
344 (buffer-substring-no-properties | |
345 (line-beginning-position) | |
346 (line-end-position))))) | |
347 (when (string-match ":" line) | |
348 (setq line (substring line 0 (match-beginning 0))) | |
349 (setq line (replace-regexp-in-string "[[(<{].*$" "" line)) | |
350 (setq line (replace-regexp-in-string "," "" line)) | |
351 (dolist (file (split-string line)) | |
352 (setq file (file-name-nondirectory file)) | |
353 ;(message "%s changed %s" author file) | |
354 (authors-add author file :changed table))) | |
355 (forward-line 1))))))) | |
356 (unless existing-buffer | |
357 (kill-buffer buffer)))) | |
358 | |
359 | |
360 (defun authors-scan-el (file table) | |
361 "Scan Lisp file FILE for author information. | |
362 TABLE is a hash table to add author information to." | |
363 (let* ((existing-buffer (get-file-buffer file)) | |
364 (enable-local-variables t) | |
365 (enable-local-eval t) | |
366 (buffer (find-file-noselect file))) | |
367 (save-excursion | |
368 (set-buffer buffer) | |
369 (save-restriction | |
370 (widen) | |
371 (goto-char (point-min)) | |
372 (while (and (re-search-forward | |
373 "^;+[ \t]*\\(Author\\|Commentary\\):[ \t]*" nil t) | |
374 (not (string= (match-string 1) "Commentary"))) | |
375 ;; Some entries contain a year range in front of the | |
376 ;; author's name. | |
377 (skip-chars-forward "-0-9 \t") | |
378 (let ((author (buffer-substring-no-properties | |
379 (point) (line-end-position)))) | |
380 (setq author (authors-canonical-author-name author)) | |
381 (setq file (file-name-nondirectory file)) | |
382 (authors-add author file :wrote table))))) | |
383 (unless existing-buffer | |
384 (kill-buffer buffer)))) | |
385 | |
386 | |
33151
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
387 (defun authors-public-domain-p (file) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
388 "Return t if FILE is a file that was put in public domain." |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
389 (let ((public-domain-p nil) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
390 (list authors-public-domain-files)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
391 (while (and list (not public-domain-p)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
392 (when (string-match (car list) file) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
393 (setq public-domain-p t)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
394 (setq list (cdr list))) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
395 public-domain-p)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
396 |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
397 |
30790 | 398 (defun authors-print (author changes) |
399 "Insert information about AUTHOR's work on Emacs into the current buffer. | |
400 CHANGES is an alist of entries (FILE ACTION...), as produced by | |
401 `authors-scan-change-log'." | |
402 (unless (equal author "Ignore") | |
403 (let ((nchanged 0)) | |
404 (dolist (change changes) | |
405 (let ((actions (cdr change)) | |
406 (file (car change))) | |
407 (if (memq :wrote actions) | |
33151
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
408 (progn |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
409 (insert author " (wrote) " file) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
410 (when (authors-public-domain-p file) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
411 (insert " (public domain)")) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
412 (insert "\n")) |
30790 | 413 (setq nchanged (1+ nchanged))))) |
414 (if (> nchanged authors-many-files) | |
32005
01a7fea88dc1
(authors-print): Rephrase many-files string.
Miles Bader <miles@gnu.org>
parents:
31957
diff
changeset
|
415 (insert author " (changed) [more than " |
30790 | 416 (int-to-string authors-many-files) " files]\n") |
417 (dolist (change changes) | |
418 (let ((actions (cdr change)) | |
419 (file (car change))) | |
420 (unless (memq :wrote actions) | |
421 (insert author " (changed) " file "\n")))))))) | |
422 | |
423 | |
424 (defun authors (root) | |
425 "Extract author information from change logs and Lisp source files. | |
426 ROOT is the root directory under which to find the files. If called | |
427 interactively, ROOT is read from the minibuffer. Result is a | |
428 buffer *Authors* containing authorship information." | |
429 (interactive "DEmacs source directory: ") | |
36010
c486995553f8
(authors): Expand `root' before running
Dave Love <fx@gnu.org>
parents:
33752
diff
changeset
|
430 (setq root (expand-file-name root)) |
30790 | 431 (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*")) |
432 (table (make-hash-table :test 'equal)) | |
433 (buffer-name "*Authors*")) | |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
434 (authors-add-fixed-entries table) |
30790 | 435 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
436 (error "Not the root directory of Emacs: %s" root)) | |
437 (dolist (log logs) | |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
438 (when (and (string-match "ChangeLog\\(.[0-9]+\\)?$" log) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
439 (not (string-match "/lispref/" log))) |
30790 | 440 (message "Scanning %s..." log) |
441 (authors-scan-change-log log table))) | |
442 (let ((els (authors-process-lines "find" root "-name" "*.el"))) | |
443 (dolist (file els) | |
444 (message "Scanning %s..." file) | |
445 (authors-scan-el file table))) | |
446 (set-buffer (get-buffer-create buffer-name)) | |
447 (erase-buffer) | |
32832
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
448 (set-buffer-file-coding-system 'iso-2022-7bit) |
30790 | 449 (maphash #'authors-print table) |
450 (sort-lines nil (point-min) (point-max)) | |
32832
1ce7dce8710b
(authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents:
32529
diff
changeset
|
451 (insert "\nLocal" " Variables:\ncoding: iso-2022-7bit\nEnd:\n") |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
452 (unless noninteractive |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
453 (pop-to-buffer buffer-name)))) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
454 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
455 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
456 (defun batch-update-authors () |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
457 "Produce an AUTHORS file. |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
458 Call this function in batch mode with two command line arguments FILE |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
459 and ROOT. FILE is the file to write, ROOT is the root directory of |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
460 the Emacs source tree, from which to build the file." |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
461 (unless noninteractive |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
462 (error "`batch-update-authors' is to be used only with -batch")) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
463 (when (/= (length command-line-args-left) 2) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
464 (error "Call `batch-update-authors' with the name of the file to write")) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
465 (let* ((file (pop command-line-args-left)) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
466 (root (pop command-line-args-left))) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
467 (authors root) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
468 (write-file file))) |
30790 | 469 |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
36010
diff
changeset
|
470 ;;; authors.el ends here |