Mercurial > hg > xemacs-beta
annotate lisp/diagnose.el @ 1330:4542b72c005e
[xemacs-hg @ 2003-03-01 07:25:26 by ben]
build patch
Makefile.in.in: Move src deletions to src/Makefile.in.in.
dump-paths.el, dumped-lisp.el: Delete. Combine stuff into setup-paths.el.
find-paths.el: Removed.
Make this file contain generic routines only. Move stuff to
compute Emacs roots to setup-paths.el.
startup.el: Removed.
Move these variables into setup-paths.el.
setup-paths.el, startup.el: Removed.
Combine all high-level code for computing the paths into
setup-paths.el. Create new function startup-find-load-path to
encapsulate all logic for computing `load-path'. Eliminate
invocation-directory and invocation-name parameters since
there is no point (false generality) -- the code references
other globals, which cannot be specified. Eliminate some code
duplicated between setup-paths.el and startup.el. Clean up
the debug-paths code and output load-path in addition.
Add logic to paths-emacs-root-p to support separated source
and build trees.
loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Rewrite to allow for separated source and build trees, as may occur
in MS Windows.
NOTE TO BUILD HACKERS:
loadup.el, make-docfile.el, update-elc.el and update-elc-2.el made two
assumptions that are no longer correct:
(1) The source and build trees are in the same place.
(2) They can make assumptions about where `.' is.
These files now compute the locations of the source and build
roots at the top of the file. *ALL* constant file names or path
snippets must now be made absolute using expand-file-name and one
of these roots.
dumped-lisp.el, packages.el: Removed.
Remove some unused lists of Lisp files. packages-hardcoded-lisp
(empty, in any case) moved to dumped-lisp.el.
startup.el: When a compiled init file is out-of-date wrt the uncompiled
version, load the uncompiled version and issue a nasty warning.
update-elc-2.el: Force touching of auto-autoloads files when REBUILD_AUTOLOADS
was set.
update-elc.el: Fix code that checks whether dumping is necessary to check against
xemacs.dmp, not xemacs.exe, when Unix and pdump.
lwlib-Xm.c: Fix compile warning.
README, config.inc.samp, xemacs.mak: -- Major reorganization and cleanup.
-- Add support for separated build tree and source tree.
-- Delete all support for X Windows building, since it's
totally bit-rotten and will never be fixed up. Instruct
people to use Cygwin if they want such support.
make-build-dir: New script to create a skeleton build tree for use with
separated build and source tree compilation.
m/acorn.h, m/alliant-2800.h, m/alliant.h, m/altos.h, m/amdahl.h, m/arm.h, m/att3b.h, m/aviion.h, m/clipper.h, m/cnvrgnt.h, m/convex.h, m/cydra5.h, m/delta.h, m/delta88k.h, m/dpx2.h, m/elxsi.h, m/ews4800r.h, m/gould.h, m/hp800.h, m/hp9000s300.h, m/i860.h, m/ibmps2-aix.h, m/ibmrs6000.h, m/ibmrt-aix.h, m/ibmrt.h, m/intel386.h, m/iris4d.h, m/iris5d.h, m/iris6d.h, m/irist.h, m/m68k.h, m/masscomp.h, m/mg1.h, m/mips-nec.h, m/mips-siemens.h, m/mips.h, m/nh3000.h, m/nh4000.h, m/ns32000.h, m/plexus.h, m/powerpc.h, m/sequent-ptx.h, m/sequent.h, m/sgi-challenge.h, m/stride.h, m/tad68k.h, m/targon31.h, m/tekxd88.h, m/template.h, m/tower32.h, m/tower32v3.h, m/ustation.h, m/wicat.h, m/xps100.h, data.c, doc.c, editfns.c, emacs.c, lrecord.h, ntheap.c, process-unix.c, sysdep.c, unexec.c: Delete all support for bit-rotten CANNOT_DUMP. Just use pdump.
Makefile.in.in: Lots o' cleanup. Use names like LISP, SRC instead of
lispdir, srcdir, for consistency with xemacs.mak and the
conventions in the rest of the file. Eliminate use of ${...}
in favor of $(...), to make it easier to move code between
this file and xemacs.mak. Fix dependency handling wrt
NEEDTODUMP to eliminate problems some people (e.g. Vin) have
been seeing with non-GNU makes. Write a long section about
the subtle but oh-so-important differences in dependency
processing between nmake, make, and GNU make. Add
unicode-encapsulate target, from xemacs.mak.
chartab.c, lrecord.h: Fix crash due to attempt to free objects across dump/undump.
author | ben |
---|---|
date | Sat, 01 Mar 2003 07:25:56 +0000 |
parents | 242b62e9fc59 |
children | 6db7dbf7f88b |
rev | line source |
---|---|
787 | 1 ;;; debug.el --- routines for debugging problems in XEmacs |
2 | |
3 ;; Copyright (C) 2002 Ben Wing. | |
4 | |
5 ;; Maintainer: XEmacs Development Team | |
6 ;; Keywords: dumped | |
7 | |
8 ;; This file is part of XEmacs. | |
9 | |
10 ;; XEmacs is free software; you can redistribute it and/or modify it | |
11 ;; under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; XEmacs is distributed in the hope that it will be useful, but | |
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
18 ;; General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
23 ;; 02111-1307, USA. | |
24 | |
25 ;;; Synched up with: Not in FSF. | |
26 | |
27 ;;; Commentary: | |
28 | |
29 ;; This file is dumped with XEmacs. | |
30 | |
31 ;;; Code: | |
32 | |
33 | |
34 (defun show-memory-usage () | |
35 "Show statistics about memory usage of various sorts in XEmacs." | |
36 (interactive) | |
37 (garbage-collect) | |
38 (flet ((show-foo-stats (objtypename objlist memfun) | |
39 (let* ((hash (make-hash-table)) | |
40 (first t) | |
41 types fmt | |
42 (objnamelen 25) | |
43 (linelen objnamelen) | |
44 (totaltotal 0)) | |
45 (dolist (obj objlist) | |
46 (let ((total 0) | |
47 (stats (funcall memfun obj))) | |
48 (loop for (type . num) in stats while type do | |
49 (puthash type (+ num (or (gethash type hash) 0)) hash) | |
50 (incf total num) | |
51 (if first (push type types))) | |
52 (incf totaltotal total) | |
53 (when first | |
54 (setq types (nreverse types)) | |
55 (setq fmt (concat | |
56 (format "%%-%ds" objnamelen) | |
57 (mapconcat | |
58 #'(lambda (type) | |
59 (let ((fieldlen | |
60 (max 8 (+ 2 (length | |
61 (symbol-name type)))))) | |
62 (incf linelen fieldlen) | |
63 (format "%%%ds" fieldlen))) | |
64 types "") | |
65 (progn (incf linelen 8) "%8s\n"))) | |
66 (princ "\n") | |
67 (princ (apply 'format fmt objtypename | |
68 (append types (list 'total)))) | |
69 (princ (make-string linelen ?-)) | |
70 (princ "\n")) | |
71 (let ((objname (format "%s" obj))) | |
72 (princ (apply 'format fmt (substring objname 0 | |
73 (min (length objname) | |
74 (1- objnamelen))) | |
75 (nconc (mapcar #'(lambda (type) | |
76 (cdr (assq type stats))) | |
77 types) | |
78 (list total))))) | |
79 (setq first nil))) | |
80 (princ "\n") | |
81 (princ (apply 'format fmt "total" | |
82 (nconc (mapcar #'(lambda (type) | |
83 (gethash type hash)) | |
84 types) | |
85 (list totaltotal)))) | |
86 totaltotal))) | |
87 | |
88 (let ((grandtotal 0)) | |
89 (with-output-to-temp-buffer "*memory usage*" | |
90 (when-fboundp 'charset-list | |
91 (incf grandtotal | |
92 (show-foo-stats 'charset (charset-list) | |
93 #'charset-memory-usage)) | |
94 (princ "\n")) | |
95 (incf grandtotal | |
96 (show-foo-stats 'buffer (buffer-list) #'buffer-memory-usage)) | |
97 (princ "\n") | |
98 (incf grandtotal | |
99 (show-foo-stats 'window (mapcan #'(lambda (fr) | |
100 (window-list fr t)) | |
101 (frame-list)) | |
102 #'window-memory-usage)) | |
103 (princ "\n") | |
104 (let ((total 0) | |
105 (fmt "%-30s%10s\n")) | |
106 (princ (format fmt "object" "storage")) | |
107 (princ (make-string 40 ?-)) | |
108 (princ "\n") | |
109 (map-plist #'(lambda (stat num) | |
110 (when (string-match "\\(.*\\)-storage$" | |
111 (symbol-name stat)) | |
112 (incf total num) | |
113 (princ (format fmt | |
114 (match-string 1 (symbol-name stat)) | |
115 num))) | |
116 (when (eq stat 'long-strings-total-length) | |
117 (incf total num) | |
118 (princ (format fmt stat num)))) | |
119 (sixth (garbage-collect))) | |
120 (princ "\n") | |
121 (princ (format fmt "total" total)) | |
122 (incf grandtotal total)) | |
123 | |
124 (princ (format "\n\ngrand total: %s\n" grandtotal)) | |
125 grandtotal)))) |