|
72
|
1 ;;; edebug-cl-read.el --- Edebug reader macros for use with cl-read.
|
|
0
|
2
|
|
|
3 ;; Copyright (C) 1993 Daniel LaLiberte
|
|
|
4 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
|
|
|
5 ;; Keywords: lisp, tools, maint
|
|
|
6
|
|
72
|
7 ;; This file is part of XEmacs.
|
|
|
8
|
|
|
9 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
10 ;; under the terms of the GNU General Public License as published by
|
|
|
11 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
12 ;; any later version.
|
|
|
13
|
|
|
14 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
17 ;; General Public License for more details.
|
|
|
18
|
|
|
19 ;; You should have received a copy of the GNU General Public License
|
|
|
20 ;; along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
21 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
22 ;; 02111-1307, USA.
|
|
|
23
|
|
|
24 ;;; Synched up with: Not in FSF
|
|
|
25
|
|
|
26 ;;; Commentary:
|
|
|
27
|
|
70
|
28 ;; LCD Archive Entry:
|
|
|
29 ;; edebug-cl-read.el|Daniel LaLiberte|liberte@cs.uiuc.edu
|
|
|
30 ;; |Edebug reader macros for cl-read.el
|
|
72
|
31 ;; |$Date: 1996/12/18 22:51:45 $|$Revision: 1.1.1.2 $|~/modes/edebug-cl-read.el|
|
|
0
|
32
|
|
|
33 ;; If you use cl-read.el and want to use edebug with any code
|
|
|
34 ;; in a file written with CL read syntax, then you need to use this
|
|
|
35 ;; package.
|
|
|
36
|
|
|
37 ;; To Do:
|
|
|
38 ;; Handle shared structures, but this is not normally used in executable code.
|
|
|
39
|
|
|
40 ;; Read-time evaluation shouldn't be used in a form argument since
|
|
|
41 ;; there is no way to instrument the result of the evaluation, and
|
|
|
42 ;; no way to tell Edebug not to try.
|
|
|
43
|
|
|
44 ;; Need to mangle all local variable names that might be visible to
|
|
|
45 ;; eval, e.g. stream, char. Alternatively, packages could hide them.
|
|
|
46
|
|
72
|
47 ;;; Code:
|
|
|
48
|
|
0
|
49 (require 'cl)
|
|
|
50 ;; For byte compiling cl-read is needed.
|
|
|
51 ;; But edebug-cl-read should not even be loaded unless cl-read already is.
|
|
|
52 (require 'cl-read)
|
|
|
53
|
|
|
54 (provide 'edebug-cl-read)
|
|
|
55 ;; Do the above provide before the following require to avoid load loop.
|
|
|
56 (require 'edebug)
|
|
|
57
|
|
|
58 (defvar reader::stack)
|
|
|
59
|
|
|
60 ;; The following modifications of reader functions
|
|
|
61 ;; could be done via advice. But we need to switch between
|
|
|
62 ;; edebug versions and originals frequently. Also advice.el
|
|
|
63 ;; doesn't support advising anonymous functions.
|
|
|
64
|
|
|
65 (defun edebug-reader::read-sexp-func (point func)
|
|
|
66 ;; dummy def
|
|
|
67 )
|
|
|
68
|
|
|
69 (defvar edebug-read-dotted-list)
|
|
|
70
|
|
|
71 (defun edebug-read-sexp-func (point func)
|
|
|
72 "Edebug offset storing is happening."
|
|
|
73 (edebug-storing-offsets point
|
|
|
74 (let (edebug-read-dotted-list)
|
|
|
75 (edebug-reader::read-sexp-func point func))))
|
|
|
76
|
|
|
77 (defun edebug-end-list-handler (stream char)
|
|
|
78 ;; If the dotted form is a list, signal to offset routines.
|
|
|
79 (setq edebug-read-dotted-list (listp (car reader::stack)))
|
|
|
80 (edebug-reader::end-list-handler stream char))
|
|
|
81
|
|
|
82
|
|
|
83 ;;=========================================================================
|
|
|
84 ;; Redefine the edebug reader to check whether CL syntax is active.
|
|
|
85 ;; This might be a little cleaner using advice.
|
|
|
86
|
|
|
87 (defvar edebug-reading-with-cl-read nil)
|
|
|
88
|
|
|
89 (or (fboundp 'edebug-original-read-storing-offsets)
|
|
|
90 (defalias 'edebug-original-read-storing-offsets
|
|
|
91 (symbol-function 'edebug-read-storing-offsets)))
|
|
|
92
|
|
|
93 (defun edebug-read-storing-offsets (stream)
|
|
|
94 ;; Read a sexp from STREAM.
|
|
|
95 ;; STREAM is limited to the current buffer.
|
|
|
96 ;; Create a parallel offset structure as described in doc for edebug-offsets.
|
|
|
97 ;; This version, from edebug-cl-read, uses cl-read.
|
|
|
98 (if (not cl-read-active)
|
|
|
99 ;; Use the reader for standard Emacs Lisp.
|
|
|
100 (edebug-original-read-storing-offsets stream)
|
|
|
101
|
|
|
102 ;; Use cl-read with edebug hooks.
|
|
|
103 (if edebug-reading-with-cl-read nil
|
|
|
104 ;; Only do this if it's not already been done, else it loops.
|
|
|
105 (fset 'edebug-reader::read-sexp-func
|
|
|
106 (symbol-function 'reader::read-sexp-func))
|
|
|
107 (fset 'reader::read-sexp-func 'edebug-read-sexp-func)
|
|
|
108 (fset 'edebug-reader::end-list-handler (get-macro-character ?\)))
|
|
|
109 (set-macro-character ?\) 'edebug-end-list-handler)))
|
|
|
110 (unwind-protect
|
|
|
111 (let ((edebug-reading-with-cl-read t))
|
|
|
112 (reader::read stream))
|
|
|
113 (if edebug-reading-with-cl-read nil
|
|
|
114 (set-macro-character
|
|
|
115 ?\) (symbol-function 'edebug-reader::end-list-handler))
|
|
|
116 (fset 'reader::read-sexp-func
|
|
|
117 (symbol-function 'edebug-reader::read-sexp-func)))))
|
|
|
118
|
