| | 1 | ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: utf-8;-*- |
| | 2 | |
| | 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, |
| | 4 | ;; 2009, 2010 Free Software Foundation, Inc. |
| | 5 | |
| | 6 | ;; Author: Gerd Moellmann <gerd@gnu.org> |
| | 7 | ;; Maintainer: Kim F. Storm <storm@cua.dk> |
| | 8 | ;; Keywords: maint |
| | 9 | ;; Package: emacs |
| | 10 | |
| | 11 | ;; This file is part of GNU Emacs. |
| | 12 | |
| | 13 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
| | 14 | ;; it under the terms of the GNU General Public License as published by |
| | 15 | ;; the Free Software Foundation, either version 3 of the License, or |
| | 16 | ;; (at your option) any later version. |
| | 17 | |
| | 18 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| | 19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| | 20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| | 21 | ;; GNU General Public License for more details. |
| | 22 | |
| | 23 | ;; You should have received a copy of the GNU General Public License |
| | 24 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| | 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 | (defvar authors-coding-system 'utf-8 |
| | 34 | "Coding system used in the AUTHORS file.") |
| | 35 | |
| | 36 | (defconst authors-many-files 20 |
| | 37 | "Maximum number of files for which to print individual information. |
| | 38 | If an author has modified more files, only the names of the most |
| | 39 | frequently modified files are printed and a count of the additional |
| | 40 | files.") |
| | 41 | |
| | 42 | (defconst authors-aliases |
| | 43 | '( |
| | 44 | ("Aaron S. Hawley" "Aaron Hawley") |
| | 45 | ("Andrew Csillag" "Drew Csillag") |
| | 46 | ("Anna M. Bigatti" "Anna Bigatti") |
| | 47 | ("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc." |
| | 48 | "Barry A. Warsaw, ITB" "Barry Warsaw") |
| | 49 | ("Bill Mann" "William F. Mann") |
| | 50 | ("Bill Rozas" "Guillermo J. Rozas") |
| | 51 | ("Björn Torkelsson" "Bjorn Torkelsson") |
| | 52 | ("Brian Fox" "Brian J. Fox") |
| | 53 | ("Christoph Wedler" "Christoph.Wedler@sap.com") |
| | 54 | ("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>" |
| | 55 | "<Daniel.Pfeiffer@Informatik.START.dbp.de>") |
| | 56 | ("David De La Harpe Golden" "David Golden") |
| | 57 | ("David Gillespie" "Dave Gillespie") |
| | 58 | ("David Kågedal" "David K..edal") |
| | 59 | ("David M. Koppelman" "David M. Koppelman, Koppel@Ec?e.Lsu.Edu" |
| | 60 | "David Koppelman") |
| | 61 | ("David M. Smith" "David Smith" "David M Smith") |
| | 62 | ("Deepak Goel" "D. Goel") |
| | 63 | ("Ed L. Cashin" "Ed L Cashin") |
| | 64 | ("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" |
| | 65 | "Reingold Edward M") |
| | 66 | ("Eli Zaretskii" "eliz") |
| | 67 | ("Emilio C. Lopes" "Emilio Lopes") |
| | 68 | ("Era Eriksson" "Era@Iki.Fi") |
| | 69 | ("Eric M. Ludlam" "Eric Ludlam") |
| | 70 | ("Eric S. Raymond" "Eric Raymond") |
| | 71 | ("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)") |
| | 72 | ("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright") |
| | 73 | ("François Pinard" "Francois Pinard") |
| | 74 | ("Francesco Potortì" "Francesco Potorti" "Francesco Potorti`") |
| | 75 | ("Frederic Pierresteguy" "Fred Pierresteguy") |
| | 76 | ("Geoff Voelker" "voelker") |
| | 77 | ("Gerd Möllmann" "Gerd Moellmann") |
| | 78 | ("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth") |
| | 79 | ("Hrvoje Nikšić" "Hrvoje Niksic") |
| | 80 | ;; src/ChangeLog.4, 1994-01-11, since fixed. |
| | 81 | ;;; (nil "(afs@hplb.hpl.hp.com)") |
| | 82 | ;; lisp/gnus/ChangeLog.1, 1998-01-15. |
| | 83 | ;; http://quimby.gnus.org/cgi-bin/cvsweb.cgi/gnus/lisp/gnus-art.el?rev=4.13 |
| | 84 | (nil "<Use-Author-Address-Header@\\[127.1\\]>") |
| | 85 | (nil "Code Extracted") ; lisp/newcomment.el's "Author:" header |
| | 86 | (nil "\\`FSF") ; FIXME what is this for - no effect? |
| | 87 | ;; lisp/gnus/ChangeLog.1, 1997-10-12, since fixed. |
| | 88 | ;;; (nil "ISO-2022-JP") |
| | 89 | ("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn") |
| | 90 | ("Jan Djärv" "Jan D." "Jan Djarv") |
| | 91 | ("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams") |
| | 92 | ("Jérôme Marant" "Jérôme Marant" "Jerome Marant") |
| | 93 | ("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen") |
| | 94 | ("Jeremy Bertram Maitin-Shepard" "Jeremy Maitin-Shepard") |
| | 95 | ("Johan Bockgård" "Johan Bockgard") |
| | 96 | ("John W. Eaton" "John Eaton") |
| | 97 | ("Jonathan I. Kamens" "Jonathan Kamens") |
| | 98 | ("Joseph Arceneaux" "Joe Arceneaux") |
| | 99 | ("Joseph M. Kelsey" "Joe Kelsey") ; FIXME ? |
| | 100 | ("Juan León Lahoz García" "Juan-Leon Lahoz Garcia") |
| | 101 | ("K. Shane Hartman" "Shane Hartman") |
| | 102 | ("Kai Großjohann" "Kai Grossjohann" "Kai Großjohann" |
| | 103 | "Kai.Grossjohann@Cs.Uni-Dortmund.De" |
| | 104 | "Kai.Grossjohann@Gmx.Net") |
| | 105 | ("Karl Berry" "K. Berry") |
| | 106 | ("Károly Lőrentey" "Károly Lőrentey" "Lőrentey Károly") |
| | 107 | ("Kazushi Marukawa" "Kazushi") |
| | 108 | ("Ken Manheimer" "Kenneth Manheimer") |
| | 109 | ("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA") |
| | 110 | ("Kevin Greiner" "Kevin J. Greiner") |
| | 111 | ("Kim F. Storm" "Kim Storm") |
| | 112 | ("Kyle Jones" "Kyle E. Jones") |
| | 113 | ("Marcus G. Daniels" "Marcus Daniels") |
| | 114 | ("Mark D. Baushke" "Mark D Baushke") |
| | 115 | ("Marko Kohtala" "Kohtala Marko") |
| | 116 | ("Agustín Martín" "Agustin Martin") |
| | 117 | ("Martin Lorentzon" "Martin Lorentzson") |
| | 118 | ("Matt Swift" "Matthew Swift") |
| | 119 | ("Maxime Edouard Robert Froumentin" "Max Froumentin") |
| | 120 | ("Michael R. Mauger" "Michael Mauger") |
| | 121 | ("Michael D. Ernst" "Michael Ernst") |
| | 122 | ("Michaël Cadilhac" "Michael Cadilhac") |
| | 123 | ("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") |
| | 124 | ("Michael R. Cook" "Michael Cook") |
| | 125 | ("Michael Sperber" "Michael Sperber \\[Mr. Preprocessor\\]") |
| | 126 | ("Mikio Nakajima" "Nakajima Mikio") |
| | 127 | ("Nelson Jose dos Santos Ferreira" "Nelson Ferreira") |
| | 128 | ("Paul Eggert" "eggert") |
| | 129 | ("Paul Reilly" "(pmr@legacy.pajato.com)") |
| | 130 | ("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel Janík" "Pavel@Janik.Cz") |
| | 131 | ("Pavel Kobiakov" "Pavel Kobyakov") |
| | 132 | ("Per Abrahamsen" "Per Abhiddenware") |
| | 133 | ("Per Starbäck" "Per Starback") |
| | 134 | ("Peter S. Galbraith" "Peter Galbraith") |
| | 135 | ("Peter Runestig" "Peter 'luna' Runestig") |
| | 136 | ("Peter S. Galbraith" "Peter S Galbraith") |
| | 137 | ("Raja R. Harinath" "Raja R Harinath") |
| | 138 | ("Richard G. Bielawski" "Richard G Bielawski" "Richard Bielawski") |
| | 139 | ("Richard King" "Dick King") |
| | 140 | ("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman" |
| | 141 | "rms" "rms@gnu.org") |
| | 142 | ("Robert J. Chassell" "Bob Chassell") |
| | 143 | ("Roland B. Roberts" "Roland B Roberts" "Roland Roberts") |
| | 144 | ("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}") |
| | 145 | ("Sacha Chua" "Sandra Jean Chua") |
| | 146 | ("Sam Steingold" "Sam Shteingold") |
| | 147 | ("Satyaki Das" "Indexed search by Satyaki Das") |
| | 148 | ;; There are other Stefans. |
| | 149 | ;;; ("Stefan Monnier" "Stefan") |
| | 150 | ("Stephen A. Wood" "(saw@cebaf.gov)") |
| | 151 | ("Steven L. Baur" "SL Baur" "Steven L Baur") |
| | 152 | ("Stewart M. Clamen" "Stewart Clamen") |
| | 153 | ("Stuart D. Herring" "Stuart Herring" "Davis Herring") |
| | 154 | ("Taichi Kawabata" "KAWABATA,? Taichi") |
| | 155 | ("Takaaki Ota" "Tak Ota") |
| | 156 | ("Takahashi Naoto" "Naoto Takahashi") |
| | 157 | ("Teodor Zlatanov" "Ted Zlatanov") |
| | 158 | ("Thomas Horsley" "Tom Horsley") ; FIXME ? |
| | 159 | ("Thomas Wurgler" "Tom Wurgler") |
| | 160 | ("Tomohiko Morioka" "MORIOKA Tomohiko") |
| | 161 | ("Torbjörn Axelsson" "Torbjvrn Axelsson") |
| | 162 | ("Torbjörn Einarsson" "Torbj.*rn Einarsson") |
| | 163 | ("Toru Tomabechi" "Toru Tomabechi,") |
| | 164 | ("Tsugutomo Enami" "enami tsugutomo") |
| | 165 | ("Vincent Del Vecchio" "Vince Del Vecchio") |
| | 166 | ("William M. Perry" "Bill Perry") |
| | 167 | ("Wlodzimierz Bzyl" "W.*dek Bzyl") |
| | 168 | ("Yoni Rabkin" "Yoni Rabkin Katzenell") |
| | 169 | ("Yoshinori Koseki" "KOSEKI Yoshinori" "小関 吉則") |
| | 170 | ("Yutaka NIIBE" "NIIBE Yutaka") |
| | 171 | ) |
| | 172 | "Alist of author aliases. |
| | 173 | |
| | 174 | Each entry is of the form (REALNAME REGEXP...). If an author's name |
| | 175 | matches one of the REGEXPs, use REALNAME instead. |
| | 176 | If REALNAME is nil, ignore that author.") |
| | 177 | |
| | 178 | (defconst authors-fixed-case |
| | 179 | '("Bryan O'Sullivan" |
| | 180 | "Christian von Roques" |
| | 181 | "Christophe de Dinechin" |
| | 182 | "Craig McDaniel" |
| | 183 | "David J. MacKenzie" |
| | 184 | "David McCabe" |
| | 185 | "David O'Toole" |
| | 186 | "Dominique de Waleffe" |
| | 187 | "Edward O'Connor" |
| | 188 | "Exal de Jesus Garcia Carrillo" |
| | 189 | "Greg McGary" |
| | 190 | "Hans de Graaff" |
| | 191 | "James TD Smith" |
| | 192 | "Joel N. Weber II" |
| | 193 | "Michael McNamara" |
| | 194 | "Mike McEwan" |
| | 195 | "Nelson Jose dos Santos Ferreira" |
| | 196 | "Peter von der Ahe" |
| | 197 | "Peter O'Gorman" |
| | 198 | "Roland McGrath" |
| | 199 | "Sean O'Rourke") |
| | 200 | "List of authors whose names cannot be simply capitalized.") |
| | 201 | |
| | 202 | (defvar authors-public-domain-files |
| | 203 | '("emerge\\.el" |
| | 204 | "vi\\.el" |
| | 205 | "feedmail\\.el" |
| | 206 | "mailpost\\.el" |
| | 207 | "hanoi\\.el" |
| | 208 | "meese\\.el" |
| | 209 | "studly\\.el" |
| | 210 | "modula2\\.el" |
| | 211 | "nnmaildir\\.el" |
| | 212 | "nnil\\.el" |
| | 213 | "b2m\\.c" |
| | 214 | "unexhp9k800\\.c" |
| | 215 | "emacsclient\\.1" |
| | 216 | "check-doc-strings") |
| | 217 | "List of regexps matching files for which the FSF doesn't need papers.") |
| | 218 | |
| | 219 | |
| | 220 | (defvar authors-obsolete-files-regexps |
| | 221 | '("vc-\\*\\.el$" |
| | 222 | "spec.txt$" |
| | 223 | ".*loaddefs.el$" ; not obsolete, but auto-generated |
| | 224 | "\\.\\(cvs\\|git\\)ignore$" ; obsolete or uninteresting |
| | 225 | "\\.arch-inventory$" |
| | 226 | "preferences\\.\\(nib\\|gorm\\)" |
| | 227 | "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$") |
| | 228 | "List of regexps matching obsolete files. |
| | 229 | Changes to files matching one of the regexps in this list are not |
| | 230 | listed.") |
| | 231 | |
| | 232 | (defconst authors-ignored-files |
| | 233 | '("external-lisp" |
| | 234 | "lock" "share-lib" "local-lisp" |
| | 235 | "noleim-Makefile.in" |
| | 236 | "NEWS" "ORDERS" "PROBLEMS" "FAQ" "AUTHORS" "FOR-RELEASE" "TODO" "todo" |
| | 237 | "MACHINES" "SERVICE" |
| | 238 | "README.unicode" "README.multi-tty" "TUTORIAL.translators" |
| | 239 | "NEWS.unicode" "COPYING.DJ" "Makefile.old" "Makefile.am" |
| | 240 | "NEWS.1" "OOOOONEWS...OONEWS" "OOOONEWS" "etc/NEWS" |
| | 241 | "NEWS.1-17" "NEWS.18" "NEWS.19" "NEWS.20" "NEWS.21" "NEWS.22" |
| | 242 | "MAINTAINERS" "MH-E-NEWS" |
| | 243 | "install-sh" "missing" "mkinstalldirs" |
| | 244 | "termcap.dat" "termcap.src" "termcap.ucb" "termcap" |
| | 245 | "ChangeLog.nextstep" "Emacs.clr" "spec.txt" |
| | 246 | "gfdl.1" |
| | 247 | "texi/Makefile.in" |
| | 248 | "Imakefile" "icons/sink.ico" "aixcc.lex" |
| | 249 | "nxml/char-name/unicode" |
| | 250 | "js2-mode.el" ; only installed very briefly, replaced by js.el |
| | 251 | "cedet/tests/testtemplates.cpp" |
| | 252 | "cedet/tests/testusing.cpp" |
| | 253 | "cedet/tests/scopetest.cpp" |
| | 254 | "cedet/tests/scopetest.java" |
| | 255 | "cedet/tests/test.cpp" |
| | 256 | "cedet/tests/test.py" |
| | 257 | "cedet/tests/teststruct.cpp" |
| | 258 | "*.el" |
| | 259 | ;; Autogen: |
| | 260 | "cus-load.el" "finder-inf.el" "ldefs-boot.el" |
| | 261 | ;; Never had any meaningful changes logged, now deleted: |
| | 262 | "split-man" "Xkeymap.txt" "ms-7bkermit" "ulimit.hack" |
| | 263 | "gnu-hp300" "refcard.bit" "ledit.l" "forms.README" "forms-d2.dat" |
| | 264 | "CXTERM-DIC/PY.tit" "CXTERM-DIC/ZIRANMA.tit" |
| | 265 | "CXTERM-DIC/CTLau.tit" "CXTERM-DIC/CTLauB.tit" |
| | 266 | "NICKLES.WORTH" "INTERVAL.IDEAS" "RCP" |
| | 267 | "3B-MAXMEM" "AIX.DUMP" "SUN-SUPPORT" "XENIX" |
| | 268 | "CODINGS" "CHARSETS" |
| | 269 | "calc/INSTALL" "calc/Makefile" |
| | 270 | "vms-pp.trans" "_emacs" "batcomp.com" "notes/cpp" ; admin/ |
| | 271 | ;; MH-E stuff not in Emacs: |
| | 272 | "import-emacs" "release-utils" |
| | 273 | ;; Erc stuff not in Emacs: |
| | 274 | "ChangeLog.2001" "ChangeLog.2002" "ChangeLog.2003" "ChangeLog.2004" |
| | 275 | "ChangeLog.2005" |
| | 276 | "README.extras" "dir-template" "mkChangeLog" "MkChangeLog" "erc-auto.in" |
| | 277 | "CREDITS" "HACKING" |
| | 278 | "debian/changelog" |
| | 279 | "debian/control" |
| | 280 | "debian/copyright" |
| | 281 | "debian/maint/conffiles" |
| | 282 | "debian/maint/conffiles.in" |
| | 283 | "debian/maint/postinst" |
| | 284 | "debian/maint/postinst.in" |
| | 285 | "debian/maint/prerm" |
| | 286 | "debian/maint/prerm.in" |
| | 287 | "debian/README.Debian" |
| | 288 | "debian/README.erc-speak" |
| | 289 | "debian/rules" |
| | 290 | "debian/scripts/install" |
| | 291 | "debian/scripts/install.in" |
| | 292 | "debian/scripts/remove" |
| | 293 | "debian/scripts/remove.in" |
| | 294 | "debian/scripts/startup" |
| | 295 | "debian/scripts/startup.erc" |
| | 296 | "debian/scripts/startup.erc-speak" |
| | 297 | ) |
| | 298 | "List of files and directories to ignore. |
| | 299 | Changes to files in this list are not listed.") |
| | 300 | |
| | 301 | ;; List via: find . -name '*.el' | sed 's/.*\///g' | sort | uniq -d |
| | 302 | ;; FIXME It would be better to discover these dynamically. |
| | 303 | ;; Note that traditionally "Makefile.in" etc have not been in this list. |
| | 304 | ;; Ditto for "abbrev.texi" etc. |
| | 305 | (defconst authors-ambiguous-files |
| | 306 | '("chart.el" |
| | 307 | "compile.el" |
| | 308 | "complete.el" |
| | 309 | "cpp.el" |
| | 310 | "ctxt.el" |
| | 311 | "debug.el" |
| | 312 | "dired.el" |
| | 313 | "el.el" |
| | 314 | "files.el" |
| | 315 | "find.el" |
| | 316 | "format.el" |
| | 317 | "grep.el" |
| | 318 | "imenu.el" |
| | 319 | "java.el" |
| | 320 | "linux.el" |
| | 321 | "locate.el" |
| | 322 | "make.el" |
| | 323 | "mode.el" |
| | 324 | "python.el" |
| | 325 | "semantic.el" |
| | 326 | "shell.el" |
| | 327 | "simple.el" |
| | 328 | "sort.el" |
| | 329 | "speedbar.el" |
| | 330 | "srecode.el" |
| | 331 | "table.el" |
| | 332 | "texi.el" |
| | 333 | "util.el" |
| | 334 | "wisent.el") |
| | 335 | "List of basenames occurring more than once in the source.") |
| | 336 | |
| | 337 | ;; FIXME :cowrote entries here can be overwritten by :wrote entries |
| | 338 | ;; derived from a file's Author: header (eg mh-e). This really means |
| | 339 | ;; the Author: header is erroneous. |
| | 340 | (defconst authors-fixed-entries |
| | 341 | '(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]") |
| | 342 | ("Joseph Arceneaux" :wrote "xrdb.c") |
| | 343 | ;; This refers to the obsolete Willisson (qv) version. |
| | 344 | ;;; ("Blitz Product Development Corporation" :wrote "ispell.el") |
| | 345 | ("Frank Bresz" :wrote "diff.el") |
| | 346 | ("David M. Brown" :wrote "array.el") |
| | 347 | ;; No longer distributed. |
| | 348 | ;;; ("Gary Byers" :changed "xenix.h") |
| | 349 | ("Shawn M. Carey" :wrote "freebsd.h") |
| | 350 | ;; hp800.h renamed from hp9000s800.h, hpux.h merged into hpux10-20.h. |
| | 351 | ;; FIXME overwritten by Author:. |
| | 352 | ("Satyaki Das" :cowrote "mh-search.el") |
| | 353 | ("Eric Decker" :changed "hp800.h" "hpux10-20.h" "sysdep.c") |
| | 354 | ("Lawrence R. Dodd" :cowrote "dired-x.el") |
| | 355 | ;; No longer distributed. |
| | 356 | ;;; ("Viktor Dukhovni" :wrote "unexsunos4.c") |
| | 357 | ("Paul Eggert" :wrote "rcs2log" "vcdiff") |
| | 358 | ("Fred Fish" :changed "unexcoff.c") |
| | 359 | ;; No longer distributed. |
| | 360 | ;;; ("Tim Fleehart" :wrote "makefile.nt") |
| | 361 | ("Keith Gabryelski" :wrote "hexl.c") |
| | 362 | ("Kevin Gallagher" :wrote "flow-ctrl.el") |
| | 363 | ;; Also wrote an earlier version of disp-table.el, since replaced |
| | 364 | ;; by Erik Naggum's version; also iso-syntax.el, later renamed to |
| | 365 | ;; latin-1.el, since deleted. |
| | 366 | ("Howard Gayle" :wrote "casetab.c") |
| | 367 | ;; :wrote mh-pick.el, since merged into mh-search.el. |
| | 368 | ;; Originally wrote mh-funcs.el, but it has been rewritten since. |
| | 369 | ("Stephen Gildea" :wrote "refcard.tex" |
| | 370 | :cowrote "mh-funcs.el" "mh-search.el") |
| | 371 | ;; cl.texinfo renamed to cl.texi. |
| | 372 | ("David Gillespie" :wrote "cl.texi") |
| | 373 | ;; No longer distributed: emacsserver.c. |
| | 374 | ("Hewlett-Packard" :changed "emacsclient.c" "server.el" "keyboard.c") |
| | 375 | ;; No longer distributed. |
| | 376 | ;;; ("Thomas Horsley" :wrote "cxux.h" "cxux7.h") |
| | 377 | ("Indiana University Foundation" :changed "buffer.c" "buffer.h" |
| | 378 | "indent.c" "search.c" "xdisp.c" "region-cache.c" "region-cache.h") |
| | 379 | ;; ibmrt.h, ibmrt-aix.h no longer distributed. |
| | 380 | ("International Business Machines" :changed "emacs.c" "fileio.c" |
| | 381 | "process.c" "sysdep.c" "unexcoff.c") |
| | 382 | ;; No longer distributed. |
| | 383 | ;;; ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h") |
| | 384 | ;; ymakefile no longer distributed. |
| | 385 | ("Michael K. Johnson" :changed "configure.in" "emacs.c" "intel386.h" |
| | 386 | "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" |
| | 387 | "systty.h" "unexcoff.c" "linux.h") |
| | 388 | ;; No longer distributed. |
| | 389 | ;;; ("Kyle Jones" :wrote "mldrag.el") |
| | 390 | ("Henry Kautz" :wrote "bib-mode.el") |
| | 391 | ;; No longer distributed: vms-pwd.h, vmsfns.c, uaf.h. |
| | 392 | ("Joseph M. Kelsey" :changed "fileio.c" "dir.h") |
| | 393 | ("Sam Kendall" :changed "etags.c" "etags.el") |
| | 394 | ;; ack.texi: "We're not using his backquote.el any more." |
| | 395 | ("Richard King" :wrote "userlock.el" "filelock.c") |
| | 396 | ("Sebastian Kremer" :changed "add-log.el") |
| | 397 | ("Mark Lambert" :changed "process.c" "process.h") |
| | 398 | ("Aaron Larson" :changed "bibtex.el") |
| | 399 | ;; It was :wrote, but it has been rewritten since. |
| | 400 | ("James R. Larus" :cowrote "mh-e.el") |
| | 401 | ("Lars Lindberg" :changed "dabbrev.el" :cowrote "imenu.el") |
| | 402 | ;; No longer distributed: lselect.el. |
| | 403 | ("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el" |
| | 404 | "bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el" |
| | 405 | "lmenu.el" "mailabbrev.el" "select.el" "xfaces.c" "xselect.c") |
| | 406 | ;; MCC. No longer distributed: emacsserver.c. |
| | 407 | ("Microelectronics and Computer Technology Corporation" |
| | 408 | :changed "etags.c" "emacsclient.c" "movemail.c" |
| | 409 | "rmail.el" "rmailedit.el" "rmailkwd.el" |
| | 410 | "rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el" |
| | 411 | ;; It was :wrote for xmenu.c, but it has been rewritten since. |
| | 412 | "server.el" "lisp.h" "sysdep.c" "unexcoff.c" "xmenu.c") |
| | 413 | ("Niall Mansfield" :changed "etags.c") |
| | 414 | ("Brian Marick" :cowrote "hideif.el") |
| | 415 | ("Marko Kohtala" :changed "info.el") |
| | 416 | ("Sidney Markowitz" :changed "doctor.el") |
| | 417 | ;; No longer distributed: env.c. |
| | 418 | ("Richard Mlynarik" :wrote "ehelp.el") |
| | 419 | ("Mosur Mohan" :changed "etags.c") |
| | 420 | ("Jeff Morgenthaler" :changed "flow-ctrl.el" "vt200.el" "vt201.el" |
| | 421 | "vt220.el" "vt240.el") |
| | 422 | ("Motorola" :changed "buff-menu.el") |
| | 423 | ("Hiroshi Nakano" :changed "ralloc.c") |
| | 424 | ("Sundar Narasimhan" :changed "rnewspost.el") |
| | 425 | ;; No longer distributed. |
| | 426 | ;;; ("NeXT, Inc." :wrote "unexnext.c") |
| | 427 | ("Mark Neale" :changed "fortran.el") |
| | 428 | ;; Renamed from sc.el. |
| | 429 | ("Martin Neitzel" :changed "supercite.el") |
| | 430 | ("Andrew Oram" :changed "calendar.texi (and other files in man/)") |
| | 431 | ("Frederic Pierresteguy" :wrote "widget.c") |
| | 432 | ("Michael D. Prange" :changed "tex-mode.el") |
| | 433 | ;; No longer distributed (dgux5-4r3.h was renamed to dgux5-4-3.h). |
| | 434 | ;;; ("Paul Reilly" :wrote "gux5-4r2.h" "dgux5-4-3.h") |
| | 435 | ("Roland B. Roberts" :changed "files.el" "sort.el" |
| | 436 | "buffer.h" "callproc.c" "dired.c" "process.c" "sysdep.c" "systty.h") |
| | 437 | ;; No longer distributed. |
| | 438 | ;;; "vmspaths.h" "build.com" "compile.com" "kepteditor.com" "precomp.com" |
| | 439 | ;;; "vmsproc.el" :wrote "logout.com" "mailemacs.com") |
| | 440 | ("Guillermo J. Rozas" :wrote "fakemail.c") |
| | 441 | ("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el" |
| | 442 | "sort.el" "alloc.c" "callint.c" |
| | 443 | ;; config.in renamed from config.h.in; ecrt0.c from crt0.c. |
| | 444 | "config.in" "ecrt0.c" "data.c" "fns.c" |
| | 445 | "lisp.h" "lread.c" ; "sun3.h" "ymakefile" - no longer distributed |
| | 446 | "print.c" :wrote "float-sup.el" "floatfns.c") |
| | 447 | ("Schlumberger Technology Corporation" :changed "gud.el") |
| | 448 | ;; Replaced by tcl.el. |
| | 449 | ;;; ("Gregor Schmid" :wrote "tcl-mode.el") |
| | 450 | ("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c") |
| | 451 | ;; No longer distributed: emacsserver.c. |
| | 452 | ("William Sommerfeld" :wrote "emacsclient.c" "scribe.el") |
| | 453 | ;; No longer distributed: emacsserver.c. |
| | 454 | ("Leigh Stoller" :changed "emacsclient.c" "server.el") |
| | 455 | ("Steve Strassman" :wrote "spook.el") |
| | 456 | ("Shinichirou Sugou" :changed "etags.c") |
| | 457 | ;; No longer distributed: emacsserver.c. |
| | 458 | ("Sun Microsystems, Inc" :changed "emacsclient.c" "server.el" |
| | 459 | :wrote "emacs.icon" "sun.el") |
| | 460 | ;; No longer distributed. |
| | 461 | ;;; "emacstool.1" "emacstool.c" "sun-curs.el" |
| | 462 | ;;; "sun-fns.el" "sun-mouse.el" "sunfns.c") |
| | 463 | ;; Renamed from sc.el. |
| | 464 | ("Kayvan Sylvan" :changed "supercite.el") |
| | 465 | ;; No longer distributed: emacsserver.c, tcp.c. |
| | 466 | ("Spencer Thomas" :changed "emacsclient.c" "server.el" |
| | 467 | "dabbrev.el" "unexcoff.c" "gnus.texi") |
| | 468 | ("Jonathan Vail" :changed "vc.el") |
| | 469 | ("James Van Artsdalen" :changed "usg5-4.h" "unexcoff.c") |
| | 470 | ;; No longer distributed: src/makefile.nt, lisp/makefile.nt |
| | 471 | ;; winnt.el renamed to w32-fns.el; nt.[ch] to w32.[ch]; |
| | 472 | ;; ntheap.[ch] to w32heap.[ch]; ntinevt.c to w32inevt.c; |
| | 473 | ;; ntproc.c to w32proc.c; ntterm.c to w32term.c; |
| | 474 | ;; windowsnt.h to ms-w32.h. |
| | 475 | ("Geoff Voelker" :wrote "w32-fns.el" "w32.c" "w32.h" "w32heap.c" |
| | 476 | "w32heap.h" "w32inevt.c" "w32proc.c" "w32term.c" "ms-w32.h") |
| | 477 | ("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h") |
| | 478 | ("Eli Zaretskii" :wrote "bidi.c" "[bidirectional display in xdisp.c]") |
| | 479 | ;; Not using this version any more. |
| | 480 | ;;; ("Pace Willisson" :wrote "ispell.el") |
| | 481 | ;; FIXME overwritten by Author:. |
| | 482 | ("Bill Wohler" :cowrote "mh-e.el") |
| | 483 | ("Garrett Wollman" :changed "sendmail.el") |
| | 484 | ("Dale R. Worley" :changed "mail-extr.el") |
| | 485 | ("Jamie Zawinski" :changed "bytecode.c" :wrote "tar-mode.el" |
| | 486 | :cowrote "disass.el")) |
| | 487 | "Actions taken from the original, manually (un)maintained AUTHORS file.") |
| | 488 | |
| | 489 | |
| | 490 | (defconst authors-valid-file-names |
| | 491 | '("aclocal.m4" |
| | 492 | "build-ins.in" |
| | 493 | "Makefile.noleim" |
| | 494 | "makedist.bat" |
| | 495 | "makefile.def" |
| | 496 | "makefile.nt" |
| | 497 | "debug.bat.in" "emacs.bat.in" |
| | 498 | ".gdbinit-union" |
| | 499 | "alloca.s" |
| | 500 | "make-delta" |
| | 501 | "config.w95" |
| | 502 | "emacstool.1" |
| | 503 | "align.umax" |
| | 504 | "cxux-crt0.s" |
| | 505 | "gould-sigvec.s" |
| | 506 | "getdate.y" |
| | 507 | "ymakefile" |
| | 508 | "permute-index" "index.perm" |
| | 509 | "ibmrs6000.inp" |
| | 510 | "b2m.c" |
| | 511 | "emacs.ico" |
| | 512 | "emacs21.ico" |
| | 513 | "LPF" "LEDIT" "OTHER.EMACSES" |
| | 514 | "emacs16_mac.png" "emacs24_mac.png" |
| | 515 | "emacs256_mac.png" "emacs32_mac.png" |
| | 516 | "emacs48_mac.png" "emacs512_mac.png" |
| | 517 | "revdiff" ; admin/ |
| | 518 | "mainmake" "sed1.inp" "sed2.inp" "sed3.inp" ; msdos/ |
| | 519 | "mac-fix-env.m" |
| | 520 | ;; Deleted vms stuff: |
| | 521 | "temacs.opt" "descrip.mms" "compile.com" "link.com" |
| | 522 | ) |
| | 523 | "File names which are valid, but no longer exist (or cannot be found) |
| | 524 | in the repository.") |
| | 525 | |
| | 526 | (defconst authors-renamed-files-alist |
| | 527 | '(("nt.c" . "w32.c") ("nt.h" . "w32.h") |
| | 528 | ("ntheap.c" . "w32heap.c") ("ntheap.h" . "w32heap.h") |
| | 529 | ("ntinevt.c" . "w32inevt.c") ("ntinevt.h" . "w32inevt.h") |
| | 530 | ("ntproc.c" . "w32proc.c") |
| | 531 | ("w32console.c" . "w32term.c") |
| | 532 | ("unexnt.c" . "unexw32.c") |
| | 533 | ("s/windowsnt.h" . "s/ms-w32.h") |
| | 534 | ("winnt.el" . "w32-fns.el") |
| | 535 | ("config.emacs" . "configure") |
| | 536 | ("config.h.dist" . "config.in") |
| | 537 | ("config.h-dist" . "config.in") |
| | 538 | ("config.h.in" . "config.in") |
| | 539 | ("paths.h-dist" . "paths.h.in") |
| | 540 | ("patch1" . "sed1.inp") |
| | 541 | ("GETTING.GNU.SOFTWARE" . "FTP") |
| | 542 | ("etc/MACHINES" . "MACHINES") |
| | 543 | ("ONEWS" . "NEWS.19") |
| | 544 | ("ONEWS.1" . "NEWS.1-17") |
| | 545 | ("ONEWS.2" . "NEWS.1-17") |
| | 546 | ("ONEWS.3" . "NEWS.18") |
| | 547 | ("ONEWS.4" . "NEWS.18") |
| | 548 | ("ORDERS.USA" . "ORDERS") |
| | 549 | ("EUROPE" . "ORDERS") |
| | 550 | ("DIFF" . "OTHER.EMACSES") |
| | 551 | ("CCADIFF" . "OTHER.EMACSES") |
| | 552 | ("GOSDIFF" . "OTHER.EMACSES") |
| | 553 | ("Makefile.in.in" . "Makefile.in") |
| | 554 | ("leim-Makefile" . "leim/Makefile") |
| | 555 | ("leim-Makefile.in" . "leim/Makefile.in") |
| | 556 | ("emacs-lisp/testcover-ses.el" . "tcover-ses.el") |
| | 557 | ("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el") |
| | 558 | ;; index and pick merged into search. |
| | 559 | ("mh-index.el" . "mh-search.el") |
| | 560 | ("mh-pick.el" . "mh-search.el") |
| | 561 | ("font-setting.el" . "dynamic-setting.el") |
| | 562 | ;; INSTALL-CVS -> .CVS -> .BZR |
| | 563 | ("INSTALL-CVS" . "INSTALL.BZR") |
| | 564 | ("INSTALL.CVS" . "INSTALL.BZR") |
| | 565 | ("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf") |
| | 566 | ("gnus-logo.eps" . "refcards/gnus-logo.eps") |
| | 567 | ("build-install" . "build-ins.in") |
| | 568 | ("build-install.in" . "build-ins.in") |
| | 569 | ("unidata/Makefile" . "unidata/Makefile.in") |
| | 570 | ;; Not renamed, but we only have the latter in the Emacs repo. |
| | 571 | ("trampver.texi.in" . "trampver.texi") |
| | 572 | ("e/eterm" . "e/eterm-color") |
| | 573 | ("e/eterm.ti" . "e/eterm-color.ti") |
| | 574 | ("README.txt" . "README") |
| | 575 | ("emacs.names" . "JOKES") |
| | 576 | ("ED.WORSHIP" . "JOKES") |
| | 577 | ("GNU.JOKES" . "JOKES") |
| | 578 | ("CHARACTERS" . "TODO") |
| | 579 | ("schema/xhtml-basic-form.rnc" . "schema/xhtml-bform.rnc" ) |
| | 580 | ("schema/xhtml-basic-table.rnc" . "schema/xhtml-btable.rnc") |
| | 581 | ("schema/xhtml-list.rnc" . "schema/xhtml-lst.rnc") |
| | 582 | ("schema/xhtml-target.rnc" . "schema/xhtml-tgt.rnc") |
| | 583 | ("schema/xhtml-style.rnc" . "schema/xhtml-xstyle.rnc") |
| | 584 | ("schema/docbook-dyntbl.rnc" . "schema/docbk-dyntbl.rnc") |
| | 585 | ("schema/docbook-soextbl.rnc" . "schema/docbk-soextbl.rn" ) |
| | 586 | ("texi/url.txi" . "url.texi") |
| | 587 | ("edt-user.doc" . "edt.texi") |
| | 588 | ;; Moved to different directories. |
| | 589 | ("ctags.1" . "ctags.1") |
| | 590 | ("etags.1" . "etags.1") |
| | 591 | ("emacs.1" . "emacs.1") |
| | 592 | ("emacsclient.1" . "emacsclient.1") |
| | 593 | ("icons/emacs21.ico" . "emacs21.ico") |
| | 594 | ) |
| | 595 | "Alist of files which have been renamed during their lifetime. |
| | 596 | Elements are (OLDNAME . NEWNAME).") |
| | 597 | |
| | 598 | (defconst authors-renamed-files-regexps |
| | 599 | '(("^m/m-\\(.*\\.h\\)$" . "m/\\1") |
| | 600 | ("^m-\\(.*\\.h\\)$" . "\\1") |
| | 601 | ("^s/s-\\(.*\\.h\\)$" . "s/\\1") |
| | 602 | ("^s-\\(.*\\.h\\)$" . "\\1") |
| | 603 | ("^s/[-.a-zA-Z0-9_]+\\.h$" . t) |
| | 604 | ("\\(.*\\)\\.cmd$" . "\\1.bat") |
| | 605 | ("\\.bat$" . t) |
| | 606 | ("\\.[ch]$" . t) |
| | 607 | ("\\.el$" . t) |
| | 608 | ("\\.ps$" . t) |
| | 609 | ("\\.texi?$" . t) |
| | 610 | ("\\.texinfo$" . t) |
| | 611 | ("\\.xml?$" . t) |
| | 612 | ("\\.x[pb]m$" . t) |
| | 613 | ("\\.[xp]bm$" . t) |
| | 614 | ("^paths\\." . t) |
| | 615 | ("^install\\." . t) |
| | 616 | ("^\\(TUTORIAL[^/]*\\)" . "tutorials/\\1") |
| | 617 | ("^\\(tree-widget/\\(?:default\\|folder\\)/[-a-z]+\\.png\\)$" . |
| | 618 | "images/\\1") |
| | 619 | ("^\\(images/icons/\\)mac\\(emacs\\)_\\([0-9]+\\)\\(\\.png\\)" . |
| | 620 | "\\1\\2\\3_mac\\4") |
| | 621 | ("\\(images/icons/\\)emacs_\\([0-9][0-9]\\)\\.png" . |
| | 622 | "\\1hicolor/\\2x\\2/apps/emacs.png") |
| | 623 | ) |
| | 624 | "List regexps and rewriting rules for renamed files. |
| | 625 | Elements are (REGEXP . REPLACE). If REPLACE is a string, the file |
| | 626 | name matching REGEXP is replaced by REPLACE using `replace-string'. |
| | 627 | Otherwise, the file name is accepted as is.") |
| | 628 | |
| | 629 | (defvar authors-checked-files-alist) |
| | 630 | (defvar authors-invalid-file-names) |
| | 631 | |
| | 632 | (defun authors-disambiguate-file-name (fullname) |
| | 633 | "Convert FULLNAME to an unambiguous relative-name." |
| | 634 | (let ((relname (file-name-nondirectory fullname)) |
| | 635 | parent) |
| | 636 | (if (member relname authors-ambiguous-files) |
| | 637 | ;; In case of ambiguity, just prepend the parent directory. |
| | 638 | ;; FIXME obviously this is not a perfect solution. |
| | 639 | (if (string-equal "lisp" |
| | 640 | (setq parent (file-name-nondirectory |
| | 641 | (directory-file-name |
| | 642 | (file-name-directory fullname))))) |
| | 643 | relname |
| | 644 | (format "%s/%s" parent relname)) |
| | 645 | relname))) |
| | 646 | |
| | 647 | (defun authors-canonical-file-name (file log-file pos author) |
| | 648 | "Return canonical file name for FILE found in LOG-FILE. |
| | 649 | Checks whether FILE is a valid (existing) file name, has been renamed, |
| | 650 | or is on the list of removed files. Returns the non-directory part of |
| | 651 | the file name. Only uses the LOG-FILE position POS and associated AUTHOR |
| | 652 | to print a message if FILE is not found." |
| | 653 | ;; FILE should be re-checked in every different directory associated |
| | 654 | ;; with a LOG-FILE. Eg configure.in from src/ChangeLog is not the |
| | 655 | ;; same as that from top-level/ChangeLog. |
| | 656 | (let* ((fullname (expand-file-name file (file-name-directory log-file))) |
| | 657 | (entry (assoc fullname authors-checked-files-alist)) |
| | 658 | relname |
| | 659 | valid) |
| | 660 | (if entry |
| | 661 | (cdr entry) |
| | 662 | (setq relname (file-name-nondirectory file)) |
| | 663 | (if (or (member relname authors-valid-file-names) |
| | 664 | (file-exists-p file) |
| | 665 | (file-exists-p relname) |
| | 666 | (file-exists-p (concat "etc/" relname))) |
| | 667 | (setq valid (authors-disambiguate-file-name fullname)) |
| | 668 | (setq valid (assoc file authors-renamed-files-alist)) |
| | 669 | (if valid |
| | 670 | (setq valid (cdr valid)) |
| | 671 | (let ((rules authors-renamed-files-regexps)) |
| | 672 | (while rules |
| | 673 | (if (string-match (car (car rules)) file) |
| | 674 | (setq valid (if (stringp (cdr (car rules))) |
| | 675 | (file-name-nondirectory |
| | 676 | (replace-match (cdr (car rules)) t nil file)) |
| | 677 | relname) |
| | 678 | rules nil)) |
| | 679 | (setq rules (cdr rules)))))) |
| | 680 | (setq authors-checked-files-alist |
| | 681 | (cons (cons fullname valid) authors-checked-files-alist)) |
| | 682 | (unless (or valid |
| | 683 | (member file authors-ignored-files) |
| | 684 | (authors-obsolete-file-p file) |
| | 685 | (string-match "[*]" file) |
| | 686 | (string-match "^[0-9.]+$" file)) |
| | 687 | (setq authors-invalid-file-names |
| | 688 | (cons (format "%s:%d: unrecognized `%s' for %s" |
| | 689 | log-file |
| | 690 | (1+ (count-lines (point-min) pos)) |
| | 691 | file author) |
| | 692 | authors-invalid-file-names))) |
| | 693 | valid))) |
| | 694 | |
| | 695 | (defun authors-add-fixed-entries (table) |
| | 696 | "Add actions from `authors-fixed-entries' to TABLE." |
| | 697 | (dolist (entry authors-fixed-entries) |
| | 698 | (let ((author (car entry)) |
| | 699 | action) |
| | 700 | (dolist (item (cdr entry)) |
| | 701 | (if (symbolp item) |
| | 702 | (setq action item) |
| | 703 | (authors-add author item action table)))))) |
| | 704 | |
| | 705 | |
| | 706 | (defun authors-obsolete-file-p (file) |
| | 707 | "Return non-nil if FILE is obsolete. |
| | 708 | FILE is considered obsolete if it matches one of the regular expressions |
| | 709 | from `authors-obsolete-files-regexps'." |
| | 710 | (let (obsolete-p |
| | 711 | (regexps authors-obsolete-files-regexps)) |
| | 712 | (while (and regexps (not obsolete-p)) |
| | 713 | (setq obsolete-p (string-match (car regexps) file) |
| | 714 | regexps (cdr regexps))) |
| | 715 | obsolete-p)) |
| | 716 | |
| | 717 | |
| | 718 | (defun authors-add (author file action table) |
| | 719 | "Record that AUTHOR worked on FILE. |
| | 720 | ACTION is a keyword symbol describing what he did. Record file, |
| | 721 | author and what he did in hash table TABLE. See the description of |
| | 722 | `authors-scan-change-log' for the structure of the hash table." |
| | 723 | (unless (or (member file authors-ignored-files) |
| | 724 | (authors-obsolete-file-p file) |
| | 725 | (equal author "")) |
| | 726 | (let* ((value (gethash author table)) |
| | 727 | (entry (assoc file value)) |
| | 728 | slot) |
| | 729 | (if (null entry) |
| | 730 | (puthash author (cons (list file (cons action 1)) value) table) |
| | 731 | (if (setq slot (assoc action (cdr entry))) |
| | 732 | (setcdr slot (1+ (cdr slot))) |
| | 733 | (nconc entry (list (cons action 1)))))))) |
| | 734 | |
| | 735 | |
| | 736 | (defun authors-canonical-author-name (author) |
| | 737 | "Return a canonicalized form of AUTHOR, an author name. |
| | 738 | If AUTHOR has an entry in `authors-aliases', use that. Remove |
| | 739 | email addresses. Capitalize words in the author's name, unless |
| | 740 | it is found in `authors-fixed-case'." |
| | 741 | (let* ((aliases authors-aliases) |
| | 742 | regexps realname) |
| | 743 | (while aliases |
| | 744 | (setq realname (car (car aliases)) |
| | 745 | regexps (cdr (car aliases)) |
| | 746 | aliases (cdr aliases)) |
| | 747 | (while regexps |
| | 748 | (if (string-match (car regexps) author) |
| | 749 | (setq author realname |
| | 750 | regexps nil |
| | 751 | aliases nil) |
| | 752 | (setq regexps (cdr regexps)))))) |
| | 753 | (when author |
| | 754 | (setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author)) |
| | 755 | (setq author (replace-regexp-in-string "\`[ \t]+" "" author)) |
| | 756 | (setq author (replace-regexp-in-string "[ \t]+$" "" author)) |
| | 757 | (setq author (replace-regexp-in-string "[ \t]+" " " author)) |
| | 758 | (unless (string-match "[-, \t]" author) |
| | 759 | (setq author "")) |
| | 760 | (or (car (member author authors-fixed-case)) |
| | 761 | (capitalize author)))) |
| | 762 | |
| | 763 | (defun authors-scan-change-log (log-file table) |
| | 764 | "Scan change log LOG-FILE for author information. |
| | 765 | |
| | 766 | For each change mentioned in the log, add an entry to hash table TABLE |
| | 767 | under the author's canonical name. |
| | 768 | |
| | 769 | Keys of TABLE are author names. Values are alists of entries (FILE |
| | 770 | \(ACTION . COUNT) ...). FILE is one file the author worked on. The |
| | 771 | rest of the entry is a list of keyword symbols describing what he did |
| | 772 | with the file and the number of each action: |
| | 773 | |
| | 774 | :wrote means the author wrote the file |
| | 775 | :cowrote means he wrote the file in collaboration with others |
| | 776 | :changed means he changed the file COUNT times." |
| | 777 | |
| | 778 | (let* ((enable-local-variables :safe) ; for find-file, hence let* |
| | 779 | (enable-local-eval nil) |
| | 780 | (existing-buffer (get-file-buffer log-file)) |
| | 781 | (buffer (find-file-noselect log-file)) |
| | 782 | authors file pos) |
| | 783 | (with-current-buffer buffer |
| | 784 | (save-restriction |
| | 785 | (widen) |
| | 786 | (goto-char (point-min)) |
| | 787 | (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t) |
| | 788 | (beginning-of-line) |
| | 789 | (setq pos (point)) |
| | 790 | (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+") |
| | 791 | ;; Handle joint authorship of changes. |
| | 792 | ;; This can be a bit fragile, and is not too common. |
| | 793 | (setq authors nil) |
| | 794 | (while (progn |
| | 795 | (skip-chars-forward " \t+:0-9-") |
| | 796 | (not (looking-at "\\($\\|\\*\\|\ |
| | 797 | Suggested\\|Trivial\\|Version\\|Originally\\|From:\\|Patch[ \t]+[Bb]y\\)"))) |
| | 798 | (push (authors-canonical-author-name |
| | 799 | (buffer-substring-no-properties |
| | 800 | (point) (line-end-position))) authors) |
| | 801 | (forward-line 1))) |
| | 802 | ((looking-at "^[ \t]+\\*") |
| | 803 | (let ((line (buffer-substring-no-properties |
| | 804 | (match-end 0) (line-end-position)))) |
| | 805 | (while (and (not (string-match ":" line)) |
| | 806 | (forward-line 1) |
| | 807 | (not (looking-at ":\\|^[ \t]*$"))) |
| | 808 | (setq line (concat line |
| | 809 | (buffer-substring-no-properties |
| | 810 | (line-beginning-position) |
| | 811 | (line-end-position))))) |
| | 812 | (when (string-match ":" line) |
| | 813 | (setq line (substring line 0 (match-beginning 0))) |
| | 814 | (setq line (replace-regexp-in-string "[[(<{].*$" "" line)) |
| | 815 | (setq line (replace-regexp-in-string "," "" line)) |
| | 816 | (dolist (file (split-string line)) |
| | 817 | (when (setq file (authors-canonical-file-name file log-file pos (car authors))) |
| | 818 | (dolist (author authors) |
| | 819 | ;;(message "%s changed %s" author file) |
| | 820 | (authors-add author file :changed table))))) |
| | 821 | (forward-line 1))))))) |
| | 822 | (unless existing-buffer |
| | 823 | (kill-buffer buffer)))) |
| | 824 | |
| | 825 | |
| | 826 | (defun authors-scan-el (file table) |
| | 827 | "Scan Lisp file FILE for author information. |
| | 828 | TABLE is a hash table to add author information to." |
| | 829 | (let* ((existing-buffer (get-file-buffer file)) |
| | 830 | (enable-local-variables :safe) ; for find-file, hence let* |
| | 831 | (enable-local-eval nil) |
| | 832 | (buffer (find-file-noselect file))) |
| | 833 | (setq file (authors-disambiguate-file-name (expand-file-name file))) |
| | 834 | (with-current-buffer buffer |
| | 835 | (save-restriction |
| | 836 | (widen) |
| | 837 | (goto-char (point-min)) |
| | 838 | (while (and (re-search-forward |
| | 839 | "^;+[ \t]*\\(Authors?\\|Commentary\\|Code\\):[ \t]*" nil t) |
| | 840 | (not (member (match-string 1) '("Commentary" "Code")))) |
| | 841 | (let ((continue t) |
| | 842 | (action :wrote) |
| | 843 | authors) |
| | 844 | (while continue |
| | 845 | ;; Some entries contain a year range in front of the |
| | 846 | ;; author's name. |
| | 847 | (skip-chars-forward "-0-9 \t") |
| | 848 | (push (authors-canonical-author-name |
| | 849 | (buffer-substring-no-properties |
| | 850 | (point) (line-end-position))) authors) |
| | 851 | ;; tips.texi says the continuation line should begin |
| | 852 | ;; with a tab, but often spaces are used. |
| | 853 | (setq continue |
| | 854 | (and (zerop (forward-line 1)) |
| | 855 | (looking-at ";;;?\\(\t+ *\\| +\\)[[:alnum:]]") |
| | 856 | (goto-char (1- (match-end 0))) |
| | 857 | (not (looking-at "[[:upper:]][-[:alpha:]]+:[ \t]"))))) |
| | 858 | (and (> (length authors) 1) |
| | 859 | (setq action :cowrote)) |
| | 860 | (mapc (lambda (author) |
| | 861 | (authors-add author file action table)) |
| | 862 | authors))))) |
| | 863 | (unless existing-buffer |
| | 864 | (kill-buffer buffer)))) |
| | 865 | |
| | 866 | |
| | 867 | (defun authors-public-domain-p (file) |
| | 868 | "Return t if FILE is a file that was put in public domain." |
| | 869 | (let ((public-domain-p nil) |
| | 870 | (list authors-public-domain-files)) |
| | 871 | (while (and list (not public-domain-p)) |
| | 872 | (when (string-match (car list) file) |
| | 873 | (setq public-domain-p t)) |
| | 874 | (setq list (cdr list))) |
| | 875 | public-domain-p)) |
| | 876 | |
| | 877 | (defvar authors-author-list) |
| | 878 | |
| | 879 | (defun authors-add-to-author-list (author changes) |
| | 880 | "Insert information about AUTHOR's work on Emacs into `authors-author-list'. |
| | 881 | CHANGES is an alist of entries (FILE (ACTION . COUNT) ...), as produced by |
| | 882 | `authors-scan-change-log'. |
| | 883 | The element added to `authors-author-list' is (AUTHOR WROTE CO-WROTE CHANGED), |
| | 884 | where WROTE, CO-WROTE, and CHANGED are lists of the files written, co-written |
| | 885 | and changed by AUTHOR." |
| | 886 | (when author |
| | 887 | (let ((nchanged 0) |
| | 888 | wrote-list |
| | 889 | cowrote-list |
| | 890 | changed-list) |
| | 891 | (dolist (change changes) |
| | 892 | (let* ((actions (cdr change)) |
| | 893 | (file (car change)) |
| | 894 | (filestat (if (authors-public-domain-p file) |
| | 895 | (concat file " (public domain)") |
| | 896 | file)) |
| | 897 | slot) |
| | 898 | (cond ((assq :wrote actions) |
| | 899 | (setq wrote-list (cons filestat wrote-list))) |
| | 900 | ((assq :cowrote actions) |
| | 901 | (setq cowrote-list (cons filestat cowrote-list))) |
| | 902 | (t |
| | 903 | (setq changed-list |
| | 904 | (cons (cons file (cdr (assq :changed actions))) |
| | 905 | changed-list)))))) |
| | 906 | (if wrote-list |
| | 907 | (setq wrote-list (sort wrote-list 'string-lessp))) |
| | 908 | (if cowrote-list |
| | 909 | (setq cowrote-list (sort cowrote-list 'string-lessp))) |
| | 910 | (when changed-list |
| | 911 | (setq changed-list (sort changed-list |
| | 912 | (lambda (a b) |
| | 913 | (if (= (cdr a) (cdr b)) |
| | 914 | (string-lessp (car a) (car b)) |
| | 915 | (> (cdr a) (cdr b)))))) |
| | 916 | (setq nchanged (length changed-list)) |
| | 917 | (setq changed-list (mapcar 'car changed-list))) |
| | 918 | (if (> (- nchanged authors-many-files) 2) |
| | 919 | (setcdr (nthcdr authors-many-files changed-list) |
| | 920 | (list (format "and %d other files" (- nchanged authors-many-files))))) |
| | 921 | (setq authors-author-list |
| | 922 | (cons (list author wrote-list cowrote-list changed-list) |
| | 923 | authors-author-list))))) |
| | 924 | |
| | 925 | (defun authors (root) |
| | 926 | "Extract author information from change logs and Lisp source files. |
| | 927 | ROOT is the root directory under which to find the files. If called |
| | 928 | interactively, ROOT is read from the minibuffer. |
| | 929 | Result is a buffer *Authors* containing authorship information, and a |
| | 930 | buffer *Authors Errors* containing references to unknown files." |
| | 931 | (interactive "DEmacs source directory: ") |
| | 932 | (setq root (expand-file-name root)) |
| | 933 | (let ((logs (process-lines find-program root "-name" "ChangeLog*")) |
| | 934 | (table (make-hash-table :test 'equal)) |
| | 935 | (buffer-name "*Authors*") |
| | 936 | authors-checked-files-alist |
| | 937 | authors-invalid-file-names) |
| | 938 | (authors-add-fixed-entries table) |
| | 939 | (unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
| | 940 | (unless (y-or-n-p |
| | 941 | (format "Not the root directory of Emacs: %s, continue? " root)) |
| | 942 | (error "Not the root directory"))) |
| | 943 | (dolist (log logs) |
| | 944 | (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) |
| | 945 | (message "Scanning %s..." log) |
| | 946 | (authors-scan-change-log log table))) |
| | 947 | (let ((els (process-lines find-program root "-name" "*.el"))) |
| | 948 | (dolist (file els) |
| | 949 | (message "Scanning %s..." file) |
| | 950 | (authors-scan-el file table))) |
| | 951 | (message "Generating buffer %s..." buffer-name) |
| | 952 | (set-buffer (get-buffer-create buffer-name)) |
| | 953 | (erase-buffer) |
| | 954 | (set-buffer-file-coding-system authors-coding-system) |
| | 955 | (insert |
| | 956 | "Many people have contributed code included in the Free Software |
| | 957 | Foundation's distribution of GNU Emacs. To show our appreciation for |
| | 958 | their public spirit, we list here in alphabetical order a condensed |
| | 959 | list of their contributions.\n") |
| | 960 | (let (authors-author-list a) |
| | 961 | (maphash #'authors-add-to-author-list table) |
| | 962 | (setq authors-author-list |
| | 963 | (sort authors-author-list |
| | 964 | (lambda (a b) (string-lessp (car a) (car b))))) |
| | 965 | (dolist (a authors-author-list) |
| | 966 | (let ((author (car a)) |
| | 967 | (wrote (nth 1 a)) |
| | 968 | (cowrote (nth 2 a)) |
| | 969 | (changed (nth 3 a)) |
| | 970 | file) |
| | 971 | (insert "\n" author ": ") |
| | 972 | (when wrote |
| | 973 | (insert "wrote") |
| | 974 | (dolist (file wrote) |
| | 975 | (if (> (+ (current-column) (length file)) 72) |
| | 976 | (insert "\n ")) |
| | 977 | (insert " " file)) |
| | 978 | (insert "\n")) |
| | 979 | (when cowrote |
| | 980 | (if wrote |
| | 981 | (insert "and ")) |
| | 982 | (insert "co-wrote") |
| | 983 | (dolist (file cowrote) |
| | 984 | (if (> (+ (current-column) (length file)) 72) |
| | 985 | (insert "\n ")) |
| | 986 | (insert " " file)) |
| | 987 | (insert "\n")) |
| | 988 | (when changed |
| | 989 | (if (or wrote cowrote) |
| | 990 | (insert "and ")) |
| | 991 | (insert "changed") |
| | 992 | (dolist (file changed) |
| | 993 | (if (> (+ (current-column) (length file)) 72) |
| | 994 | (insert "\n ")) |
| | 995 | (insert " " file)) |
| | 996 | (insert "\n"))))) |
| | 997 | (insert "\nLocal" " Variables:\ncoding: " |
| | 998 | (symbol-name authors-coding-system) "\nEnd:\n") |
| | 999 | (message "Generating buffer %s... done" buffer-name) |
| | 1000 | (unless noninteractive |
| | 1001 | (when authors-invalid-file-names |
| | 1002 | (with-current-buffer (get-buffer-create "*Authors Errors*") |
| | 1003 | (setq buffer-read-only nil) |
| | 1004 | (erase-buffer) |
| | 1005 | (set-buffer-file-coding-system authors-coding-system) |
| | 1006 | (insert "Unrecognized file entries found:\n\n") |
| | 1007 | (mapc (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n"))) |
| | 1008 | (sort authors-invalid-file-names 'string-lessp)) |
| | 1009 | (goto-char (point-min)) |
| | 1010 | (compilation-mode) |
| | 1011 | (message "Errors were found. See buffer %s" (buffer-name)))) |
| | 1012 | (pop-to-buffer buffer-name)))) |
| | 1013 | |
| | 1014 | |
| | 1015 | (defun batch-update-authors () |
| | 1016 | "Produce an AUTHORS file. |
| | 1017 | Call this function in batch mode with two command line arguments FILE |
| | 1018 | and ROOT. FILE is the file to write, ROOT is the root directory of |
| | 1019 | the Emacs source tree, from which to build the file." |
| | 1020 | (unless noninteractive |
| | 1021 | (error "`batch-update-authors' is to be used only with -batch")) |
| | 1022 | (when (/= (length command-line-args-left) 2) |
| | 1023 | (error "Call `batch-update-authors' with the name of the file to write")) |
| | 1024 | (let* ((file (pop command-line-args-left)) |
| | 1025 | (root (pop command-line-args-left))) |
| | 1026 | (authors root) |
| | 1027 | (write-file file))) |
| | 1028 | |
| | 1029 | (provide 'authors) |
| | 1030 | |
| | 1031 | ;;; authors.el ends here |
HCoop / bpt / emacs.git / blame_incremental