Mercurial > hg > xemacs-beta

comparison lisp/build-report.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
1 ;;; build-report.el --- Automatically formatted build reports for XEmacs 1 ;;; build-report.el --- Automatically formatted build reports for XEmacs
2 2
3 ;; Copyright (C) 1997 Adrian Aichner 3 ;; Copyright (C) 1997 Adrian Aichner
4 4
5 ;; Author: Adrian Aichner <adrian@xemacs.org> 5 ;; Author: Adrian Aichner, Teradyne GmbH Munich <aichner@ecf.teradyne.com>
6 ;; Date: Sun., Apr. 20, 1997, 1998, 1999. 6 ;; Date: Sun., Apr. 20, 1997.
7 ;; Version: 1.35 7 ;; Version: 1.35
8 ;; Keywords: internal 8 ;; Keywords: internal
9 9
10 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
11 11
136 136
137 ;; Symbol Name mappings from TM to SEMI serving as Compatibility 137 ;; Symbol Name mappings from TM to SEMI serving as Compatibility
138 ;; Bandaid 138 ;; Bandaid
139 (when (featurep 'mime-setup) 139 (when (featurep 'mime-setup)
140 ;; No (defvaralias ...) so far. Thanks to "Didier Verna" 140 ;; No (defvaralias ...) so far. Thanks to "Didier Verna"
141 ;; <didier@xemacs.org> for reporting my incorrect defvaraliasing of 141 ;; <verna@inf.enst.fr> for reporting my incorrect defvaraliasing of
142 ;; `mime-editor/insert-tag'. 142 ;; `mime-editor/insert-tag'.
143 ;; Thanks to Jens-Ulrik Holger Petersen 143 ;; Thanks to Jens-Ulrik Holger Petersen
144 ;; <petersen@kurims.kyoto-u.ac.jp> for suggesting the conditional 144 ;; <petersen@kurims.kyoto-u.ac.jp> for suggesting the conditional
145 ;; aliasing of SEMI functions. 145 ;; aliasing of SEMI functions.
146 (unless (fboundp 'mime-edit-content-beginning) 146 (unless (fboundp 'mime-edit-content-beginning)
149 (defalias 'mime-edit-insert-tag 'mime-editor/insert-tag)) 149 (defalias 'mime-edit-insert-tag 'mime-editor/insert-tag))
150 (unless (fboundp 'mime-edit-insert-binary-file) 150 (unless (fboundp 'mime-edit-insert-binary-file)
151 (defalias 'mime-edit-insert-binary-file 151 (defalias 'mime-edit-insert-binary-file
152 'mime-editor/insert-binary-file))) 152 'mime-editor/insert-binary-file)))
153 153
154 ;;;###autoload
155 (defun build-report (&rest args) 154 (defun build-report (&rest args)
156 "Initializes a fresh mail composition buffer using `compose-mail' 155 "Initializes a fresh mail composition buffer using `compose-mail'
157 with the contents of XEmacs Installation file and excerpts from XEmacs 156 with the contents of XEmacs Installation file and excerpts from XEmacs
158 make output and errors and leaves point at the beginning of the mail text. 157 make output and errors and leaves point at the beginning of the mail text.
159 See also 158 See also
212 (progn 211 (progn
213 (if (featurep 'mime-setup) 212 (if (featurep 'mime-setup)
214 (progn 213 (progn
215 (mime-edit-insert-tag 214 (mime-edit-insert-tag
216 "text" 215 "text"
217 "plain" 216 "plain"
218 (concat 217 (concat
219 "\nContent-Disposition: attachment;" 218 "\nContent-Disposition: attachment;"
220 " filename=\"" 219 " filename=\""
221 (file-name-nondirectory 220 (file-name-nondirectory
222 build-report-make-output-file) 221 build-report-make-output-file)
228 (goto-char (point-min)) 227 (goto-char (point-min))
229 (delete-non-matching-lines (build-report-keep)) 228 (delete-non-matching-lines (build-report-keep))
230 (goto-char (point-min)) 229 (goto-char (point-min))
231 (delete-matching-lines (build-report-delete)) 230 (delete-matching-lines (build-report-delete))
232 (goto-char (point-min)) 231 (goto-char (point-min))
233 (insert "> Contents of " 232 (insert "> Contents of "
234 build-report-make-output-file 233 build-report-make-output-file
235 "\n> keeping lines matching\n> \"" 234 "\n> keeping lines matching\n> \""
236 (build-report-keep) 235 (build-report-keep)
237 "\"\n> and then deleting lines matching\n> \"" 236 "\"\n> and then deleting lines matching\n> \""
238 (build-report-delete) 237 (build-report-delete)
239 "\"\n\n")) 238 "\"\n\n"))
240 (insert "> " build-report-make-output-file 239 (insert "> " build-report-make-output-file
241 " does not exist!\n\n")) 240 " does not exist!\n\n"))
242 (buffer-string))) 241 (buffer-string)))
243 242
244 (defun build-report-insert-installation-file (where all) 243 (defun build-report-insert-installation-file (where all)
245 "Inserts the contents of the `build-report-installation-file' 244 "Inserts the contents of the `build-report-installation-file'
246 created by the XEmacs Beta configure process." 245 created by the XEmacs Beta configure process."
247 (goto-char where) 246 (goto-char where)
248 (with-temp-buffer 247 (with-temp-buffer
257 (if all "all runs" "most recent run"))) 256 (if all "all runs" "most recent run")))
258 (if (featurep 'mime-setup) 257 (if (featurep 'mime-setup)
259 (progn 258 (progn
260 (mime-edit-insert-tag 259 (mime-edit-insert-tag
261 "text" 260 "text"
262 "plain" 261 "plain"
263 (concat 262 (concat
264 "\nContent-Disposition: attachment;" 263 "\nContent-Disposition: attachment;"
265 " filename=\"" 264 " filename=\""
266 (file-name-nondirectory 265 (file-name-nondirectory
267 build-report-installation-file) 266 build-report-installation-file)