;;; build-report.el --- Automatically formatted build reports for XEmacs
-;; Copyright (C) 1997 Adrian Aichner
+;; Copyright (C) 1997-2001 Adrian Aichner
;; Author: Adrian Aichner <adrian@xemacs.org>
-;; Date: Sun., Apr. 20, 1997-2000.
-;; Version: $Revision: 1.5.2.6 $
;; Keywords: internal
;; This file is part of XEmacs.
:group 'build)
(defcustom build-report-destination
- (quote ("XEmacs Build Reports List <xemacs-build-reports@xemacs.org>"
- "XEmacs Beta List <xemacs-beta@xemacs.org>"))
+ (list
+ "XEmacs Build Reports List <xemacs-buildreports@xemacs.org>"
+ "XEmacs Beta List <xemacs-beta@xemacs.org>")
"*The list of mail addresses XEmacs Build Reports should most likely
go to."
:type '(repeat
:group 'build-report)
(defcustom build-report-keep-regexp
- (quote ("^\\(cd\\|n?make\\)\\s-" "errors?" "warnings?"
- "pure.*\\(space\\|size\\)" "hides\\b" "strange" "shadowings"
- "^Compil\\(ing\\s-+in\\|ation\\)" "^Using" "not\\s-+found"
- "^While\\s-+compiling.*\\(\n\\s-+.+\\)*" "^Note:"
- "Installing" "[Ff]ile(s) copied"
- "\\s-+tests\\s-+"))
+ (list
+ "^\\(cd\\|n?make\\)\\s-"
+ "errors?"
+ "warnings?"
+ "pure.*\\(space\\|size\\)"
+ "hides\\b"
+ "strange"
+ "shadowings"
+ "^Compil\\(ing\\s-+in\\|ation\\)"
+ "^Using"
+ "not\\s-+found"
+ "^While\\s-+compiling.*\\(\n\\s-+.+\\)*"
+ "^Note:"
+ "Installing"
+ "[Ff]ile(s) copied"
+ "\\s-+tests\\s-+")
"*Regexp of make process output lines to keep in the report."
:type '(repeat
:custom-show t
:group 'build-report)
(defcustom build-report-delete-regexp
- (quote ("confl.*with.*auto-inlining" "^Formatting:"))
+ (list
+ "confl.*with.*auto-inlining"
+ "^Formatting:"
+ "(100%) tests successful")
"*Regexp of make process output lines to delete from the report."
:type '(repeat
:custom-show t
:group 'build-report)
(defcustom build-report-make-output-files
- (quote ("beta.err"))
+ (list
+ "beta.err"
+ "xemacs-make-all.err"
+ "xemacs-make-check-temacs.err"
+ "xemacs-make-check.err"
+ "xemacs-make-install.err")
"*List of Filenames where stdout and stderr of XEmacs make process
have been stored. These are relative to
`build-report-make-output-dir`. You'll have to run make with output
alias mk 'make \!* >>&\! \!$.err &'
-under csh, so that you get beta.err went you run `mk beta'."
+under csh, so that you get beta.err when you run `mk beta'."
:type '(repeat
:custom-show t
:documentation-shown t
;;;###autoload
(defun build-report (&rest args)
- "Composes a fresh mail message with the contents of the built XEmacs
-Installation file and excerpts from XEmacs make output.
-`compose-mail' is used to create the mail message. Point is left at
-the beginning of the mail text. You may add some personal notes if
-you like and send the report.
-See also
- `compose-mail', `mail-user-agent',
- `build-report-destination',
- `build-report-keep-regexp',
- `build-report-delete-regexp',
- `build-report-make-output-dir',
- `build-report-make-output-files', and
- `build-report-installation-file'."
+ "Report build information including Installation and make output.
+
+Prompts for status (usually \"Success\" or \"Failure\"). Then uses
+`compose-mail' to create a mail message. The Subject header contains
+status and version information. Point is left at the beginning of the
+mail text. Add some notes if you like, and send the report.
+
+Looks for Installation and the make output file (`beta.err' by
+default, customizable via `build-report-make-output-files') in the
+build directory of the running XEmacs by default (customizable via
+`build-report-make-output-dir'). The output from make is filtered
+through `build-report-keep-regexp' and `build-report-delete-regexp'
+before including in the message.
+
+See also `mail-user-agent', `build-report-destination', and
+`build-report-installation-file'."
;; `interactive' form returns value for formal parameter `args'.
(interactive
(let (prompt