[bpt/emacs.git] / admin / admin.el

;;; admin.el --- utilities for Emacs administration

;; Copyright (C) 2001 Free Software Foundation, Inc.

;; 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 2, 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; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; add-release-log	add ``Version X released'' change log entries
;; set-version		change Emacs version number in source tree.

;;; Code:

(defun process-lines (program &rest args)
  "Execute PROGRAM with ARGS, returning its output as a list of lines.
Signal an error if the program returns with a non-zero exit status."
  (with-temp-buffer
    (let ((status (apply 'call-process program nil (current-buffer) nil args)))
      (unless (eq status 0)
	(error "%s exited with status %s" program status))
      (goto-char (point-min))
      (let (lines)
	(while (not (eobp))
	  (setq lines (cons (buffer-substring-no-properties
			     (line-beginning-position)
			     (line-end-position))
			    lines))
	  (forward-line 1))
	(nreverse lines)))))


(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: ")
  (setq root (expand-file-name root))
  (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))
  (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
	 (require 'add-log)
	 (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"
			(funcall add-log-time-format)
			(or add-log-full-name (user-full-name))
			(or add-log-mailing-address user-mail-address)
			version)))
    (dolist (log logs)
      (unless (string-match "/gnus/" log)
	(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."
  (interactive "DEmacs root directory: \nsVersion number: ")
  (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."))))))
  (set-version-in-file root "man/emacs.texi" version
		       (rx (and "EMACSVER" (1+ space)
				(submatch (1+ (in "0-9.")))))))

;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
;; admin.el ends here.
Commit	Line	Data
74499542 GM	1	;;; admin.el --- utilities for Emacs administration
	2
	3	;; Copyright (C) 2001 Free Software Foundation, Inc.
	4
	5	;; This file is part of GNU Emacs.
	6
	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 2, or (at your option)
	10	;; any later version.
	11
	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.
	16
	17	;; You should have received a copy of the GNU General Public License
	18	;; along with GNU Emacs; see the file COPYING. If not, write to the
	19	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	20	;; Boston, MA 02111-1307, USA.
	21
	22	;;; Commentary:
	23
	24	;; add-release-log add ``Version X released'' change log entries
	25	;; set-version change Emacs version number in source tree.
	26
	27	;;; Code:
	28
	29	(defun process-lines (program &rest args)
	30	"Execute PROGRAM with ARGS, returning its output as a list of lines.
	31	Signal an error if the program returns with a non-zero exit status."
	32	(with-temp-buffer
	33	(let ((status (apply 'call-process program nil (current-buffer) nil args)))
	34	(unless (eq status 0)
	35	(error "%s exited with status %s" program status))
	36	(goto-char (point-min))
	37	(let (lines)
	38	(while (not (eobp))
	39	(setq lines (cons (buffer-substring-no-properties
	40	(line-beginning-position)
	41	(line-end-position))
	42	lines))
	43	(forward-line 1))
	44	(nreverse lines)))))
	45
	46
	47	(defun add-release-logs (root version)
	48	"Add \"Version VERSION released.\" change log entries in ROOT.
	49	Root must be the root of an Emacs source tree."
	50	(interactive "DEmacs root directory: \nNVersion number: ")
3f4a4bdf	51	(setq root (expand-file-name root))
74499542 GM	52	(unless (file-exists-p (expand-file-name "src/emacs.c" root))
	53	(error "%s doesn't seem to be the root of an Emacs source tree" root))
	54	(let* ((logs (process-lines "find" root "-name" "ChangeLog"))
3f4a4bdf	55	(require 'add-log)
74499542	56	(entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n"
3f4a4bdf FP	57	(funcall add-log-time-format)
	58	(or add-log-full-name (user-full-name))
	59	(or add-log-mailing-address user-mail-address)
	60	version)))
74499542	61	(dolist (log logs)
e568708b	62	(unless (string-match "/gnus/" log)
74499542 GM	63	(find-file log)
	64	(goto-char (point-min))
	65	(insert entry)))))
	66
	67
	68	(defun set-version-in-file (root file version rx)
	69	(find-file (expand-file-name file root))
	70	(goto-char (point-min))
	71	(unless (re-search-forward rx nil t)
	72	(error "Version not found in %s" file))
	73	(replace-match (format "%s" version) nil nil nil 1))
	74
	75
	76	(defun set-version (root version)
	77	"Set Emacs version to VERSION in relevant files under ROOT.
	78	Root must be the root of an Emacs source tree."
91ebb8c9	79	(interactive "DEmacs root directory: \nsVersion number: ")
74499542 GM	80	(unless (file-exists-p (expand-file-name "src/emacs.c" root))
	81	(error "%s doesn't seem to be the root of an Emacs source tree" root))
	82	(set-version-in-file root "lisp/version.el" version
	83	(rx (and "emacs-version" (0+ space)
	84	?\" (submatch (1+ (not (in ?\")))) ?\")))
	85	(set-version-in-file root "README" version
	86	(rx (and "version" (1+ space)
	87	(submatch (1+ (in "0-9."))))))
	88	(set-version-in-file root "man/emacs.texi" version
	89	(rx (and "EMACSVER" (1+ space)
	90	(submatch (1+ (in "0-9.")))))))
3f4a4bdf	91
ab5796a9	92	;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
74499542	93	;; admin.el ends here.