* bug#15473: Update authors.el file.
@ 2013-09-26 20:35 Tae Wong
2013-10-07 17:06 ` Glenn Morris
0 siblings, 1 reply; 8+ messages in thread
From: Tae Wong @ 2013-09-26 20:35 UTC (permalink / raw)
To: 15473
[-- Attachment #1: Type: text/plain, Size: 159 bytes --]
Sort name aliases and fixed case entries alphabetically by last name.
Increase the value of authors-many-files.
(You're not subscribed to this mailing list.)
[-- Attachment #2: authors.el --]
[-- Type: application/octet-stream, Size: 38753 bytes --]
;;; authors.el --- utility for maintaining Emacs's AUTHORS file -*-coding: utf-8 -*-
;; Copyright (C) 2000-2013 Free Software Foundation, Inc.
;; Author: Gerd Moellmann <gerd@gnu.org>
;; Maintainer: Kim F. Storm <storm@cua.dk>
;; Keywords: maint
;; Package: emacs
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Use M-x authors RET to create an *Authors* buffer that can used as
;; or merged with Emacs's AUTHORS file.
;;; Code:
(defvar authors-coding-system 'utf-8
"Coding system used in the AUTHORS file.")
(defconst authors-many-files 75
"Maximum number of files for which to print individual information.
If an author has modified more files, only the names of the most
frequently modified files are printed and a count of the additional
files.")
(defconst authors-aliases
'(
("David Abrahams" "Dave Abrahams")
("Per Abrahamsen" "Per Abhiddenware")
("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams")
("Joseph Arceneaux" "Joe Arceneaux")
("Torbjörn Axelsson" "Torbjvrn Axelsson")
("Steven L. Baur" "SL Baur" "Steven L Baur")
("Mark D. Baushke" "Mark D Baushke")
("Karl Berry" "K. Berry")
("Richard G. Bielawski" "Richard G Bielawski" "Richard Bielawski")
("Anna M. Bigatti" "Anna Bigatti")
("Johan Bockgård" "Johan Bockgard")
("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg")
("Wlodzimierz Bzyl" "W.*dek Bzyl")
("Michaël Cadilhac" "Michael Cadilhac")
("Bill Carpenter" "WJ Carpenter")
("Ed L. Cashin" "Ed L Cashin")
("Robert J. Chassell" "Bob Chassell")
("Sacha Chua" "Sandra Jean Chua")
("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn")
("Stewart M. Clamen" "Stewart Clamen")
("Michael R. Cook" "Michael Cook")
("Andrew Csillag" "Drew Csillag")
("Toby Cubitt" "Toby S\\. Cubitt")
("Marcus G. Daniels" "Marcus Daniels")
("Satyaki Das" "Indexed search by Satyaki Das")
("Vincent Del Vecchio" "Vince Del Vecchio")
("Jan Djärv" "Jan D." "Jan Djarv")
("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}")
("Thomas Dye" "Tom Dye")
("John W. Eaton" "John Eaton")
("Paul Eggert" "eggert")
("Torbjörn Einarsson" "Torbj.*rn Einarsson")
("Tsugutomo Enami" "enami tsugutomo")
("Era Eriksson" "Era@Iki.Fi")
("Michael D. Ernst" "Michael Ernst")
("Nelson Jose dos Santos Ferreira" "Nelson Ferreira")
("John J Foerch" "John Foerch")
("Brian Fox" "Brian J. Fox")
("Maxime Edouard Robert Froumentin" "Max Froumentin")
("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth")
("Peter S. Galbraith" "Peter Galbraith" "Peter S Galbraith")
("Juan León Lahoz García" "Juan-Leon Lahoz Garcia")
("David Gillespie" "Dave Gillespie")
("Deepak Goel" "D. Goel")
("David De La Harpe Golden" "David Golden")
("Kevin Greiner" "Kevin J. Greiner")
("Kai Großjohann" "Kai Grossjohann" "Kai Großjohann" "Kai.Grossjohann@Cs.Uni-Dortmund.De" "Kai.Grossjohann@Gmx.Net")
("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA")
("Raja R. Harinath" "Raja R Harinath")
("Alexandru Harsanyi" "Alex Harsanyi")
("K. Shane Hartman" "Shane Hartman")
("Aaron S. Hawley" "Aaron Hawley")
("Stuart D. Herring" "Stuart Herring" "Davis Herring")
("Thomas Horsley" "Tom Horsley") ; FIXME ?
("Lars Magne Ingebrigtsen" "Lars Ingebrigtsen")
("Noorul Islam" "Noorul Islam K M")
("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel Janík" "Pavel@Janik.Cz")
("Kyle Jones" "Kyle E. Jones")
("David Kågedal" "David K..edal")
("Jonathan I. Kamens" "Jonathan Kamens")
("Taichi Kawabata" "KAWABATA,? Taichi")
("Joseph M. Kelsey" "Joe Kelsey") ; FIXME ?
("Richard King" "Dick King")
("Pavel Kobiakov" "Pavel Kobyakov")
("Marko Kohtala" "Kohtala Marko")
("David M. Koppelman" "David M. Koppelman, Koppel@Ec?e.Lsu.Edu" "David Koppelman")
("Yoshinori Koseki" "KOSEKI Yoshinori" "小関 吉則")
("Emilio C. Lopes" "Emilio Lopes")
("Károly Lőrentey" "Lőrentey Károly")
("Martin Lorentzon" "Martin Lorentzson")
("Eric M. Ludlam" "Eric Ludlam")
("Jeremy Bertram Maitin-Shepard" "Jeremy Maitin-Shepard")
("Ken Manheimer" "Kenneth Manheimer")
("Bill Mann" "William F. Mann")
("Jérôme Marant" "Jerome Marant")
("Agustín Martín" "Agustin Martin" "Agustín Martín Domingo")
("Kazushi Marukawa" "Kazushi")
("Michael R. Mauger" "Michael Mauger")
("Gerd Möllmann" "Gerd Moellmann")
("Tomohiko Morioka" "MORIOKA Tomohiko")
("Ulrich Müller" "Ulrich Mueller")
("Mikio Nakajima" "Nakajima Mikio")
("Yutaka NIIBE" "NIIBE Yutaka")
("Hrvoje Nikšić" "Hrvoje Niksic")
;; lisp/org/ChangeLog 2010-11-11.
(nil "aaa bbb")
;; src/ChangeLog.4, 1994-01-11, since fixed.
;;; (nil "(afs@hplb.hpl.hp.com)")
;; lisp/gnus/ChangeLog.1, 1998-01-15.
;; http://quimby.gnus.org/cgi-bin/cvsweb.cgi/gnus/lisp/gnus-art.el?rev=4.13
(nil "<Use-Author-Address-Header@\\[127.1\\]>")
(nil "Code Extracted") ; lisp/newcomment.el's "Author:" header
(nil "\\`FSF") ; FIXME what is this for - no effect?
;; lisp/gnus/ChangeLog.1, 1997-10-12, since fixed.
;;; (nil "ISO-2022-JP")
("Barry O'Reilly" "Barry OReilly")
("Sean O'Rourke" "Sean ORourke")
("Takaaki Ota" "Tak Ota")
("David O'Toole" "David T. O'Toole")
("William M. Perry" "Bill Perry")
("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen")
("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>" "<Daniel.Pfeiffer@Informatik.START.dbp.de>")
("Frederic Pierresteguy" "Fred Pierresteguy")
("François Pinard" "Francois Pinard")
("Francesco Potortì" "Francesco Potorti" "Francesco Potorti`")
("Yoni Rabkin" "Yoni Rabkin Katzenell")
("T.V. Raman" "T\\. V\\. Raman")
("Eric S. Raymond" "Eric Raymond")
("Paul Reilly" "(pmr@legacy.pajato.com)")
("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" "Reingold Edward M")
("Roland B. Roberts" "Roland B Roberts" "Roland Roberts")
("Bill Rozas" "Guillermo J. Rozas")
("Peter Runestig" "Peter 'luna' Runestig")
("David M. Smith" "David Smith" "David M Smith")
("Brian Sniffen" "Brian T. Sniffen")
("Michael Sperber" "Michael Sperber \\[Mr. Preprocessor\\]")
("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman" "rms" "rms@gnu.org")
("Per Starbäck" "Per Starback")
("Sam Steingold" "Sam Shteingold")
("Kim F. Storm" "Kim Storm")
("Matt Swift" "Matthew Swift")
("Takahashi Naoto" "Naoto Takahashi")
("Toru Tomabechi" "Toru Tomabechi,")
("Björn Torkelsson" "Bjorn Torkelsson")
("Sébastien Vauban" "Sebastien Vauban")
("Geoff Voelker" "voelker")
("Barry A. Warsaw" "Barry Warsaw")
("Christoph Wedler" "Christoph.Wedler@sap.com")
("Peter J. Weisberg" "PJ Weisberg")
("Stephen A. Wood" "(saw@cebaf.gov)")
("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright")
("Thomas Wurgler" "Tom Wurgler")
("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)")
("Eli Zaretskii" "eliz")
("Teodor Zlatanov" "Ted Zlatanov")
)
"Alist of author aliases.
Each entry is of the form (REALNAME REGEXP...). If an author's name
matches one of the REGEXPs, use REALNAME instead.
If REALNAME is nil, ignore that author.")
;; FIXME seems it would be less fragile to check for O', Mc, Mac, von, van, de, dos, der, II, TD, De.
(defconst authors-fixed-case
'("Exal de Jesus Garcia Carrillo"
"Dominique de Waleffe"
"Thomas DeWeese"
"Christophe de Dinechin"
"Nelson Jose dos Santos Ferreira"
"Hans de Graaff"
"MON KEY"
"David J. MacKenzie"
"robert marshall"
"David McCabe"
"Jay McCarthy"
"Devon Sean McCullough"
"Craig McDaniel"
"Mike McEwan"
"Greg McGary"
"Roland McGrath"
"Michael McNamara"
"Edward O'Connor"
"Peter O'Gorman"
"Sean O'Halpin"
"Sean O'Rourke"
"Bryan O'Sullivan"
"David O'Toole"
"James TD Smith"
"BT Templeton"
"Tijs van Bakel"
"Brian van den Broek"
"Piet van Oostrum"
"Peter von der Ahe"
"Christian von Roques"
"Joel N. Weber II")
"List of authors whose names cannot be simply capitalized.")
(defvar authors-public-domain-files
'("emerge\\.el"
"vi\\.el"
"feedmail\\.el"
"mailpost\\.el"
"hanoi\\.el"
"meese\\.el"
"studly\\.el"
"modula2\\.el"
"nnmaildir\\.el"
"nnil\\.el"
"b2m\\.c"
"unexhp9k800\\.c"
"emacsclient\\.1"
"check-doc-strings")
"List of regexps matching files for which the FSF doesn't need papers.")
(defvar authors-obsolete-files-regexps
'("vc-\\*\\.el$"
"spec.txt$"
".*loaddefs.el$" ; not obsolete, but auto-generated
"\\.\\(cvs\\|git\\)ignore$" ; obsolete or uninteresting
"\\.arch-inventory$"
;; TODO lib/? Matches other things?
"build-aux/" "m4/" "Emacs.xcodeproj" "charsets" "mapfiles"
"preferences\\.\\(nib\\|gorm\\)"
"vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
"List of regexps matching obsolete files.
Changes to files matching one of the regexps in this list are not listed.")
(defconst authors-ignored-files
'("external-lisp"
"lock" "share-lib" "local-lisp"
"noleim-Makefile.in"
"NEWS" "ORDERS" "PROBLEMS" "FAQ" "AUTHORS" "FOR-RELEASE" "TODO" "todo"
"MACHINES" "SERVICE"
"README.unicode" "README.multi-tty" "TUTORIAL.translators"
"NEWS.unicode" "COPYING.DJ" "Makefile.old" "Makefile.am"
"NEWS.1" "OOOOONEWS...OONEWS" "OOOONEWS" "etc/NEWS"
"NEWS.1-17" "NEWS.18" "NEWS.19" "NEWS.20" "NEWS.21" "NEWS.22"
"MAINTAINERS" "MH-E-NEWS"
"install-sh" "missing" "mkinstalldirs"
"termcap.dat" "termcap.src" "termcap.ucb" "termcap"
"ChangeLog.nextstep" "Emacs.clr" "spec.txt"
"gfdl.1"
"texi/Makefile.in"
"Imakefile" "icons/sink.ico" "aixcc.lex"
"nxml/char-name/unicode"
"js2-mode.el" ; only installed very briefly, replaced by js.el
"cedet/tests/testtemplates.cpp"
"cedet/tests/testusing.cpp"
"cedet/tests/scopetest.cpp"
"cedet/tests/scopetest.java"
"cedet/tests/test.cpp"
"cedet/tests/test.py"
"cedet/tests/teststruct.cpp"
"*.el"
;; Autogen:
"cus-load.el" "finder-inf.el" "ldefs-boot.el"
"compile" "config.guess" "config.sub" "depcomp"
;; Only existed briefly, then renamed:
"images/icons/allout-widgets-dark-bg"
"images/icons/allout-widgets-light-bg"
;; Never had any meaningful changes logged, now deleted:
"unidata/bidimirror.awk" "unidata/biditype.awk"
"split-man" "Xkeymap.txt" "ms-7bkermit" "ulimit.hack"
"gnu-hp300" "refcard.bit" "ledit.l" "forms.README" "forms-d2.dat"
"CXTERM-DIC/PY.tit" "CXTERM-DIC/ZIRANMA.tit"
"CXTERM-DIC/CTLau.tit" "CXTERM-DIC/CTLauB.tit"
"NICKLES.WORTH" "INTERVAL.IDEAS" "RCP"
"3B-MAXMEM" "AIX.DUMP" "SUN-SUPPORT" "XENIX"
"CODINGS" "CHARSETS"
"calc/INSTALL" "calc/Makefile"
"vms-pp.trans" "_emacs" "batcomp.com" "notes/cpp" ; admin/
"emacsver.texi.in"
"vpath.sed"
"Cocoa/Emacs.base/Contents/Info.plist"
"Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
"GNUstep/Emacs.base/Resources/Info-gnustep.plist"
"GNUstep/Emacs.base/Resources/Emacs.desktop"
"Cocoa/Emacs.base/Contents/Resources/English.lproj"
;; Only existed briefly, then deleted:
"coccinelle/overlay.cocci" "coccinelle/symbol.cocci"
;; MH-E stuff not in Emacs:
"import-emacs" "release-utils"
;; Erc stuff not in Emacs:
"ChangeLog.2001" "ChangeLog.2002" "ChangeLog.2003" "ChangeLog.2004"
"ChangeLog.2005"
"README.extras" "dir-template" "mkChangeLog" "MkChangeLog" "erc-auto.in"
"CREDITS" "HACKING"
"debian/changelog"
"debian/control"
"debian/copyright"
"debian/maint/conffiles"
"debian/maint/conffiles.in"
"debian/maint/postinst"
"debian/maint/postinst.in"
"debian/maint/prerm"
"debian/maint/prerm.in"
"debian/README.Debian"
"debian/README.erc-speak"
"debian/rules"
"debian/scripts/install"
"debian/scripts/install.in"
"debian/scripts/remove"
"debian/scripts/remove.in"
"debian/scripts/startup"
"debian/scripts/startup.erc"
"debian/scripts/startup.erc-speak"
)
"List of files and directories to ignore.
Changes to files in this list are not listed.")
;; List via: find . -name '*.el' | sed 's/.*\///g' | sort | uniq -d
;; FIXME It would be better to discover these dynamically.
;; Note that traditionally "Makefile.in" etc have not been in this list.
;; Ditto for "abbrev.texi" etc.
(defconst authors-ambiguous-files
'("chart.el"
"compile.el"
"complete.el"
"cpp.el"
"ctxt.el"
"custom.el"
"cyrillic.el"
"czech.el"
"debug.el"
"dired.el"
"el.el"
"eshell.el"
"ethiopic.el"
"f90.el"
"files.el"
"find.el"
"format.el"
"generic.el"
"georgian.el"
"greek.el"
"grep.el"
"hebrew.el"
"imenu.el"
"indian.el"
"japanese.el"
"java.el"
"lao.el"
"linux.el"
"locate.el"
"make.el"
"mode.el"
"python.el"
"rmailmm.el"
"semantic.el"
"shell.el"
"simple.el"
"slovak.el"
"sort.el"
"speedbar.el"
"srecode.el"
"table.el"
"texi.el"
"thai.el"
"tibetan.el"
"util.el"
"vc-bzr.el"
"wisent.el")
"List of basenames occurring more than once in the source.")
;; FIXME :cowrote entries here can be overwritten by :wrote entries
;; derived from a file's Author: header (eg mh-e). This really means
;; the Author: header is erroneous.
(defconst authors-fixed-entries
'(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]")
("Joseph Arceneaux" :wrote "xrdb.c")
("Frank Bresz" :wrote "diff.el")
("David M. Brown" :wrote "array.el")
("Shawn M. Carey" :wrote "freebsd.h")
("Satyaki Das" :cowrote "mh-search.el")
("Eric Decker" :changed "hp800.h" "hpux10-20.h" "sysdep.c")
("Lawrence R. Dodd" :cowrote "dired-x.el")
("Paul Eggert" :wrote "rcs2log") ; "vcdiff"
("Fred Fish" :changed "unexcoff.c")
("Keith Gabryelski" :wrote "hexl.c")
("Kevin Gallagher" :wrote "flow-ctrl.el")
("Howard Gayle" :wrote "casetab.c")
("Stephen Gildea" :wrote "refcard.tex"
:cowrote "mh-funcs.el" "mh-search.el")
("David Gillespie" :wrote "cl.texi")
("Hewlett-Packard" :changed "emacsclient.c" "server.el" "keyboard.c")
("Indiana University Foundation" :changed "buffer.c" "buffer.h"
"indent.c" "search.c" "xdisp.c" "region-cache.c" "region-cache.h")
("International Business Machines" :changed "emacs.c" "fileio.c"
"process.c" "sysdep.c" "unexcoff.c")
("Michael K. Johnson" :changed "configure.ac" "emacs.c" "intel386.h"
"mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h"
"systty.h" "unexcoff.c" "linux.h")
("Henry Kautz" :wrote "bib-mode.el")
("Joseph M. Kelsey" :changed "fileio.c" "dir.h")
("Sam Kendall" :changed "etags.c" "etags.el")
("Richard King" :wrote "userlock.el" "filelock.c")
("Marko Kohtala" :changed "info.el")
("Sebastian Kremer" :changed "add-log.el")
("Mark Lambert" :changed "process.c" "process.h")
("Aaron Larson" :changed "bibtex.el")
("James R. Larus" :cowrote "mh-e.el")
("Lars Lindberg" :changed "dabbrev.el" :cowrote "imenu.el")
("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el"
"bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el"
"lmenu.el" "mailabbrev.el" "select.el" "xfaces.c" "xselect.c")
("Niall Mansfield" :changed "etags.c")
("Brian Marick" :cowrote "hideif.el")
("Sidney Markowitz" :changed "doctor.el")
("Microelectronics and Computer Technology Corporation"
:changed "etags.c" "emacsclient.c" "movemail.c"
"rmail.el" "rmailedit.el" "rmailkwd.el"
"rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el"
"server.el" "lisp.h" "sysdep.c" "unexcoff.c" "xmenu.c")
("Richard Mlynarik" :wrote "ehelp.el")
("Mosur Mohan" :changed "etags.c")
("Jeff Morgenthaler" :changed "flow-ctrl.el" "vt200.el" "vt201.el"
"vt220.el" "vt240.el")
("Motorola" :changed "buff-menu.el")
("Hiroshi Nakano" :changed "ralloc.c")
("Mark Neale" :changed "fortran.el")
("Martin Neitzel" :changed "supercite.el")
("Andrew Oram" :changed "calendar.texi (and other files in man/)")
("Frederic Pierresteguy" :wrote "widget.c")
("Michael D. Prange" :changed "tex-mode.el")
("Roland B. Roberts" :changed "files.el" "sort.el"
"buffer.h" "callproc.c" "dired.c" "process.c" "sysdep.c" "systty.h")
("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el"
"sort.el" "alloc.c" "callint.c"
"config.in" "ecrt0.c" "data.c" "fns.c"
"lisp.h" "lread.c"
"print.c" :wrote "float-sup.el" "floatfns.c")
("Schlumberger Technology Corporation" :changed "gud.el")
("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c")
("William Sommerfeld" :wrote "emacsclient.c" "scribe.el")
("Leigh Stoller" :changed "emacsclient.c" "server.el")
("Steve Strassmann" :wrote "spook.el")
("Shinichirou Sugou" :changed "etags.c")
("Sun Microsystems, Inc" :changed "emacsclient.c" "server.el"
:wrote "emacs.icon" "sun.el")
("Kayvan Sylvan" :changed "supercite.el")
("Spencer Thomas" :changed "emacsclient.c" "server.el"
"dabbrev.el" "unexcoff.c" "gnus.texi")
("Jonathan Vail" :changed "vc.el")
("James Van Artsdalen" :changed "usg5-4.h" "unexcoff.c")
("Geoff Voelker" :wrote "w32-fns.el" "w32.c" "w32.h" "w32heap.c"
"w32heap.h" "w32inevt.c" "w32proc.c" "w32term.c" "ms-w32.h")
("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h")
("Bill Wohler" :cowrote "mh-e.el")
("Garrett Wollman" :changed "sendmail.el")
("Dale R. Worley" :changed "mail-extr.el")
("Eli Zaretskii" :wrote "bidi.c" "[bidirectional display in xdisp.c]")
("Jamie Zawinski" :changed "bytecode.c" :wrote "tar-mode.el"
:cowrote "disass.el"))
"Actions taken from the original, manually (un)maintained AUTHORS file.")
(defconst authors-valid-file-names
'("aclocal.m4"
"build-ins.in"
"Makefile.noleim"
"makedist.bat"
"makefile.def"
"makefile.nt"
"ns.mk"
"debug.bat.in" "emacs.bat.in"
".gdbinit-union"
"alloca.s"
"make-delta"
"config.w95"
"emacstool.1"
"align.umax"
"cxux-crt0.s"
"gould-sigvec.s"
"getdate.y"
"ymakefile"
"permute-index" "index.perm"
"ibmrs6000.inp"
"b2m.c" "b2m.1" "b2m.pl" "rcs-checkin.1"
"emacs.bash" "emacs.csh" "ms-kermit"
"emacs.ico"
"emacs21.ico"
"emacs.py" "emacs2.py" "emacs3.py"
"BABYL" "LPF" "LEDIT" "OTHER.EMACSES"
"emacs16_mac.png" "emacs24_mac.png"
"emacs256_mac.png" "emacs32_mac.png"
"emacs48_mac.png" "emacs512_mac.png"
"revdiff" ; admin/
"vcdiff" "rcs-checkin" "tindex.pl"
"mainmake" "sed1.inp" "sed2.inp" "sed3.inp" ; msdos/
"mac-fix-env.m"
;; Deleted vms stuff:
"temacs.opt" "descrip.mms" "compile.com" "link.com"
)
"File names which are valid, but no longer exist (or cannot be found)
in the repository.")
(defconst authors-renamed-files-alist
'(("nt.c" . "w32.c") ("nt.h" . "w32.h")
("ntheap.c" . "w32heap.c") ("ntheap.h" . "w32heap.h")
("ntinevt.c" . "w32inevt.c") ("ntinevt.h" . "w32inevt.h")
("ntproc.c" . "w32proc.c")
("w32console.c" . "w32term.c")
("unexnt.c" . "unexw32.c")
("s/windowsnt.h" . "s/ms-w32.h")
("s/ms-w32.h" . "inc/ms-w32.h")
("winnt.el" . "w32-fns.el")
("emacs.manifest" . "emacs-x86.manifest")
("config.emacs" . "configure")
("configure.in" . "configure.ac")
("config.h.dist" . "config.in")
("config.h-dist" . "config.in")
("config.h.in" . "config.in")
("paths.h-dist" . "paths.h.in")
("patch1" . "sed1.inp")
("GETTING.GNU.SOFTWARE" . "FTP")
("etc/MACHINES" . "MACHINES")
("ONEWS" . "NEWS.19")
("ONEWS.1" . "NEWS.1-17")
("ONEWS.2" . "NEWS.1-17")
("ONEWS.3" . "NEWS.18")
("ONEWS.4" . "NEWS.18")
("ORDERS.USA" . "ORDERS")
("EUROPE" . "ORDERS")
("DIFF" . "OTHER.EMACSES")
("CCADIFF" . "OTHER.EMACSES")
("GOSDIFF" . "OTHER.EMACSES")
("Makefile.in.in" . "Makefile.in")
("leim-Makefile" . "leim/Makefile")
("leim-Makefile.in" . "leim/Makefile.in")
("emacs-lisp/testcover-ses.el" . "tcover-ses.el")
("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el")
("mh-index.el" . "mh-search.el")
("mh-pick.el" . "mh-search.el")
("font-setting.el" . "dynamic-setting.el")
("INSTALL-CVS" . "INSTALL.BZR")
("INSTALL.CVS" . "INSTALL.BZR")
("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf")
("gnus-logo.eps" . "refcards/gnus-logo.eps")
("build-install" . "build-ins.in")
("build-install.in" . "build-ins.in")
("unidata/Makefile" . "unidata/Makefile.in")
("move-if-change" . "build-aux/move-if-change")
("update-subdirs" . "build-aux/update-subdirs")
("trampver.texi.in" . "trampver.texi")
("e/eterm" . "e/eterm-color")
("e/eterm.ti" . "e/eterm-color.ti")
("README.txt" . "README")
("emacs.names" . "JOKES")
("ED.WORSHIP" . "JOKES")
("GNU.JOKES" . "JOKES")
("CHARACTERS" . "TODO")
("schema/xhtml-basic-form.rnc" . "schema/xhtml-bform.rnc" )
("schema/xhtml-basic-table.rnc" . "schema/xhtml-btable.rnc")
("schema/xhtml-list.rnc" . "schema/xhtml-lst.rnc")
("schema/xhtml-target.rnc" . "schema/xhtml-tgt.rnc")
("schema/xhtml-style.rnc" . "schema/xhtml-xstyle.rnc")
("schema/docbook-dyntbl.rnc" . "schema/docbk-dyntbl.rnc")
("schema/docbook-soextbl.rnc" . "schema/docbk-soextbl.rn" )
("texi/url.txi" . "url.texi")
("edt-user.doc" . "edt.texi")
("DEV-NOTES" . "nextstep")
("org/COPYRIGHT-AND-LICENSE" . "org/README")
("ctags.1" . "ctags.1")
("etags.1" . "etags.1")
("emacs.1" . "emacs.1")
("emacsclient.1" . "emacsclient.1")
("icons/emacs21.ico" . "emacs21.ico")
;; Moved from admin/nt/ to nt/.
("nt/README.W32" . "README.W32")
)
"Alist of files which have been renamed during their lifetime.
Elements are (OLDNAME . NEWNAME).")
(defconst authors-renamed-files-regexps
'(("^m/m-\\(.*\\.h\\)$" . "m/\\1")
("^m-\\(.*\\.h\\)$" . "\\1")
("^s/s-\\(.*\\.h\\)$" . "s/\\1")
("^s-\\(.*\\.h\\)$" . "\\1")
("^s/[-.a-zA-Z0-9_]+\\.h$" . t)
("\\(.*\\)\\.cmd$" . "\\1.bat")
("\\.bat$" . t)
("\\.[ch]$" . t)
("\\.el$" . t)
("\\.ps$" . t)
("\\.texi?$" . t)
("\\.texinfo$" . t)
("\\.xml?$" . t)
("\\.x[pb]m$" . t)
("\\.[xp]bm$" . t)
("^paths\\." . t)
("^install\\." . t)
("^\\(TUTORIAL[^/]*\\)" . "tutorials/\\1")
("^\\(tree-widget/\\(?:default\\|folder\\)/[-a-z]+\\.png\\)$" .
"images/\\1")
("^\\(images/icons/\\)mac\\(emacs\\)_\\([0-9]+\\)\\(\\.png\\)" .
"\\1\\2\\3_mac\\4")
("\\(images/icons/\\)emacs_\\([0-9][0-9]\\)\\.png" .
"\\1hicolor/\\2x\\2/apps/emacs.png")
)
"List regexps and rewriting rules for renamed files.
Elements are (REGEXP . REPLACE). If REPLACE is a string, the file
name matching REGEXP is replaced by REPLACE using `replace-string'.
Otherwise, the file name is accepted as is.")
(defvar authors-checked-files-alist)
(defvar authors-invalid-file-names)
(defun authors-disambiguate-file-name (fullname)
"Convert FULLNAME to an unambiguous relative-name."
(let ((relname (file-name-nondirectory fullname))
parent)
(if (member relname authors-ambiguous-files)
;; In case of ambiguity, just prepend the parent directory.
;; FIXME obviously this is not a perfect solution.
(if (string-equal "lisp"
(setq parent (file-name-nondirectory
(directory-file-name
(file-name-directory fullname)))))
relname
(format "%s/%s" parent relname))
relname)))
(defun authors-canonical-file-name (file log-file pos author)
"Return canonical file name for FILE found in LOG-FILE.
Checks whether FILE is a valid (existing) file name, has been renamed,
or is on the list of removed files. Returns the non-directory part of
the file name. Only uses the LOG-FILE position POS and associated AUTHOR
to print a message if FILE is not found."
;; FILE should be re-checked in every different directory associated
;; with a LOG-FILE. Eg configure.ac from src/ChangeLog is not the
;; same as that from top-level/ChangeLog.
(let* ((fullname (expand-file-name file (file-name-directory log-file)))
(entry (assoc fullname authors-checked-files-alist))
relname
valid)
(if entry
(cdr entry)
(setq relname (file-name-nondirectory file))
(if (or (member relname authors-valid-file-names)
(file-exists-p file)
(file-exists-p relname)
(file-exists-p (concat "etc/" relname)))
(setq valid (authors-disambiguate-file-name fullname))
(setq valid (assoc file authors-renamed-files-alist))
(if valid
(setq valid (cdr valid))
(let ((rules authors-renamed-files-regexps))
(while rules
(if (string-match (car (car rules)) file)
(setq valid (if (stringp (cdr (car rules)))
(file-name-nondirectory
(replace-match (cdr (car rules)) t nil file))
relname)
rules nil))
(setq rules (cdr rules))))))
(setq authors-checked-files-alist
(cons (cons fullname valid) authors-checked-files-alist))
(unless (or valid
(member file authors-ignored-files)
(authors-obsolete-file-p file)
(string-match "[*]" file)
(string-match "^[0-9.]+$" file))
(setq authors-invalid-file-names
(cons (format "%s:%d: unrecognized `%s' for %s"
log-file
(1+ (count-lines (point-min) pos))
file author)
authors-invalid-file-names)))
valid)))
(defun authors-add-fixed-entries (table)
"Add actions from `authors-fixed-entries' to TABLE."
(dolist (entry authors-fixed-entries)
(let ((author (car entry))
action)
(dolist (item (cdr entry))
(if (symbolp item)
(setq action item)
(authors-add author item action table))))))
(defun authors-obsolete-file-p (file)
"Return non-nil if FILE is obsolete.
FILE is considered obsolete if it matches one of the regular expressions
from `authors-obsolete-files-regexps'."
(let (obsolete-p
(regexps authors-obsolete-files-regexps))
(while (and regexps (not obsolete-p))
(setq obsolete-p (string-match (car regexps) file)
regexps (cdr regexps)))
obsolete-p))
(defun authors-add (author file action table)
"Record that AUTHOR worked on FILE.
ACTION is a keyword symbol describing what he did. Record file,
author and what he did in hash table TABLE. See the description of
`authors-scan-change-log' for the structure of the hash table."
(unless (or (member file authors-ignored-files)
(authors-obsolete-file-p file)
(equal author ""))
(let* ((value (gethash author table))
(entry (assoc file value))
slot)
(if (null entry)
(puthash author (cons (list file (cons action 1)) value) table)
(if (setq slot (assoc action (cdr entry)))
(setcdr slot (1+ (cdr slot)))
(nconc entry (list (cons action 1))))))))
(defun authors-canonical-author-name (author)
"Return a canonicalized form of AUTHOR, an author name.
If AUTHOR has an entry in `authors-aliases', use that. Remove
email addresses. Capitalize words in the author's name, unless
it is found in `authors-fixed-case'."
(let* ((aliases authors-aliases)
regexps realname)
(while aliases
(setq realname (car (car aliases))
regexps (cdr (car aliases))
aliases (cdr aliases))
(while regexps
(if (string-match (car regexps) author)
(setq author realname
regexps nil
aliases nil)
(setq regexps (cdr regexps))))))
(when author
(setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author))
(setq author (replace-regexp-in-string "\`[ \t]+" "" author))
(setq author (replace-regexp-in-string "[ \t]+$" "" author))
(setq author (replace-regexp-in-string "[ \t]+" " " author))
(unless (string-match "[-, \t]" author)
(setq author ""))
(or (car (member author authors-fixed-case))
(capitalize author))))
(defun authors-scan-change-log (log-file table)
"Scan change log LOG-FILE for author information.
For each change mentioned in the log, add an entry to hash table TABLE
under the author's canonical name.
Keys of TABLE are author names. Values are alists of entries (FILE
\(ACTION . COUNT) ...). FILE is one file the author worked on. The
rest of the entry is a list of keyword symbols describing what he did
with the file and the number of each action:
:wrote means the author wrote the file
:cowrote means he wrote the file in collaboration with others
:changed means he changed the file COUNT times."
(let* ((enable-local-variables :safe) ; for find-file, hence let*
(enable-local-eval nil)
(existing-buffer (get-file-buffer log-file))
(buffer (find-file-noselect log-file))
authors pos)
(with-current-buffer buffer
(save-restriction
(widen)
(goto-char (point-min))
(while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t)
(beginning-of-line)
(setq pos (point))
(cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+")
;; Handle joint authorship of changes.
;; This can be a bit fragile, and is not too common.
(setq authors nil)
(while (progn
(skip-chars-forward " \t+:0-9-")
(not (looking-at "\\($\\|\\*\\|\
Suggested\\|Trivial\\|Version\\|Originally\\|From:\\|Patch[ \t]+[Bb]y\\)")))
(push (authors-canonical-author-name
(buffer-substring-no-properties
(point) (line-end-position))) authors)
(forward-line 1)))
((looking-at "^[ \t]+\\*")
(let ((line (buffer-substring-no-properties
(match-end 0) (line-end-position))))
(while (and (not (string-match ":" line))
(forward-line 1)
(not (looking-at ":\\|^[ \t]*$")))
(setq line (concat line
(buffer-substring-no-properties
(line-beginning-position)
(line-end-position)))))
(when (string-match ":" line)
(setq line (substring line 0 (match-beginning 0)))
(setq line (replace-regexp-in-string "[[(<{].*$" "" line))
(setq line (replace-regexp-in-string "," "" line))
(dolist (file (split-string line))
(when (setq file (authors-canonical-file-name file log-file pos (car authors)))
(dolist (author authors)
;;(message "%s changed %s" author file)
(authors-add author file :changed table)))))
(forward-line 1)))))))
(unless existing-buffer
(kill-buffer buffer))))
(defun authors-scan-el (file table)
"Scan Lisp file FILE for author information.
TABLE is a hash table to add author information to."
(let* ((existing-buffer (get-file-buffer file))
(enable-local-variables :safe) ; for find-file, hence let*
(enable-local-eval nil)
(buffer (find-file-noselect file)))
(setq file (authors-disambiguate-file-name (expand-file-name file)))
(with-current-buffer buffer
(save-restriction
(widen)
(goto-char (point-min))
(while (and (re-search-forward
"^;+[ \t]*\\(Authors?\\|Commentary\\|Code\\):[ \t]*" nil t)
(not (member (match-string 1) '("Commentary" "Code"))))
(let ((continue t)
(action :wrote)
authors)
(while continue
;; Some entries contain a year range in front of the
;; author's name.
(skip-chars-forward "-0-9 \t")
(push (authors-canonical-author-name
(buffer-substring-no-properties
(point) (line-end-position))) authors)
;; tips.texi says the continuation line should begin
;; with a tab, but often spaces are used.
(setq continue
(and (zerop (forward-line 1))
(looking-at ";;;?\\(\t+ *\\| +\\)[[:alnum:]]")
(goto-char (1- (match-end 0)))
(not (looking-at "[[:upper:]][-[:alpha:]]+:[ \t]")))))
(and (> (length authors) 1)
(setq action :cowrote))
(mapc (lambda (author)
(authors-add author file action table))
authors)))))
(unless existing-buffer
(kill-buffer buffer))))
(defun authors-public-domain-p (file)
"Return t if FILE is a file that was put in public domain."
(let ((public-domain-p nil)
(list authors-public-domain-files))
(while (and list (not public-domain-p))
(when (string-match (car list) file)
(setq public-domain-p t))
(setq list (cdr list)))
public-domain-p))
(defvar authors-author-list)
(defun authors-add-to-author-list (author changes)
"Insert information about AUTHOR's work on Emacs into `authors-author-list'.
CHANGES is an alist of entries (FILE (ACTION . COUNT) ...), as produced by
`authors-scan-change-log'.
The element added to `authors-author-list' is (AUTHOR WROTE CO-WROTE CHANGED),
where WROTE, CO-WROTE, and CHANGED are lists of the files written, co-written
and changed by AUTHOR."
(when author
(let ((nchanged 0)
wrote-list
cowrote-list
changed-list)
(dolist (change changes)
(let* ((actions (cdr change))
(file (car change))
(filestat (if (authors-public-domain-p file)
(concat file " (public domain)")
file)))
(cond ((assq :wrote actions)
(setq wrote-list (cons filestat wrote-list)))
((assq :cowrote actions)
(setq cowrote-list (cons filestat cowrote-list)))
(t
(setq changed-list
(cons (cons file (cdr (assq :changed actions)))
changed-list))))))
(if wrote-list
(setq wrote-list (sort wrote-list 'string-lessp)))
(if cowrote-list
(setq cowrote-list (sort cowrote-list 'string-lessp)))
(when changed-list
(setq changed-list (sort changed-list
(lambda (a b)
(if (= (cdr a) (cdr b))
(string-lessp (car a) (car b))
(> (cdr a) (cdr b))))))
(setq nchanged (length changed-list))
(setq changed-list (mapcar 'car changed-list)))
(if (> (- nchanged authors-many-files) 2)
(setcdr (nthcdr authors-many-files changed-list)
(list (format "and %d other files" (- nchanged authors-many-files)))))
(setq authors-author-list
(cons (list author wrote-list cowrote-list changed-list)
authors-author-list)))))
(defun authors (root)
"Extract author information from change logs and Lisp source files.
ROOT is the root directory under which to find the files. If called
interactively, ROOT is read from the minibuffer.
Result is a buffer *Authors* containing authorship information, and a
buffer *Authors Errors* containing references to unknown files."
(interactive "DEmacs source directory: ")
(setq root (expand-file-name root))
(let ((logs (process-lines find-program root "-name" "ChangeLog*"))
(table (make-hash-table :test 'equal))
(buffer-name "*Authors*")
authors-checked-files-alist
authors-invalid-file-names)
(authors-add-fixed-entries table)
(unless (file-exists-p (expand-file-name "src/emacs.c" root))
(unless (y-or-n-p
(format "Not the root directory of Emacs: %s, continue? " root))
(error "Not the root directory")))
(dolist (log logs)
(when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
(message "Scanning %s..." log)
(authors-scan-change-log log table)))
(let ((els (process-lines find-program root "-name" "*.el")))
(dolist (file els)
(message "Scanning %s..." file)
(authors-scan-el file table)))
(message "Generating buffer %s..." buffer-name)
(set-buffer (get-buffer-create buffer-name))
(erase-buffer)
(set-buffer-file-coding-system authors-coding-system)
(insert
"Many people have contributed code included in the Free Software
Foundation's distribution of GNU Emacs. To show our appreciation for
their public spirit, we list here in alphabetical order a condensed
list of their contributions.\n")
(let (authors-author-list b)
(maphash #'authors-add-to-author-list table)
(setq authors-author-list
(sort authors-author-list
(lambda (a b) (string-lessp (car a) (car b)))))
(dolist (a authors-author-list)
(let ((author (car a))
(wrote (nth 1 a))
(cowrote (nth 2 a))
(changed (nth 3 a))
file)
(insert "\n" author ": ")
(when wrote
(insert "wrote")
(dolist (file wrote)
(if (> (+ (current-column) (length file)) 72)
(insert "\n "))
(insert " " file))
(insert "\n"))
(when cowrote
(if wrote
(insert "and "))
(insert "co-wrote")
(dolist (file cowrote)
(if (> (+ (current-column) (length file)) 72)
(insert "\n "))
(insert " " file))
(insert "\n"))
(when changed
(if (or wrote cowrote)
(insert "and "))
(insert "changed")
(dolist (file changed)
(if (> (+ (current-column) (length file)) 72)
(insert "\n "))
(insert " " file))
(insert "\n")))))
(insert "\nLocal" " Variables:\ncoding: "
(symbol-name authors-coding-system) "\nEnd:\n")
(message "Generating buffer %s... done" buffer-name)
(unless noninteractive
(when authors-invalid-file-names
(with-current-buffer (get-buffer-create "*Authors Errors*")
(setq buffer-read-only nil)
(erase-buffer)
(set-buffer-file-coding-system authors-coding-system)
(insert "Unrecognized file entries found:\n\n")
(mapc (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n")))
(sort authors-invalid-file-names 'string-lessp))
(goto-char (point-min))
(compilation-mode)
(message "Errors were found. See buffer %s" (buffer-name))))
(pop-to-buffer buffer-name))))
(defun batch-update-authors ()
"Produce an AUTHORS file.
Call this function in batch mode with two command line arguments FILE
and ROOT. FILE is the file to write, ROOT is the root directory of
the Emacs source tree, from which to build the file."
(unless noninteractive
(error "`batch-update-authors' is to be used only with -batch"))
(when (/= (length command-line-args-left) 2)
(error "Call `batch-update-authors' with the name of the file to write"))
(let* ((file (pop command-line-args-left))
(root (pop command-line-args-left)))
(authors root)
(write-file file)))
(provide 'authors)
;;; authors.el ends here
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#15473: Update authors.el file.
2013-09-26 20:35 bug#15473: Update authors.el file Tae Wong
@ 2013-10-07 17:06 ` Glenn Morris
2013-10-07 18:35 ` Tae Wong
0 siblings, 1 reply; 8+ messages in thread
From: Glenn Morris @ 2013-10-07 17:06 UTC (permalink / raw)
To: Tae Wong; +Cc: 15473
Tae Wong wrote:
> Sort name aliases and fixed case entries alphabetically by last name.
> Increase the value of authors-many-files.
Thanks for the patch (actually, it's not a patch), but I don't see the
point of any of these changes. Could you provide some motivation?
> (You're not subscribed to this mailing list.)
Err, yes I am.
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#15473: Update authors.el file.
2013-10-07 17:06 ` Glenn Morris
@ 2013-10-07 18:35 ` Tae Wong
2013-10-08 17:40 ` Glenn Morris
0 siblings, 1 reply; 8+ messages in thread
From: Tae Wong @ 2013-10-07 18:35 UTC (permalink / raw)
To: Glenn Morris
Glenn, please commit your file to the emacs-lisp folder.
The defconst values used on the authors.el file are:
authors-aliases: All revisions sort by first name. Your file sorts by last name.
authors-fixed-case: All revisions sort by first name. Your file sorts
by last name.
--
Tae Wong
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#15473: Update authors.el file.
2013-10-07 18:35 ` Tae Wong
@ 2013-10-08 17:40 ` Glenn Morris
2013-10-08 18:18 ` Tae Wong
0 siblings, 1 reply; 8+ messages in thread
From: Glenn Morris @ 2013-10-08 17:40 UTC (permalink / raw)
To: Tae Wong; +Cc: 15473
(Please keep the debbugs address cc'd, eg by using reply-to-all.)
Tae Wong wrote:
> Glenn, please commit your file to the emacs-lisp folder.
>
> The defconst values used on the authors.el file are: authors-aliases:
> All revisions sort by first name. Your file sorts by last name.
> authors-fixed-case: All revisions sort by first name. Your file sorts
> by last name.
I think the existing sorting (mainly by first name) is fine for
authors.el, so I won't be applying this change.
(I think you might be mixing up English pronouns a little.
Every place you write "your" above, I think you mean "my".)
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#15473: Update authors.el file.
2013-10-08 17:40 ` Glenn Morris
@ 2013-10-08 18:18 ` Tae Wong
2013-10-09 17:11 ` Glenn Morris
0 siblings, 1 reply; 8+ messages in thread
From: Tae Wong @ 2013-10-08 18:18 UTC (permalink / raw)
To: rgm; +Cc: 15473
[-- Attachment #1: Type: text/plain, Size: 68 bytes --]
Apply this change: add more entries to the authors-fixed-case list.
[-- Attachment #2: authors.el --]
[-- Type: application/octet-stream, Size: 38753 bytes --]
;;; authors.el --- utility for maintaining Emacs's AUTHORS file -*-coding: utf-8 -*-
;; Copyright (C) 2000-2013 Free Software Foundation, Inc.
;; Author: Gerd Moellmann <gerd@gnu.org>
;; Maintainer: Kim F. Storm <storm@cua.dk>
;; Keywords: maint
;; Package: emacs
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Use M-x authors RET to create an *Authors* buffer that can used as
;; or merged with Emacs's AUTHORS file.
;;; Code:
(defvar authors-coding-system 'utf-8
"Coding system used in the AUTHORS file.")
(defconst authors-many-files 75
"Maximum number of files for which to print individual information.
If an author has modified more files, only the names of the most
frequently modified files are printed and a count of the additional
files.")
(defconst authors-aliases
'(
("David Abrahams" "Dave Abrahams")
("Per Abrahamsen" "Per Abhiddenware")
("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams")
("Joseph Arceneaux" "Joe Arceneaux")
("Torbjörn Axelsson" "Torbjvrn Axelsson")
("Steven L. Baur" "SL Baur" "Steven L Baur")
("Mark D. Baushke" "Mark D Baushke")
("Karl Berry" "K. Berry")
("Richard G. Bielawski" "Richard G Bielawski" "Richard Bielawski")
("Anna M. Bigatti" "Anna Bigatti")
("Johan Bockgård" "Johan Bockgard")
("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg")
("Wlodzimierz Bzyl" "W.*dek Bzyl")
("Michaël Cadilhac" "Michael Cadilhac")
("Bill Carpenter" "WJ Carpenter")
("Ed L. Cashin" "Ed L Cashin")
("Robert J. Chassell" "Bob Chassell")
("Sacha Chua" "Sandra Jean Chua")
("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn")
("Stewart M. Clamen" "Stewart Clamen")
("Michael R. Cook" "Michael Cook")
("Andrew Csillag" "Drew Csillag")
("Toby Cubitt" "Toby S\\. Cubitt")
("Marcus G. Daniels" "Marcus Daniels")
("Satyaki Das" "Indexed search by Satyaki Das")
("Vincent Del Vecchio" "Vince Del Vecchio")
("Jan Djärv" "Jan D." "Jan Djarv")
("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}")
("Thomas Dye" "Tom Dye")
("John W. Eaton" "John Eaton")
("Paul Eggert" "eggert")
("Torbjörn Einarsson" "Torbj.*rn Einarsson")
("Tsugutomo Enami" "enami tsugutomo")
("Era Eriksson" "Era@Iki.Fi")
("Michael D. Ernst" "Michael Ernst")
("Nelson Jose dos Santos Ferreira" "Nelson Ferreira")
("John J Foerch" "John Foerch")
("Brian Fox" "Brian J. Fox")
("Maxime Edouard Robert Froumentin" "Max Froumentin")
("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth")
("Peter S. Galbraith" "Peter Galbraith" "Peter S Galbraith")
("Juan León Lahoz García" "Juan-Leon Lahoz Garcia")
("David Gillespie" "Dave Gillespie")
("Deepak Goel" "D. Goel")
("David De La Harpe Golden" "David Golden")
("Kevin Greiner" "Kevin J. Greiner")
("Kai Großjohann" "Kai Grossjohann" "Kai Großjohann" "Kai.Grossjohann@Cs.Uni-Dortmund.De" "Kai.Grossjohann@Gmx.Net")
("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA")
("Raja R. Harinath" "Raja R Harinath")
("Alexandru Harsanyi" "Alex Harsanyi")
("K. Shane Hartman" "Shane Hartman")
("Aaron S. Hawley" "Aaron Hawley")
("Stuart D. Herring" "Stuart Herring" "Davis Herring")
("Thomas Horsley" "Tom Horsley") ; FIXME ?
("Lars Magne Ingebrigtsen" "Lars Ingebrigtsen")
("Noorul Islam" "Noorul Islam K M")
("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel Janík" "Pavel@Janik.Cz")
("Kyle Jones" "Kyle E. Jones")
("David Kågedal" "David K..edal")
("Jonathan I. Kamens" "Jonathan Kamens")
("Taichi Kawabata" "KAWABATA,? Taichi")
("Joseph M. Kelsey" "Joe Kelsey") ; FIXME ?
("Richard King" "Dick King")
("Pavel Kobiakov" "Pavel Kobyakov")
("Marko Kohtala" "Kohtala Marko")
("David M. Koppelman" "David M. Koppelman, Koppel@Ec?e.Lsu.Edu" "David Koppelman")
("Yoshinori Koseki" "KOSEKI Yoshinori" "小関 吉則")
("Emilio C. Lopes" "Emilio Lopes")
("Károly Lőrentey" "Lőrentey Károly")
("Martin Lorentzon" "Martin Lorentzson")
("Eric M. Ludlam" "Eric Ludlam")
("Jeremy Bertram Maitin-Shepard" "Jeremy Maitin-Shepard")
("Ken Manheimer" "Kenneth Manheimer")
("Bill Mann" "William F. Mann")
("Jérôme Marant" "Jerome Marant")
("Agustín Martín" "Agustin Martin" "Agustín Martín Domingo")
("Kazushi Marukawa" "Kazushi")
("Michael R. Mauger" "Michael Mauger")
("Gerd Möllmann" "Gerd Moellmann")
("Tomohiko Morioka" "MORIOKA Tomohiko")
("Ulrich Müller" "Ulrich Mueller")
("Mikio Nakajima" "Nakajima Mikio")
("Yutaka NIIBE" "NIIBE Yutaka")
("Hrvoje Nikšić" "Hrvoje Niksic")
;; lisp/org/ChangeLog 2010-11-11.
(nil "aaa bbb")
;; src/ChangeLog.4, 1994-01-11, since fixed.
;;; (nil "(afs@hplb.hpl.hp.com)")
;; lisp/gnus/ChangeLog.1, 1998-01-15.
;; http://quimby.gnus.org/cgi-bin/cvsweb.cgi/gnus/lisp/gnus-art.el?rev=4.13
(nil "<Use-Author-Address-Header@\\[127.1\\]>")
(nil "Code Extracted") ; lisp/newcomment.el's "Author:" header
(nil "\\`FSF") ; FIXME what is this for - no effect?
;; lisp/gnus/ChangeLog.1, 1997-10-12, since fixed.
;;; (nil "ISO-2022-JP")
("Barry O'Reilly" "Barry OReilly")
("Sean O'Rourke" "Sean ORourke")
("Takaaki Ota" "Tak Ota")
("David O'Toole" "David T. O'Toole")
("William M. Perry" "Bill Perry")
("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen")
("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>" "<Daniel.Pfeiffer@Informatik.START.dbp.de>")
("Frederic Pierresteguy" "Fred Pierresteguy")
("François Pinard" "Francois Pinard")
("Francesco Potortì" "Francesco Potorti" "Francesco Potorti`")
("Yoni Rabkin" "Yoni Rabkin Katzenell")
("T.V. Raman" "T\\. V\\. Raman")
("Eric S. Raymond" "Eric Raymond")
("Paul Reilly" "(pmr@legacy.pajato.com)")
("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" "Reingold Edward M")
("Roland B. Roberts" "Roland B Roberts" "Roland Roberts")
("Bill Rozas" "Guillermo J. Rozas")
("Peter Runestig" "Peter 'luna' Runestig")
("David M. Smith" "David Smith" "David M Smith")
("Brian Sniffen" "Brian T. Sniffen")
("Michael Sperber" "Michael Sperber \\[Mr. Preprocessor\\]")
("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman" "rms" "rms@gnu.org")
("Per Starbäck" "Per Starback")
("Sam Steingold" "Sam Shteingold")
("Kim F. Storm" "Kim Storm")
("Matt Swift" "Matthew Swift")
("Takahashi Naoto" "Naoto Takahashi")
("Toru Tomabechi" "Toru Tomabechi,")
("Björn Torkelsson" "Bjorn Torkelsson")
("Sébastien Vauban" "Sebastien Vauban")
("Geoff Voelker" "voelker")
("Barry A. Warsaw" "Barry Warsaw")
("Christoph Wedler" "Christoph.Wedler@sap.com")
("Peter J. Weisberg" "PJ Weisberg")
("Stephen A. Wood" "(saw@cebaf.gov)")
("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright")
("Thomas Wurgler" "Tom Wurgler")
("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)")
("Eli Zaretskii" "eliz")
("Teodor Zlatanov" "Ted Zlatanov")
)
"Alist of author aliases.
Each entry is of the form (REALNAME REGEXP...). If an author's name
matches one of the REGEXPs, use REALNAME instead.
If REALNAME is nil, ignore that author.")
;; FIXME seems it would be less fragile to check for O', Mc, Mac, von, van, de, dos, der, II, TD, De.
(defconst authors-fixed-case
'("Brian van den Broek"
"Bryan O'Sullivan"
"BT Templeton"
"Christian von Roques"
"Christophe de Dinechin"
"Craig McDaniel"
"David J. MacKenzie"
"David McCabe"
"David O'Toole"
"Devon Sean McCullough"
"Dominique de Waleffe"
"Edward O'Connor"
"Exal de Jesus Garcia Carrillo"
"Greg McGary"
"Hans de Graaff"
"James TD Smith"
"Jay McCarthy"
"Joel N. Weber II"
"Michael McNamara"
"Mike McEwan"
"MON KEY"
"Nelson Jose dos Santos Ferreira"
"Peter O'Gorman"
"Peter von der Ahe"
"Piet van Oostrum"
"robert marshall"
"Roland McGrath"
"Sean O'Halpin"
"Sean O'Rourke"
"Thomas DeWeese"
"Tijs van Bakel")
"List of authors whose names cannot be simply capitalized.")
(defvar authors-public-domain-files
'("emerge\\.el"
"vi\\.el"
"feedmail\\.el"
"mailpost\\.el"
"hanoi\\.el"
"meese\\.el"
"studly\\.el"
"modula2\\.el"
"nnmaildir\\.el"
"nnil\\.el"
"b2m\\.c"
"unexhp9k800\\.c"
"emacsclient\\.1"
"check-doc-strings")
"List of regexps matching files for which the FSF doesn't need papers.")
(defvar authors-obsolete-files-regexps
'("vc-\\*\\.el$"
"spec.txt$"
".*loaddefs.el$" ; not obsolete, but auto-generated
"\\.\\(cvs\\|git\\)ignore$" ; obsolete or uninteresting
"\\.arch-inventory$"
;; TODO lib/? Matches other things?
"build-aux/" "m4/" "Emacs.xcodeproj" "charsets" "mapfiles"
"preferences\\.\\(nib\\|gorm\\)"
"vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
"List of regexps matching obsolete files.
Changes to files matching one of the regexps in this list are not listed.")
(defconst authors-ignored-files
'("external-lisp"
"lock" "share-lib" "local-lisp"
"noleim-Makefile.in"
"NEWS" "ORDERS" "PROBLEMS" "FAQ" "AUTHORS" "FOR-RELEASE" "TODO" "todo"
"MACHINES" "SERVICE"
"README.unicode" "README.multi-tty" "TUTORIAL.translators"
"NEWS.unicode" "COPYING.DJ" "Makefile.old" "Makefile.am"
"NEWS.1" "OOOOONEWS...OONEWS" "OOOONEWS" "etc/NEWS"
"NEWS.1-17" "NEWS.18" "NEWS.19" "NEWS.20" "NEWS.21" "NEWS.22"
"MAINTAINERS" "MH-E-NEWS"
"install-sh" "missing" "mkinstalldirs"
"termcap.dat" "termcap.src" "termcap.ucb" "termcap"
"ChangeLog.nextstep" "Emacs.clr" "spec.txt"
"gfdl.1"
"texi/Makefile.in"
"Imakefile" "icons/sink.ico" "aixcc.lex"
"nxml/char-name/unicode"
"js2-mode.el" ; only installed very briefly, replaced by js.el
"cedet/tests/testtemplates.cpp"
"cedet/tests/testusing.cpp"
"cedet/tests/scopetest.cpp"
"cedet/tests/scopetest.java"
"cedet/tests/test.cpp"
"cedet/tests/test.py"
"cedet/tests/teststruct.cpp"
"*.el"
;; Autogen:
"cus-load.el" "finder-inf.el" "ldefs-boot.el"
"compile" "config.guess" "config.sub" "depcomp"
;; Only existed briefly, then renamed:
"images/icons/allout-widgets-dark-bg"
"images/icons/allout-widgets-light-bg"
;; Never had any meaningful changes logged, now deleted:
"unidata/bidimirror.awk" "unidata/biditype.awk"
"split-man" "Xkeymap.txt" "ms-7bkermit" "ulimit.hack"
"gnu-hp300" "refcard.bit" "ledit.l" "forms.README" "forms-d2.dat"
"CXTERM-DIC/PY.tit" "CXTERM-DIC/ZIRANMA.tit"
"CXTERM-DIC/CTLau.tit" "CXTERM-DIC/CTLauB.tit"
"NICKLES.WORTH" "INTERVAL.IDEAS" "RCP"
"3B-MAXMEM" "AIX.DUMP" "SUN-SUPPORT" "XENIX"
"CODINGS" "CHARSETS"
"calc/INSTALL" "calc/Makefile"
"vms-pp.trans" "_emacs" "batcomp.com" "notes/cpp" ; admin/
"emacsver.texi.in"
"vpath.sed"
"Cocoa/Emacs.base/Contents/Info.plist"
"Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
"GNUstep/Emacs.base/Resources/Info-gnustep.plist"
"GNUstep/Emacs.base/Resources/Emacs.desktop"
"Cocoa/Emacs.base/Contents/Resources/English.lproj"
;; Only existed briefly, then deleted:
"coccinelle/overlay.cocci" "coccinelle/symbol.cocci"
;; MH-E stuff not in Emacs:
"import-emacs" "release-utils"
;; Erc stuff not in Emacs:
"ChangeLog.2001" "ChangeLog.2002" "ChangeLog.2003" "ChangeLog.2004"
"ChangeLog.2005"
"README.extras" "dir-template" "mkChangeLog" "MkChangeLog" "erc-auto.in"
"CREDITS" "HACKING"
"debian/changelog"
"debian/control"
"debian/copyright"
"debian/maint/conffiles"
"debian/maint/conffiles.in"
"debian/maint/postinst"
"debian/maint/postinst.in"
"debian/maint/prerm"
"debian/maint/prerm.in"
"debian/README.Debian"
"debian/README.erc-speak"
"debian/rules"
"debian/scripts/install"
"debian/scripts/install.in"
"debian/scripts/remove"
"debian/scripts/remove.in"
"debian/scripts/startup"
"debian/scripts/startup.erc"
"debian/scripts/startup.erc-speak"
)
"List of files and directories to ignore.
Changes to files in this list are not listed.")
;; List via: find . -name '*.el' | sed 's/.*\///g' | sort | uniq -d
;; FIXME It would be better to discover these dynamically.
;; Note that traditionally "Makefile.in" etc have not been in this list.
;; Ditto for "abbrev.texi" etc.
(defconst authors-ambiguous-files
'("chart.el"
"compile.el"
"complete.el"
"cpp.el"
"ctxt.el"
"custom.el"
"cyrillic.el"
"czech.el"
"debug.el"
"dired.el"
"el.el"
"eshell.el"
"ethiopic.el"
"f90.el"
"files.el"
"find.el"
"format.el"
"generic.el"
"georgian.el"
"greek.el"
"grep.el"
"hebrew.el"
"imenu.el"
"indian.el"
"japanese.el"
"java.el"
"lao.el"
"linux.el"
"locate.el"
"make.el"
"mode.el"
"python.el"
"rmailmm.el"
"semantic.el"
"shell.el"
"simple.el"
"slovak.el"
"sort.el"
"speedbar.el"
"srecode.el"
"table.el"
"texi.el"
"thai.el"
"tibetan.el"
"util.el"
"vc-bzr.el"
"wisent.el")
"List of basenames occurring more than once in the source.")
;; FIXME :cowrote entries here can be overwritten by :wrote entries
;; derived from a file's Author: header (eg mh-e). This really means
;; the Author: header is erroneous.
(defconst authors-fixed-entries
'(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]")
("Joseph Arceneaux" :wrote "xrdb.c")
("Frank Bresz" :wrote "diff.el")
("David M. Brown" :wrote "array.el")
("Shawn M. Carey" :wrote "freebsd.h")
("Satyaki Das" :cowrote "mh-search.el")
("Eric Decker" :changed "hp800.h" "hpux10-20.h" "sysdep.c")
("Lawrence R. Dodd" :cowrote "dired-x.el")
("Paul Eggert" :wrote "rcs2log") ; "vcdiff"
("Fred Fish" :changed "unexcoff.c")
("Keith Gabryelski" :wrote "hexl.c")
("Kevin Gallagher" :wrote "flow-ctrl.el")
("Howard Gayle" :wrote "casetab.c")
("Stephen Gildea" :wrote "refcard.tex"
:cowrote "mh-funcs.el" "mh-search.el")
("David Gillespie" :wrote "cl.texi")
("Hewlett-Packard" :changed "emacsclient.c" "server.el" "keyboard.c")
("Indiana University Foundation" :changed "buffer.c" "buffer.h"
"indent.c" "search.c" "xdisp.c" "region-cache.c" "region-cache.h")
("International Business Machines" :changed "emacs.c" "fileio.c"
"process.c" "sysdep.c" "unexcoff.c")
("Michael K. Johnson" :changed "configure.ac" "emacs.c" "intel386.h"
"mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h"
"systty.h" "unexcoff.c" "linux.h")
("Henry Kautz" :wrote "bib-mode.el")
("Joseph M. Kelsey" :changed "fileio.c" "dir.h")
("Sam Kendall" :changed "etags.c" "etags.el")
("Richard King" :wrote "userlock.el" "filelock.c")
("Marko Kohtala" :changed "info.el")
("Sebastian Kremer" :changed "add-log.el")
("Mark Lambert" :changed "process.c" "process.h")
("Aaron Larson" :changed "bibtex.el")
("James R. Larus" :cowrote "mh-e.el")
("Lars Lindberg" :changed "dabbrev.el" :cowrote "imenu.el")
("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el"
"bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el"
"lmenu.el" "mailabbrev.el" "select.el" "xfaces.c" "xselect.c")
("Niall Mansfield" :changed "etags.c")
("Brian Marick" :cowrote "hideif.el")
("Sidney Markowitz" :changed "doctor.el")
("Microelectronics and Computer Technology Corporation"
:changed "etags.c" "emacsclient.c" "movemail.c"
"rmail.el" "rmailedit.el" "rmailkwd.el"
"rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el"
"server.el" "lisp.h" "sysdep.c" "unexcoff.c" "xmenu.c")
("Richard Mlynarik" :wrote "ehelp.el")
("Mosur Mohan" :changed "etags.c")
("Jeff Morgenthaler" :changed "flow-ctrl.el" "vt200.el" "vt201.el"
"vt220.el" "vt240.el")
("Motorola" :changed "buff-menu.el")
("Hiroshi Nakano" :changed "ralloc.c")
("Mark Neale" :changed "fortran.el")
("Martin Neitzel" :changed "supercite.el")
("Andrew Oram" :changed "calendar.texi (and other files in man/)")
("Frederic Pierresteguy" :wrote "widget.c")
("Michael D. Prange" :changed "tex-mode.el")
("Roland B. Roberts" :changed "files.el" "sort.el"
"buffer.h" "callproc.c" "dired.c" "process.c" "sysdep.c" "systty.h")
("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el"
"sort.el" "alloc.c" "callint.c"
"config.in" "ecrt0.c" "data.c" "fns.c"
"lisp.h" "lread.c"
"print.c" :wrote "float-sup.el" "floatfns.c")
("Schlumberger Technology Corporation" :changed "gud.el")
("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c")
("William Sommerfeld" :wrote "emacsclient.c" "scribe.el")
("Leigh Stoller" :changed "emacsclient.c" "server.el")
("Steve Strassmann" :wrote "spook.el")
("Shinichirou Sugou" :changed "etags.c")
("Sun Microsystems, Inc" :changed "emacsclient.c" "server.el"
:wrote "emacs.icon" "sun.el")
("Kayvan Sylvan" :changed "supercite.el")
("Spencer Thomas" :changed "emacsclient.c" "server.el"
"dabbrev.el" "unexcoff.c" "gnus.texi")
("Jonathan Vail" :changed "vc.el")
("James Van Artsdalen" :changed "usg5-4.h" "unexcoff.c")
("Geoff Voelker" :wrote "w32-fns.el" "w32.c" "w32.h" "w32heap.c"
"w32heap.h" "w32inevt.c" "w32proc.c" "w32term.c" "ms-w32.h")
("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h")
("Bill Wohler" :cowrote "mh-e.el")
("Garrett Wollman" :changed "sendmail.el")
("Dale R. Worley" :changed "mail-extr.el")
("Eli Zaretskii" :wrote "bidi.c" "[bidirectional display in xdisp.c]")
("Jamie Zawinski" :changed "bytecode.c" :wrote "tar-mode.el"
:cowrote "disass.el"))
"Actions taken from the original, manually (un)maintained AUTHORS file.")
(defconst authors-valid-file-names
'("aclocal.m4"
"build-ins.in"
"Makefile.noleim"
"makedist.bat"
"makefile.def"
"makefile.nt"
"ns.mk"
"debug.bat.in" "emacs.bat.in"
".gdbinit-union"
"alloca.s"
"make-delta"
"config.w95"
"emacstool.1"
"align.umax"
"cxux-crt0.s"
"gould-sigvec.s"
"getdate.y"
"ymakefile"
"permute-index" "index.perm"
"ibmrs6000.inp"
"b2m.c" "b2m.1" "b2m.pl" "rcs-checkin.1"
"emacs.bash" "emacs.csh" "ms-kermit"
"emacs.ico"
"emacs21.ico"
"emacs.py" "emacs2.py" "emacs3.py"
"BABYL" "LPF" "LEDIT" "OTHER.EMACSES"
"emacs16_mac.png" "emacs24_mac.png"
"emacs256_mac.png" "emacs32_mac.png"
"emacs48_mac.png" "emacs512_mac.png"
"revdiff" ; admin/
"vcdiff" "rcs-checkin" "tindex.pl"
"mainmake" "sed1.inp" "sed2.inp" "sed3.inp" ; msdos/
"mac-fix-env.m"
;; Deleted vms stuff:
"temacs.opt" "descrip.mms" "compile.com" "link.com"
)
"File names which are valid, but no longer exist (or cannot be found)
in the repository.")
(defconst authors-renamed-files-alist
'(("nt.c" . "w32.c") ("nt.h" . "w32.h")
("ntheap.c" . "w32heap.c") ("ntheap.h" . "w32heap.h")
("ntinevt.c" . "w32inevt.c") ("ntinevt.h" . "w32inevt.h")
("ntproc.c" . "w32proc.c")
("w32console.c" . "w32term.c")
("unexnt.c" . "unexw32.c")
("s/windowsnt.h" . "s/ms-w32.h")
("s/ms-w32.h" . "inc/ms-w32.h")
("winnt.el" . "w32-fns.el")
("emacs.manifest" . "emacs-x86.manifest")
("config.emacs" . "configure")
("configure.in" . "configure.ac")
("config.h.dist" . "config.in")
("config.h-dist" . "config.in")
("config.h.in" . "config.in")
("paths.h-dist" . "paths.h.in")
("patch1" . "sed1.inp")
("GETTING.GNU.SOFTWARE" . "FTP")
("etc/MACHINES" . "MACHINES")
("ONEWS" . "NEWS.19")
("ONEWS.1" . "NEWS.1-17")
("ONEWS.2" . "NEWS.1-17")
("ONEWS.3" . "NEWS.18")
("ONEWS.4" . "NEWS.18")
("ORDERS.USA" . "ORDERS")
("EUROPE" . "ORDERS")
("DIFF" . "OTHER.EMACSES")
("CCADIFF" . "OTHER.EMACSES")
("GOSDIFF" . "OTHER.EMACSES")
("Makefile.in.in" . "Makefile.in")
("leim-Makefile" . "leim/Makefile")
("leim-Makefile.in" . "leim/Makefile.in")
("emacs-lisp/testcover-ses.el" . "tcover-ses.el")
("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el")
("mh-index.el" . "mh-search.el")
("mh-pick.el" . "mh-search.el")
("font-setting.el" . "dynamic-setting.el")
("INSTALL-CVS" . "INSTALL.BZR")
("INSTALL.CVS" . "INSTALL.BZR")
("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf")
("gnus-logo.eps" . "refcards/gnus-logo.eps")
("build-install" . "build-ins.in")
("build-install.in" . "build-ins.in")
("unidata/Makefile" . "unidata/Makefile.in")
("move-if-change" . "build-aux/move-if-change")
("update-subdirs" . "build-aux/update-subdirs")
("trampver.texi.in" . "trampver.texi")
("e/eterm" . "e/eterm-color")
("e/eterm.ti" . "e/eterm-color.ti")
("README.txt" . "README")
("emacs.names" . "JOKES")
("ED.WORSHIP" . "JOKES")
("GNU.JOKES" . "JOKES")
("CHARACTERS" . "TODO")
("schema/xhtml-basic-form.rnc" . "schema/xhtml-bform.rnc" )
("schema/xhtml-basic-table.rnc" . "schema/xhtml-btable.rnc")
("schema/xhtml-list.rnc" . "schema/xhtml-lst.rnc")
("schema/xhtml-target.rnc" . "schema/xhtml-tgt.rnc")
("schema/xhtml-style.rnc" . "schema/xhtml-xstyle.rnc")
("schema/docbook-dyntbl.rnc" . "schema/docbk-dyntbl.rnc")
("schema/docbook-soextbl.rnc" . "schema/docbk-soextbl.rn" )
("texi/url.txi" . "url.texi")
("edt-user.doc" . "edt.texi")
("DEV-NOTES" . "nextstep")
("org/COPYRIGHT-AND-LICENSE" . "org/README")
("ctags.1" . "ctags.1")
("etags.1" . "etags.1")
("emacs.1" . "emacs.1")
("emacsclient.1" . "emacsclient.1")
("icons/emacs21.ico" . "emacs21.ico")
;; Moved from admin/nt/ to nt/.
("nt/README.W32" . "README.W32")
)
"Alist of files which have been renamed during their lifetime.
Elements are (OLDNAME . NEWNAME).")
(defconst authors-renamed-files-regexps
'(("^m/m-\\(.*\\.h\\)$" . "m/\\1")
("^m-\\(.*\\.h\\)$" . "\\1")
("^s/s-\\(.*\\.h\\)$" . "s/\\1")
("^s-\\(.*\\.h\\)$" . "\\1")
("^s/[-.a-zA-Z0-9_]+\\.h$" . t)
("\\(.*\\)\\.cmd$" . "\\1.bat")
("\\.bat$" . t)
("\\.[ch]$" . t)
("\\.el$" . t)
("\\.ps$" . t)
("\\.texi?$" . t)
("\\.texinfo$" . t)
("\\.xml?$" . t)
("\\.x[pb]m$" . t)
("\\.[xp]bm$" . t)
("^paths\\." . t)
("^install\\." . t)
("^\\(TUTORIAL[^/]*\\)" . "tutorials/\\1")
("^\\(tree-widget/\\(?:default\\|folder\\)/[-a-z]+\\.png\\)$" .
"images/\\1")
("^\\(images/icons/\\)mac\\(emacs\\)_\\([0-9]+\\)\\(\\.png\\)" .
"\\1\\2\\3_mac\\4")
("\\(images/icons/\\)emacs_\\([0-9][0-9]\\)\\.png" .
"\\1hicolor/\\2x\\2/apps/emacs.png")
)
"List regexps and rewriting rules for renamed files.
Elements are (REGEXP . REPLACE). If REPLACE is a string, the file
name matching REGEXP is replaced by REPLACE using `replace-string'.
Otherwise, the file name is accepted as is.")
(defvar authors-checked-files-alist)
(defvar authors-invalid-file-names)
(defun authors-disambiguate-file-name (fullname)
"Convert FULLNAME to an unambiguous relative-name."
(let ((relname (file-name-nondirectory fullname))
parent)
(if (member relname authors-ambiguous-files)
;; In case of ambiguity, just prepend the parent directory.
;; FIXME obviously this is not a perfect solution.
(if (string-equal "lisp"
(setq parent (file-name-nondirectory
(directory-file-name
(file-name-directory fullname)))))
relname
(format "%s/%s" parent relname))
relname)))
(defun authors-canonical-file-name (file log-file pos author)
"Return canonical file name for FILE found in LOG-FILE.
Checks whether FILE is a valid (existing) file name, has been renamed,
or is on the list of removed files. Returns the non-directory part of
the file name. Only uses the LOG-FILE position POS and associated AUTHOR
to print a message if FILE is not found."
;; FILE should be re-checked in every different directory associated
;; with a LOG-FILE. Eg configure.ac from src/ChangeLog is not the
;; same as that from top-level/ChangeLog.
(let* ((fullname (expand-file-name file (file-name-directory log-file)))
(entry (assoc fullname authors-checked-files-alist))
relname
valid)
(if entry
(cdr entry)
(setq relname (file-name-nondirectory file))
(if (or (member relname authors-valid-file-names)
(file-exists-p file)
(file-exists-p relname)
(file-exists-p (concat "etc/" relname)))
(setq valid (authors-disambiguate-file-name fullname))
(setq valid (assoc file authors-renamed-files-alist))
(if valid
(setq valid (cdr valid))
(let ((rules authors-renamed-files-regexps))
(while rules
(if (string-match (car (car rules)) file)
(setq valid (if (stringp (cdr (car rules)))
(file-name-nondirectory
(replace-match (cdr (car rules)) t nil file))
relname)
rules nil))
(setq rules (cdr rules))))))
(setq authors-checked-files-alist
(cons (cons fullname valid) authors-checked-files-alist))
(unless (or valid
(member file authors-ignored-files)
(authors-obsolete-file-p file)
(string-match "[*]" file)
(string-match "^[0-9.]+$" file))
(setq authors-invalid-file-names
(cons (format "%s:%d: unrecognized `%s' for %s"
log-file
(1+ (count-lines (point-min) pos))
file author)
authors-invalid-file-names)))
valid)))
(defun authors-add-fixed-entries (table)
"Add actions from `authors-fixed-entries' to TABLE."
(dolist (entry authors-fixed-entries)
(let ((author (car entry))
action)
(dolist (item (cdr entry))
(if (symbolp item)
(setq action item)
(authors-add author item action table))))))
(defun authors-obsolete-file-p (file)
"Return non-nil if FILE is obsolete.
FILE is considered obsolete if it matches one of the regular expressions
from `authors-obsolete-files-regexps'."
(let (obsolete-p
(regexps authors-obsolete-files-regexps))
(while (and regexps (not obsolete-p))
(setq obsolete-p (string-match (car regexps) file)
regexps (cdr regexps)))
obsolete-p))
(defun authors-add (author file action table)
"Record that AUTHOR worked on FILE.
ACTION is a keyword symbol describing what he did. Record file,
author and what he did in hash table TABLE. See the description of
`authors-scan-change-log' for the structure of the hash table."
(unless (or (member file authors-ignored-files)
(authors-obsolete-file-p file)
(equal author ""))
(let* ((value (gethash author table))
(entry (assoc file value))
slot)
(if (null entry)
(puthash author (cons (list file (cons action 1)) value) table)
(if (setq slot (assoc action (cdr entry)))
(setcdr slot (1+ (cdr slot)))
(nconc entry (list (cons action 1))))))))
(defun authors-canonical-author-name (author)
"Return a canonicalized form of AUTHOR, an author name.
If AUTHOR has an entry in `authors-aliases', use that. Remove
email addresses. Capitalize words in the author's name, unless
it is found in `authors-fixed-case'."
(let* ((aliases authors-aliases)
regexps realname)
(while aliases
(setq realname (car (car aliases))
regexps (cdr (car aliases))
aliases (cdr aliases))
(while regexps
(if (string-match (car regexps) author)
(setq author realname
regexps nil
aliases nil)
(setq regexps (cdr regexps))))))
(when author
(setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author))
(setq author (replace-regexp-in-string "\`[ \t]+" "" author))
(setq author (replace-regexp-in-string "[ \t]+$" "" author))
(setq author (replace-regexp-in-string "[ \t]+" " " author))
(unless (string-match "[-, \t]" author)
(setq author ""))
(or (car (member author authors-fixed-case))
(capitalize author))))
(defun authors-scan-change-log (log-file table)
"Scan change log LOG-FILE for author information.
For each change mentioned in the log, add an entry to hash table TABLE
under the author's canonical name.
Keys of TABLE are author names. Values are alists of entries (FILE
\(ACTION . COUNT) ...). FILE is one file the author worked on. The
rest of the entry is a list of keyword symbols describing what he did
with the file and the number of each action:
:wrote means the author wrote the file
:cowrote means he wrote the file in collaboration with others
:changed means he changed the file COUNT times."
(let* ((enable-local-variables :safe) ; for find-file, hence let*
(enable-local-eval nil)
(existing-buffer (get-file-buffer log-file))
(buffer (find-file-noselect log-file))
authors pos)
(with-current-buffer buffer
(save-restriction
(widen)
(goto-char (point-min))
(while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t)
(beginning-of-line)
(setq pos (point))
(cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+")
;; Handle joint authorship of changes.
;; This can be a bit fragile, and is not too common.
(setq authors nil)
(while (progn
(skip-chars-forward " \t+:0-9-")
(not (looking-at "\\($\\|\\*\\|\
Suggested\\|Trivial\\|Version\\|Originally\\|From:\\|Patch[ \t]+[Bb]y\\)")))
(push (authors-canonical-author-name
(buffer-substring-no-properties
(point) (line-end-position))) authors)
(forward-line 1)))
((looking-at "^[ \t]+\\*")
(let ((line (buffer-substring-no-properties
(match-end 0) (line-end-position))))
(while (and (not (string-match ":" line))
(forward-line 1)
(not (looking-at ":\\|^[ \t]*$")))
(setq line (concat line
(buffer-substring-no-properties
(line-beginning-position)
(line-end-position)))))
(when (string-match ":" line)
(setq line (substring line 0 (match-beginning 0)))
(setq line (replace-regexp-in-string "[[(<{].*$" "" line))
(setq line (replace-regexp-in-string "," "" line))
(dolist (file (split-string line))
(when (setq file (authors-canonical-file-name file log-file pos (car authors)))
(dolist (author authors)
;;(message "%s changed %s" author file)
(authors-add author file :changed table)))))
(forward-line 1)))))))
(unless existing-buffer
(kill-buffer buffer))))
(defun authors-scan-el (file table)
"Scan Lisp file FILE for author information.
TABLE is a hash table to add author information to."
(let* ((existing-buffer (get-file-buffer file))
(enable-local-variables :safe) ; for find-file, hence let*
(enable-local-eval nil)
(buffer (find-file-noselect file)))
(setq file (authors-disambiguate-file-name (expand-file-name file)))
(with-current-buffer buffer
(save-restriction
(widen)
(goto-char (point-min))
(while (and (re-search-forward
"^;+[ \t]*\\(Authors?\\|Commentary\\|Code\\):[ \t]*" nil t)
(not (member (match-string 1) '("Commentary" "Code"))))
(let ((continue t)
(action :wrote)
authors)
(while continue
;; Some entries contain a year range in front of the
;; author's name.
(skip-chars-forward "-0-9 \t")
(push (authors-canonical-author-name
(buffer-substring-no-properties
(point) (line-end-position))) authors)
;; tips.texi says the continuation line should begin
;; with a tab, but often spaces are used.
(setq continue
(and (zerop (forward-line 1))
(looking-at ";;;?\\(\t+ *\\| +\\)[[:alnum:]]")
(goto-char (1- (match-end 0)))
(not (looking-at "[[:upper:]][-[:alpha:]]+:[ \t]")))))
(and (> (length authors) 1)
(setq action :cowrote))
(mapc (lambda (author)
(authors-add author file action table))
authors)))))
(unless existing-buffer
(kill-buffer buffer))))
(defun authors-public-domain-p (file)
"Return t if FILE is a file that was put in public domain."
(let ((public-domain-p nil)
(list authors-public-domain-files))
(while (and list (not public-domain-p))
(when (string-match (car list) file)
(setq public-domain-p t))
(setq list (cdr list)))
public-domain-p))
(defvar authors-author-list)
(defun authors-add-to-author-list (author changes)
"Insert information about AUTHOR's work on Emacs into `authors-author-list'.
CHANGES is an alist of entries (FILE (ACTION . COUNT) ...), as produced by
`authors-scan-change-log'.
The element added to `authors-author-list' is (AUTHOR WROTE CO-WROTE CHANGED),
where WROTE, CO-WROTE, and CHANGED are lists of the files written, co-written
and changed by AUTHOR."
(when author
(let ((nchanged 0)
wrote-list
cowrote-list
changed-list)
(dolist (change changes)
(let* ((actions (cdr change))
(file (car change))
(filestat (if (authors-public-domain-p file)
(concat file " (public domain)")
file)))
(cond ((assq :wrote actions)
(setq wrote-list (cons filestat wrote-list)))
((assq :cowrote actions)
(setq cowrote-list (cons filestat cowrote-list)))
(t
(setq changed-list
(cons (cons file (cdr (assq :changed actions)))
changed-list))))))
(if wrote-list
(setq wrote-list (sort wrote-list 'string-lessp)))
(if cowrote-list
(setq cowrote-list (sort cowrote-list 'string-lessp)))
(when changed-list
(setq changed-list (sort changed-list
(lambda (a b)
(if (= (cdr a) (cdr b))
(string-lessp (car a) (car b))
(> (cdr a) (cdr b))))))
(setq nchanged (length changed-list))
(setq changed-list (mapcar 'car changed-list)))
(if (> (- nchanged authors-many-files) 2)
(setcdr (nthcdr authors-many-files changed-list)
(list (format "and %d other files" (- nchanged authors-many-files)))))
(setq authors-author-list
(cons (list author wrote-list cowrote-list changed-list)
authors-author-list)))))
(defun authors (root)
"Extract author information from change logs and Lisp source files.
ROOT is the root directory under which to find the files. If called
interactively, ROOT is read from the minibuffer.
Result is a buffer *Authors* containing authorship information, and a
buffer *Authors Errors* containing references to unknown files."
(interactive "DEmacs source directory: ")
(setq root (expand-file-name root))
(let ((logs (process-lines find-program root "-name" "ChangeLog*"))
(table (make-hash-table :test 'equal))
(buffer-name "*Authors*")
authors-checked-files-alist
authors-invalid-file-names)
(authors-add-fixed-entries table)
(unless (file-exists-p (expand-file-name "src/emacs.c" root))
(unless (y-or-n-p
(format "Not the root directory of Emacs: %s, continue? " root))
(error "Not the root directory")))
(dolist (log logs)
(when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
(message "Scanning %s..." log)
(authors-scan-change-log log table)))
(let ((els (process-lines find-program root "-name" "*.el")))
(dolist (file els)
(message "Scanning %s..." file)
(authors-scan-el file table)))
(message "Generating buffer %s..." buffer-name)
(set-buffer (get-buffer-create buffer-name))
(erase-buffer)
(set-buffer-file-coding-system authors-coding-system)
(insert
"Many people have contributed code included in the Free Software
Foundation's distribution of GNU Emacs. To show our appreciation for
their public spirit, we list here in alphabetical order a condensed
list of their contributions.\n")
(let (authors-author-list b)
(maphash #'authors-add-to-author-list table)
(setq authors-author-list
(sort authors-author-list
(lambda (a b) (string-lessp (car a) (car b)))))
(dolist (a authors-author-list)
(let ((author (car a))
(wrote (nth 1 a))
(cowrote (nth 2 a))
(changed (nth 3 a))
file)
(insert "\n" author ": ")
(when wrote
(insert "wrote")
(dolist (file wrote)
(if (> (+ (current-column) (length file)) 72)
(insert "\n "))
(insert " " file))
(insert "\n"))
(when cowrote
(if wrote
(insert "and "))
(insert "co-wrote")
(dolist (file cowrote)
(if (> (+ (current-column) (length file)) 72)
(insert "\n "))
(insert " " file))
(insert "\n"))
(when changed
(if (or wrote cowrote)
(insert "and "))
(insert "changed")
(dolist (file changed)
(if (> (+ (current-column) (length file)) 72)
(insert "\n "))
(insert " " file))
(insert "\n")))))
(insert "\nLocal" " Variables:\ncoding: "
(symbol-name authors-coding-system) "\nEnd:\n")
(message "Generating buffer %s... done" buffer-name)
(unless noninteractive
(when authors-invalid-file-names
(with-current-buffer (get-buffer-create "*Authors Errors*")
(setq buffer-read-only nil)
(erase-buffer)
(set-buffer-file-coding-system authors-coding-system)
(insert "Unrecognized file entries found:\n\n")
(mapc (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n")))
(sort authors-invalid-file-names 'string-lessp))
(goto-char (point-min))
(compilation-mode)
(message "Errors were found. See buffer %s" (buffer-name))))
(pop-to-buffer buffer-name))))
(defun batch-update-authors ()
"Produce an AUTHORS file.
Call this function in batch mode with two command line arguments FILE
and ROOT. FILE is the file to write, ROOT is the root directory of
the Emacs source tree, from which to build the file."
(unless noninteractive
(error "`batch-update-authors' is to be used only with -batch"))
(when (/= (length command-line-args-left) 2)
(error "Call `batch-update-authors' with the name of the file to write"))
(let* ((file (pop command-line-args-left))
(root (pop command-line-args-left)))
(authors root)
(write-file file)))
(provide 'authors)
;;; authors.el ends here
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#15473: Update authors.el file.
2013-10-08 18:18 ` Tae Wong
@ 2013-10-09 17:11 ` Glenn Morris
2013-10-21 19:01 ` Tae Wong
0 siblings, 1 reply; 8+ messages in thread
From: Glenn Morris @ 2013-10-09 17:11 UTC (permalink / raw)
To: Tae Wong; +Cc: 15473
Tae Wong wrote:
> add more entries to the authors-fixed-case list.
OK, I added some entries.
Please try and send patches in future, rather than edited versions of
the entire file.
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#15473: Update authors.el file.
2013-10-09 17:11 ` Glenn Morris
@ 2013-10-21 19:01 ` Tae Wong
2013-10-21 19:35 ` Glenn Morris
0 siblings, 1 reply; 8+ messages in thread
From: Tae Wong @ 2013-10-21 19:01 UTC (permalink / raw)
To: Glenn Morris; +Cc: 15473
The current value for the defconst value (authors-many-files) 20.
Please increase the defconst value of authors-many-files to 30.
^ permalink raw reply [flat|nested] 8+ messages in thread
* bug#15473: Update authors.el file.
2013-10-21 19:01 ` Tae Wong
@ 2013-10-21 19:35 ` Glenn Morris
0 siblings, 0 replies; 8+ messages in thread
From: Glenn Morris @ 2013-10-21 19:35 UTC (permalink / raw)
To: Tae Wong; +Cc: 15473, Glenn Morris
Tae Wong wrote:
> The current value for the defconst value (authors-many-files) 20.
>
> Please increase the defconst value of authors-many-files to 30.
I ask again: why?
^ permalink raw reply [flat|nested] 8+ messages in thread
end of thread, other threads:[~2013-10-21 19:35 UTC | newest]
Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-09-26 20:35 bug#15473: Update authors.el file Tae Wong
2013-10-07 17:06 ` Glenn Morris
2013-10-07 18:35 ` Tae Wong
2013-10-08 17:40 ` Glenn Morris
2013-10-08 18:18 ` Tae Wong
2013-10-09 17:11 ` Glenn Morris
2013-10-21 19:01 ` Tae Wong
2013-10-21 19:35 ` Glenn Morris
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).