Gerd Moellmann committed Oct 19, 2001 1 2 ``````;;; admin.el --- utilities for Emacs administration `````` Glenn Morris committed Jan 04, 2008 3 ``````;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 `````` Glenn Morris committed Jan 21, 2007 4 ``````;; Free Software Foundation, Inc. `````` Gerd Moellmann committed Oct 19, 2001 5 6 7 8 9 `````` ;; 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 `````` Glenn Morris committed Jul 25, 2007 10 ``````;; the Free Software Foundation; either version 3, or (at your option) `````` Gerd Moellmann committed Oct 19, 2001 11 12 13 14 15 16 17 18 19 ``````;; 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; see the file COPYING. If not, write to the `````` Lute Kamstra committed Jul 04, 2005 20 21 ``````;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. `````` Gerd Moellmann committed Oct 19, 2001 22 23 24 `````` ;;; Commentary: `````` Lute Kamstra committed Apr 14, 2005 25 26 ``````;; add-release-logs Add ``Version X released'' change log entries. ;; set-version Change Emacs version number in source tree. `````` Glenn Morris committed Jun 07, 2007 27 28 ``````;; set-copyright Change emacs short copyright string (eg as ;; printed by --version) in source tree. `````` Gerd Moellmann committed Oct 19, 2001 29 30 31 32 33 34 35 `````` ;;; Code: (defun add-release-logs (root version) "Add \"Version VERSION released.\" change log entries in ROOT. Root must be the root of an Emacs source tree." (interactive "DEmacs root directory: \nNVersion number: ") `````` Francesco Potortì committed Jan 17, 2003 36 `````` (setq root (expand-file-name root)) `````` Gerd Moellmann committed Oct 19, 2001 37 38 `````` (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (error "%s doesn't seem to be the root of an Emacs source tree" root)) `````` Lute Kamstra committed Apr 14, 2005 39 `````` (require 'add-log) `````` Gerd Moellmann committed Oct 19, 2001 40 41 `````` (let* ((logs (process-lines "find" root "-name" "ChangeLog")) (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n" `````` Francesco Potortì committed Jan 17, 2003 42 43 44 45 `````` (funcall add-log-time-format) (or add-log-full-name (user-full-name)) (or add-log-mailing-address user-mail-address) version))) `````` Gerd Moellmann committed Oct 19, 2001 46 `````` (dolist (log logs) `````` Gerd Moellmann committed Oct 20, 2001 47 `````` (unless (string-match "/gnus/" log) `````` Gerd Moellmann committed Oct 19, 2001 48 49 50 51 52 53 54 55 56 57 58 59 60 61 `````` (find-file log) (goto-char (point-min)) (insert entry))))) (defun set-version-in-file (root file version rx) (find-file (expand-file-name file root)) (goto-char (point-min)) (unless (re-search-forward rx nil t) (error "Version not found in %s" file)) (replace-match (format "%s" version) nil nil nil 1)) (defun set-version (root version) "Set Emacs version to VERSION in relevant files under ROOT. Root must be the root of an Emacs source tree." `````` Gerd Moellmann committed Oct 21, 2001 62 `````` (interactive "DEmacs root directory: \nsVersion number: ") `````` Gerd Moellmann committed Oct 19, 2001 63 64 65 66 67 68 69 70 `````` (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (error "%s doesn't seem to be the root of an Emacs source tree" root)) (set-version-in-file root "lisp/version.el" version (rx (and "emacs-version" (0+ space) ?\" (submatch (1+ (not (in ?\")))) ?\"))) (set-version-in-file root "README" version (rx (and "version" (1+ space) (submatch (1+ (in "0-9.")))))) `````` Glenn Morris committed Dec 05, 2007 71 72 73 74 75 `````` (set-version-in-file root "configure.in" version (rx (and "AC_INIT" (1+ (not (in ?,))) ?, (0+ space) (submatch (1+ (in "0-9.")))))) (set-version-in-file root "doc/emacs/emacs.texi" version `````` Lute Kamstra committed Jun 10, 2005 76 77 `````` (rx (and "EMACSVER" (1+ space) (submatch (1+ (in "0-9.")))))) `````` Glenn Morris committed Dec 05, 2007 78 `````` (set-version-in-file root "doc/lispref/elisp.texi" version `````` Gerd Moellmann committed Oct 19, 2001 79 `````` (rx (and "EMACSVER" (1+ space) `````` Jason Rumney committed Oct 01, 2005 80 `````` (submatch (1+ (in "0-9.")))))) `````` Glenn Morris committed Jan 08, 2008 81 82 83 84 `````` (set-version-in-file root "doc/man/emacs.1" version (rx (and ".TH EMACS" (1+ not-newline) "GNU Emacs" (1+ space) (submatch (1+ (in "0-9.")))))) `````` Juanma Barranquero committed Nov 25, 2006 85 86 87 `````` (set-version-in-file root "lib-src/makefile.w32-in" version (rx (and "VERSION" (0+ space) "=" (0+ space) (submatch (1+ (in "0-9.")))))) `````` Jason Rumney committed Oct 01, 2005 88 89 90 91 92 93 94 95 96 `````` ;; nt/emacs.rc also contains the version number, but in an awkward ;; format. It must contain four components, separated by commas, and ;; in two places those commas are followed by space, in two other ;; places they are not. (let* ((version-components (append (split-string version "\\.") '("0" "0"))) (comma-version (concat (car version-components) "," (cadr version-components) "," `````` YAMAMOTO Mitsuharu committed Oct 15, 2006 97 `````` (cadr (cdr version-components)) "," `````` Jason Rumney committed Oct 01, 2005 98 99 100 101 `````` (cadr (cdr (cdr version-components))))) (comma-space-version (concat (car version-components) ", " (cadr version-components) ", " `````` YAMAMOTO Mitsuharu committed Oct 15, 2006 102 `````` (cadr (cdr version-components)) ", " `````` Jason Rumney committed Oct 01, 2005 103 104 105 106 107 108 109 110 111 112 113 114 115 `````` (cadr (cdr (cdr version-components)))))) (set-version-in-file root "nt/emacs.rc" comma-version (rx (and "FILEVERSION" (1+ space) (submatch (1+ (in "0-9,")))))) (set-version-in-file root "nt/emacs.rc" comma-version (rx (and "PRODUCTVERSION" (1+ space) (submatch (1+ (in "0-9,")))))) (set-version-in-file root "nt/emacs.rc" comma-space-version (rx (and "\"FileVersion\"" (0+ space) ?, (0+ space) ?\" (submatch (1+ (in "0-9, "))) "\\0\""))) (set-version-in-file root "nt/emacs.rc" comma-space-version (rx (and "\"ProductVersion\"" (0+ space) ?, (0+ space) ?\" (submatch (1+ (in "0-9, "))) `````` YAMAMOTO Mitsuharu committed Oct 15, 2006 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 `````` "\\0\""))) ;; Some files in the "mac" subdirectory also contain the version ;; number. (set-version-in-file root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings" version (rx (and "CFBundleShortVersionString" (0+ space) ?= (0+ space) ?\" (submatch (1+ (in "0-9.")))))) (set-version-in-file root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings" version (rx (and "CFBundleGetInfoString" (0+ space) ?= (0+ space) ?\" (submatch (1+ (in "0-9.")))))) (set-version-in-file root "mac/src/Emacs.r" (car version-components) (rx (and "GNU Emacs " (submatch (1+ (in "0-9"))) " for Mac OS"))) (set-version-in-file root "mac/src/Emacs.r" (car version-components) (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\, (0+ space) "/* Major revision in BCD */"))) (set-version-in-file root "mac/src/Emacs.r" (cadr version-components) (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\, (0+ space) "/* Minor revision in BCD */"))) (set-version-in-file root "mac/src/Emacs.r" (cadr (cdr version-components)) (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\, (0+ space) "/* Non-final release # */"))) (set-version-in-file root "mac/src/Emacs.r" version (rx (and (submatch (1+ (in "0-9."))) (0+ space) ?\" ?\, (0+ space) "/* Short version number */"))) (set-version-in-file root "mac/src/Emacs.r" version (rx (and "/* Short version number */" (0+ space) ?\" (submatch (1+ (in "0-9.")))))) (let* ((third-component (string-to-number (cadr (cdr version-components)))) (release (cond ((>= third-component 90) "alpha") ((>= third-component 50) "development") (t "final")))) (set-version-in-file root "mac/src/Emacs.r" release (rx (and (submatch (1+ (in "a-z"))) (0+ space) ?\, (0+ space) "/* development, alpha, beta, or final (release) */")))))) `````` Francesco Potortì committed Jan 17, 2003 153 `````` `````` Glenn Morris committed Jun 07, 2007 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 ``````;; Note this makes some assumptions about form of short copyright. (defun set-copyright (root copyright) "Set Emacs short copyright to COPYRIGHT in relevant files under ROOT. Root must be the root of an Emacs source tree." (interactive (list (read-directory-name "Emacs root directory: " nil nil t) (read-string "Short copyright string: " (format "Copyright (C) %s Free Software Foundation, Inc." (format-time-string "%Y"))))) (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (error "%s doesn't seem to be the root of an Emacs source tree" root)) (set-version-in-file root "lisp/version.el" copyright (rx (and "emacs-copyright" (0+ space) ?\" (submatch (1+ (not (in ?\")))) ?\"))) `````` Glenn Morris committed Jan 04, 2008 169 170 171 `````` (set-version-in-file root "lib-src/ebrowse.c" copyright (rx (and "emacs_copyright" (0+ (not (in ?\"))) ?\" (submatch (1+ (not (in ?\")))) ?\"))) `````` Glenn Morris committed Jun 07, 2007 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 `````` (set-version-in-file root "lib-src/etags.c" copyright (rx (and "emacs_copyright" (0+ (not (in ?\"))) ?\" (submatch (1+ (not (in ?\")))) ?\"))) (set-version-in-file root "lib-src/rcs2log" copyright (rx (and "Copyright" (0+ space) ?= (0+ space) ?\' (submatch (1+ nonl))))) (set-version-in-file root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings" copyright (rx (and "CFBundleGetInfoString" (0+ space) ?= (0+ space) ?\" (1+ anything) (submatch "Copyright" (1+ (not (in ?\"))))))) ;; This one is a nuisance, as it needs to be split over two lines. (string-match "\\(.*[0-9]\\{4\\} *\\)\\(.*\\)" copyright) (let ((csign "\\0xa9") (cyear (match-string 1 copyright)) ; "Copyright (C) 2007 " (owner (match-string 2 copyright))) ; "Free Software Foundation, Inc." (set-version-in-file root "mac/src/Emacs.r" (regexp-quote (replace-regexp-in-string "(C)" (regexp-quote csign) cyear)) (rx (and (submatch "Copyright" (0+ space) (eval csign) (0+ space) (= 4 num) (0+ (not (in ?\")))) ?\"))) (set-version-in-file root "mac/src/Emacs.r" owner (rx (and ?\" (submatch (1+ (not (in ?\")))) ?\" (0+ space) "/* Long version number */"))))) `````` Glenn Morris committed Aug 28, 2007 202 203 ``````(provide 'admin) `````` Miles Bader committed Sep 01, 2003 204 ``````;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5 `````` Gerd Moellmann committed Oct 19, 2001 205 ``;; admin.el ends here.``