1 ;;; admin.el --- utilities for Emacs administration
3 ;; Copyright (C) 2001-2011 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
7 ;; GNU Emacs is free software: you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation, either version 3 of the License, or
10 ;; (at your option) any later version.
12 ;; GNU Emacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
22 ;; add-release-logs Add ``Version X released'' change log entries.
23 ;; set-version Change Emacs version number in source tree.
24 ;; set-copyright Change emacs short copyright string (eg as
25 ;; printed by --version) in source tree.
29 (defun add-release-logs (root version
)
30 "Add \"Version VERSION released.\" change log entries in ROOT.
31 Root must be the root of an Emacs source tree."
32 (interactive "DEmacs root directory: \nNVersion number: ")
33 (setq root
(expand-file-name root
))
34 (unless (file-exists-p (expand-file-name "src/emacs.c" root
))
35 (error "%s doesn't seem to be the root of an Emacs source tree" root
))
37 (let* ((logs (process-lines "find" root
"-name" "ChangeLog"))
38 (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n"
39 (funcall add-log-time-format
)
40 (or add-log-full-name
(user-full-name))
41 (or add-log-mailing-address user-mail-address
)
44 (unless (string-match "/gnus/" log
)
46 (goto-char (point-min))
49 (defun set-version-in-file (root file version rx
)
50 (find-file (expand-file-name file root
))
51 (goto-char (point-min))
52 (unless (re-search-forward rx nil t
)
53 (error "Version not found in %s" file
))
54 (replace-match (format "%s" version
) nil nil nil
1))
56 (defun set-version (root version
)
57 "Set Emacs version to VERSION in relevant files under ROOT.
58 Root must be the root of an Emacs source tree."
59 (interactive "DEmacs root directory: \nsVersion number: ")
60 (unless (file-exists-p (expand-file-name "src/emacs.c" root
))
61 (error "%s doesn't seem to be the root of an Emacs source tree" root
))
62 (set-version-in-file root
"src/emacs.c" version
63 (rx (and "emacs_version" (0+ (not (in ?
\")))
64 ?
\" (submatch (1+ (not (in ?
\")))) ?
\")))
65 (set-version-in-file root
"README" version
66 (rx (and "version" (1+ space
)
67 (submatch (1+ (in "0-9."))))))
68 (set-version-in-file root
"configure.in" version
69 (rx (and "AC_INIT" (1+ (not (in ?
,)))
71 (submatch (1+ (in "0-9."))))))
72 (set-version-in-file root
"doc/emacs/emacsver.texi" version
73 (rx (and "EMACSVER" (1+ space
)
74 (submatch (1+ (in "0-9."))))))
75 (set-version-in-file root
"doc/man/emacs.1" version
76 (rx (and ".TH EMACS" (1+ not-newline
)
77 "GNU Emacs" (1+ space
)
78 (submatch (1+ (in "0-9."))))))
79 (set-version-in-file root
"lib-src/makefile.w32-in" version
80 (rx (and "VERSION" (0+ space
) "=" (0+ space
)
81 (submatch (1+ (in "0-9."))))))
82 (set-version-in-file root
"nt/makefile.w32-in" version
83 (rx (and "VERSION" (0+ space
) "=" (0+ space
)
84 (submatch (1+ (in "0-9."))))))
85 ;; nt/emacs.rc also contains the version number, but in an awkward
86 ;; format. It must contain four components, separated by commas, and
87 ;; in two places those commas are followed by space, in two other
88 ;; places they are not.
89 (let* ((version-components (append (split-string version
"\\.")
92 (concat (car version-components
) ","
93 (cadr version-components
) ","
94 (cadr (cdr version-components
)) ","
95 (cadr (cdr (cdr version-components
)))))
97 (concat (car version-components
) ", "
98 (cadr version-components
) ", "
99 (cadr (cdr version-components
)) ", "
100 (cadr (cdr (cdr version-components
))))))
101 (set-version-in-file root
"nt/emacs.rc" comma-version
102 (rx (and "FILEVERSION" (1+ space
)
103 (submatch (1+ (in "0-9,"))))))
104 (set-version-in-file root
"nt/emacs.rc" comma-version
105 (rx (and "PRODUCTVERSION" (1+ space
)
106 (submatch (1+ (in "0-9,"))))))
107 (set-version-in-file root
"nt/emacs.rc" comma-space-version
108 (rx (and "\"FileVersion\"" (0+ space
) ?
, (0+ space
)
109 ?
\" (submatch (1+ (in "0-9, "))) "\\0\"")))
110 (set-version-in-file root
"nt/emacs.rc" comma-space-version
111 (rx (and "\"ProductVersion\"" (0+ space
) ?
,
112 (0+ space
) ?
\" (submatch (1+ (in "0-9, ")))
114 ;; Likewise for emacsclient.rc
115 (set-version-in-file root
"nt/emacsclient.rc" comma-version
116 (rx (and "FILEVERSION" (1+ space
)
117 (submatch (1+ (in "0-9,"))))))
118 (set-version-in-file root
"nt/emacsclient.rc" comma-version
119 (rx (and "PRODUCTVERSION" (1+ space
)
120 (submatch (1+ (in "0-9,"))))))
121 (set-version-in-file root
"nt/emacsclient.rc" comma-space-version
122 (rx (and "\"FileVersion\"" (0+ space
) ?
, (0+ space
)
123 ?
\" (submatch (1+ (in "0-9, "))) "\\0\"")))
124 (set-version-in-file root
"nt/emacsclient.rc" comma-space-version
125 (rx (and "\"ProductVersion\"" (0+ space
) ?
,
126 (0+ space
) ?
\" (submatch (1+ (in "0-9, ")))
130 root
"nextstep/Cocoa/Emacs.base/Contents/Info.plist"
131 version
(rx (and "CFBundleGetInfoString" (1+ anything
) "Emacs" (1+ space
)
132 (submatch (1+ (in "0-9."))))))
134 root
"nextstep/Cocoa/Emacs.base/Contents/Info.plist"
135 version
(rx (and "CFBundleShortVersionString" (1+ not-newline
) ?
\n
136 (0+ not-newline
) "<string>" (0+ space
)
137 (submatch (1+ (in "0-9."))))))
139 root
"nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
140 version
(rx (and "CFBundleShortVersionString" (0+ space
) ?
= (0+ space
)
141 ?
\" (0+ space
) "Version" (1+ space
)
142 (submatch (1+ (in "0-9."))))))
144 root
"nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
145 version
(rx (and "CFBundleGetInfoString" (0+ space
) ?
= (0+ space
)
146 ?
\" (0+ space
) "Emacs version" (1+ space
)
147 (submatch (1+ (in "0-9."))))))
149 root
"nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist"
150 version
(rx (and "ApplicationRelease" (0+ space
) ?
= (0+ space
)
151 ?
\" (0+ space
) (submatch (1+ (in "0-9."))))))
153 root
"nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist"
154 version
(rx (and "FullVersionID" (0+ space
) ?
= (0+ space
)
155 ?
\" (0+ space
) "Emacs" (1+ space
)
156 (submatch (1+ (in "0-9."))))))
158 root
"nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop"
159 version
(rx (and "Version=" (submatch (1+ (in "0-9.")))))))
161 ;; Note this makes some assumptions about form of short copyright.
162 (defun set-copyright (root copyright
)
163 "Set Emacs short copyright to COPYRIGHT in relevant files under ROOT.
164 Root must be the root of an Emacs source tree."
166 (read-directory-name "Emacs root directory: " nil nil t
)
168 "Short copyright string: "
169 (format "Copyright (C) %s Free Software Foundation, Inc."
170 (format-time-string "%Y")))))
171 (unless (file-exists-p (expand-file-name "src/emacs.c" root
))
172 (error "%s doesn't seem to be the root of an Emacs source tree" root
))
173 (set-version-in-file root
"src/emacs.c" copyright
174 (rx (and "emacs_copyright" (0+ (not (in ?
\")))
175 ?
\" (submatch (1+ (not (in ?
\")))) ?
\")))
176 (set-version-in-file root
"lib-src/ebrowse.c" copyright
177 (rx (and "emacs_copyright" (0+ (not (in ?
\")))
178 ?
\" (submatch (1+ (not (in ?
\")))) ?
\")))
179 (set-version-in-file root
"lib-src/etags.c" copyright
180 (rx (and "emacs_copyright" (0+ (not (in ?
\")))
181 ?
\" (submatch (1+ (not (in ?
\")))) ?
\")))
182 (set-version-in-file root
"lib-src/rcs2log" copyright
183 (rx (and "Copyright" (0+ space
) ?
= (0+ space
)
184 ?
\' (submatch (1+ nonl
)))))
185 ;; This one is a nuisance, as it needs to be split over two lines.
186 (string-match "\\(.*[0-9]\\{4\\} *\\)\\(.*\\)" copyright
)
189 root
"nextstep/Cocoa/Emacs.base/Contents/Info.plist"
190 copyright
(rx (and "CFBundleGetInfoString" (1+ anything
) "Emacs" (1+ space
)
191 (1+ (in "0-9.")) (1+ space
)
192 (submatch (1+ (not (in ?\
<)))))))
194 root
"nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
195 copyright
(rx (and "NSHumanReadableCopyright" (0+ space
) ?\
= (0+ space
)
196 ?
\" (submatch (1+ (not (in ?
\")))))))
198 root
"nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist"
199 copyright
(rx (and "Copyright" (0+ space
) ?\
= (0+ space
)
200 ?
\" (submatch (1+ (not (in ?
\")))))))
201 (when (string-match "\\([0-9]\\{4\\}\\)" copyright
)
202 (setq copyright
(match-string 1 copyright
))
203 (dolist (file (directory-files (expand-file-name "etc/refcards" root
)
205 (unless (string-match "gnus-refcard\\.tex" file
)
208 (concat (if (string-match "ru-refcard\\.tex" file
)
209 "\\\\newcommand{\\\\cyear}\\[0\\]{"
211 "\\([0-9]\\{4\\}\\)}.+%.+copyright year"))))))
215 ;;; admin.el ends here