Mercurial > emacs
annotate lisp/cedet/data-debug.el @ 104504:dec9e1cf2ce9
* cedet/cedet.el: Require srecode.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 20 Sep 2009 22:16:15 +0000 |
parents | 25e047f7f6a2 |
children |
rev | line source |
---|---|
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; data-debug.el --- Datastructure Debugger |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
3 ;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 ;; Author: Eric M. Ludlam <zappo@gnu.org> |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 ;; Version: 0.2 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; Keywords: OO, lisp |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
14 ;; (at your option) any later version. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 ;;; Commentary: |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 ;; Provide a simple way to investigate particularly large and complex |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 ;; data structures. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 ;; The best way to get started is to bind M-: to 'data-debug-eval-expression. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
31 ;; (global-set-key "\M-:" 'data-debug-eval-expression) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
33 ;; If you write functions with complex output that need debugging, you |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
34 ;; can make them interactive with data-debug-show-stuff. For example: |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
36 ;; (defun my-complex-output-fcn () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 ;; "Calculate something complicated at point, and return it." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
38 ;; (interactive) ;; function not normally interactive |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
39 ;; (let ((stuff (do-stuff))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
40 ;; (when (interactive-p) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
41 ;; (data-debug-show-stuff stuff "myStuff")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 ;; stuff)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 (require 'font-lock) |
104439
da5b2513c225
cedet/cedet.el (cedet-packages): Bump srecode version.
Chong Yidong <cyd@stupidchicken.com>
parents:
104406
diff
changeset
|
45 (require 'ring) |
da5b2513c225
cedet/cedet.el (cedet-packages): Bump srecode version.
Chong Yidong <cyd@stupidchicken.com>
parents:
104406
diff
changeset
|
46 |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 ;;; Code: |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 ;;; Compatibility |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 (if (featurep 'xemacs) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 (eval-and-compile |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 (defalias 'data-debug-overlay-properties 'extent-properties) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 (defalias 'data-debug-overlay-p 'extentp) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 (if (not (fboundp 'propertize)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 (defun dd-propertize (string &rest properties) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 "Mimic 'propertize' in from Emacs 23." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 (add-text-properties 0 (length string) properties string) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 string |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 (defalias 'dd-propertize 'propertize)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 ;; Regular Emacs |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 (eval-and-compile |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 (defalias 'data-debug-overlay-properties 'overlay-properties) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 (defalias 'data-debug-overlay-p 'overlayp) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 (defalias 'dd-propertize 'propertize) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 ;;; GENERIC STUFF |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 (defun data-debug-insert-property-list (proplist prefix &optional parent) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 "Insert the property list PROPLIST. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 Each line starts with PREFIX. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 The attributes belong to the tag PARENT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 (while proplist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 (let ((pretext (concat (symbol-name (car proplist)) " : "))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 (data-debug-insert-thing (car (cdr proplist)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 pretext |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 parent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 (setq proplist (cdr (cdr proplist))))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
85 ;;; overlays |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 (defun data-debug-insert-overlay-props (overlay prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 "Insert all the parts of OVERLAY. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 (let ((attrprefix (concat (make-string (length prefix) ? ) "# ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 (proplist (data-debug-overlay-properties overlay))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 (data-debug-insert-property-list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 proplist attrprefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 (defun data-debug-insert-overlay-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 "Insert the overlay found at the overlay button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 (let ((overlay (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 (data-debug-insert-overlay-props overlay |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 "| ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 (defun data-debug-insert-overlay-button (overlay prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 "Insert a button representing OVERLAY. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 PREBUTTONTEXT is some text between prefix and the overlay button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
117 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
118 (str (format "%s" overlay)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 (tip nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
122 (put-text-property (- end (length str)) end 'face 'font-lock-comment-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 (put-text-property start end 'ddebug overlay) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 (put-text-property start end 'ddebug-indent(length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 'data-debug-insert-overlay-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 ;;; overlay list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 (defun data-debug-insert-overlay-list (overlaylist prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 "Insert all the parts of OVERLAYLIST. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 (while overlaylist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 (data-debug-insert-overlay-button (car overlaylist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 "") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 (setq overlaylist (cdr overlaylist)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 (defun data-debug-insert-overlay-list-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
145 "Insert the overlay found at the overlay list button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 (let ((overlaylist (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 (data-debug-insert-overlay-list overlaylist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 "* ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 (defun data-debug-insert-overlay-list-button (overlaylist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 "Insert a button representing OVERLAYLIST. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 PREBUTTONTEXT is some text between prefix and the overlay list button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 (str (format "#<overlay list: %d entries>" (length overlaylist))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 (tip nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 (put-text-property (- end (length str)) end 'face 'font-lock-comment-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 (put-text-property start end 'ddebug overlaylist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 (put-text-property start end 'ddebug-indent(length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
174 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
175 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
177 'data-debug-insert-overlay-list-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
178 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
179 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
180 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
181 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
182 ;;; buffers |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
183 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 (defun data-debug-insert-buffer-props (buffer prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
185 "Insert all the parts of BUFFER. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
186 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 (let ((attrprefix (concat (make-string (length prefix) ? ) "# ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
188 (proplist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
189 (list :filename (buffer-file-name buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 :live (buffer-live-p buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 :modified (buffer-modified-p buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 :size (buffer-size buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
193 :process (get-buffer-process buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
194 :localvars (buffer-local-variables buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
195 ))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 (data-debug-insert-property-list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
197 proplist attrprefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
198 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
201 (defun data-debug-insert-buffer-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
202 "Insert the buffer found at the buffer button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
203 (let ((buffer (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
204 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
205 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
210 (data-debug-insert-buffer-props buffer |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
211 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
212 "| ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
213 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
214 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 (defun data-debug-insert-buffer-button (buffer prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
217 "Insert a button representing BUFFER. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
218 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
219 PREBUTTONTEXT is some text between prefix and the buffer button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
220 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
221 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
222 (str (format "%S" buffer)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
223 (tip nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
224 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
225 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
226 (put-text-property (- end (length str)) end 'face 'font-lock-comment-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
227 (put-text-property start end 'ddebug buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
228 (put-text-property start end 'ddebug-indent(length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
229 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
230 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
231 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
232 'data-debug-insert-buffer-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
233 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
234 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
235 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
236 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
237 ;;; buffer list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
238 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
239 (defun data-debug-insert-buffer-list (bufferlist prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
240 "Insert all the parts of BUFFERLIST. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
241 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
242 (while bufferlist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
243 (data-debug-insert-buffer-button (car bufferlist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
244 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
245 "") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
246 (setq bufferlist (cdr bufferlist)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
247 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
248 (defun data-debug-insert-buffer-list-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
249 "Insert the buffer found at the buffer list button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
250 (let ((bufferlist (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
251 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
252 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
253 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
254 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
255 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
256 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
257 (data-debug-insert-buffer-list bufferlist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
258 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
259 "* ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
260 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
261 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
262 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
263 (defun data-debug-insert-buffer-list-button (bufferlist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
264 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
265 prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
266 "Insert a button representing BUFFERLIST. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
267 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
268 PREBUTTONTEXT is some text between prefix and the buffer list button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
269 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
270 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
271 (str (format "#<buffer list: %d entries>" (length bufferlist))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
272 (tip nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
273 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
274 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
275 (put-text-property (- end (length str)) end 'face 'font-lock-comment-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
276 (put-text-property start end 'ddebug bufferlist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
277 (put-text-property start end 'ddebug-indent(length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
278 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
279 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
280 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
281 'data-debug-insert-buffer-list-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
282 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
283 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
284 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
285 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
286 ;;; processes |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
287 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
288 (defun data-debug-insert-process-props (process prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
289 "Insert all the parts of PROCESS. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
290 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
291 (let ((attrprefix (concat (make-string (length prefix) ? ) "# ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
292 (id (process-id process)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
293 (tty (process-tty-name process)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
294 (pcontact (process-contact process t)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
295 (proplist (process-plist process))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
296 (data-debug-insert-property-list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
297 (append |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
298 (if id (list 'id id)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
299 (if tty (list 'tty tty)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
300 (if pcontact pcontact) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
301 proplist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
302 attrprefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
303 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
304 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
305 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
306 (defun data-debug-insert-process-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
307 "Insert the process found at the process button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
308 (let ((process (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
309 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
310 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
311 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
312 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
313 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
314 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
315 (data-debug-insert-process-props process |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
316 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
317 "| ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
318 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
319 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
320 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
321 (defun data-debug-insert-process-button (process prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
322 "Insert a button representing PROCESS. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
323 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
324 PREBUTTONTEXT is some text between prefix and the process button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
325 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
326 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
327 (str (format "%S : %s" process (process-status process))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
328 (tip nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
329 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
330 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
331 (put-text-property (- end (length str)) end 'face 'font-lock-comment-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
332 (put-text-property start end 'ddebug process) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
333 (put-text-property start end 'ddebug-indent(length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
334 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
335 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
336 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
337 'data-debug-insert-process-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
338 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
339 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
340 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
341 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
342 ;;; Rings |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
343 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
344 ;; A ring (like kill-ring, or whatever.) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
345 (defun data-debug-insert-ring-contents (ring prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
346 "Insert all the parts of RING. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
347 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
348 (let ((len (ring-length ring)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
349 (idx 0) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
350 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
351 (while (< idx len) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
352 (data-debug-insert-thing (ring-ref ring idx) prefix "") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
353 (setq idx (1+ idx)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
354 ))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
355 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
356 (defun data-debug-insert-ring-items-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
357 "Insert the ring found at the ring button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
358 (let ((ring (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
359 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
360 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
361 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
362 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
363 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
364 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
365 (data-debug-insert-ring-contents ring |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
366 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
367 "} ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
368 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
369 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
370 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
371 (defun data-debug-insert-ring-button (ring |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
372 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
373 prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
374 "Insert a button representing RING. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
375 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
376 PREBUTTONTEXT is some text between prefix and the stuff list button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
377 (let* ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
378 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
379 (str (format "#<RING: %d, %d max>" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
380 (ring-length ring) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
381 (ring-size ring))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
382 (ringthing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
383 (if (= (ring-length ring) 0) nil (ring-ref ring 0))) |
104489
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
384 (tip (format "Ring max-size %d, length %d." |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
385 (ring-size ring) |
104489
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
386 (ring-length ring))) |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
387 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
388 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
389 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
390 (put-text-property (- end (length str)) end 'face 'font-lock-type-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
391 (put-text-property start end 'ddebug ring) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
392 (put-text-property start end 'ddebug-indent(length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
393 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
394 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
395 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
396 'data-debug-insert-ring-items-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
397 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
398 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
399 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
400 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
401 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
402 ;;; Hash-table |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
403 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
404 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
405 (defun data-debug-insert-hash-table (hash-table prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
406 "Insert the contents of HASH-TABLE inserting PREFIX before each element." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
407 (maphash |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
408 (lambda (key value) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
409 (data-debug-insert-thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
410 key prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
411 (dd-propertize "key " 'face font-lock-comment-face)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
412 (data-debug-insert-thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
413 value prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
414 (dd-propertize "val " 'face font-lock-comment-face))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
415 hash-table)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
416 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
417 (defun data-debug-insert-hash-table-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
418 "Insert the contents of the hash-table button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
419 (let ((hash-table (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
420 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
421 start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
422 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
423 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
424 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
425 (data-debug-insert-hash-table |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
426 hash-table |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
427 (concat (make-string indent ? ) "> ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
428 (goto-char start)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
429 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
430 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
431 (defun data-debug-insert-hash-table-button (hash-table prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
432 "Insert HASH-TABLE as expandable button with recursive prefix PREFIX and PREBUTTONTEXT in front of the button text." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
433 (let ((string (dd-propertize (format "%s" hash-table) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
434 'face 'font-lock-keyword-face))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
435 (insert (dd-propertize |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
436 (concat prefix prebuttontext string) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
437 'ddebug hash-table |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
438 'ddebug-indent (length prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
439 'ddebug-prefix prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
440 'help-echo |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
441 (format "Hash-table\nTest: %s\nWeakness: %s\nElements: %d (of %d)" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
442 (hash-table-test hash-table) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
443 (if (hash-table-weakness hash-table) "yes" "no") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
444 (hash-table-count hash-table) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
445 (hash-table-size hash-table)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
446 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
447 'data-debug-insert-hash-table-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
448 "\n")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
449 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
450 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
451 ;;; Widget |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
452 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
453 ;; Widgets have a long list of properties |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
454 (defun data-debug-insert-widget-properties (widget prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
455 "Insert the contents of WIDGET inserting PREFIX before each element." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
456 (let ((type (car widget)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
457 (rest (cdr widget))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
458 (while rest |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
459 (data-debug-insert-thing (car (cdr rest)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
460 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
461 (concat |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
462 (dd-propertize (format "%s" (car rest)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
463 'face font-lock-comment-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
464 " : ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
465 (setq rest (cdr (cdr rest)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
466 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
467 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
468 (defun data-debug-insert-widget-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
469 "Insert the contents of the widget button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
470 (let ((widget (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
471 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
472 start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
473 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
474 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
475 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
476 (data-debug-insert-widget-properties |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
477 widget (concat (make-string indent ? ) "# ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
478 (goto-char start)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
479 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
480 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
481 (defun data-debug-insert-widget (widget prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
482 "Insert one WIDGET. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
483 A Symbol is a simple thing, but this provides some face and prefix rules. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
484 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
485 PREBUTTONTEXT is some text between prefix and the thing." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
486 (let ((string (dd-propertize (format "#<WIDGET %s>" (car widget)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
487 'face 'font-lock-keyword-face))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
488 (insert (dd-propertize |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
489 (concat prefix prebuttontext string) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
490 'ddebug widget |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
491 'ddebug-indent (length prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
492 'ddebug-prefix prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
493 'help-echo |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
494 (format "Widget\nType: %s\n# Properties: %d" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
495 (car widget) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
496 (/ (1- (length widget)) 2)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
497 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
498 'data-debug-insert-widget-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
499 "\n"))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
500 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
501 ;;; list of stuff |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
502 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
503 ;; just a list. random stuff inside. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
504 (defun data-debug-insert-stuff-list (stufflist prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
505 "Insert all the parts of STUFFLIST. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
506 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
507 (while stufflist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
508 (data-debug-insert-thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
509 ;; Some lists may put a value in the CDR |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
510 (if (listp stufflist) (car stufflist) stufflist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
511 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
512 "") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
513 (setq stufflist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
514 (if (listp stufflist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
515 (cdr-safe stufflist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
516 nil)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
517 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
518 (defun data-debug-insert-stuff-list-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
519 "Insert the stuff found at the stuff list button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
520 (let ((stufflist (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
521 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
522 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
523 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
524 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
525 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
526 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
527 (data-debug-insert-stuff-list stufflist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
528 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
529 "> ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
530 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
531 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
532 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
533 (defun data-debug-insert-stuff-list-button (stufflist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
534 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
535 prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
536 "Insert a button representing STUFFLIST. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
537 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
538 PREBUTTONTEXT is some text between prefix and the stuff list button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
539 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
540 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
541 (str |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
542 (condition-case nil |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
543 (format "#<list o' stuff: %d entries>" (safe-length stufflist)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
544 (error "#<list o' stuff>"))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
545 (tip (if (or (listp (car stufflist)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
546 (vectorp (car stufflist))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
547 "" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
548 (format "%s" stufflist)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
549 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
550 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
551 (put-text-property (- end (length str)) end 'face 'font-lock-variable-name-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
552 (put-text-property start end 'ddebug stufflist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
553 (put-text-property start end 'ddebug-indent (length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
554 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
555 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
556 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
557 'data-debug-insert-stuff-list-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
558 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
559 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
560 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
561 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
562 ;;; vector of stuff |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
563 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
564 ;; just a vector. random stuff inside. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
565 (defun data-debug-insert-stuff-vector (stuffvector prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
566 "Insert all the parts of STUFFVECTOR. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
567 PREFIX specifies what to insert at the start of each line." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
568 (let ((idx 0)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
569 (while (< idx (length stuffvector)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
570 (data-debug-insert-thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
571 ;; Some vectors may put a value in the CDR |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
572 (aref stuffvector idx) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
573 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
574 "") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
575 (setq idx (1+ idx))))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
576 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
577 (defun data-debug-insert-stuff-vector-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
578 "Insert the stuff found at the stuff vector button at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
579 (let ((stuffvector (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
580 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
581 start |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
582 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
583 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
584 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
585 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
586 (data-debug-insert-stuff-vector stuffvector |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
587 (concat (make-string indent ? ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
588 "[ ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
589 (goto-char start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
590 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
591 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
592 (defun data-debug-insert-stuff-vector-button (stuffvector |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
593 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
594 prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
595 "Insert a button representing STUFFVECTOR. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
596 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
597 PREBUTTONTEXT is some text between prefix and the stuff vector button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
598 (let* ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
599 (end nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
600 (str (format "#<vector o' stuff: %d entries>" (length stuffvector))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
601 (tip str)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
602 (insert prefix prebuttontext str) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
603 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
604 (put-text-property (- end (length str)) end 'face 'font-lock-variable-name-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
605 (put-text-property start end 'ddebug stuffvector) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
606 (put-text-property start end 'ddebug-indent (length prefix)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
607 (put-text-property start end 'ddebug-prefix prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
608 (put-text-property start end 'help-echo tip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
609 (put-text-property start end 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
610 'data-debug-insert-stuff-vector-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
611 (insert "\n") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
612 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
613 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
614 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
615 ;;; Symbol |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
616 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
617 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
618 (defun data-debug-insert-symbol-from-point (point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
619 "Insert attached properties and possibly the value of symbol at POINT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
620 (let ((symbol (get-text-property point 'ddebug)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
621 (indent (get-text-property point 'ddebug-indent)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
622 start) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
623 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
624 (setq start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
625 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
626 (when (and (not (fboundp symbol)) (boundp symbol)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
627 (data-debug-insert-thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
628 (symbol-value symbol) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
629 (concat (make-string indent ? ) "> ") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
630 (concat |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
631 (dd-propertize "value" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
632 'face 'font-lock-comment-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
633 " "))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
634 (data-debug-insert-property-list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
635 (symbol-plist symbol) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
636 (concat (make-string indent ? ) "> ")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
637 (goto-char start)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
638 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
639 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
640 (defun data-debug-insert-symbol-button (symbol prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
641 "Insert a button representing SYMBOL. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
642 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
643 PREBUTTONTEXT is some text between prefix and the symbol button." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
644 (let ((string |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
645 (cond ((fboundp symbol) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
646 (dd-propertize (concat "#'" (symbol-name symbol)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
647 'face 'font-lock-function-name-face)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
648 ((boundp symbol) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
649 (dd-propertize (concat "'" (symbol-name symbol)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
650 'face 'font-lock-variable-name-face)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
651 (t (format "'%s" symbol))))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
652 (insert (dd-propertize |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
653 (concat prefix prebuttontext string) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
654 'ddebug symbol |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
655 'ddebug-indent (length prefix) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
656 'ddebug-prefix prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
657 'help-echo "" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
658 'ddebug-function |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
659 'data-debug-insert-symbol-from-point) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
660 "\n")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
661 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
662 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
663 ;;; String |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
664 (defun data-debug-insert-string (thing prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
665 "Insert one symbol THING. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
666 A Symbol is a simple thing, but this provides some face and prefix rules. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
667 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
668 PREBUTTONTEXT is some text between prefix and the thing." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
669 (let ((newstr thing)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
670 (while (string-match "\n" newstr) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
671 (setq newstr (replace-match "\\n" t t newstr))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
672 (while (string-match "\t" newstr) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
673 (setq newstr (replace-match "\\t" t t newstr))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
674 (insert prefix prebuttontext |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
675 (dd-propertize (format "\"%s\"" newstr) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
676 'face font-lock-string-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
677 "\n" ))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
678 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
679 ;;; Number |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
680 (defun data-debug-insert-number (thing prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
681 "Insert one symbol THING. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
682 A Symbol is a simple thing, but this provides some face and prefix rules. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
683 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
684 PREBUTTONTEXT is some text between prefix and the thing." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
685 (insert prefix prebuttontext |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
686 (dd-propertize (format "%S" thing) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
687 'face font-lock-string-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
688 "\n")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
689 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
690 ;;; Lambda Expression |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
691 (defun data-debug-insert-lambda-expression (thing prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
692 "Insert one lambda expression THING. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
693 A Symbol is a simple thing, but this provides some face and prefix rules. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
694 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
695 PREBUTTONTEXT is some text between prefix and the thing." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
696 (let ((txt (prin1-to-string thing))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
697 (data-debug-insert-simple-thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
698 txt prefix prebuttontext 'font-lock-keyword-face)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
699 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
700 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
701 ;;; nil thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
702 (defun data-debug-insert-nil (thing prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
703 "Insert one simple THING with a face. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
704 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
705 PREBUTTONTEXT is some text between prefix and the thing. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
706 FACE is the face to use." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
707 (insert prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
708 (insert ": ") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
709 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
710 (end nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
711 (insert "nil") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
712 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
713 (insert "\n" ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
714 (put-text-property start end 'face 'font-lock-variable-name-face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
715 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
716 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
717 ;;; simple thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
718 (defun data-debug-insert-simple-thing (thing prefix prebuttontext face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
719 "Insert one simple THING with a face. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
720 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
721 PREBUTTONTEXT is some text between prefix and the thing. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
722 FACE is the face to use." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
723 (insert prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
724 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
725 (end nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
726 (insert (format "%s" thing)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
727 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
728 (insert "\n" ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
729 (put-text-property start end 'face face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
730 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
731 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
732 ;;; custom thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
733 (defun data-debug-insert-custom (thingstring prefix prebuttontext face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
734 "Insert one simple THINGSTRING with a face. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
735 Use for simple items that need a custom insert. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
736 PREFIX is the text that preceeds the button. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
737 PREBUTTONTEXT is some text between prefix and the thing. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
738 FACE is the face to use." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
739 (insert prefix prebuttontext) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
740 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
741 (end nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
742 (insert thingstring) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
743 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
744 (insert "\n" ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
745 (put-text-property start end 'face face) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
746 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
747 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
748 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
749 (defvar data-debug-thing-alist |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
750 '( |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
751 ;; nil |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
752 (null . data-debug-insert-nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
753 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
754 ;; Overlay |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
755 (data-debug-overlay-p . data-debug-insert-overlay-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
756 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
757 ;; Overlay list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
758 ((lambda (thing) (and (consp thing) (data-debug-overlay-p (car thing)))) . |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
759 data-debug-insert-overlay-list-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
760 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
761 ;; Buffer |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
762 (bufferp . data-debug-insert-buffer-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
763 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
764 ;; Buffer list |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
765 ((lambda (thing) (and (consp thing) (bufferp (car thing)))) . |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
766 data-debug-insert-buffer-list-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
767 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
768 ;; Process |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
769 (processp . data-debug-insert-process-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
770 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
771 ;; String |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
772 (stringp . data-debug-insert-string) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
773 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
774 ;; Number |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
775 (numberp . data-debug-insert-number) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
776 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
777 ;; Symbol |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
778 (symbolp . data-debug-insert-symbol-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
779 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
780 ;; Ring |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
781 (ring-p . data-debug-insert-ring-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
782 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
783 ;; Lambda Expression |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
784 ((lambda (thing) (and (consp thing) (eq (car thing) 'lambda))) . |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
785 data-debug-insert-lambda-expression) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
786 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
787 ;; Hash-table |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
788 (hash-table-p . data-debug-insert-hash-table-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
789 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
790 ;; Widgets |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
791 (widgetp . data-debug-insert-widget) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
792 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
793 ;; List of stuff |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
794 (listp . data-debug-insert-stuff-list-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
795 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
796 ;; Vector of stuff |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
797 (vectorp . data-debug-insert-stuff-vector-button) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
798 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
799 "Alist of methods used to insert things into an Ddebug buffer.") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
800 |
104489
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
801 ;; An augmentation function for the thing alist. |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
802 (defun data-debug-add-specialized-thing (predicate fcn) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
803 "Add a new specialized thing to display with data-debug. |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
804 PREDICATE is a function that returns t if a thing is this new type. |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
805 FCN is a function that will display stuff in the data debug buffer." |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
806 (let ((entry (cons predicate fcn)) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
807 ;; Specialized entries show up AFTER nil, |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
808 ;; but before listp, vectorp, symbolp, and |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
809 ;; other general things. Splice it into |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
810 ;; the beginning. |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
811 (first (nthcdr 0 data-debug-thing-alist)) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
812 (second (nthcdr 1 data-debug-thing-alist)) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
813 ) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
814 (when (not (member entry data-debug-thing-alist)) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
815 (setcdr first (cons entry second))))) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
816 |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
817 ;; uber insert method |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
818 (defun data-debug-insert-thing (thing prefix prebuttontext &optional parent) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
819 "Insert THING with PREFIX. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
820 PREBUTTONTEXT is some text to insert between prefix and the thing |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
821 that is not included in the indentation calculation of any children. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
822 If PARENT is non-nil, it is somehow related as a parent to thing." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
823 (when (catch 'done |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
824 (dolist (test data-debug-thing-alist) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
825 (when (funcall (car test) thing) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
826 (condition-case nil |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
827 (funcall (cdr test) thing prefix prebuttontext parent) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
828 (error |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
829 (funcall (cdr test) thing prefix prebuttontext))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
830 (throw 'done nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
831 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
832 nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
833 (data-debug-insert-simple-thing (format "%S" thing) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
834 prefix |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
835 prebuttontext |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
836 'bold))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
837 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
838 ;;; MAJOR MODE |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
839 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
840 ;; The Ddebug major mode provides an interactive space to explore |
104489
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
841 ;; complicated data structures. |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
842 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
843 (defgroup data-debug nil |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
844 "data-debug group." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
845 :group 'langauges) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
846 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
847 (defvar data-debug-mode-syntax-table |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
848 (let ((table (make-syntax-table (standard-syntax-table)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
849 (modify-syntax-entry ?\; ". 12" table) ;; SEMI, Comment start ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
850 (modify-syntax-entry ?\n ">" table) ;; Comment end |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
851 (modify-syntax-entry ?\" "\"" table) ;; String |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
852 (modify-syntax-entry ?\- "_" table) ;; Symbol |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
853 (modify-syntax-entry ?\\ "\\" table) ;; Quote |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
854 (modify-syntax-entry ?\` "'" table) ;; Prefix ` (backquote) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
855 (modify-syntax-entry ?\' "'" table) ;; Prefix ' (quote) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
856 (modify-syntax-entry ?\, "'" table) ;; Prefix , (comma) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
857 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
858 table) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
859 "Syntax table used in data-debug macro buffers.") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
860 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
861 (defvar data-debug-map |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
862 (let ((km (make-sparse-keymap))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
863 (define-key km [mouse-2] 'data-debug-expand-or-contract-mouse) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
864 (define-key km " " 'data-debug-expand-or-contract) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
865 (define-key km "\C-m" 'data-debug-expand-or-contract) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
866 (define-key km "n" 'data-debug-next) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
867 (define-key km "p" 'data-debug-prev) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
868 (define-key km "N" 'data-debug-next-expando) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
869 (define-key km "P" 'data-debug-prev-expando) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
870 km) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
871 "Keymap used in data-debug.") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
872 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
873 (defcustom data-debug-mode-hook nil |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
874 "*Hook run when data-debug starts." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
875 :group 'data-debug |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
876 :type 'hook) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
877 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
878 (defun data-debug-mode () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
879 "Major-mode for the Analyzer debugger. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
880 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
881 \\{data-debug-map}" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
882 (interactive) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
883 (kill-all-local-variables) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
884 (setq major-mode 'data-debug-mode |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
885 mode-name "DATA-DEBUG" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
886 comment-start ";;" |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
887 comment-end "") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
888 (set (make-local-variable 'comment-start-skip) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
889 "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
890 (set-syntax-table data-debug-mode-syntax-table) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
891 (use-local-map data-debug-map) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
892 (run-hooks 'data-debug-hook) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
893 (buffer-disable-undo) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
894 (set (make-local-variable 'font-lock-global-modes) nil) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
895 (font-lock-mode -1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
896 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
897 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
898 ;;;###autoload |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
899 (defun data-debug-new-buffer (name) |
104406
399d233ddb97
data-debug.el: Remove unnecessary autoloads.
Chong Yidong <cyd@stupidchicken.com>
parents:
104401
diff
changeset
|
900 "Create a new data-debug buffer with NAME." |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
901 (let ((b (get-buffer-create name))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
902 (pop-to-buffer b) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
903 (set-buffer b) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
904 (erase-buffer) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
905 (data-debug-mode) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
906 b)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
907 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
908 ;;; Ddebug mode commands |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
909 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
910 (defun data-debug-next () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
911 "Go to the next line in the Ddebug buffer." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
912 (interactive) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
913 (forward-line 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
914 (beginning-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
915 (skip-chars-forward " *-><[]" (point-at-eol))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
916 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
917 (defun data-debug-prev () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
918 "Go to the next line in the Ddebug buffer." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
919 (interactive) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
920 (forward-line -1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
921 (beginning-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
922 (skip-chars-forward " *-><[]" (point-at-eol))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
923 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
924 (defun data-debug-next-expando () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
925 "Go to the next line in the Ddebug buffer. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
926 Contract the current line (if open) and expand the line |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
927 we move to." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
928 (interactive) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
929 (data-debug-contract-current-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
930 (data-debug-next) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
931 (data-debug-expand-current-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
932 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
933 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
934 (defun data-debug-prev-expando () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
935 "Go to the previous line in the Ddebug buffer. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
936 Contract the current line (if open) and expand the line |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
937 we move to." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
938 (interactive) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
939 (data-debug-contract-current-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
940 (data-debug-prev) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
941 (data-debug-expand-current-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
942 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
943 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
944 (defun data-debug-current-line-expanded-p () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
945 "Return non-nil if the current line is expanded." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
946 (let ((ti (current-indentation)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
947 (ni (condition-case nil |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
948 (save-excursion |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
949 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
950 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
951 (current-indentation)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
952 (error 0)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
953 (> ni ti))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
954 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
955 (defun data-debug-line-expandable-p () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
956 "Return non-nil if the current line is expandable. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
957 Lines that are not expandable are assumed to not be contractable." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
958 (not (get-text-property (point) 'ddebug-noexpand))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
959 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
960 (defun data-debug-expand-current-line () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
961 "Expand the current line (if possible). |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
962 Do nothing if already expanded." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
963 (when (or (not (data-debug-line-expandable-p)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
964 (not (data-debug-current-line-expanded-p))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
965 ;; If the next line is the same or less indentation, expand. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
966 (let ((fcn (get-text-property (point) 'ddebug-function))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
967 (when fcn |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
968 (funcall fcn (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
969 (beginning-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
970 )))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
971 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
972 (defun data-debug-contract-current-line () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
973 "Contract the current line (if possible). |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
974 Do nothing if already expanded." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
975 (when (and (data-debug-current-line-expanded-p) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
976 ;; Don't contract if the current line is not expandable. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
977 (get-text-property (point) 'ddebug-function)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
978 (let ((ti (current-indentation)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
979 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
980 ;; If next indentation is larger, collapse. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
981 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
982 (forward-char 1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
983 (let ((start (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
984 (end nil)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
985 (condition-case nil |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
986 (progn |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
987 ;; Keep checking indentation |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
988 (while (or (> (current-indentation) ti) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
989 (looking-at "^\\s-*$")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
990 (end-of-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
991 (forward-char 1)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
992 (setq end (point)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
993 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
994 (error (setq end (point-max)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
995 (delete-region start end) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
996 (forward-char -1) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
997 (beginning-of-line))))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
998 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
999 (defun data-debug-expand-or-contract () |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1000 "Expand or contract anything at the current point." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1001 (interactive) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1002 (if (and (data-debug-line-expandable-p) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1003 (data-debug-current-line-expanded-p)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1004 (data-debug-contract-current-line) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1005 (data-debug-expand-current-line)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1006 (skip-chars-forward " *-><[]" (point-at-eol))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1007 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1008 (defun data-debug-expand-or-contract-mouse (event) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1009 "Expand or contract anything at event EVENT." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1010 (interactive "e") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1011 (let* ((win (car (car (cdr event)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1012 ) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1013 (select-window win t) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1014 (save-excursion |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1015 ;(goto-char (window-start win)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1016 (mouse-set-point event) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1017 (data-debug-expand-or-contract)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1018 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1019 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1020 ;;; GENERIC STRUCTURE DUMP |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1021 ;; |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1022 (defun data-debug-show-stuff (stuff name) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1023 "Data debug STUFF in a buffer named *NAME DDebug*." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1024 (data-debug-new-buffer (concat "*" name " DDebug*")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1025 (data-debug-insert-thing stuff "?" "") |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1026 (goto-char (point-min)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1027 (when (data-debug-line-expandable-p) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1028 (data-debug-expand-current-line))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1029 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1030 ;;; DEBUG COMMANDS |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1031 ;; |
104489
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
1032 ;; Various commands for displaying complex data structures. |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1033 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1034 (defun data-debug-edebug-expr (expr) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1035 "Dump out the contets of some expression EXPR in edebug with ddebug." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1036 (interactive |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1037 (list (let ((minibuffer-completing-symbol t)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1038 (read-from-minibuffer "Eval: " |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1039 nil read-expression-map t |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1040 'read-expression-history)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1041 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1042 (let ((v (eval expr))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1043 (if (not v) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1044 (message "Expression %s is nil." expr) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1045 (data-debug-show-stuff v "expression")))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1046 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1047 (defun data-debug-eval-expression (expr) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1048 "Evaluate EXPR and display the value. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1049 If the result is something simple, show it in the echo area. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1050 If the result is a list or vector, then use the data debugger to display it." |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1051 (interactive |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1052 (list (let ((minibuffer-completing-symbol t)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1053 (read-from-minibuffer "Eval: " |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1054 nil read-expression-map t |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1055 'read-expression-history)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1056 )) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1057 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1058 (if (null eval-expression-debug-on-error) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1059 (setq values (cons (eval expr) values)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1060 (let ((old-value (make-symbol "t")) new-value) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1061 ;; Bind debug-on-error to something unique so that we can |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1062 ;; detect when evaled code changes it. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1063 (let ((debug-on-error old-value)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1064 (setq values (cons (eval expr) values)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1065 (setq new-value debug-on-error)) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1066 ;; If evaled code has changed the value of debug-on-error, |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1067 ;; propagate that change to the global binding. |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1068 (unless (eq old-value new-value) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1069 (setq debug-on-error new-value)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1070 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1071 (if (or (consp (car values)) (vectorp (car values))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1072 (let ((v (car values))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1073 (data-debug-show-stuff v "Expression")) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1074 ;; Old style |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1075 (prog1 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1076 (prin1 (car values) t) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1077 (let ((str (eval-expression-print-format (car values)))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1078 (if str (princ str t)))))) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1079 |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1080 (provide 'data-debug) |
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1081 |
104489
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
1082 (if (featurep 'eieio) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
1083 (require 'eieio-datadebug)) |
25e047f7f6a2
Synch to Eric Ludlam's upstream CEDET repository.
Chong Yidong <cyd@stupidchicken.com>
parents:
104470
diff
changeset
|
1084 |
104401
2efe3dc24373
Add files for the EIEIO library.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1085 ;;; data-debug.el ends here |